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AN526  PIC16C5X/16CXX  Math  Utility  Routhes  „  5-  89 

ANS27  Software  Stack  Management  ^  2-  19 

AN528  Implementing  Wake-Up  on  Keystroke    2-  47 

AN529  Multiplexing  LED  Drive  and  a  4  x  4  Keypad  Sampling   2- 109 

Al^aO  interfacing  93CX6  Serial  EEPROMs  to  the  PfCISCSX  7-  11 

A^^1  Intelligent  Remote  Posltnner  2-  83 

msaz  Senm  Control  of  a  DC  Brush  Motor    4-185 

AN534  fawhigindResloririB  Status  on  Mmiipt   4-  1 

ANS35  Logic  Powered  Serial  EEPROMs    „.„  7-  29 

Basic  Serial  EEPROM  Operatton  ,  8-  1 

Al^537  Everything  a  System  Engineer  Needs  to  Know  About 

Ssfial  EEPROM  EnAtranoe   ,„........  8-15 

ANS^  U^  PWM  to  Ganaiate  Ar^l^  Ou^ut    ,  4-  1 5 

AN539  Frequency  and  RescriuOeti  OpHdns  for  PWM  Outputs   4-  7 

ANS40  imptementing  IIR  Digllal  FiRsis...  ™„  ..^  4-129 

AN541  Using  PIC16C5X«s  a  Smart  PC  Pei^haial  2-193 

AN542  Imptomeniattan  of  Knt  Fourier  Ttensfotms    4- 145 

MiS^  Tone^nentta    4-163 

msm         mmmm^if»ama  ...„  4-  63 

mS4S  Using  the  Ci^MurB  Module  4-  29 

ANS46  U^tMAflHtos  to         Converter  3-123 

AN547  Se(iBlP«t  UQIIie6„..   4-  53 

Amw  liiiptoffieiA^Tabtoftoad  and  Table  Write  4-  3 

msSQ  1.8  VoRTashnoto^-  Ban^  ,  8-119 

M&Si  SeMEiPnOMSeMtiommtaBflslSolutkms  8-121 

ANS52  taplsmeisflng  W«*e  up  on  \^e^«iekB  .„„  3-  5 

AN^  ®(4M»re  hnplemerilatton  (rf  PiS  Bus  Mtaster  3-223 

ANSS5  SiSBwawlmptetwaniaaonof  Ai^iie^^   3-181 

AN556  bnpiwnanangaTabtoRBed   5-  1 

AN5S7  l=iKir  Channel  Digits  VoR  IMsr  with  SMay  and  Keyboard  3-141 

tmSB  U^the24XX65anda«X)^«iriBiftaiid4tfQneP   8-  53 

AN^  C^Metr^  Serial  Bus  Q^^bm  WWi  Pnoper  Write  Cycle  Times  8-  95 

AN560  U*i8tt»mC^a!»d  m.Ci8  ..................  8-  99 

Afi^CS  U^tflfrMit4achipEnduraiieePradicHveS(dl««rB  8-  23 

fiNSea  iRiplMiMnnnganLCOConMlM-   2-133 

ANS64  Usiiglhf  PWM  4-  17 

jamee  PoitBasenamallfiteirupt  3-  1 

tme^  hitei1iMR924LCI0(SeiM  iiPROMstottw  PIC16CM  8-  27 

ANS69  hMwsa^and  SaiMaro  ^Qlutofora  Pdit^   6-33 

AN570  Caib««l«giw»ITAIiaOO ...........   6-  1 

ANS71  Cclninunteafins  wHi  ipPPK^  InMTAflSXXX.^  6-  21 

AN572  QuesHons  and  Answers  ConMNink^  Serial  EEPROMs  8-125 

AN575  IEEE  754  ComplianI  Floatktg  Poht  Routines  5-  1 1 
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CRC^S  REFERENCE  GUIDE  TO  APPLICATION  NOTES  -  NUMERICAL  (continued)  Page 

AN576  Disabling  Glot>al  Interrupts  5-  5 

AN577  PIC16C54A  EMI  Results  2-207 

AN578  Use  of  the  SSP  Module  in  the  I'C  Multi-Master  Environment  3-297 

ANS79  Using  fflw  8-Btt  Parallel  Slave  Port  3-  9 

ANS80  UshgTlmerlfei Steep..  3-  95 

AN581  impleinenlingLongCalte^^  ,....»    .„  2-  23 

AN5K  Ijw  Power  ©feek ......  ,   3-  99 

iftN§@  hnplemenMiM  ^  ttie  Daia  Bioyption  Stanch  Using  PIC17C42    4-273 

/man  PlCM«^rmRSilf«36ito(Micras(«Win(tows'DDE  5-231 

AN585  RMiTkmOpwatt^  System  5-167 

AN586  Maeiosfer^0eand^ii4tS«vilichlng  2-  27 

Ititarla^  to  an  LCD  Moittle  3-  49 

msm  Piet6/17'  Osdl^  Deslgii  QufcJe  ....„„    5-213 

AN589  AP<>BasedOewelapmantPrograiTinierforthsPIC16C84  „  3-  15 

ANSgo  A  CloGk  Design  Ushg  the  PIC16C54  tor  LED  Displays  and  Switch  Inputs.  2-  99 

AN591  Apple  Desktop  Bus  „  „  3- 169 

ANSg2  Frequent  ^unto-  Ushg  I^ICie^X  2-  53 

AN593  Serial  Port  Reutties  Without  Using  ttieRTCC  2-165 

AN594  Using  the  OeP  MocftjIe  3-  21 
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CROSS  REFERENCE  CHART  TO  APPUCATUN  NOTES  -  BY  SUBJECT 
Please  ncto  that  applk»fion  soitwam  written  for  one  fm 


Serial 

Subject  PIC16C5X      PIC16CXX     PIC17CXX         ASSP  EEPRCMW 


24CXX  serial  EEPROM  interface 

AN515 

93CX6  serial  EEPROM  interface 

AN530 

A/D  conversion 

AN513 

Pitm 

AC  power  Una,  kffiwface  to 

AN521 

Addition,  16+16 

AN526 

AN544 

Addition,  fixed  point 

AN526 

AN526 

AN544 

Addition,  floating  point 

AN575 

AN575 

mm 

Alarm  clock  implementation 

AN529 

Analog  to  digital  conversion 

AN513 

Apple  de^^  bps  fciterlBpe 

AIWi 

/^nGhroROis  seriat  poit 
impiefTiernBnon  nsonware 

Battery  management  IC 

AN570 

Banl<  switchiing  macros 

AN586 

BCD  addition 

AN526 

AN526 

AN  544 

BCD  conversion  routines 

AN526 

AN526 

ANS44 

BCD  subtraction 

AN526 

AN526 

BCDtobinaiy 

AN526 

AN^ 

AN544 

Binary  to  BCD 

AN526 

AN526 

Brovm-out  circuits 

AN522 

AN522 

Capacitance  maasutiwnertt  < 

'Aj»2 

Capture  routines 

AN594 

ANS4S 

CCP  module 

AN594 

Chip  select  with  Vcc 

AN535 

Clock/calendar  implementation 

ANS29 

AN582 

Compare  routines 

AN594 

Comparison  of  low-end  8-bit 

Compatibility  •  24C01A 

AN517 

Compatibility  -  93C06 

ANS16 

Data  encryption 

AN583 

Data  Memory  Bank  Switching  Macros 

AN586 

D/A  using  PWM 

AN538 

DDE,  using  PICI^ASTER's 

AN584 

AN584 

AN584 

DES  data  erKryptkin 

AN583 

Digital  voltmeter 

AN5S7 

Digital  filters 

AN540 

Diviston,  16/16,  unsigned 

AN526 

ANS26 

/mu 

Division,  16/16,  signed 

AN526 

AN526 

AN544 

Divisk>n,  fixed  point 

AN526 

AN526 

AN544 
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CROSS  R^RENCE  CHART  TO  APPUCATION  NOTES  •  BY  SUBJECT  (oonthiued) 

Serial 

Subject  PIC16C5X       PIC16CXX      PIC17CXX         ASSP  EEPROM 


Division,  floating  point 

AN575 

AN575 

DTMF  generation 

AN543 

EMI  Results 

AN577 

Endurance 

AN537 

Endurance  predictive  model 

AN562 

FIT 

AN575 

rKjBiing  poim  auoiHOii 

Floating  point  multiplication 

AKICTC 

AKICTC 

Arsio/o 

Floating  point  routines 

A  lklC7C 

ANo/o 

AN575 

Floating  point  subtraction 

AN575 

A1NS7S 

Frequency  Counter 

AN592 

Frequency  measurament 

AN545 

Global  interrupts 

ANb/o 

AN570 

ANSTo 

I/O  expansion 

AN547 

rC  implementation 

(for  serial  EE  interface  onl^ 

AN515 

AN571 

I'^C  implementaion 

AN541 

AN554 

Pt  muM-fTHster  operation 

mm 

MR  filter 

AN540 

Interfacing  to  24C32/65 

ANS58 

Interfacing  to  24CXX 

AN515 

Interfacing  to  24LCXX 

ANS87 

Interfacing  to  93CX6 

AN530 

Interfacing  to  93LC56/66 

AN560 

Interface  to  serial  AJD 

A^^1 

Intenoipt,  disabling  global 

M4576 

AN576 

ANS76 

Interrupt,  PORTS 

AN566 

hiMitiptkSofMsva 

AN514 

Keypad  interface 

AN528/AN529 

A1^S7 

LCD,  direct  driving  witti  PIC16C5X 

AN563 

Al^587 

ANS87 

LED  display  inter^cing 

AN529/590 

AN^7 

Long  calls 

AN581 

Low  power  dock 

ANS82 

Macros,  page  and  bank  switching 

AN586 

Math  routines 

AN526/AN575 

AN526/AN575 

AN544/AN575 

Measuring  capacitance 

AN512 

Measuring  frequency 

Al^92 

AN545 

Measuring  period 

AN545 

Measuring  pulse-width 

ANSd4 

ms4S 
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CROSS  REFERENCE  CHART  TO  APPLICATION  NOTES  -  BY  SUBJECT  (continued) 

Serial 

Subject  PiC16C5X      PiCISCXX      PIC17CXX         ASSP  EEPROIM 


Kteasurtng  reststanea 

AN5T2 

Measuring  temperature 

AN512 

Microwire  Interface 

AN531 

Motor  control 

ANS31 

AN532 

Mouse,  serial 

AN519 

MTA1 1 200,  calibrating 

AN570 

Multiplexing  LED  and  keypad 

AN529 

MuHiMGandn.  8x8.  unsigmcl 

mS26 

ANS44 

Multiplication,  16  x  16,  unsigned 

AN526 

AN544 

Multiplication,  16  x  16,  signed 

AN526 

AN544 

MttWfslieallon,  fM  polM 

AM2e 

AhS44 

Multiplication,  floating  point 

AN575 

AN575 

Oscillator  design 

AN588 

AN588 

AN588 

Ptme  swAeMng  fnaeips 

ANS86 

Parallel  slave  port 

AN579 

Parity  generatbn 

AN555 

AN547 

Period  measurement 

AN545 

PIC16C84  development  programmer 

AN589 

PID 

AN531 

AN532 

PLA  implementation 

AN511 

PLD  replacement  using  PIC16CXX 

AN511 

Pointing  device 

AN569 

Position  control 

AN531 

AN532 

Positioner 

AN531 

Powfer-on  Reset 

AN522 

Program  Memory  Page  Switching 

Macros 

AN586 

Pseudo-random  number  generation 

AN544 

Pulse  width  measurement 

AN545 

PWM,  using 

AN594 

AN564 

PWM,  cfK)osing  frequency 

AN594 

ANS39 

PWM,  ctioosing  resolution 

AN594 

ANS39 

PWM  generation  in  software 

AN531 

PWM  routines 

AN594 

AN539 

PWM  to  analog  output 

AN538 

Quadrature  encoder  interface 

AN532 

Random  number  gerteMon, 
Gaussian 

mm 

Random  number  generation 

Real  time  dock  (TMR1) 

ANS8C/AN582 

94m«Mier«ehipt'milMfl0{|ir  Inc. 
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CROSS  REFERENCE  CHART  TO  APPUCATION  NOTES  -  BY  SUBJECT  (continued) 

Serial 

^fajMt   P1C16CSX      PiC16CXX     HC17CXX         ASSP  EEPROM 


BasI  #Ima  ftes^'l^  imnlamantsflnn 

nwU  iHTio  ciocK  irnpitn  iHHiusiiiui  1 

^mm  AC  power  line) 

AN521 

Real  time  operating  system  (RTOS) 

AN5K 

AN585 

AN585 

Resistance  measurement 

AN512 

RS232  intef^K» 

ANS47 

SEEPROM  operation 

AN536 

Sequencer  implementation 

AN511 

Serial  EEi^ROlM  interfaong 

ANSIS 

Serial  port  (USART)  simple  routines 

AN555 

AN547 

SwM  AJD  interface 

AN531 

Servo  oonM 

ANS32 

Slave  port 

ANS79 

Sine  wave  generation 

AN543 

Software  stack 

AN527 

AN534 

Square  root 

AN526 

ANS26 

AN544 

Stack  management  in  software 

AN527 

AN534 

State  machine  Implementation 

AN511 

Status  save  and  restore 

AN534 

Subtraction,  16+16 

AN526/AN575 

AN575 

AN544/AN575 

Subtraction,  fixed  point 

Subtraction,  floatingpoint 

AN526 

AN544 

Table  Read 

AN556 

AN556 

AN548/AN556 

Temperature  measurement 

AN512 

Ttiermostat  implementation 

AN512 

Timerl  in  asynchronous  mode 

AN580 

Tone  generation 

AN543 

Trajectory  generation 

AN532 

TrueGauge  calibration 

AN570 

UART,  software  ImplemenMon 

AN555 

USART  routines 

AN547 

Velocity  control 

AN532 

VoHmeter  ^letnentation 

AN1S7 

Wake  up  on  key-stroke 

AN52B 

AN552 

Write  cycle  optimization 

AN559 

Zero  crossing  detect 

AN521 

CNM««llimclilpiT*tiMl9gyrlnc. 
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SERVING  A  COMPLEX  AND 
GOMPETnWE  WORLD  WITH  FIELD- 
PROGRAMMABLE  EMBEDDED  CONTROL 
SYSTEM  SOLUTIONS 


Motivated  by  customer 
requirements.... 


...and  powered  by  continuous 
improvement.. 


'Microchip  Technology  Incorporated  draws  its  impetus 
from  the  technology  expectations  of  a  large  base  of  long- 
standing customers.  Microchip  responds  quickly  with  technol- 
ogy to  se/ve  our  customers'  needs.  Moreover,  as  a  fully 
integratad  IC  manufacturer,  Microchip  deploys  its  panoply  of 
resources  to  act  timely  and  efficiently,  and  on  a  worldwide 
scale  in  providing:  Technology  Development,  Design,  Wafer 
Fabrication,  Assembly  and  Test,  Quality,  Reliability  and  Cus- 
tomer Support. 

"Worldwide  competition  leaves  no  room  for  divergence  or  medi- 
ocrity. Microchip  Technology,  committed  to  focus  on  and  continu- 
ously Improve  all  the  aspects  of  its  business,  takes  pride  in  its 
i^a^  OHpomte  euttore.  To  krpmve  performance,  our  errphy- 
ees  am  eneems^ed  to  anafy2»ffiek  methods  contini^y.  Per- 
sonatemfKitmmentwpandslhecapabWyofpeisonalrBspon- 
sUUty  to  oonOmaMyser}m  ouroislomeis  better. 


...riding,  leading  and  pushing 
ttie  wave  of  technological 
change. 


"Our  industry's  life-line  is  innovation.  The  fast  pace  of  technologi- 
cal change  is  inherent  in  our  industry.  Microchip  Technology  has 
accelerated  the  rate  of  change  of  its  technology  and  products  to 
leadership  in  providing  field-programmable  space-sensitive  em- 
bedded control  solutions. 

'Change  is  our  ally,  Qrivrig  arid  managing  customer-focused 
0ian06h  our  wkmtig  ^ategy-' 


Steve  Sanghi 

President  &  Chief  Executive  Officer 
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MICROCHIP 
TECHNOLOGY 
INCORPORATED 


Company  Profile 


HIGHLIGHTS 

•  Focused  on  providing  high-perfomnance,  field- 
programmable  embedded  control  solutions 

•  An  experienced  executive  team  focussed  on 
innovation 

•  Offers  RISC  8-bit  field-programmable  microcon- 
trollers and  supporting  logic  products 

•  Offers  Serial  and  Parallel  EEPROMs  and 
EPROMs 

•  Offers  complementary  Application  Specific 
Standard  Products  ■  "  t~ 

•  Fully  integrated  manufacturing 

•  A  global  network  of  manufacturing  and  customer 
support  facilities 

•  A  unique  corporate  culture.^dicated  to  continu- 
ous inrqirovement 

.  -e. .  i    li.  .  ..  . 


BUSINESS  SCOPE 

Microchip  Technology  Incoiporatedmanaflactufwrand 
niarkete  a  vanet^  of  VL#@Mi0S  semtoondtietor^mpo- 
nents  to  support  the  entli«KMed  contK)l  nmrtc^  In 
particular,  ttie  company  specializes  in  highly  Inte^Bted, 
RISC  rnicrocontiollers.applicationspecificstandaid  prod- 
ucts and  related  non-volatile  memory  products  to  meet 
growing  market  requiremenl^flpr  high  perfomegfi^  yet 
economical  embecMedeMftfiQil'eapabil^fin  «ii  ttiersas- 
ing  numi>er  of  price-s^eiiit^  produpls.  iMK^aehlp's 
pipduc^  feature  the  iiK|tjB|||f^ most  econonMI  Ol^P 

ity ,  ak>ng  with  the  compMlli^  bitegiatedfunctte«ia%, 
easeof  development  smdiaGhnical  suppprt  so  e^^ntial 
to  timely  anntetQSNflilscHve  product  development  our 
customers. 

MARKET  FOCUS 

I^icroclnip  Teclnnology  targets  selected  markets  wtiere 
our  advanced  designs,  progressive  process  technology 
and  industry-leading  operating  speeds  enable  us  to 
deliver  decidedly  superior  performance.  The  company 
has  positioned  itself  to  maintain  a  dominant  role  as  a 
supplier  of  high  performance  field-programmable 
microcontrollers  and  associated  memory  and  k>gic  prod- 
ucts for  embedded  control  applications. 


■  4- 


Chandler,  Arizona: 

Company  headquarters  near  Phoenix,  Arizona;  execu- 
tive offices,  R&D  and  wafer  fatxicatnn  occupy  this 

142,000-square-foot  facility. 


Tempe,  Arizona: 

Waf  erfabrkisioh  ii^pacity  is  expandeddiamatk^ly  with 
the  addition  of  our  new  170,000-square-foot  facility. 


Oi«(M)Mleffi«ip:'ltehrielsgy^lni^ 
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Microchip 


-  Mission  Statement  - 


Microchip  Technology  Incorporated  is  a  leading  supplier  of  field-programmable  embedded  control  solutions  by 
providing  RISC  microcontrollers  and  related  non-volatile  memory  products.  In  order  to  contribute  to  the  ongoing 
success  of  customers,  shareholders  and  employees,  our  mission  is  to  focus  resources  on  high  value,  high  quality 
products  and  to  continuously  improve  all  aspects  of  our  business,  providing  a  competitive  return  on  investment. 


-  Guiding  Values  - 


Customers  Are  Our  Focus:  We  establish  successful 
customer  partnerships  by  exceeding  customer  expec- 
tations for  products,  services  and  attitude.  We  start  by 
listening  to  our  customers,  earning  our  credibility  by 
producing  quality  products,  delivering  comprehensive 
services  and  meeting  commitments.  We  believe  each 
employee  must  effectively  serve  their  internal  custom- 
ers in  order  for  Microchip's  external  customers  to  be 
properly  served. 

Quality  Comes  First:  We  will  perform  correctly  the 
first  time,  maintain  customer  satisfaction  and  measure 
our  quality  against  requirements.  We  practice  effec- 
tive and  standardized  improvement  methods,  such  as 
statistical  process  control  to  anticipate  problems  and 
implement  root  cause  solutions.  We  believe  that  when 
quality  comes  first,  reduced  costs  follow. 

Continuous  Improvwnehf  la'Essential:  We  utilize 
the  concept  of  "Vital  Few"  to  establish  our  priorities. 
We  concentrate  our  resources  on  continuously  im- 
proving the  Vital  Few  while  empowering  each  em- 
ployee to  make  continuous  improvements  in  theirarea 
of  responsibility.  We  strive  for  constructive  and  honest 
self-criticism  to  identify  improvement  opportunities. 

Employees  Are  Our  Greatest  Strength:  We  design 
jobs  and  provide  opportunities  promoting  employee 
teamworic,  productivity,  creativity,  pride  in  wort<,  trust, 
integrity,  fairness,  involvement,  development  and  em- 
powerment. We  base  recognition,  advancement  and 
compensation  on  an  employee's  achievement  of  ex- 
cellence in  team  and  individual  performance.  We 
provide  for  employee  health  and  welfare  by  offering 
competitive  and  comprehensive  employee  benefits. 

Products  And  Technology  Are  Our  Foundation: 

We  make  ongoing  investments  and  advancements  in 
the  design  and  development  of  our  manufacturing 
process,  device,  circuit,  system  and  software  tech- 
nologies toprovkle  timely,  innovative,  reliable  and  cost 
effective  products  to  support  current  arid  future  market 
opportunities. 


Total  Cycle  Times  Are  Optimized:  We  focus  re- 
sources to  optimize  cycle  times  to  our  internal  and 
external  customers  by  empowering  employees  to 
achieve  efficient  cycle  times  in  their  area  of  responsi- 
bility. We  believe  that  cycle  time  reduction  is  achieved 
by  streamlining  processes  through  the  systematk; 
removal  of  barriers  to  productivity. 

Safety  Is  Never  Compromised:  We  place  our  con- 
cern for  safety  of  ou  r  employees  and  community  at  the 
forefront  of  our  decisions,  policies  and  actions.  Each 
employee  is  responsible  for  safety. 

Profits  And  Growth  Provide  For  Everything  We  Do: 

We  strive  to  generate  and  maintain  competitive  rates 
of  company  profits  and  growth  as  they  allow  continued 
investment  forthe  future,  enhanced  employee  oppor- 
tunity and  represent  the  overall  success  of  Microchip. 

Communication  Is  Vital:  We  encourage  appropri- 
ate, honest,  constructive,  and  ongoing  communication 
in  company,  customer  and  community  relationships  to 
resolve  issues;  exchange  information  and  share  knowl- 
edge. 

Suppliers,  Representatives,  And  Distributors  Are 
Our  Partners:  We  strive  to  maintain  professional  and 
mutually  beneficial  partnerships  with  suppliers,  repre- 
sentatives, and  distributors  who  are  an  integral  link  in 
the  achievement  of  our  mission  and  guiding  values. 

Professional  Ethics  Are  Practiced:  We  manage  our 
business  and  treat  customers,  employees,  sharehold- 
ers, investors,  suppliers,  distributors,  representatives, 
community  and  government  in  a  manner  that  exempli- 
fies our  honesty,  ethics  and  integrity.  We  recognize 
our  responsibility  to  the  community  and  are  proud  to 
serve  as  an  equal  opportunity  employer. 
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FULLY  INTEGRATE© 
MANUFACTURING  ' 


■3"  MaBeMpiT<i»iMlw.>llMt*i<H^^  ttirough  total  control  war  ail  phases  of 

'  vrr  ta^HMfKi'  Mtdn^EiPipaftitf  assanridy  and  quaffiy  assurance  testing  are 
'■  io«idaGMi(tf«fei^lMa6<«MMIKl  and  operated  t>y  Microchip.  Our  Integrated 
approach  to  manufacturing  abng  with  rigorous  use  of  advanced  statistical 
process  control  (SPC)  and  a  continuous  improvement  culture  has  brought 
forth  tight  product  consistency  levels  and  high  yields  which  enable  Microchip 
to  compete  successfully  in  world  markets.  Microchip's  unique  approach  to 
SPC  provides  customers  with  excellent  costs,  quality,  reliability  and  on-time 
delivery. 


A  GLOBAL  NETWORK  OF 
PLANTS  AND  FACILITIES 


Microchip  is  a  global  competitor  providing  local  service  to  the  world's 
technology  centers.  The  Company's  focal  point  is  the  design  and  technology 
advancement  facility  in  Chandler,  Arizona.  Product  and  technobgy  develop- 
ment is  here,  along  with  front-end  wafe^Mnfration  and  electrical  probing. 

In  late  19^,  Microchip  purchased  a  second  wafer  fabrication  facility  in 
Tempe,^Arlzona-thlrteen  miles  from  ite  aiding  Chandler,  Arizona,  operation. 
The  additional  f 70,000  square  foot  facility  wW  be  equipped  with  process 
equipment  for  use  In  meeting  future  production  volumes  beyond  those  which 
couldbeeMicMlyprmiiK»dlnMitiro(^^'8singlee/^^^  Initial 
produciiiiti#<lA#iii>iiis#  'Mnpe  facility  Is  anticipated  to  begin  by  late  1994. 

Microchip's  assembly  and  test  facility  in  Kaohsiung,  Taiwan  houses  the 
technology,  modem  assembly  methods  and  test  equipment  necessary  for 
pleetic  and  ceramic  packaging.  M  icrochip  also  assembles  and  tests  products 
in  facilities  owned  and  operated  by  Alphatek  in  Bangkok,  Thailand. 

Sales  and  application  offices  are  located  in  key  cities  throughout  the  Ameri- 
cas, Pacific  Rim  and  Europe.  Offices  are  staffed  to  meet  the  high  quality 
expectations  of  our  customers,  and  can  be  accessed  for  technical  support, 
purchasing  information  and  failure  analysis. 


A  PRODUCT  FAMILY  OF 
SHARED  STRENGTHS 


Microchip's  product  focus  is  CMOS  field-programmable  microcontrollers, 
non-volatile  memories  and  peripherals,  and  application  specific  standard 
products  (ASSP).  These  product  lines  include  PIC16/17  microcontrollers. 
Serial  and  Parallel  EEPROMs,  high-speed  EPROMs,  and  peripherals  in  a 

'''^ ''^1^1M^'#^i9ftiet»^stties.  speeds  and  p^ 

.  ST:-)  ^'^;  „.,  iftm  w>t  Notion  9f^ 


MICROCONTROLLERS 


EPnOM 

EEPROM 

1SC6X 
1SWX 

lacnsx 

16CRUA 

iscat 

16CSXA 

wcsee™ 

High  End 
16-Brt 
Instruction 

14-Bit 
Instnjction 


Onboard  Memory  Technoiogy  ■ 


CMOSMOmif- 


PIC16/17  microcontiolleis  from  IMcrochip  oomtwie  high  peifomianca,  tow 
.  '  ■■<  «i9Btftidsnriallpacl«ag^  size.  Thcqr  offer  file  best  piice/peifoimarK»ral» 
9^'>r'1M4rtdustTy.  Large  numbers  of  ttisse  dswices  are  used  in  automotive  and 
oost-sensitive  consumer  products,  oomputer  peripherals,  office  automatkm, 
automotive  control  systems,  security  and  telecommunication  applk^tions. 

The  widely-accepted  CMOS  PIC16C5X,  PIC16CXXand  PIC17CXXfamMies 
are  the  industry's  only  8-brt  microcontrollers  using  a  high-speed  RISC 
arch  itectu  re.  Microch  ip  pioneered  the  use  of  RISC  architecture  to  obtain  high 
speed  and  instruction  efficiency.  The  (^OS  PIC16C5X  family  \s  In  high- 
volume  production,  shipping  in  the  range  of  one  million  units  per  week,  and 
has  achieved  more  than  twenty-five  thousand  design  wins  Worldwide. 

The  PIC16GXX  mid-range  family  is  rapidly  gaining  acceptance  with  three  of 
its  members  introduced;  PIC16C71,  PIC16C84  and  PIC16C64. 

The  PiC17CXXfamll|r«iti«sthew»rtifsfastestMecutionpeifomianra 
6;bit  mferocontroUer  family.  The  fHCITCXX  famHy  extends  the  P<C16/17 
imcroGontroller's  high-performance  architedure  with  a  16-bit  instnic- 
tk>n  word,  enhanced  instruction  set  and  powerful  vectored  interrupt  handling 
capabilities.  The  first  member  of  the  family,  the  PIC17C42,  Includes  a 
powerful  array  of  intelligent  and  precise  on-chip  peripheral  features  that  are 
kfeaily  suited  for  many  demanding  real-time  embedded  control  applications 
deluding  motor  control,  process  control,  security,  automotive  and  medical 
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applications.  In  addition,  the  PIC17C42  can  function  either  as  a  stand- 
alone microcontroller  or  can  execute  instructions  from  up  to  64K  words 
of  external  program  memory.  The  PIC17C42  features  comprehensive 
timer/counter  resources  and  I/O  handling  capabilities  to  address  the 
requirements  of  complex  embedded  control  applications. 

Current  CMOS  PIC16/17  microcontroller  product  families  include  ad- 
vanced features  such  as  sophisticated  timers,  embedded  A/D,  extended 
Instruction/data  memory,  inter-processorconmunication  (I^C™  bus,  SPI 
aridt^M^ifkl  ROM,  RAM,  iPROM  and  EEPROM  memWidB. 

Both  PIC1 6CXX  and  PIC17CXX  families  are  supported  by  user-friencHy 
development  systems  including  ass^nblers,  software  simulators,  pro- 

V*>-,-\.  '  .  '  - 

QEVELOPMENT  SYSTEMS         vl94»IMCM aster™  is  an  advanced  reaMkmin«iicult  emulator  system 

running  under  Windows™  enviramMMt  Th«  PICMASTER  is  a  Mtero- 
chip-designed  universal  emulatw  ter  beft  PIC16CXX  and  WiOlfSa 
families.  The  PRO  MATE™  is  an  adwanoedfiiil-featured  progiamnier. 
PICSTART^'^  is  a  low-cost  devetopment  ktt  wihich  includes  an  assem- 
bler, simulator  and  development  programmer. 

Microchip's  Serial  EEPROM  Designer's  Kit  includes  everything  neces- 
sary to  develop  a  reliable  Serial  EEPROM-based  design. 


■^..:<i\f- 


gOFTWARE  SUPPORT  PICf6/17  microcontroller  faniliias  are  supported  by  assemblers, 

tlKtcer/iescleis,  libraries  md  a  source-level  debugger.  The  PK:ieC$X 
i: .       <  vt  -  mSiKeilS!^(^^ 

.   ;  >     • !     . b<.ll/ IS  '  *  Afull-featuPBdCCbnlpilwijhdFtizzyLogicsupportarealsoavaitabtefor 

u^.-ri-.  .,n,v.  -  V    s«,^o..,  .  jr,K>:         all  three  famines. 

Customers  can  obtain  on-line  updates  on  Microchip  Development  Sys- 
tems and  Support  Software  via  the  Bulletin  Board  System  (BBS).  Please 
refer  to  the  Microchip  BBS  product  b!|9f  in,,aBq^  9 for^ "jtiWyf BP^ 
Information. 

f,.  Microchipoffersoneof  the  broadest  selectionsofCMOSSerialEEPROMs 
on  the  market  for  embedded  control  systems.  Serial  EEPROMs  are 
available  in  variety  of  densities,  operating  voltages,  bus  interface  proto- 
cols, operating  temperature  ranges  and  space  saving  packages.  The 
company  has  developed  the  world's  first  64K  Smart  Serial™  EEPROM 
whidi  currently  offers  four  times  the  speed,  four  times  the  memory  and 
four  times  the  features  of  any  competitive  2-wire  Serial  EEPROM. 
Device  densities  range  from  256K  bits  up  to  64K  bits.  In  additkin  to  5  volt- 
only  operation.  Microchip  offers  Serial  EEPROMs  that  read  and  write 
down  to  2.5, 2  or  1 .8  volts.  PC™,  Microwire™  and  4-wire  bus  interface 
protocols  are  steuidard.  Devices  come  in  three  standard  operating 
temperature  ranges;  commercial,  industrial  and  autoirotive.  Small 
footprint  packages  include:  8-lead  DIP,  8-lead  SOIC  in  JEDEC  and  EIAJ 
body  widths  and  14-lead  SOIC.  Other  key  features  of  the  Serial 
EEPROM  product  line  include:  electrostatic  discharge  (ESD)  protectnn 
gieater  than  4K  volts  dhdtndurance  of  1 0OK  cycles  minimum  and  one 
million  typical. 

Microchip  is  a  high-volume  supplier  of  Serial  EEPROMs  to  all  the  major 
markets  worldwide,  including  consumer,  automotive,  industrial,  com- 
puter and  communications.  To  date,  more  than  100  million  units  have 
been  produced.  Microchip  Is  confinuiog  to  {develop  aclditiPKial  unique 
Serial  EEPROMs. 
'  T-no  c- ■>«)■.  V  Lt  uxi .v(^.i,  - 
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PARALLEL  EEPROMS 


The  CMOS  Parallel  EEPROM  devices  from  Microchip  are  available  in  4K, 
ISKand  64K  densities.  The  manufacfuringprocessusedfortheseEEPROMs 
ensures  10,000  to  1 00,000  write  and  erase  cycles  typically.  Data  retention 
is  more  than  10  years.  Fast  write  times  are  less  than  200  usee.  These 
EEPROMs  work  reliably  under  demanding  conditions  and  operate  effi- 
ciently at  temperatures  from  -40''C  to  +80°C.  Microchip's  expertise  in 
advanced  SOIC,  TSOP  and  VSOP  surface  mount  packaging  supports  our 
customer^  needs  in  j^ce-sensMve  applications. 

Typical  applications  include  computer  peripherals,  engine  control,  pattern 
recognition  and  teiecommunications.  ^' 


EPROMS 


Microchip's  CMOS  EPROM  devices  are  produced  in  deiffiiStts  from  64K  to 
51 2K.  High  Speed  EPROMs  tiave  access  times  as  tow  as  55  narK>seconds. 
Typical  applications  include  computer  peripherals,  instrumentation,  and 
automotive  devices.  Microchqj's  expertise  in  Surface  Mount  Packaging  on 
SOIC,  TSOP  and  VSOP  packeiges  led  to  the  deyidopnMnt  of  the  Surface 
Mount  one-time-programmable  (OTP)  EPROM  rMarisetn^^-e  Mtorochip  is 
the  #1  supplier  today.  kAcrochip  is  also  a  leading  supplier  of  kjw-vottao^ 
EPROMs  for  battery  powered  applications. 


APPLICATION  SPECIFIC 
STANDARD  PRODUCTS 
(ASSP) 


"  .'6  Of'l^i 
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Microchip's  Application  Specific  Standard  Product  (ASSP)  Division  pro- 
vides value-added  embedded  control  solutions  by  combining  PIC16/17 
microcontroller  architecture  with  innovative  software,  silicon  and  assembly 
technology.  These  products  incorporate  technology  that  offers  a  complete 
solution  that  is  both  unique  to  the  customer  and  standard  in  manufacture  to 
Microchip.  In  addition,  Microchip  ASSPs  reduce  or  remove  the  barriers  for 
customers  to  use  Microchip  solutions  in  their  products  through  the  use  of 
software  embedded  in  secure  OTP-  or  ROM-based  microcontrollers.  The 
family  is  packaged  to  provide  the  highest  integration  to  the  customer  at  the 
best  overall  system  cost. 

The  MTA1 1 XXX  family  is  the  most  accurate  and  most  integrated  battery 
management  and  charging  solution  available  today.  The  family  incorpo- 
rates Microchip/SPAN  patented  TrueGauge™  technology  which  digitally 
integrates  battery  charge  and  discharge  current  to  provide  an  accurate 
(>97%  typical)  state  of  charge  indication.  The  family  operates  with  NiCd,  Pb 
acid  and  NiMH  battery  packsfrom  3  Vdcto  30  Vdc.  These  products  are  ideal 
for  portable  PC,  cellular  phone  and  portable  consumer  product  applications. 

Ease  of  use,  tow  voltage  and  tow  cost  make  the  MTA41XXX  mouse  aiKJ 
trackball  MCU  firmware  soluttons  kleal  for  implmienting  new  designs  for 
both  PCsand  Apple*computers.  The  products  in1heMTA41XXXfamily  are 
18-lead,  tow-power  CMOS  mtorocontrolter  ICs  combined  with  appBcatton- 
specifk:  software.  By  adding  a  few  external  components,  tfie  user  can  easily 
realize  a  complete  mouse  or  trackball  system. 

The  MTA8XXXX  PICSEE™  family  of  cost-effective  system  solutions  inte- 
gnatePIC16/17mk;rocontrollerswith  EEPROM  technology.  These  PICSEE 
devices  are  ideally  suited  for  automotive  security,  keyless  entry,  remote 
control,  data  acquisition  and  telecommuntoation  applications.  The  com- 
bined product  assembly  techniques  provide  the  user  the  highest  perfor- 
mance solution  In  a  compact  and  cost-effective  package. 

Future  ASSP  products  will  include  advanced  features  such  as  rnixed  anak^ 
and  digital  capability  as  well  as  an  ever  broadening  ^rt^  of  binikey 
software  solutions  for  the  embedded  control  market.  '  ' 


OTHER  MICROCHIP 
PRODUCTS 


Other  Microchip  products,  such  as  Liquid  Crystal  Display  (LCD)  drivers,  are 
mature  products  with  proven  track  record  and  alarge,  repeat  customerbase. 
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Ghamiler  WalerFabiicatiori:  &Sus^i0vmm  ^mt^  r.f  Mbi^&  <Aliniii0#tafer  Fab:  Sub-micron  Alignment  Area 


TAIWAN  FACILITY 

Microchip's  assembly  and  test  operation  in  Kaohsiung,  Taiwan 
received  the  prestigious  Ishikawa  Award  for  assembly  and  testing 
excellence.  v 
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A  HISTORY  OF  .^Microchip  has  a  loinihisli^olfeinowaM^  For 

more  than  a  quarter  centuiy.  Microchip  and.its  fomier  parent  company  have 
been  developers  of  leading-edg^  costasffective  logic  and  memory  products. 

■•fr:  B  '!  .  .   .  Microchip  is  credited  with  a  number  of  firsts:  The  Metal-Oxide-Sillcon  (MOS) 

T'lo  I"  K    ,       .  -1.         Integrated  Circuit,  DRAM,  Serial  EEPROM,  Reduced  Instruction  Set  Com- 
'  •■         puter  (RISC)  microcontroller  product  family,  UART,  CMOS  64K  EEPROM, 
'  andCMOSsinglechipDSPareallinnovationsthatwereoriginallydeveloped 
and  introduced  by  Microchip  engineers. 


INNOVATION 

'  ■  .  II. 
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FUTURE  PRODUCTS  AND  New  proceiK  technology  is  constanMy  being  developed  for  micixx»ntroller, 
TECHNOLOGY  ASSP,  ^PACM  and  high-speed  EPROM  products.  Advanced  process 

techmfegynwdales  are  being  demloped  that  will  be  integrated  Into  present 
product  lines  to  continue  to  achieve  a  range  of  compatible  processes.  Current 
production  technology  utilizes  dimensions  down  to  0.9  microns. 

Microchip's  research  and  development  activities,  include  exploring  new 
process  technologies  and  products  that  have  industry  leadership  potential. 
Particular  emphasis  is  placed  on  products  that  can  be  put  to  work  in  high- 
perfonnance  broad-based  markets. 

Equipment  is  continually  updated  to  bring  the  most  sophisticated  process, 
CAD  and  testing  tools  on  line.  Cycle  times  for  new  technology  development 
are  continuously  reduced  by  using  In-house  mask  making,  a  high-speed  pilot 
line  within  ttie  manufactuing  fa^Ry  and  continuously  Improving  methodok)- 
gies. 

lUlore  advanced  technok>gies  are  underdevelopment,  as  weii  as  advanced 
CMC^  RISC-based  microcontroiier,  ASSP  andOMOS  EEPROIMand  EPROM 
prochiote.  Objective  speeificatlions  for  new  products  are  devek>ped  by 
Istaning  to  our  customers  and  by  ck)8e  cooperation  wSh  our  many  customer- 
partners  worMwkle. 


QUALITY  WITHOUT  Product  reliability  is  designed  into  Microchip  products  at  the  outset.  Wide 

COMPROM^E  design  margins  are  established  to  guarantee  that  every  product  can  be 

produced  easily,  error-free  and  within  the  tolerances  of  the  manufacturing 

process. 

Ailquat|^a^uis«K»tS8lB«»tigiiterthancu8tomerspecilicatlons.  Products 
are  tested  at  leasttwomacliine  tolerances^hter  than  those  specified  by  the 

customer. 

Every  new  product  isqualified  under  accelerated  stresstesting.  Test  samples 
encompass  the  full  range  of  processed  tolerances  at  each  step.  Data  sheets 
detailing  these  processes  enable  customers  to  reach  accurate  decisions 
based  on  l<nown  quantitative  values. 

To  detemnine  whether  a  process  is  within  normal  manufacturing  variation, 
industry-leading  statistical  control  techniques  are  put  to  wori<  at  each  process 
step.  In-process  controls  are  performed  by  operators  in  the  waferfabrication 
division  and  immediate  corrective  action  is  tal<en  if  they  deem  a  process  is  out 
of  tight  control  limits.  Products  are  also  sampled  weekly  through  a  variety  of 
earatti%  moniisrad  Mites  and  accelerated  life  tests. 

Mieroefnp^  doouinentgtUeri  control  program  assures  the  correct  document  is 
ahMa^  araiiaNe^  the  pQiirt  of  use.  Active  documents  are  serialized  and 
stamped  to  eTiminate  the  possfciiKy  of  perfomiing  a  job  from  obsolete  or 
incorrect  instnicttons. 

Individuals  in  all  departments  continuously  analyze  the  methods  employed  at 
their  positk>ns  andformuiate  piansto  improve  perfomfiance.  In  all  areas  of  our 
business,  everyone  is  expected  to  make  continuous  improvement. 
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A  QUALITY  AND 
RELIABILITY  ALLIANCE 
WITH  CUSTOMERS 


►  ■0;  S3' 
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Microchip  works  together  with  customers  to  establish  mutual  programs 
to  improve  the  performance  of  our  products  in  their  systems.  We  go 
beyond  the  incoming  inspection  level  and  specification  by  extending  our 
quality  and  reliability  support  to  the  point  where  the  customer  ships  the 
system.  Microchip's  quality  programs  ensure  that  our  products  can  be 
used  with  such  impunity,  a  customer  can  implement  improvement 


i['tM>^«WA:r    vrte^.  -  ini  A  (leiNBSFains  based  on  MicrDChip  as  your  leading  supplier. 
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INTRODUCTION  TO  EMBEDDED  SOLUTIONS 


Embedded  Control  Overview  1-  1 

PIC16/17  Families  Overview  and  Road  Map  ,  ,  1-  1 

PIC16C5X:  Base-Line  Family  1-  1 

PIC16CXX:  Mid-Range  Family  „   1-  1 

PIC17CXX:  High-End  Family   .   1-  3 

PIC16/17  Naming  Convention  „  ,  „  1-  4 

Serial  EEPROM  Overview  .,  ,„  .,.,.....,..„„....  1-  6 

OTP  EPROM  Overview       .   1-  6 

The  Advantages  of  One-Time-Programm^Ste  ..„,.,„..„„,„,„.„...„„,  ,.  ,.„.„..,....„......„..  1-  6 

Application  Specific  Standard  Products   1-  8 

Ease  of  Production  Utilizing  QiMc  Tun  Piesmmr^  paTF^an^  SeMzscI  Quick  Turn 

Programming  (SQTP™)  ....,.„...„..,.„.,.........,...,,...  1-  8 

What's  New  in  the  1994/95  Embedded  Control  Handbook  ....,.,.,.„.,„..  ...v................         1-  10 

What's  Changed  in  the  1994/95  Embedded  Control  Handbook  1-10 


e#9a4llKlidIOB^(ap>T«dm3lc%Jl)  mc. 


l-i 


Microchip 


•nuT  y 


« 1994  Mtooct^rlMWItMr 


Microchip   Embedded  Control  Handbook 

Introduction  to  The  Embedded  Control  Solutions  Company™ 


Miciochip  Technology's  mission  is  to  offer  leadership 
semiconductor  products  for  embedded  control  system 
applications.  To  do  this  we  have  focused  our  technol- 
ogy, engineering,  manufacturing  and  mart^eting  re- 
sources on  two  synergistic  product  lines:  8-bit  PIC16/17 
microcontrollers  and  Serial  EEPROMS.  These  product 
ties  provide  the  solutions  to  many  of  the  problems 
facing  designers  of  embedded  control  systems. 

We  publish  this  Embedded  Control  Handbookto  assist 
our  customers,  existing  and  new,  in  their  efforts  to 
design  and  produce  state-of-the-art  embedded  control 
seisms,  e '  .  '  I       ■  ^' 

EMBEDDED  CONTROL  OVERVIEW 

Unlike  "processor"  applications  such  as  personal  com- 
puters and  workstations,  the  computing  or  controlling 
elements  of  embedded  control  applications  are  buried 
inside  the  application.  The  user  of  the  product  is  only 
concemed  with  the  very  top-level  user  interface  (such  as 
keypads,  displays  and  high-level  commands).  Very 
rarely  does  an  end-user  l<now  (or  care  to  know)  the 
embedded  controller  inside  (unlike  the  conscientious 
PC  users,  who  are  intimately  familiar  not  only  with  the 
processor  type,  but  a|so  Rs  eldeic  Sp^eni,  PM  fBfipMA- 
tles  and  so  on). 

It  is,  however,  most  vital  for  designers  of  embedded 
control  products  to  select  the  most  suitable  controller 
and  companion  devices.  Embedded  control  products 
are  found  in  virtually  all  market  segments:  consumer, 
commercial,  PC  peripherals,  automotive,  telecommuni- 
cations (including  fast-emerging  personal  telecom  prod- 
ucts) and  industrial.  Most  often  embedded  control 
products  must  meet  special  requirements:  cost-effec- 
tiveness, low  power,  srn<dl  tpel^iiMjanfi%M|^4M^^ 
system  integration.  '  I  /' 

Typically,  rnost  ernbetMedcorttDTs^teiTHlt^^ 
around  a  microcontroller  which  integrates  on-chip  pro- 
gram memory,  data  memory  (RAM)  and  various  periph- 
eral functions,  such  as  timers  and  serial  communication, 
in  addition,  these  systems  also  require  serial  EEPROM 
memories,  display  drivers,  keypads,  small  displays,  etc. 

Microchip  Technology  has  established  Itself  as  a  leading 
supplier  of  fiekj-progtammable  embedded  control  solu- 
tions. The  combination  of  high-performance 
)llarsfromboththePiC17CXXandPICl6CXX 
£,  along  with  industry  leading  nonvolatile  memory 
pr6diRte  4iroWd«s.  the  basis  4or  this  iaadershif). 
Microei#  is  oomnAed  to  oonttnuous  lnnovaiilon~  and 
impffiwemflnt  in  ciesign,  tnanufec^UFlng  and  technical 
support  to  provide  the  best  possible  embedded  control 
solutions  to  you 


PICI^  f  MiCROCONTROLLER 
OVifWfeW  AND  ROADMAP 

Microchip  offers  three  families  of  8-bit  microcontrollers 
to  best  fit  your  needs: 

•  PIC16C5X:  Base-Line  8-bit  Family 

•  PIC16CXX:  Mid-Range  8-bit  Family 

•  rt[Xi7(^->^-End84)it  Family 

All  families  offer  One-Time-Programmable,  low-vollage 
and  tow-power  opttons,  as  well  as  various  padoiging 
o^ns.  Selected  members  are  available  in  ROM  ver- 

PlCieCS)^  JMil&MMI  FAMILY 

PICiecSX  thfrM  eslEttiiiShed  base-line  fan^offer- 
ihg1h«h|E|hest«ost  efficiency.  This  PIC16CSX products 
have  a  12-bit  wide  instruction  set  and  are  currently 
offered  in  18-,  20-  or  28-pin  packages.  In  SOIC  and 
SSOP  packaging  opttons,  these  are  the  smallest  foot- 
print controllers.  Low-voltage  operation  down  to  2.0V 
makes  this  family  Ideal  for  battery  operated  applicattons. 

PIC16CXX:  MID-RANGE  FAMILY 

PIC16CXX  mid-range  family  offers  a  wide-range  of 
options,  from  18-pin  to  44-pin  packages  as  well  as  low 
to  high  level  of  peripherals  integration.  This  family  has 
a  14-bit  wide  instruction  set.  PIC16C71  is  a  compact 
microcontroller  In  a  18-pln  package  with  an  8-bit  A/D 
converter.  PIC16C84  offers  on-chip  EEPROM  program 
and  data  memory.  PIC16C64  is  a  full-featured  40-pin 
device  with  128  bytes  of  RAM,  three  timer/counters, 
capture,  compare,  PWM  and  SPI/I^C^"  serial  communi- 
cation port.  PIC16C74  is  a  highly  integrated  40-pin 
device  with  all  the  features  of  the  PIC16C64,  plus  an 
8-channel  A/D  converter  and  a  full-featured  USART. 

FfiiUrUE  1 PIC1 6/1 7  MICROCONTROLLER 
MATRIX 


BSII 

EPROH 

EEPROM 

■■■■■ 

PIC17CXX 

tTC4X 

High-Perfonnfmoe 
Family 

1d-Sa  Instruction 

pciecxx 

west 

1SC7X 

16C8X 

Mki- Range  Family 
14-Bi(  Instruction 

Picncsx 

.1SCRSX 
4SCRSXA 

1EC5X 
16C5XA 

BaBe-UneFamly 
12-ailinlniclion 

Onboard  Memory  Technology  - 
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Features:^ 


High-end 

PIC17C42§ 

25 

2K 

128 

TMRO.TMRI 
TMR2,TMR3 

SCI 

Yes 

11 

33 

4.5 
-5.5 

55 

40-pin  DIP,  44-pln  PL<a|- 

44  pin  QFP 

PIC16C61 

16 

IK 

36 

TMRO 

Yes 

3 

13 

3.0 
-6.0 

35 

18-pin  DIP,  18-pin  SOIC 

to 

PIC16C64 

20 

2K 

128 

TMRO.TMRI 
TMR2 

1 

spi/rc™ 

Yes 

Yes 

8 

33 

2.5 
-6.0 

35 

40-pin  DIP,  44-pin  PLCC 
44  pin  QFP 

Mid-ran 

PIC16C71 

16 

IK 

36 

TMRO 

4ch 

Yes 

4 

13 

3.0 
-6.0 

35 

18-pin  DIP,  18-plnSOIC 

PIC16C74 

20 

4K 

192 

TMRO,  TMR1 , 
TMR2 

2 

SPI/I=C, 
SCI 

Ves 

8ch 

Yes 

12 

33 

2.5 
-6.0 

35 

40-pin  DIP,  44-pln  PLCC 
44  pin  QFP 

PIC16C84 

10 

IK 

36 

64 

TMRO 

Yes 

4 

13 

2.0 
-6.0 

35 

18  pin  DIP,  18  pin  SOIC 

PIC16C54 

20 

512 

25 

RTCC 

12 

2.5 
-6.25 

33 

18-pin  Dip  18-plnSOIC 
20-pin  SSOP 

PIC16C54A 

20 

512 

25 

RTCC 

12 

2.5 

-  6.25 

33 

18-pin  DIP,  18-pln  SOIC 
20-pin  SSOP 

PIC16CR54 

20 

512 

25 

RTCC 

v 

DIP,  18-pin  SOIC 
^u'i-.'ii  1  jSUP 

<D 

c 

!_J 
<i) 

PIC16C55 

20 

IK 

25 

RTCC 

20 

2.5 
-6.25 

33 

28-pin  DIP,  28-pin  SOIC 
28-pin  SSOP 

« 

PIC16C56 

20 

IK 

25 

RTCC 

12 

2.5 
-6.25 

33 

18-pin  DIP,  18-pin  SOIC 
20-pin  SSOP 

PIC16C57 

20 

2K 

72 

RTCC 

20 

2.5 
-6.25 

33 

28-pin  DIP,  28-pin  SOIC 
28-pin  SSOP 

PIC16CR57A 

20 

2K 

72 

RTCC 

20 

2.0 
-6.25 

33 

28-pin  DIR  28-pln  SOIC 
28-pin  SSOP 

PIC16C58A 

-  ■ 

RTCC 

12 

2.5 

33 

18-pin  DIP.  18-pin  SOIC 

t  PIC17C42  can  concatenate  Timerl  and  Timer2  to  form  a  16-bit  Timer.  TimerO  is  16-bit  wi|hiM>ttpiVMllefV-  r- 
i  All  PIC1&17  Family  devices  have  Power-on  Reset  fuse  selectable  Watchdog  Timer  antf  ftja»  s>teofiibi»  oeda  preibot 
$  The  PICl  7C42  can  also  operate  In  microprocasacr  or  external  microcontroller  mode. 
*  AnPICl8/17devicMoner20^mAtource/«hikcurrantperpin. 
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PIC17CXX:  HKStf-END  FAMILY 


Tl!ie  PIC17CXX  h1gt)'«nd  family  currency  is  comprised 
ot  one  nnsilftber,  Vtm  {^i017C42.  M^mmI  tnsridiem 
with  iarger  on-chip  memories  are  planned.  The 
PIC17CXX  products  have  a  16-t)tt  wide  Instruction  set. 


At  25MHz  clocl<  rate  (160ns  instruction  «^oij^..  The 
P IC1 7C42  offers  the  highest  leyei  of  computaUottpowar. 
The  PiC1 7C42  is  also  highly  integrated  with  penpherai 
resources. 


FIGURE  2  -  PIC16/17  MICROCONTROLLER  MIGRATION  PATH 


FIGURE  3  -  PlCl6^frsYNERG«5T1C  DEVELOPMENT TXX>LS 


Devekjpmant 
Tool 

Name 

PIC16CXX 

Piciebxx 

PIC17CXX 

Assembler 

'-' ■  ■  V 

✓ 

Software  Simulator 

MPSIM 

✓ 

✓ 

** 

C  Compiler* 

MP-C 

✓ 

✓ 

✓ 

Universal  Programmer 

PRO  MATE™ 

✓ 

✓ 

✓ 

Univeisal  In-Clrcuit  Emulator 

PICMASTER™ 

✓ 

✓ 

✓ 

Fuzzy  Logic 
Devebpment  Tool 

fuzzyTECH»-MP 

✓ 

✓ 

✓ 

*   Available  from  Bytecraft  LTD  in  Canada. 
**  In  development. 

For  an  overview  of  development  tools,  see  Section  9. 
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The  PIC16/17  architecture  offers  users  a  wide  range  of 
cost/performance  optbns  of  any  8-bit  microcontroller 
family.  In  order  to  identify  the  families,  the  following 
naming  conventions  hav9  been  applied  to  the  PIC1 6/1 7 


TABLE  2  -  PIC16/17  NAMING  CONVENTION 


Family 

Architectual  Features 

Name 

Technology 

Products 

PIC16C5X 

Bas»4lne 

8-bit 
Microcontroller 
Family 

*  12-bit  wide  instruction  set 

*  DC  -  2a^|^lock  speed 

*  pnnme^Hi^pion  cycle 

piciecsx 

OTP  progmm  memoiy, 
digital  only 

Pta0e»4 
PIC16C54A 
PIC16C55 
PIC16C56 
PIC16C57 
PIC16C58A 

PIC16CR5X 

ROM  program  memory, 
digital  only 

PIC16CR54 

PIC16CR57A 

PIC16CXX 

Mid-Range 
8-bit 
Microcontroller 
Family 

•  14-bit  wide  instruction  set 

•  internal  /  extemal  interrupts 

•  DC  -  20  MHz  clock  speed<3> 

•  200ns  instructnn  cycle 
(@  20  MHz) 

PIC16C6X 

OTP  program  memory, 
(filial 

PIC16C61 
PIC16C64 

piciecM^. 

ROM  program  memory, 
digital  only 

Planned 

PIC16C7X 

OTP  program  memory, 
with  analog  functkins 
(e.g.  A/D) 

PIC16C71 
PIC16C74 

PIC16C8X 

EEPROM  program 
aWDs^S^amoty 

PIC16C84 

PIC17CXX 

High-End 
8-bit 
Microcontroller 
Family 

•  l6-b1t  wide  hdtudion  set 

•  Internal  /  extemal  intenupts 

•  DC  -  25  MHz  ckx;k  speed 

•  leonsindructnncyele 

PIC17C4X 

OTP  program  memory, 
digital  only 

PIC17CR4X 

ROM  program  memory, 
digital  only 

Planned 

A'  designates  a  more  advanced  process  technology,  generally  offering  customers  the  banefl^i 
power,  higher  speed,  etc.  (example:  PIC16C54,  PIC16C54A).  ,^ 

2.  The  numbering  system  within  each  family  is  not  necessarily  significant.  u 

9.,  The  rriaMmwii^a|tc«pMdl^aamedi^^  ' 
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FIGURE  4  -  PlClfinr  MfT  IRC^ifilMWiY 


High-End 

1               DI^17r*4Y-  \ 

Family 
<M-44f>ins 

/      OTP  Program  Memory  \ 
/h^isamki  «  ui6  PIC16C8X:  \ 

Mid-Range 

n^FW^  ^Dgitm  aiMOi  .Data  Memory  \ 

Family 

18-44 

puis 

/              PICIiCTX:  \ 

.  /    OTi6)PR}gtam  Memory  wMi  Arisdog  \ 
/  "              PIC16Q6X;  '    v„  \ 

Base-Line  / 

PomSlu  / 
raiiiiiy  / 

rKrl  dooa/oaa:  \ 

OTP  Program  Memory  \ 

18-28  / 

pins  / 

PIC16CR5X/5XA:  \ 

ROM  Program  Memory  \ 

"ft-tr'-'t  ■ 

■  i  I; '  'Fte 

F^rr 

 *  

'■•i'..'-iV''iv  :M  ti..;  Kl  ir 

O/tmtitimai^  Tmtmi*m  inc. 
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SiRIAL  EEPROM  OVERVIEW 

Serial  EEPROMs  from  Microchip  come  In  a  variety  of 
densities,  operating  voltages,  bus  interface  protocols, 
operating  tempemtura  M9dat,ii^spape^ing  pack- 
ages. / 

Densities:  ' 

■•"lO.T.tji'..  . 
Currently  range  from  1K  to  64K  with  ffl§fm  dBfi^ 

devices  in  development. 

Bus  Interface  Protocols: 

All  major  protocols  are  covered:  2iA^^sl3ii&>aMT 
■  4-wire. 

Operating  Voltages : 

In  addition  to  standard  5V  devices  there  are  two  low 
voltage  families.  The  "LC"  devices  operate  down  to 
2.5V,  while  the  breakthrough  "AA"  family  operates,  in 
both  read  and  write  mode,  down  to  1 .8V,  making  these 
devk:es  highly  suitable  for  alkaline  and  NiCad  battery 
powered  applicatk^ns.  h  v  ,  -  - 

Temperature  Ranges: 

Like  all  Microchip  devices,  Serial  EEPROMs  are  offered 
in  Commercial  (O'C  to  70*0),  Industrial  (-40'C  to  85"0) 
and  Automotive  (-40 °C  to  125°C)  operating  temperature 
ranges. 

Packages: 

The  focus  is  on  small  packages.  Most  devices  are 
available  in  8-pin  PDIP  or  8-pin  SOIC.  The  SOIC  comes 
in  two  body  WKlttis;  150  mil  and  207  mil 

Endurance  is  specified  at  1M  eweAMHIt  i(n(l 
1 0OK  cycles  minimum  writti  a  dais  nteoHeti  #ei^aiD«i 
greaterthan  40  years.  ESDpi«teGtii9nlsi(W«itiMdtip 
to  4K  volts. 


OT^^^II@V»WIEW  ^ 

Mk:rochip  also  provides  its  customers  with  a  number  of 
CMOS  OTP  EPROMs.  Densities  offered  include:  64K, 
128K,256Kand512K,all  in  a  X8  organization.  Ourhigh 
speed  256K  device  also  comes  in  a  X16  organization. 
Access  times  range  from  a  high-performance  55ns  to  a 
practk:al  200ns  or  greater.  Low-voltage  devices,  ca- 
pable of  operating  at  3V,  are  available  at  the  256K  and 
51 2K  density  levels.  Surface  mounted  packages  such 
as  TSOP,  PLCC  and  SOIC  as  well  as  the  more  tradi- 
tional DIP  packages  are  offered.  All  EPROMs  are  avail- 
able in  Commercial.itndustrial  end  Automotive  tem|iBn|> 
ture  ranges. 

A  full  listing  of  the  Serial  EEPROM  and  EPROM  product 
offerings  are  shown  in  Table  3.  See  t|ip  individual 

.  THE  MIVJiilTAGES  OF  ONE-UME* 
PROGRAMMABLE 

In  keeping  with  Microchip's  goal  of  provkilng  the  embed- 
*  ded  control  system  designer  with  the  best  tools  avail- 
able. Microchip  has  devebped  the  industry's  most  eco- 
nomical OTP  technology.  Microchip  offers  a  wide  vari- 
ety of  OTP  EPROM  products.  Similariy,  by  basing  the 
PIC16/17  microcontrollers  around  an  EPROM  program 
memory  capability,  all  of  the  advantages  of  OTP,  both  in 
devetopment  and  production,  have  been  made  eco- 
nomiedly  av^lable  to  the  system^  manufacturer.  Thp 

•  Lower  costs  and  shorter  lead  times 

•  Ftedueedttne-to-mart<et 

■  lnH^»a*liWogwiiiiiiing  ctyabiiity 

•  6b0^  protection  via  security  fuse 

«  ^wiielion  of  inventory  requirements  at  system 
inHMMBeMigaAe 

•  Quick  correction  of  bugs  detected  in  manufacturing 

•  Quick  product  feature  changes  in  response  to 
customer  requests 

•  Reduces  wasted  inventoiy 
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I^HBLES  -  CMOS  SERIAL  EEPROMS  PRODUCT  SELECTION  GUIDE 


FAMILY 

Device 

DemlM 
OrganliMWi 

lfeW,Clo«|( 

Temp. 
Ring* 

* 

Pins 

Package 
Type* 

Operating 
Voltage 

2-Wlre(l»C™)  Bus  Protocol 

TWWie  ■ 

lOOK 

C,  1 
E 

8 

r,  J,  on,  oM 

5.0V 

24C02A 

'  il^ 

-  WlttE 

1M 

100  K 

C.I 
E 

8 

P.J.SN.SM 

5.0V 

STANDARD 
2-WIRE 

24C04A 

4Kt>its  (512X8) 

100  kHz 

1M 
100  K 

C.I 

8 
14 

P,J 
SL 

5.0V 

FAMILY 

85C72 

IK  bits  (128X8) 

lOOIdHz 

1M 

100K 

C.I 
E 

8 

P.  J.  SM 

5.0V 

8SC82 

2K  bits  (256  X  8) 

lOOIdHz 

1M 
100K 

C.  1 
E 

8 

P.  J.  SM 

5.0V 

85C92 

4KMb(S12X8)  I 

1M 

C.I 

8 

P.J.  SM. 
SL 

5.0V 

24LC01B 

1KbltE(12SX8) 

400l<Hz 

1M 

C.  1 

8 

-W  W  M  1. 

P.  SN,  SM 

8.6V-6.5V 

LOW- 

24LC02B 

2K  bits  (256  X  8) 

400  kHz 

1M 

C,  1 

8 

P.  SN,  SM 

2.5V-5.5V 

VOLTAGE 
2-WIRE 

24LC04B 

4K  bits  (512X8) 

400  Wz 

1M 

C.I 

8 
14 

P.SN.SM 
SL 

2.5V-S.5V 

FAMILY 

24LC0e8 

SKblts(1KX8) 

400  Wz 

1M 

C,l 

8 
14 

P.SN.SM 
SL 

2.5V-5.5V 

24LC16B 

16Kblte(2KX8) 

400  kHz 

1M 

C.I 

8 
14 

P,SN 
SL 

2.SV-5.5V 

24AA01 

IK  bits  (128X8) 

100  kHz 

1M 

c 

8 

P.  SN,  SM 

1 .8V-5.5V 

AA  LOW- 

24AA02 

2K  bits  (256  X  8) 

,  .  Ill  I .  .,)-    1  ' 

100  kHz 

1M 

c 

8 

P.  SN.  SM 

1.8V-5.5V 

VOLTAGE 
2-WIRE 

24AA04 

AX  Mm  /jE19i  y  A\ 

14 

r,  oN,  oM 
SL 

1 .8V-5.5V 

E«MILY 

24AA0e 

''1M 

c 

8 
14 

P.iSN.SM 
SL 

1.8V-6.5V 

24AA16 

'^•■■^"'-^  ■  

100  kHz 

1M 

c 

8 
14 

9,m. 

SL 

24C32 

ciHr 

C.I 

8 

P,  SM.  SL 

4.5V-S.SV 

SMART 
SERIAL 

24LC32 

-  »fSr 

C.  1 

8 

p.  SM.  SL 

2.5V-6.0V 

24C65 

64K  bits  (8K  X  8) 

400  kHz 

1M' 

C.  1 

8 

P.SM.SL 

4.5V-5.5V 

FMMLY 

24LC65 

64K  bits  (8K  X  8) 

400  kHz 

1M- 

C,  1 

8 

P,SM.SL 

25V-60V 

24AA65 

64Kbis(8KX8) 

400  kHz 

1M- 

C.  1 

8 

P,  SM  SL 

1  8V-6.0'/ 

3-Wlra  (Mierowlre"'y4-Wlra  Bus  Protocol 

93C06 

256  bits  (16X16) 

1  MHz 

1M 

100  K 

C.I 
E 

8 

P.  J.  SN.  SM 

4.5V-S.SV 

STANDARD 
3-WIRE 

93C46 

1Kb«s  (84X16) 

1MHz 

1M 
100  K 

C.I 
E 

8 

P,J.SN,SM 

45V-S.SV 

FAIM.Y 

93C56 

2KHM«9SeX8) 
er(iaix1«) 

1MHz 

1M 
100  K 

C.I 
E 

8 

P.J.SN,SM 

4.0V-6.5V 

93C66 

4KM«St2Xt) 

IMMz 

IM 
lOOK 

C.I 
E 

8 

P,J.a«,SM 

4.0V-S.5V 

93LC46 

1  Kbits  (128X8) 
or  (64x16) 

2  MHz 

IM 

C.I 

8 

P.  SN.  SM 

2.0V-6.0V 

LOW- 

93LC56 

2K  bits  (256  X  8) 
or(128x16) 

2  MHz 

IM 

C.I 

8 
14 

P,  SN,  SM 
SL 

2.0V-6.0V 

VOLTAGE 
3-WIRE 
FitMtLY 

93LC66 
93LC46B 

4K  bits  (512X8) 

or  (256x16) 
tKMt|Mxt# 

2  MHz 
»MMz 

IM 
IM 

C,l 
C,l 

8 
14 
8 

P,  SN,  SM 

SL 
P,SN.SM 

2.0V-6.0V 
2.0V-6.0V 

93LC56B 

2Kitts(t2Sxie$ 

IM 

C,l 

8 

P.  SN.  SM 

2.0V-6.0V 

93LC66B 

4K  bits  (256x1 6) 

iVIHz 

IM 

C.I 

8 

P.  SN,  SM 

2.0V-6.0V 

AA  LOW- 

93AA46 

IK  bits  (128X8) 
or  (64x16) 

2  MHz 

IM 

c 

8 

P,SN,SM 

1.8V-5.6V 

VOLTAGE 
3-WIRE 
FAMILY 

93AAS6 
93AA66 

2KHtt2MXe9 
orttatxtq 

SMIto 

IM 
tM 

c 

c 

8 
8 

P.SN.SM 
P,SN,SM 

1.8V-6.5V 
1.8W-6.SV 

MHRE 

59C11 

IK  bta  (128X8) 
«r<64x16) 

1MHz 

IM 

100  K 

8 

P,J.SN,SM 

45V-S.6V 

Product  Selection  as 
Of  August  1994 

P=  Plastic  DIP 
J  =   Ceramic  DIP 
SM=150mllSOIC 
SN  =  207mll  SOIC 

SL  =  SOIC 

C  =  Commercial 
(0=C  to  70°C) 

I  =  Industrial 

{-40PC  to  85°C) 

E  =  Automotive 

(-40°Cto125°C) 


'  High  Endurance  BioGk. 


1-7 


DS0009a&^age7 


Introductioh 


APPLICATION  SPECIFIC  STANDARD 
PRODUCTS 

The  Application  Specific  Standard  Products  (ASSP) 
Division  complements  and  strengthens  Microchip's  lead- 
ership position  in  8-blt  microcontrollers  and  related 
specialty  memory  products  for  the  embedded  control 
market.  The  ASSP  Division  employs  innovative  multi- 
chip  module  packaging,  applications  expertise,  firm- 
ware and  new  technology  to  create  integrated,  single- 
chip  solutions  for  specific  high-volume  embedded  con- 
trol applications  such  as  PC  pointing  devices, 
TrueGauge^"  battery  management,  and  PICSEE™ 
microcontrollers.  By  offering  more  complete  solutions, 
Microchip  can  provkte  its  customers  with  higher  >«lue- 
added  products,  with  the  additnnal  benefits  of  faster 
time-to-market  and  k}wer design  oveitiead.  Afull  ASSP 
product  listing  is  shown  in  Table  4. 

EASE  OF  PRODUCTION  UTILIZING 
QUICK  TURN  PROGRAMMING  (Qf^  = 
AND  SERIALIZED  QUICKTUM*  -  '  ' 
PROGRAMMING  (SQTP)  ' 

Recognizing  the  needs  of  high-volume  manufacturing^ 
operations.  Microchip  has  devekiped  two  piogiammhg  , 
rnethodologieswhichnriaketheOTPproductsaseasyto ' 
use  in  manufacturing  a»ttHy  «ra  aile^ant  i 
developmerYt  stage. 

Quick  Tum  Programming  allows  factory  programming  of 
OTP  product  prior  to  delivery  to  the  system  manufactur- 
ing operatkwi.  PIC16/17,  EPROM  and  Serial  EEPROM 
products  can  be  automatically  programmed  with  the 


users  progr»n  during  tti«lflM3iigaiiM*w  t»St  e|wa- 
tion  at  Microchip's  assamUy  and  fast  operations  in 
Philippine  Isi^^  T<g|J(|g^[d  Thailand.  This  low-cost 
pibgrammitig  Mlp  mam  me  elimination  of  program- 
ming during  system  inanufai^uiSi|[g  aAiHS^sentially  al- 
k>ws  the  user  to  treaMa  PICf6^t7  tiiMemory  prod- 
ucts as  custom  ROMjp^Ms...\Mi|N|!)' to  four-week 
lead  times  on  OTP  (M©ira,«il^f  nS'rohger  needs  to 
plan  for  the  extended  ROM  masking  lead  times  and 
masking  charges  associated  with  custom  ROM  prod- 
ucts. This  capability,  combined  with  the  off-the-shelf 
availability  of  standard  OTP  product,  ensures  the  user  of 
productji^l^^yandlh^^l^tora^^^tt 

Unique  in  the  8-bit  microcofljWPWIniarket  is  Microchip's 
ability  to  enhance  the  QT^  capability  with  Serialized 
Quick  Tum  Programming  (SQTP).  SQTP  allows  for  the 
programming  of  devices  with  unique,  random  or  serial- 
ized identification  codes.  As  each  PIC16/17  device  is 
programmed  with  the  customers  program  code,  a  por- 
tion of  the  program  memory  space  can  be  programmed 
with  a  unique  code,  accessible  from  normal  program 
unemory,  which  will  allow  the  userto  provide  each  devtee 
ijyith  a  unique  kJentifteatton.  This  capability  is  ideal  for 
(Embedded  systems  appili^ons  where  the  transmis- 
^onof  keycodesorMmtMa^Aofthedeveeasanode 
,wHhin  a  netwoik  are  essential.  Taking  advantageof  this 
capability  aUows  the  system  designer  to  eliminate  the 
tequiremerrtforeiqMiiiiMpalN^codM^^ 
usingOIPswKchesarnonMriaMMiMmoiyoomponents. 
The  SQTP  offering,  pkstMMttf  ti^  MKaifchip,  provMes 
the  embedded  systems  desigRerwitti  a  low  cost  means 
of  putting  a  unque  and  custom  devtee  into  e 
or  node. 
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JtmUE  4  -  ASSP  PRODUCT  SELECTION  GUIDE 


HRMWARE 
PRODUCTS 

Device 

interface 

Feature 

Operating 
Voltage 

Temp. 
Range 

Numt>er 
of  Pins 

Package 
Types 

BATTERY 
MANAGE- 
MENT 

MTA11200 
TrueGauge™ 

1-wire 
and  RS232 

Monitor  and 
Charge  Control 
for  NiCD,  NiMH 
Ljsad  Acid 

3.0V-6.25V 

C,l 

28 

PDIP,  SPOIP 
SOIC,SS0P 

MTM1300 

Serial, 
PS/2 

2  Button  Mouse, 
Traci<ball 

3.0V-6.25V 

C,l 

18 

PDIP.SOiCiSSOP 

POINTING 
DEVICES 

MTA41120 
MTA41110 

ADB 

PS/2 

2  Button  Mouse, 
Traclctiaii 

2  Button  Mouse, 
Tnddnil 

3.0V-6.25V 
3.0V-6.25V 

C,l 
C,i 

18 
18 

PDIP,  sok;.  ssop 

PDIP,  SOIC,  SSOP 

;  ,MTA41111 

PS/2 

Velocity  Scaling 
Tracldiall 
Conttoller 

3.0V-6.25V 

C,l 

18 

PDIP,  SOICvSSOP 

PICSEE 

product; 

i 

Devica 

Speed 

Feature 

Operating 
Voltage 

Temp. 
Range 

Number 
of  Pins 

Paclcage 
Types 

MTA81010-RC      .       ,  ,. 

,512x12EPROM 

3.0V-6.25V 
1KEEPROM 

C,l 

28 

PDIP,  SOIC,  JW 

M1M1010>XT 

BCio**MHz  < 

S12X12EPROM  , 

auw^&ssv 

1X6EPROM 

C,l 

28 

PDtP.SOiC,  JW 

MTA8R1010-RC 

DCto4MHz 

512x12  ROM 

2.5V-6.25V 
1KEEPROM 

C,l 

28 

PDIP,  sok: 

MTA8R1010-Xr 

DC  to  4  MHz 

512x12  ROM 

2.SV-6,25V 
1KEEPROM 

0,1 

28 

PDIP,  SOIC 

MTA81010-LP 

0010  40  KHz 

512X12EPROM 

2.5V-6.25V 
1KEEPROM 

C,l 

28 

PDIP,  SOIC 

MTA8R1010-LP 

DC  to  40  KHz 

512x12  ROM 

2.0V-6.25V 
1KEEPROM 

C,l 

28 

PDIP,  sok: 

MTAB5401 

DC  to  20  MHz 

512X12EPR0M 

3.0V4.2^ 
iKiEmttNli. 

C,i,E 

20 

SSOP 

MTA85411 

DC  to  20  MHz 

512  X 12  EPROM 

3.0V-6.25V 
1KEEPROM 

C,I,E 

20 

ssop 

MTA85402 

DC  to  20  MHz 

512x12  EPROM 

3.0V-6.25V 
2K  EEPROM 

C.I,E 

20 

SSOP 

MTA85412 

DC  to  20  MHz 

512x12  EPROM 

3.0V-6.25V 
2K  EEPROM 

C,I,E 

20 

SSOP 

MTA85801 

DC  to  20  MHz 

2048  X  12  EPROM 

3.0V-6.25V 
IK  EEPROM 

C,I,E 

20 

SSOP 

MTA8581 1 

DC  to  20  MHz 

2048  X  12  EPROM 

3.0V-6.25V 
1K  EEPROM 

C,I,E 

20 

SSOP 

MTA85802 

DC  to  20  MHz 

2048  X  12  EPROM 

3.0V-6.25V 
2K  EEPROM 

C,I,E 

20 

SSOP 

MTA85812 

DC  to  20  MHz 

2048  X  12  EPROM 

3.0V-6.25V 
2K  EEPROM 

C,I,E 

20 

SSOP 
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WHAT'S  NEW  IN  MICROCHIP'S 
1994/95  EMBEDDED  CONTROL 
HANDBOdk  ™ 

Organization 

Tho  book  is  reorganized  for  increasing  complexity  of 
,  ApQjjqatjon  {«lotes  in        section.  A  new  sectiqn  for 

New  Application  Notes 

SECTION  2  -  PIC16CSX  o  ' 

Implementng  Long  Calls  (AN581)  | 
Macros  for  Page  and  Bank  Switching  (AN586)''  :  '  |  • 
Frequency  Counter  Using  PIQISCSX  ^N592) 
A  Ck>ck  Design  Using  ttie  Pldl6C^  wr  LED  Displays 
and  Switch  Inputs  (AN590) 

Serial  Port  Routines  Without  Using  ttWOTCC  {iNS^ 

PIC16C54A  EMI  Results  (ANS77)T    |  7*'"  i   •.  i  |  r 

SECTION  3  -  PIC16CXX  i 


J  the  CCP  Module  (AN594) 
InteffeKing  to  an  LCD  Module  (AN587) 
Using  the  8-Bit  Parallel  Slave  Port  (AN579) 

Using  Timerl  in  Sleep  (AN580) 
Low  Power  Clock  (AN582) 
Apple  Desktop  Bus  (AN591) 
I'C  Multi-Master  Mode  (AN578) 
Progrimnning  ttie  PICliia4  R|ij 

SECfnON4-PIC17CXX 

Implementation  of  the  Data  Encryption  Standard  Using 
PIC17C42  (AN583) 

SECTION5-PIC16/17 

Disabling  Global  Interrupts  (AN576) 
IEEE  754  Compliant  Floating  Point  Routing.  (^^5) 
Real  Time  Operating  System  (AN585)      .j"       j   ^JT.  ^ 
PIC16/17  Oscillator  Design  Guide  {ANSBS^f'^  ■!•  >  1 
Using  PICMASTER's  DDE  (AN584) 

SECTION  6  -  ASSP 

Calibrating  the  MTA11200  (AN570) 

Communfcating  with  EEPROM  in  MTA85XXX  (AN571) 

l-lardware  and  Software  Resolution  for  a  Pointing 

Device  (AN569) 

SECTION  8  -  SERIAL  EEPROMS 

Questions  and  Answers  Concerning  Serial  EEPROMs 
(AN572) 

SECTION  9  -  DEVELOPMENT  TOOLS 
System  InformdieAHotlim- 


-  WHAT'S  CHANGED  IN  MICROCHIPS 
1994/95  EMBEDDED  CONTROL 
tW^OOK 

n  ■  Oh- 

Modified  /  Corrected  Application 

Many  application  notes  have  had  many  "minor"  correc- 
tions implemented,  such  as  spelling  and  source  code 
alignment.  The  following  list  Is  intended  to  point  out  the 
application  notes  with  "major*  modifk»tions  ot  csmBC- 
tions.  I 

SECTION  3 -PIC16CXX 

Software  Implementation  of  AsyrK^ronous  Serial  I/O 

^,  ..  ..^Ailll^  pr„ 

SECTION  4  -  PIC17CXX 

PIC1 7CXX  Math  Utility  Routines  (Af4544) 

PIC16C5X  /  16CXX  Math  Utility  Routines  (ANS26) 

SECTION  8  -  SERIAL  EEPROMS 

lnterfeK^24LCXXB  SeiMEEPROMS  to  the  PIC1 6C54 
(AN567) 

Using  the  24C65  and  24C32  with  Stand-alone  PIC1 6/1 7 
Code  (AN558) 

Using  the  93LC56  and  93LC66  {AN560)   

S^h^MLehllENTTOOLS 
"  TheOa^wtepmarHlBols  Sedion  has  been  tipdiatea. 


QSeWBec^iMge'lO 


ei9e»MiBi»dijpT«eiM»lsgylrK. 
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SECTION  2 
PIC16C5X  APPLICATION  NOTES 


A  Comparison  of  Low  End  8-Bit  MIcrocontroiiers  -  AN520  ...»  2-  1 

Power-Up  ConskJerat'ions  -  AN522  2-  11 

Software  Intenrupt  Tecfuilques  -  ANSI  4  2-15 

Software  Stack  Management  -  AN527    2-  19 

Implementing  Long  Calls  -  AN581  2-  23 

Macros  for  Page  and  Bank  Switching  -  AN586    2-  27 

Implementing  Wake-Up  on  Keystroke  -  AN528  ,  2-  47 

Interfacing  to  AC  Power  Lines  -  AN521  ,   ..„  2-  51 

Frequency  Counter  Using  PIC16C5X  -  AN592  2-  53 

Analog  to  Digital  Conversion  -  AN513  2-  59 

Implementing  Ohmeter/Temperature  Sensor- AN512  ,.  2-  65 

Implementing  a  Simple  Serial  Mouse  Controlter-ANS19  „  „—    2-  71 

Intelligent  Remote  Positioner  -  AN531   2-  83 

A  Clock  Design  Using  the  PIC16C54  for  LED  Displays  and  Switch  Inputs- AN590    2-  99 

Multiplexing  LED  Drive  and  a  4  x  4  Keypad  Sampling  -  AN529  2-109 

Using  PIC16C5X  Microcontrollers  as  LCD  Driveis  -  AN563    2-133 

PLD  Replacement  -  AN511  _  2-145 

Serial  Port  Routines  Without  Using  the  ICrOC  -  AN693 ..  ,,.  ,  2-165 

Implementation  of  an  Asynchronous  SeM  I/O  •  A^S10  ..........i.....  2-171 

Using  PIC16C5X  as  a  Smart  l=C™  Perpftttal ''ANS41      2-193 

PIC16CS4A  EMI  Results  -  AN577    2-207 
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A  Comparison  of  Low  End  8-Bit  Microcontrollers 


INTRODUCTION 

The  PIC16C5X  Family  of  microcontrollers  from  Micro- 
chip Technology,  Inc.  provides  significant  execution 
speed  and  code-compaction  improvement  over  any 
other  8-bit  microcontroller  in  its  price  range. 

The  superior  perfomiance  of  the  PIC16C5X  microcon- 
trollers can  be  attributed  primarily  to  its  RISC-like  archi- 
tecture. The  PIC16C5X  employs  Harvard  architecture, 
i.e.,  has  separate  program  memory  space  (12-bi1  wide 
instmctions)  and  data  memory  space  (8-bit  wide  data). 
It  also  uses  a  two  stage  pipelining  instruction  fetch  and 
execution.  All  instructions  are  executed  in  a  single  cycle 
(200  ns  @  20  MHz  clock)  except  for  program  branches 
which  take  two  cycles,  and  there  are  only  33  instructions 
idfSineinber.     -       •    ^<-  -  ^-'!sa•3 

Separatbn  of  program  and  data  space  allows  the  in- 
struction word  to  be  optimized  to  any  size  (1 2-bit  wkJe  in 
case  of  PIC16C5X).  This  makes  it  possible,  for  ex- 
ample, to  load  an  8-blt  immediate  value  in  one  cycle. 
First,  because  there  is  no  conflict  between  instruction 
fetch  and  data  fetch  (as  opposed  to  von  Neumann 
architecture)  and  secondary  because  the  instruction 
word  is  wide  enough  to  hokfBMB^Vdata. 


In  the  following  sections  we  will  compare  the  PIC16C5X 
@  20  MHz  with: 

•  SGS-Thornson  ST62  @  8  MHz 

•  MotolfDlsJMC68H(S)5  9  4.2  MHZ 

•  Intel  804€9K>49  9  11  MHz 

•  ZitogZSeCXX  @  12  MHz 

•  National  COP800  @  20  MHz 

Several  coding  examples  will  be  considered.  While  the 
comparisons  are  not  entirely  scientific,  they  will,  never- 
theless, demonstrate  to  the  reader  the  relative  superior 
performance  of  the  PIC16C5X.  The  examples  chosen 
here  are  used  frequently 'm  mlciocontroller  applications. 

PACKING  BCD 

This  eacample  wili  talce  two  bytes  in  RAM  or  registets, 
-  qaHh  containiriB  »"B6D  digit  in  the  lower  nibble  and 
isiiiiie  aliaiicejIM®  data  byte,  whidi  is  sionsci  bade  in 

#16  tegiStiw  or  I^AM  tocalion  holding'flw  low  BCD  digit. 


PIC16C5X  ^ 

Bytc^ords  Cycles 

SWARF    REGHI,W           1  i 
lORWF    REGLO             1  i 
2 

0.4  MS 

COP800 

Byte/Words  Cycles 

X           ^[B+]             1  2 
SWAP     A                   1  1 

OR      ^^m          :  i 
-   X       m        _i_  _i_ 

B  is  pointing  to  the  higiier  BCD  digit  initially.    5  ^is 
After  auto-increment,  it  points  to  the  lower  BCD  digit. 

-  Sr»                       Byti^Wotds  Cycles 

to        A,FIEGHI         2  4 
RIC      A                  1  4 
RLC      A                  1  4 
RLC      A                  1  4 
RLC      A                  1  4 
ADD      A,  REGLO        1  4 
UD        REGLO,  A      _2_  4 
10  28 

REGHI  &  REGLO  are  registers  45.5n8 
addressable  by  short  direct  addressing  mode. 

IIC68HC05 

Byte/Words  Cycles 

UDA       REGHI            2  3 
ROLA                        1  3 
ROU                        1  3 
ROU                        1  3 
ROU                        1  3 
ADD      REGLO          2  3 
STA       REGLO           2  4 

10.S|is 

BytaNVotds  Cycles 

SWAP    RBSHI                1  ! 
OR        REGHI,REGLO  -f- 

5.33  us 

REGHI  and  REGLO  are  addressabts  via 

the  working  register  addressing  mode. 

Byta/WoFds  Cyclaa 

MOV        ^Rx            1  1 
SWAP      A                1  1 
ORL        ^Ry            1  1 

MOV       n/A         _1_  _1_ 

Register  Bx  contains  higher  BCD  dlgtt,    5.45  \ta 

By  holds  lower  BCD  digit. 

«1j9MMIeioeH)»T«cl«ioi|Qsy  Inc.  DS00520&page  1 
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LOOP  CONTROL 


This  example  is  one  of  simple  loop  control  where  a 
legister  containing  loop  count  is  decremented,  testedfor 


zere  find  K  not  branched  back  to  the  be^nning  of  the 
kxsp. 


Byte/Words 

Cycles 

COP800 

Dywworas 

Cyclos 

DECFSZ 

COUNT 

1 

DRSZ  COUNT 

1 

3 

GOTO 

BEG_LOOP 

1 

JP  BEG_LOOP 

1 

3 

2 

~air 

2 

6 

0.6|is/0.4 

COUNT  is  Register  (RAM  FOh-FFh) 

6|1S 

sra 

BytanVoids 

Cycles 

MC68HC05 

Byte/Words 

Cycles 

oec 

X 

4 

DECX 

1 

3 

JRZ 

2 

BEQ  BEG_LOOP 

2 

3 

6 

3 

6 

9.75  ns 

2.86  ^s 

BytaWords 

Cycles 

8048 

BytaWords 

Cycles 

DJNZ 

COUNT,  BEG_LOOP 

2 

10/12 

DJNZ     Rx,  BEG_LOOP 

2 

2 

2.73  US 

This  example  tests  a  single  bit  in  a  register  or  a  RAM 
bcation  and  makes  a  conditional  brancti.  We  assume 


ttiat  MSB  Is  tested  and  a  branch  Is  to  be  t8l(wyi4l»M 

Is  set. 


PIC16C5X              ,►,(,., rtBPifWte«i  Cycles 

BTFSC     REG,?:.    .    ;   j      ;     -1i  :      ■  1« 
GOTO     NEWADD                    1  2/- 

2  32 

0.6  ns/0.4  |.is 

' -'"r.^ftWords  -  cycles 
IFBIT          7,  [B]       .i^r-a.^...'!  „i   i  ..j  I  ■( 
J>               NEWADO                 1  3 
2  4 

B  points  to  the  memoiy  location  under  test               4  ^s 

ST62 

Byte/Wotds  Cycles 

JRR        7,NEWADD                  3  ; 

MC68HC05                                              „  . 

Byte/Woids  Cycles 

BRCLR       7,NEWADD            3  5 

2.38  ^1S 

 ■'•f-'        ■  -   

Z86CXX 

Byla/Woids  Cycles 

mmi                          3  .tens 

2.67  liS 

'                                           tUk'^'-4  N   

8048A049                            _                     _  . 

ByteWoids  Cycles 

MOV           A,  ®Rx                    1  1 

ANL            A,#80H                   2  2 

JNZ       mtum          2  2 

-                  5  5 

RegistefsRI  is  assumed  to  be  pointing  tp^   682ud 

the  memory  location  under  lest 

c 
c 
c 

e 
ft 


5n  *  <:* 


r 
r 
f 


I  u..^n 
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Shifting  Out  8-Bit  Data  &  Clocic 

|W«  wfli  now#9n^  tl»Mapk  of  «Mf  shiftkig  out  an 
SMdalaaMiUcXic.  Bii»aMiN«ie«l[^arageneF> 
ated  under  program  control  by  toggling  two  oiriput  pins. 


Data  is  tiansniit^  on  the  rising  edge  of  the  doj^  No 
attera{;le  made  to  make  theclock  output  symmeMcal  in 
ovdertomake  the  code  efficient.  Data  out  isgutHMeed 
on  the  Ming  edge  of  tfie  dock.  These  conditions  are 
.^saUriactoty  for  most  appHcalions. 


inciecsx 

A-  ytO  «  ••.  Byte 
'   -  /Words 

Cycles 
XmttOOh 

Cycles 
XmltFFh 

j  mr 

MOVLW 
MOVWF 

08H 

BITCNT 

Bit  Count  1 

1 
1 

BCF 

PORTB,0 

0       Data  Out  Pin  1 

1 

BCF 

PORTB,1 

0       Clock  Out  Pin  1 

1 

RRF 

XDATA 

Rotate  Right  thru  Carry  1 

1 

BTFSC 

STATUS.CARRY 

Test  Carry  Bit  1 

2 

\ 

BSF 

PORmO 

Data  Out  Pin  1 

BSF 

P0RTB,1 

Clock  Out  Pin  1 

1 

.KSNT   _ 

Decrement  Count  1 
SWpif259ro 

1 

GOTO 

m\ 

2 

i-.i. 

PSRTC.I 

0-*-  Clock  1 

1 

1 

74 

74 

>|joap 


TrannrilVinaistlwtaitwfpr  aehorFFh:  74  Teye  - 14.8      Note  that  t^sre  wsB  ,v 

ne  need  tb  load  thttdUB  In     Aceumulator  (W)  since  the  MStfCSK  eaii  oparala  direefing  en  nfe  registers. 


COP800 


XMIT 


XM1 


Cycles  Cycles 
AmIMi    XmR  FRi 


LD 
ID 
ID 


RBIT 

REIT. 

RRCA 

IFC 

SBIT 

mr 

iE. 
fbit 


A,  XDATA 
BI11CNT#08H 

B,  »Qan 

0,  [B] 

1.  P 


eJi^nt 

XMi 

o.iEa 


;  Load  Data  in  Acc.  2 
;LoadBitCount  2 
;  B  PaMS'te»PORn&  2 

;0-^  Clock 
;  0  Data 

;  Roterte  A  Right »»«  Carry 

■  1  Data 

;  0  Clock 
;  Decrement  Bit  Count 
;  and  Go  Back  if  #  0 


1 
1 
1 

i 
1 

3 
3 

-a: 
TIB" 


Loop 


Aeiuniiilaior  A  Is^  Isadsd  ^  Owdata  weid.  Transmit  time  is  maxlinyin  for  dalk  irWiK  dS^feyt  a  109  |is. 


SIS2. 


XM1 


XM2 


Byte 

Cycles 

Cycles 

/Words 

XmitOOh 

XmltFFh 

LOI 

A,  #08 

2 

4 

4 

ID 

X,A 

)uiittDBita 

1 

4 

4 

ID 

A,W 

1 

4 

4 

RES 

o.om 

O-*-  CkiGk 

2 

4 

RES 

1.DRB 

O-*-  Data 

2 

4 

f\ 

SLA 

A 

2 

4 

4 

JRjttlC 

XM2 

1 

2 

2 

SET 

1,DRB 

1  -*•  Data 

2 

4 

SET 

0,  DRB 

CLK 

2 

4 

4 

DEC 

X 

1 

4 

t) 

JRNZ 

XM1 

1 

2 

RES 

0,DRB 

0-»  Data 

"5?3" 

>  Loop 


Registsf  W  contains  the  Data  word . 
Transmit  time  tor  FFh  >  240  cycles  =  390  (IS. 


«Hl^Mi»wl#Mnp|affir  me. 
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A  GiinrfparisorilifltMNM  S^t'Mim^m^lei^ 


OUT  8-BIT  DATA  AND  CLOCK  (CONT.) 


MC88HC05 
XMIT 

|«1 


XM2 


IDA 

LDX 

BCLR, 

O.PORTB 

BCLR 

1,PORTB 

ROLA 

BCC 

XM2 

BSET 

1,PORTB 

BSET 

OsPORTB 

DECX 

XM1 

Q;poifrB 

■  M     ew     r  -^-^  - 

;  Load  Bit  Coimt 


;0-^  Ctock 
;  0  -»■  Data 


;1-^  Data 
;1->.  Clock 


V  'P|>0!»».  Data 


2 

3_ 
2 

'i 

'  '2: 

I 
1 
2 


5 

S' 
■3: 


Transmit  lime  is  maximum  for  transmitting  FRl  =  266  cycles  =  126.7  )is. 


-■TiO 


Loop 


Z86CXX 

mr 

ltM1 


ID 
AND 


RFC 


COUNT,#8 
P2,#%FC 

XDATA 
N&)M2 


;  Load  Bit  CourS~ 
;0-^  Data. 
Clock 


it--*-  -BillB 
:1  Cloek 


P2,  #02 
COUNT,XM1 
flfiiMISaF  iO-*  Clock, Data 


TrantmR  tinw  i«  RHDAnum  terliarannitling  FHi  ^iZ 


Byte 

Cycles 

Cycles 

/Words 

XmltOOh 

XmttFFIi 

3 

10 

10 

2 

6 

6 

,5  A 

2 

12 

3 

"} 

3 

10 

10  / 

2 

12 

12  y 

10 

_1Q_ 

412 

Byte 

Cycles 

Cycles 

/Word* 

XmitOOh 

XmltFFti 

1 

-t--,- . 

1 

2 

2  " 

2 

Loop 


m,#08H 


PORT1,#0FCH 
A 


me 


ORL 
DJNZ 


■l,#oiH" 


PORT1,#02H 
R1,XM1 


^-  r6  Volnts  to  Data  VttMd 
;  Load  Bit  Count 

;  0-»-    Data,  Clock 

;  Rotate  Rigtit  A  thru  Carry 

;1-»-  Data 


;  1  -••  Clock 
;  Decrement  Count 


I  Loop 


-Ir 


TnmmittimeisinwinnjmlbrtiantmlttingFFh^SI  eycle«  =  l24.l  |is. 


V' 


cr<r 


A  Comparison  of  Low-End  8-Bit  iVIicrocontrollers 


Software  Timer 

MicrDcontrollers  quite  often  need  to  implement  time 
idelays.  D^)QiiM^I»glEeyhwii|tpiiteswk>thi^ 


and  phase  angle  control  are  just  a  few  examples.  ImpJa- 
menting  a  10  ms  time  delay  loop  subroutine  wifl  be 
considered  In  this  section. 


DEUY  MOVLm' 
MOVWF 

CLRF  COUNT1 


LOOP 


INCFSZ 

GOTO 

DECFSZ 

GOTO 

RET 


COUNT1 
LOOP 
COUNT2 
LOOP 


;tOn»[MwljOop 


;TMs  Inner  Loop  will  be 
Btscfuted  256  Times 


ByUWofds 

Cycles 

1 

1 

1 

1 

1 

1 

1 

2fl 

Jl 

2 

1 

2n 

1 

2 

1 

2 

.:*^8 

Exnaitianfinnetolh»ioulhi»  =  5 4- (^x3t5)<,6S  =  aaiX^Tcyc- 10.011  ms.  ThePICieCSX 
can  invlament  de(ay  Ikne*  vwy  imdMly  (*^' rti^^ 


COP800 
DELAY 


ID 

ID 


COUNT1,#0BH 
B,#OEH 


iiOmsDetayLisep 


Byte/Words  Cycles 

2  3 
1  1 


LOOP 


DRSZ 
JP 

omz. 

HET 


B 

LOOP 

COUNT1 

LOOP 


ExeeuiiantimefertherailfiMsjeras-i-qNI +9^eles.  HaroNI  ==aBHaiidN2  =  0EH. 
whiohgivesuE:  999Tcyc-9.9Snw. 


SIS 


LOOP 


LDI 

A,#FF 

ID 

X,  A 

;  LOOP1  Count 

LDI 

A,  #04 

LD 

Y,  A 

;  LOOP2  Count 

DEC 

X 

;  0  CLK 

JRNZ 

LOOP 

DEC 

Y 

•  0  CLK 

JRNZ 

LOOP 

Cyclsa 

4 
4 
4 
4 
4 
2 
4 
2 


B««tontkMl9rl«*ubiDuline  =  (eN1  +6)NZ  +  16eyele«, 
"'—ii  N1  -  FFH.  N2  -  0«  givee  IB  10.01  ms. 


MC6BHC05 

DELAY  LDX 
LDX 


$50 


;10msI}elE^Loop 


Cjfiliks 

2 
2 


LOOP 


DECA 
BNE 
DECX 
BNE 

RTTS 


LOOP 
LOOP 


Execution  time  for  the  sutKoutine  =  (5  x  N1  +  5)  N2  +  10,  witli  N1  =  2DH,  N2  =  5CH. 
ttnedelay  =  10A81m, 
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A  Comparison  of  Low-End  8-Bit  l\/licrocontrollers 


GBAf  ID 

ID 

LCX3P  DJNZ 
DJNZ 
RET 


COUNT1,#%61 
COUNT2,#%33 

COUNT1,LOOP 
COUNT2.LOOP 


Total  executian  tme  » (laMi  *  t#i^  Mtt  Nl  >«>l%^i| 


^lljCH  u  I  'r.    ByteAVofds  Cycles 

2  6 

2  10/12 

2  10/12 

1  14 

til*           *'.'VV  'I  v'-u 


DEUY  MOV 
LOOP1  MOV 
yOPP2  DJNZ 


C0UNT2,#AFH 
COUNT2,LOOP2 


i1  jliBS  JMay  Loep 


Byte/Wold* 

2 


Cydu 

2 


c 
r 

t 
r 
r 

1- 


s 
r 


'I 


la; 


s 

e 
s 
c 
s 
• 


■TT 


I  /I  'Jem I.' 
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A  Comparison  of  Low-End  8-Bit  IVIicrocontroliers 


SUMMARY 

Tabto  1  «ininarizes  eode  sizes  for  dWerent  microcon- 
tr^tBHS.  Jtm  OMMal  nMv«  code  size  number  is  an 
|avM8«e«t1h«  ln#rtiii8li!Bta|Braecxi«sc^   Given  that 

the  other  nitMi^iWcillsra  haVtt  8-bit  program  memory, 
a  compacHoR  @f  U  is  aqtected.  Clearly,  the 
P)6t6^X  meete  Ms  coropaCtian  (except  for  the 
^O&f^&S^  and  «(Oeecis  in  most  comiMUlsons. 

I 


Table  2 '  ajmnmizes  relattvo  aaoilksn  >  ."Tfie 
overall  speed  is  an  average  of  relative  speed  nwnbeis. 
For  example,  the  COP800  will,  on  an  average,  exhUt 
27%  of  the  code  execution  speed  of  a  PlCie^X.  in 
other  woids,  the  PIC16C5X  wHI  be  M0JZ7  =  3.7  times 
faster  than  a  TOP800  on  an  average; 


^  TABLE  1  -  COMPARISON  OF  CODE  EFFICIENCY* 


Davles  ^ 

Packing 
BCD 

Loop 
Conbol 

Bit  Test 
&  Branch 

S-BHSync 
Transmission 

10  ms  Soft- 
ware Timer 

Ovsrall 

COP800 

4 

2 

2 

16 

8 

2.00 

1.00 

1.00 

1.46 
iS 

1.00 

1.29 

ST62 

10 

2 

3 

19 

10 

5.00 

1.00 

1.50 

1.73 

1.25 

2.10 

MC68HC05 

10 
5.00 

3 
1.50 

3 
1.50 

20 
1.82 

11 
1.38 

2.24 

zsecxx 

4 

2.00 

2 
1.00 

3 
1J0 

21 
1.91 

9 

1.125 

1.51 

8046^8049 

4 

2 

5 

14 

9 

2.00 

1.00 

2.51 

1.^ 

1.13 

1.58 

piciecsx 
eeuHz 

2 

2 

2 

11 

8 

1.00 

*  In  each  box,  the  top  number  Is  the  number  of  program  memory  locations  required  to  code  the 
applicalion.  The  bottom  raimber  is  relative  code  size  compared  to  ttiePIC16C5X: 


»  program  memory  locaBoro  ferqlhiOiggBeOjlftg^ 
#  program  memory  tocaUonstEM'the  PfCieC^X 


2*7 
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.,r;  »ra  bN»  tut 

.^oo 


.1.76 

1.00 


111 

N 

m 

lU 

o 
O 
u 

> 


3  -- 


1.29 


100 


8 


2.24 


1.51 


-  .:-.'>ar.'>'''<  • 


1.58 


JM 

-Ml 
Jt-08 


■  - ,  ie!  b«ik>o;  y^anit/ii  manjo-c 
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TABLE  2  -  COWARISON  OF  EXECUTION  SPEED* 


Qevico 

Packing 
BCD 

Loop 
Control 

Bit  Test 
&  Branch 

8-Bit  Sync 
Transmission 

10  ms  Soft- 
ware Timer 

OvBiall 

COP800 
e  20  MHz 

5\18 
0.08 

6|is 
0.0832 

4ms 
0.12^ 

105  ms 
0.1408 

0.108 

ST62 
eSMHz 

45.5^ 
0.0088 

9;75|IS 

0.0615 

8.125  us 
0.07OT 

390  lis 
0.0329 

_ 

0.0455 

MC68HC05 
9  4.2  MHz 

10.05  ns 
0.038 

2.86  ms 
0.1748 

2.38  ms 
0.21 

126.7  ms 
0.1168 

- 

0.136 

Z86CXX 
@  12  MHz 

2.33  ms 
0.172 

1.835  lis 
0.272 

2.835  ms 
0.176 

68.67  ms 

0.224 

0.212 

8048/8049 
e  11  Mhz 

5.45  lis 
0.0732 

2.73  lis 
0.1824 

6.82  ms 
0.0732 

124.1  MS 
0.1196 

0.112 

PIC16C5X 
«  20  MHz 

0.4  |is 

0.6/0.4  MS 

0.6/0.4  MS 

14.8  ms 

1.00 

*  In  each  box,  the  fop  number  is  the  time  required  to  execute  the  example  code,  while  the 
bonom  number  is  a  measure  of  relative  performance  compared  to  the  PIC16C5X: 
time  required  to  execute  code  by  the  PIC16C5X 
time  required  to  execute  code  by  other  mictxxx>ntroiler 


FIGURE  2  -  EXECUTION  SPEED  COMPARISON 


«'«|HMbMi^-TedMilew  te. 
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Power-Up  Considerations 


INTRODUCTION 

When  powering  up  all  microcontrollers  it  is  necessary  for 
the  power  supply  voltage  to  traverse  voltage  ranges 
where  the  device  is  not  guaranteed  to  operate  before  the 
power  supply  voltage  reaches  its  final  state.  Since  some 
circuits  on  the  device  (logic)  will  start  operating  at 
voltage  levels  lower  than  other  circuits  on  the  chip 
(memory),  the  device  may  power-up  in  an  unknown 
state.  To  guarantee  that  the  device  starts  up  in  a  known 
state,  it  is  necessary  that  it  contain  a  power-up  reset 
circuit.  PIC16C5X  microcontrollers  are  equipped  with 
on-chip  power-on  reset  circuitry,  which  eliminates  the 
need  for  external  reset  logic.  This  circuit  will  function  in 
most  power-up  situations  where  Vcc  rise  time  is  fast 
enough  (50  ms  or  less).  This  application  note  describes 
the  typical  power-up  sequence  for  PIC16C5Xtnicrocon- 
trollers.  Methods  of  assuring  resM.on  powir-up  and 
after  a  brownout  are  discussed  and  stmple,  low 
external  solutionsatediscu^Mlfor  poimNipsRuatfoi^ 

where  the  piciecsx^intdif!^  m&mfitmmTimma 

the  reset. 

POWER-UP  SEQUENCE 

(liO^:«ti£uHi|(-iom«^i^  whtcto  pnovik^sefid,  Jsflable. 
internal  chip  r^tortnoa«power-uodtiiiafen8.  Totise 
thB  feature;  itwtiserniBni^weedB  to  »» lil@L#te  Vocl 
A  simplified  block  diagrem  of  the  on<hlp  reset  diciiitty 
is  shown  in  Figure  1.  On  power-up,  the  resetlaich  and 


the  start-up  timer  are  reset  to  appropriate  states  by  the 
power-on  reset  (POR).  The  start-up  timer  will  begin 
counting  once  it  detects  fy^CLR  to  be  high  (i.e.,  external 
chip  reset  goes  inactive).  After  the  time-out  period, 
which  is  typically  1 B  ms  long,  the  timer  will  reset  the  reset 
lateh  anctiiufi  sndihe  on-chip  res^  signaL 

Figures  2  and  3  iSplwo  power-up  situations  with  relative 
fastnse  ^Umemt^i  inlROUi?  It  VDDisdabliMwhta 
MCLR  is  brought  highj^.e.,  reset  pulse  is  being  provided 
by  external  soiiice).  the  chip  actually  comes  otA  reset 
about  tosT  ms  after  that,  where  tosT = oscillator  start-up 
timer.  (The  timer  Is  called  oscillator  start-up  timer 
because  the  time-out  was  incorporated  primarily  to  allow 
the  crystal  oscillator  to  stabilize  on  power-up.)  In 
Figure  3,  the  MCLR  and  Vdo  are  tied  together  and 
cleariy  the  on-chip  rest  mechanism  isbeingiBtilized.  The 
VOD  Is  stable  before  the  start-up  timer  expires  and  there 
is  no  problem  witti  proper  res^. 

Ft||iii»4;:iit^er«  VtniiM  ttone  is  thueh  gii^ar  than  tosT 
^pic»lly  18  ms)  clearly  Is  the  potentially  problematic 
situation.  The  POR  (power-on  reset)  pulsatiomeswhen 
S/DD  isabout1.5V.  Most  CMOS  logic,  includingth«)start- 
uptimerstartsfunctionlngbetween  1.5Vto2.0V.  When 
the  start-up  timer  starts  times  out,  the  chip  reset  is  wded 
and  the  chip  attempts  to  exectiie.  If  byMsHnrai^teD 
has  reached  VoD  Ml  N  value,  then  all  cUcuite  are  guaran- 
teed to  function  correctly  and  power-up  reset  is  success- 
ful. If,  however,  the  Vdd  slope  was  too  slow  and  had  not 
reached  Vdd  MIN,  then  the  chf)  may  or  may  not  function 
property. 


FIGURE  1;  P1C16C5X INTEBNAL  RESET  CIBCUIT 


VDD 


POWER-UP 
DETECT 


MCUR 
PIN 


PC 

osc 


POR  (POWER-ON  RESET) 


'=dA 


CLEAR  WDT- 


8-BIT  ASYNCH 
RIPPLE  COUNTER 
(START-UP  TIMER) 


S  Q 

R  Q 

CHIP_RESET 
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Power-Up  Coimklersilioiis 


FIGURE  2  -  EXTERNAL  RESET  PULSE 


MCLR- 
INTERNAL  POR  - 

OST  TIME-OUT - 
INTERNAL  RESET- 


iaam  fjinp  --u  ^rti  i    _^  flU/fl  ri^vJ 


•  tOST- 


FIGURE  3  -  INTERNAL  RESET  (Vdd  AND  MCl^  TIED  tOGETHER) 


.  If'i.'  II. ,T- 
VBO  '- ci  f'-n 


MCLR- 
INTERNAL  POR  - 

OST  TIME-OUT- 
INTERNAL  RESET- 


tosr 


.'""V         n^'atj- " 


FIGURE  4  -  INTERNAL  RESET  (Vdd  AND  MCLR  TIED  T^ilMii):  .^PW  Vpp  RISE  TIME 


-'■i^-'     tVtfSl  '-J-j-Vr-l 


MCLR- 
INTSUNALPOR- 


OSTTIME-OUT- 


50 


INTERNAL  RESET- 


Whan  Vdd  rises  slowly,  the  internal  time-out  period  expires  long  before  Vdd  has  reached  its  final  value. 
In  this  example,  the  chip  will  reset  properly  if,  and  only  if ,  V1  >  V  ddmin  . 
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EXTERNAL  POWER-ON  RESET 
CIRCUIT 

To  use  power  supplies  with  slow  rise  times  it  is  neces- 
sary to  use  an  external  power-on  reset  circuit  such  as  the 
one  shown  in  Figure  5.  This  circuit  uses  an  external  RC 
to  genersdettie  reset  pulse.  ThetimecottstantoftfieRC 
should  t>e  long  enough  to  guarantee  that  the  reset  pulse 
is  still  present  until  Vdd  has  readied  Vdp m ji.  R  should 
be  40K  or  less  to  guarantee  4iat  the  MCLR  will  pull  to 
within  0.2  volts  of  Vdd.  (since  the  leakage  spec  on 
MCLR  is  ±5  pA,  a  resistor  larger  than  40K  may  cause 
input  high  voltage  on  this  pin  to  be  less  then  Vdd  -  0.2V, 
the  mqutred  spec).  The  diode  D  is  used  to  rapidly 
discharge  the  capwitor  on  power-down.  This  is  very 
impottant  as  a  power-up  reset  pulse  is  needed  after  a 
short  power-down  (less  than  the  time  constant  of  RC)  or 
after  a  power  spike.  The  resistor  fli  protects  against 
high  cun-ent  flowing  into  MCLR  pin  from  fully  charged 
capacitorC  in  the  event  MCLR  pinbreakdown  is  induced 
through  ESD  or  EOS.  The  circuit,  however,  does  not 
protect  against  brown-out  situations  where  the  power 
does  not  drop  to  zero,  but  merely  dips  below  Vdd  MIN. 
In  such  a  situation,  voltage  at  the  MCLR  pin  will  not  go 
tow  enough  (I.e.,  below  Vil)  to  guarantee  a  reset  pulse. 
The  following  section  presents  an  ei^^e  circuit  to 
protect  against  such  brown-outs. 


FKIURE  5  -  EXTERNAL  POWER^ON  RESET 
CIRCUIT 


BROWNOUT  PROTECTION 

in  many  applications  it  is  necessary  to  guarantee  a  reset 
pulse  whenever  Vdd  Is  less  than  Vdd  min.  This  can  be 
accomplished  using  a  brownout  protection  circuit  such 
as  the  one  shown  in  Figure  6.  This  is  a  simple  circuit  that 
causes  a  reset  pulse  whenever  Vdd  drops  below  the 
zener  diode  voltage  plus  the  Vbe  of  Q1 .  A  3.3  volt  zener 
will  produce  a  reset  pulse  whenever  Vdd  drops  below 
about  4  volts.  This  circuit  has  a  typical  accuracy  of  about 
+100  mV.  A  less  expensive,  albeit  less  precise,  brown- 
out circuit  is  shown  in  Figure  7.  Transistor  Q1  tums  off 
when  Vbe  =  Vdd«R1/(R1+R2) falls  below 0.7  V allowing 
R3  to  pull  down  MCLR  input. 

FIGURE  6  -  BROWNOUT  PROTECTION 
CIRCUIT 


Vdd 


MCLR 
PIC16C5X 


Vdd  ' 


IN4148 


f^<40K 

R1  =100  -IK 


R1 

-vwH 


Vdd 


MCLR 
PIC16C5X 


FIGURE  7  -  BROWNOUT  PROTECTION 
CIRCUIT 
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Software  Interrupt  Techniques 


imnoDUCTiON 

This  application  note  describes  a  unique  method  for 
implementing  interrupts  in  software  on  the  PIC16C5X 
series  of  microcontrollers.  The  method  talces  advantage 
of  the  PIC16C5X's  architecture  which  allows  changing 
the  program  counter  under  software  control.  Up  to  eight 
interrupt  lines  are  possible,  but  the  practical  limit  for 
simple  code  generation  is  six  interrupts,  or  64  possible 
input  conditions.  The  interrupt  detection  time  is  under 
software  control  and  standard  I/O  pins  are  used  as  the 
intermpt  lines. 

THEORY  OF  OPERATION 

SOFTWARE  POLLING  OF  I/O  LINES  REPLACES 
HARDWARE  INTERRUPT 

The  interrupt  conditions  are  determined  by  detecting 
changes  on  the  I/O  lines  that  have  been  selected  to  be 
the  interrupt  lines.  These  changes  are  used  to  create  a 
jump  table  that  allows  a  different  program  response  to 
each  interrupt  condition.  The  Intermpt  response  time  Is 
under  software  control  and  can  be  as  short  as  ten  to 
twenty  miaoseconds,  depending  on  main  program  and 
intomiiat  stibroiAnt  progiam  iaa&t. 

•CITING  THE  INTERRUPT  SUBROUTIME-JUMP 
TABLE 

Each  I/O  condition  may  have  its  own  unique  subroutine 
to  respond  to  changes  on  the  interrupt  lines.  Direct 
access  to  these  routines  is  achieved  by  using  the 
PIC16C5X's  ability  to  change  the  program  counter 
under  software  control.  Here  is  an  «anipto  of  how  two- 
l/O  lines  may  tie  polled: 

HOVF  CCaiDTN.H 

AMDIM  3 

'  JU3DNF  2,1 

I 

GOTO  MAIN 

GOTO  INTl  '  tFSn73iii^~mBIT  0  GOTO  INTl 

GOTO  INT2  ;  FOR  CHANGE  IN  BIT  1  GOTO  INT2 

GOTO  INT3  ;FOR  BOTH  CHANGE  GOTO  INT3 

The  changes  to  the  I/O  lines  have  been  used  to  creede 
a  two  bit  number  that  is  added  to  the  | 
The  GOTO  that  Is  executed 
gram  counter  address. 


.•LOAD  I/O  CONDITION  INTO  W 
;  REGISTER 

.•MASK  OFF  TOP  6  BITS 

;ADD  INPUT  TO  PROGRAM  COnNTEl 

;T0  CREATE  JUMP  TABLE 

;FOR    NO  CHANGE  GO  TO  MAIN 
.•PROGRAM  - 


d^E^Tihld^  CdNStANt  TIME 
POLLING 

In  most  applications  requiring  interrupts,  it  is  important  to 
poUthe  interrupt  lines  at  fixed  time  intervals,  usual^only 
a  few  microseconds  in  lengtti.  Two  techniques  may  be' 
used  on  the  PIC1 6C5X  to  achieve  this.  Tbay  arecividing 
the  maki  program  into  multiple  sections  and  Implement- 
ing an  elapsed  time  counter  (see  flow  chart).  Both  of 
these  techniques  use  the  same  program  ^mp  table 
concept  that  was  described  above.  Rrst,  the  main  pro- 
-am is  divided  into  several  sections  based  on  the 
de^radflK)  polling  time.  When  MAIN  is  called  a  btanch 
register  is  added  to  the  program  counter.  This  deter- 
mines which  section  of  MAIN  code  should  be  executed 
next.  At  the  end  of  execution  the  branch  register  is 
decremented  so  the  next  section  of  code  will  be  ex- 
ecuted afterthe  next  polling.  If  the  branch  register  is  zero 
then  the  number  of  sections  of  main  code  is  added  into 
it  to  start  the  main  program  over  again. 
'..■I. 

An  etaplsed  tUM  counter  can  be  implemented  using  the 
RTCC  counter.  /Vt  the  beginning  of  I/O  polling  the  RTOO 
ragi^r^  cleared.  It  then  starts  counting  the  instruction 
Affiles.  Then  after  the  main  program  subsection  has 
bean  executed,  the  RTCC  registers  subtractedf  rom  the 
de»(edipollingtbxif,^This  determines  how  many  instnic- 
tlotisneiedtotie«»cutedb^#ethe  next  polling.  Ajump 
table  is  then  created  to  execute  these  instructions  before 
the  next  polling.  An  example  shown  below.  This 
example  assumes  from  zero  to  1 5  additional  Instruction 
cycles  are  needed.  Actual  numbers  need  to  be  com- 
puted for  eacto  in^^tjal  application. 

^       .off.  ;  . 

mmm  fwj,  '^ve(c£^DssiBm  soii,  cxcles  -  is 
sasm  RTcc,H,  .^jHSTBoaDE  ROW  mdch  timb  td  wait 

ADDRF    2,1'  -  '  ?%Qb    WAIT        TIME    TO  PROGRAM 


;  15  ADDITIONAL  INSTRUCTION  CYCLES 

ivmi.  OP  15  HOP'S 

;  1  AiaJITICNAL  n^WDCTION  CYCLES 
;  0  ADDITIONAL  INSTROCTIOH  CYCLES 


NOP 


NOP 
GOTO 
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For  example,  if  the  desired  instruction  flim  SO 
and  the  s(jt>sectlon  we  just  executed  ha$  a  oonsunwd  a 
tayKofr40  instruction  cycles  (including  all  ovettiead 
cp6s)ihe  value  of 

r  Jill i'HljCGt'W) -I^BEG^Ii^^'y ~ 

will  be  added  to  the  program  counter,  progiam  wW  . 
then  jump  to  the  sixth  NOP.  TTiat  NOP  plus  the  9  ' 
MOHiB^  will  be-iBxecuted  for  a  total  of  ten  more*" 
Msttui^h  cycles.  Note  that  the  final  GOTO  has  two 


instruction  c^tas  and  these  must  be  included  fti  the 
program  oMihMK). 

The  following  example  (swyHiHWiiiait  and  cad^.te  the 
core  program  for  the  softurara  interrupt  technique  de- 
scribied  above.  TMs  program  assumes  four  intermpt 
conditions,  four  meun  program  sections  and  an  eight 

"  itammitmBpstia  vm  timracnons. 


FIGURE  1  -  SOFTWARE  INTERRUPT  FLOW  CHART 
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0008 
0009 
OOOA 
OOOB 

OSaO  0069 

0001  0C04 

0002  0028 

0003  OC08 

0004  0002 

0005  0061 
00«S  S20S 

0007  002A 

0008  0109 

0009  002B 
OOOA  0209 
OOOB  OOAB 
OOOC  020A 
OOOD  0029 
OOOB  0208 
GOOF  0E03 

0010  01E2 

0011  OAIB 

0012  0A15 

0013  0A17 

0014  0A19 

0015  0000 

0016  OAOS 

0017  0000 

0018  0A05 

0019  0000 
OOIA  OAOS 

OOIB  0208 

oeie  01E2 

OOID  0000 
OOIE  0A28 
OOIF  0A2e 

0020  0A24 

0021  0A22 

0022  0000 

0023  0A2A 

0024  0000 

0025  0A2A 

0026  0000 

0027  0A2A 

0028  0000 
0039  0%2A 

002A  02E8 
002B  0A2E 
002C  0CO4 
002D  0028 


BRANCH  EQ0 
CNDTN  EQU 
10  EQU 
TEMP  EQU 


SETUP 


IMTl 


MAIN 


MOVWP 
MOVF 
SUBWF 
MOVF 

mvm 
xaonF 

GOTO 
GOTO 
GOTO 
GOTO 


NOP 
GOTO 

INT2  NOP 
GOTO 

INT3  NOP 
GOTO 


MOVF 
ADDWF 

NOP 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 
HAIN2  NOP 

GOTO 
MAIN3  NOP 

GOTO 
IIAIN4  MOP 

GOTO 


Pb16C54 


8 
9 

OA 
OB 


MOVLH 

MOVWF 
MOVLW 
OPTION 

START  CLRF 
MOW 


4 

BRANCH 


•  SOFTMARE  immmXM  APPIiXCATIONS 
;M!AMCH  IS  KAIH  PSOGSAH  HBQIST^ 


.-FOUR  MAIN  PROGRAM  SECTIONS 


1 

s,w 

10 

CNDTN,  W 
TEMP 

CNDTN,  W 
TEMP,  1 
10, W 
CNDTN 
TEMP.W 
3 

2,1 

MAIN 
INTl 
INT2 
INT3 


;SET  RTCC  TO  ONE  COUNT  PER  INSTRUCTION  CYCLE 

; CLEAR  RTCC  REGISTER 
;REM3  I/O 

;TH1S  SECTION  OF  CODE  CALCULATES  THE 
;JUMP  TABLE.  ANY  INPUT  THAT  CHANGES  FROM 
;A  ZERO  TO  A  ONE  IS  CONSIDERED  AN  INTERRUPT. 
;THE  EQUATION  IS: 

(10  +  CNDTN)   -  CNDTN  =  INTERRUPT 
;  WHERE  10  IS  C^^IENT  INFOT  AND 
;  CNDTN  IS  PRWIOOS  IBPOT. 
;](ASK  OFF  TOP  6  BITS 

;ADD  INPUT  TO  PC  TO  ORSATE  JUMP  TABLE 

;FOR  INPUT=00 
;FOR  INPUT=01 
;FOR  INPUT=10 
;FOR  INP0T=11 

;  INT^RUPT  LUB  1  CODE 


;  INTERRUPT  LINE  2  CODE 


;  INTERRUPT  LINES  1  AND  2  CODE 


BRANCH,W 

2,1  ;AIS>  BRANCH  TO  PC  TO  CREATE  JDHP  TABLE 


MA1N4 
MAIN3 
MAIN2 
MAINl 


BRNCHK 
BRNCHK 
BRNCHK 


;JtniP  TABLE,  LAST  FIRST  ON  XKCSEHQIT  TABLE 

;HAtN  mCXSOM  CODE  BANK  ONE 
,-MAIN  mOGMM  CODE  SECTION  TWO 
;)IAIH  ^OGRAH  CODE  SECTION  IHREE 
;IIAIN  mOBMM  CODE  ^CTIC»t  FOUR 


BRNCHK  IffiCFSZ  BRANCH,  1  ;DECRQ1ENT  BRANCH  REGISTER  AND  CHECK  FOR  ZERO 

GOTO  TIMCHK 

MOVLW  4 

MOVWF  BRANCH     ;  RELOAD  BRANCH  WITH  4  AT  END  OF  MAIN 


002E  0C29 


TIMCHK  MOVLW  D'41' 


;CHECK  TO  SEE  IF  RTCC  HAS  REACHED  50(50-7) 
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002F  0081 

0030  01E2 

0031  0000 

0032  0000 

0033  0000 

0034  0000 

0035  0000 

0036  0000 

0037  0000 

0038  0A05 


SUBWF 
M3DWF 

HOP 
NOP 
NOP 
NOP 
HOP 
NOP 


.•DETERMINE  WAIT  TIMB 
;ADD  WAIT  TIME  TO  PC 


.rlW«8T»C 


110  Ji>jue 

I  tot 


0- 
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INTRODUCTION 

The  PIC16C5X  has  a  stack  which  is  only  2  deep,  as  a 
result  of  which  oi%  two  ne^ed  calls  can  be  made  (i.e. 
on^onecBllwfthinatalli«iitin)9).1fmcirtf1hanl«K^^  - 
of  subfoutine  nesting  is  required,  ttiis  appiicaMon  noto 
can  b»  used  to  implement  a  steKdc  mann^erto  handle  the 
flow  of  the  calls. 


r 


Note  Since  the  amount  of  RAM  on  the  PIC1< 

IS  limited,  it  would  be  pmdent  to  detunririf 
tne  maximum  number  ot  nested  calls  which 
Mdvu  to  be  made  in  a  program  and  define  the 


IMPLEMENTATION 

This  application  note  implements  a  5-deep  stack,  so  5 
nestedcallKean  be  made  without  overflowing  the  stack. 

*  -  tiCSMlt  16  d6fln&d'le  a  MACRO  which  will  be  used 
instead  of  the  mnemonic  CALL,  when  a  subroutine  call 
^•Wiada.  Jhe  NCALL  routine,  "pushes"  the  return  PC 
vadie  on  fKla  "stack"  £fnd,tl^^  executes  the  call«d  sub- 
routine. Atthe  endoftl^suPRHitine,  instead  of  usbigthe 
RI^W  k^jlratFuc^i^^  RETURN  is  executed, 
■  'VirtMnnRETURN-ie^  ro^^^        "pops"  the  return  PC 

i^-xAffidiMifiBmtiw  "stBckT  andrasumes  the  nonnal  flow  of 


.ince  Software  StadRmnQSRI^bHtizos 

e  FSP  raqistp'  and  ind'wl  addressing. 
Bio  ■.itsr'j'vi.iiii "  ,nar  values 

to  the  FSR  rs-ti-,^  '>' '( ulili/t)d  elsewhere 
in  the  prrigMFT 


The  routines,  as  described  in  this  application  note,  will 
work  only  if  the  called  routine  is  within  the  first  256  words 
for  each  program.  If  the  user  desires  to  branch  over  to 
the  other  low  256-byte  program  pages,  as  in  the 
'PIC16C57,  then  the  status  byte  should  be  saved  along 
with  the  PC. 
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g^^gg^g^^^  LINE  SOURCE  TEXT 


0002 
0004 


0008 


OlFF  0A07 


0000  OC08 

0001  0024 

0002  0&07 


0003  00E4 

0004  0C03 

0005  OICO 
0096  M23 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
it034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 


list  p=16c54<  f-inhx89i  .  ^ 

********  *********«*************it«***4'4^^***«********»A 

sm.asm:  - .  - 

Routine,  aoeilhi^fll^llfP^  Wl^ilii^  c*Stack 
manager  capable  at  handling  more  than  2 
subsequent  subroutine  calls. 

Note:  Since  this  is  a  demo,  NOP  has  been  used 
%0here  normally  the  body  of  the  subroutine  would 
reside. 

****************************************************** 

PC  EQD  2 

FSR  BQU  4 


STACK 
, ****** 


EQU 


(•define  stack  top 


******** 


********** 


;NOTE:   the  next  5  locations  in  RAM  should  be  reserved  for  the 
; 'STACK"  implementation.  Please  do  not  use  any  ram  locations 
;from  decimal  8  to  decimal  12* 

.  ******************.*******ib*.**4^.********«*i^«***£******************* 


ORG 
GOTO 


ORG 


INIT  MOVLW 
HOVW^ 
GOTO 


OlFF 
START 


STACK 
FSR 


;  lsaii  "Mtm^'  iBdir«et  pointer 
1  I 


******** 


;  define  NCALL  as  a  MACRO  used  instead  of  the 


MACRO 

MOOT 

MOVWF 

INCF 

GOTO 


LASEL 
PC,W 

0 

FSR 
LABEL 


save  PC  on  •stack' 


Inc.  "stack"  pointer., 
jun^  to  routine 


;  return  front  sid»:oii^isa  NCSItCi 


RETXTOJ  DECF 
MOVLW 
ADDWF 
MOVMP 


FSR 

3 

0,W 
PC 


OSSl 
00S2 


********************** 


point  to  last  "stack'  location 
add  3  and  output  value  from  FSR 
/ 

load  in  PC  as  next  executable 
instruction 

t ******* ************************ 
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LOC 

VMlt'l' 

0054 

0007 

0000 

nACC 

START 

NDP 

0056 

NCALL 

TOM 

0008 

0202 

H 

MOVF 

PC ,  W 

; save  PC  on  "stack* 

0009 

0020 

M 

MUVWr 

0 

;  / 

OOOA 

02A4 

K 

INCF 

FSR 

;Inc.  "stack*  pointer 

OOQB 

OAOF 

M 

OOTO 

TGOf 

jivBHp  to  xou^kisd 

OOOC 

0000 

0057 

NOP 

of  naizi  routiike- 

OOOD 

0000 

0058 

NOP 

/ 

OOOE 

0003 

0059 

SLEEP 

0060 

00  OF 

0000 

0061 

TOM 

NOP 

0062 

NCALL 

DICK 

0010 

0202 

K 

MDVF 

PC,W 

;sav*Pe  OB  'stack' 

0011 

0020 

U 

0 

/ 

O0A2 

92|k4 

M 

ISCt 

— *«R  - 

0013 

SMS 

M 

Q&TO 

mac 

j  jmv  6o  eeotiae 

0014 

000 0 

00S3 

NOP 

•body 

of  rotttitic  TOM 

0015 

0M3 

0064 

OOTO 

RBTDRN 

0065 

'* 

OOlfi 

0000 

0066 

DICK 

NOP 

0067 

NCALL 

HARRY 

0017 

0302 

K 

MOVF 

PCW 

;save  PC  csi  *8tack' 

0018 

OO20 

M 

IKIVWF 

0 

;  / 

0019 

02A4 

H 

INCF 

FSR 

;Inc.   "stack*  pointer 

OOIA 

OAID 

M 

GOTO 

HARRY 

;juinp  to  routine 

OOIB 

0000 

0068 

NOP 

;body  of  routine  DICK 

oolc 

0&03 

0069 

GOTO 

RETURN 

0070 

0<0U 

0000 

0071 

fiABRT 

NOP 

;bod/  of  routine  B%RR7 

OOlB 

0000 

0072 

NOP 

; 

/ 

OOIF 

OA03 

0073 

GOTO 

RETORN 

0074 

0075 

0076 

0077 

0078 
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SYMBOL  TABLE 
LABEL 


VALUE 


DICK 

FSR 

HARRY 

INIT 

PC 

RETORN 

STACK 

STJ^ 

row 


ooie 

0000 
0002 
0003 
0008 
0007 
OOOF 


•C' 


0000  : 
0040  : 


0180  : 
OICO  : 


.lire 


...  IT  IJtl. 

sit 


All  Qthex  mEaaoxy  blocks  unused. 
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Implementing  Long  Calls 


INTFIOmJCTION 

This  application  note  discusses  how  to  implement  "long 
Calls"  in  the  PIC1 6C5X  architecture.  The  use  of  long  call 
can  simplify  the  partitioning  of  the  s^^^a§m  program 
with  minimal  software  overhead.     ■  " 

In  tha  PIC16CSX  architecture,  the  program  memoiy 
page  size  is  512  words.  Depending  on  the  device,  the 
program  memory  may  be  as  large  as  2K  wc»SI§(<t5  (lis 
'PtC16C57or  PIC16CS8  devices).  Thepfrogramcomter 
'(ancf  staci^  width  range  from  9-  to  11  -blt^,  depending  on 
'the  amourrt  of  program  memory  the  device  hfB.  Table  1 
shows  the  width  of  the  Program  Counter  (PC)  and  Stack 
for  the  various  devices.  .  ' 

TABLE  1 :  PC  AND  STACK  WIDTH 


Device 

Width 

Program 
Counter 

(Bits) 
Stack 

Program 

Memory 
(Words) 

PiC16C54/PIC16C55 

9 

9 

512 

PiC16C56 

10 

10 

IK 

P)C16C57/PIC16C58 

11 

11  , 

r  ,  2K 

The  low  order  8-bits  of  the  program  counter  are  acces- 
sible by  the  user  program.  These  bits  are  contained  in  the 
PC  register.  The  entire  PtogtiMOoufisr  teshOM'to 
Figure  1.  •  '  '  ,'  . 


Since  A8  is  forced  to  0  by  call  instructions,  the  start 
address  of  subroutines  must  be  in  the  first  256  words  of 
each  program  memory  page.  Depending  on  the  size  and 
number  of  called  subroutines,  this  limitation  may  be- 
come a  burden  to  the  software  developer.  The  imple- 
mentation of  a  "long  call"  eases  this,  by  allowing  the 
subroutine  to  be  anywhere  in  the  program  memory 
page.  The  three  important  concepts,  to  understand  the 
-]mpiekni»)talion  of  Qie  long  call  are; 

1.  A  CALii  instruction  loads  the  entire  PC  onto  the 
Stack 

2.  A  GOTO  instruction  does  not  affect  the  Stack 

3.  A  GOTO  instruction  can  branch  to  any  location  in  a 
program  memory  page. 

Also  to  select  the  desired  page,  the  RP1  and  RPO  bits 
(STATUS<6;5>)  must  be  programmed  accordingly. 
These  bits  do  not  get  loaded  into  A1 0:  A9 ,  of  the  PC,  until 
^^e  (j^f'ttie  following  occurs: 

1 .  ^  CALL  Instruction 

2.  A  GOTO  Instruction 

An  instruction  that  modifies  the  PC  register 
(PC<:7:0>),  such  as  addwf      pc  ,  F. 

So  a  CALL  instruction  followed  by  a  goto  instruction  will 
always  remain  in  the  same  page  as  the  intended  call. 
This  allows  the  developer  to  place  "call  vectors"  at  the 
first  256  words  of  each  page.  The  instruction  at  the  "call 
vector"  then  executes  a  goto  instruction  to  the  subrou- 
tine anywhere  in  that  page.  The  retlw  instruction,  of  the 
subroutine,  will  then  POP  the  stack.  The  Stack  con- 
tained the  PUSHed  PC  from  the  call  instruction. 

Figure  2  shows  an  example  of  a  "long  cair  sequence  In 
a  device  with  2K-words. 


FIGURE  1 :  PROGRAM  COUNTER  STRUCTURE 


PC 


A1p 

A9 

A8 

A7:A0 

T 

From 
RP1 


From 


From  PC  or  Instruction 


1 .  Carry  from  PC 

2.  From  goto  Instruction 

3.  Forced  to  0  by  call  Instruction  or 
instruction  with  PC  as  destination 
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Ttie  flow  that  occurs  in  Figure  2  is  as  follows: 

1.  Select  the  program  memory  page  of  the  d^red 
subroutine  and  execute  the  call  to  that  subroutine. 

2.  The  program  loads  the  Stack  with  the  PC+1  ad- 
dress, branches  to  the  selected  page  and  specified 
address  of  the  "call  vector"  (must  be  in  the  first  256 
locations  of  the  page) 

3.  Executes  a  GOTO  instruction,  to  have  access  to  the 
entire  program  memory  page.  Then  «(ecutes  the 
subroutine. 

4.  Executes  the  RETLW  instruction,  which  POI^  the 
r«ftv.P&  from  the  Stack.  This  causes  program  «c- 
ecutiqn  to  continue  at  the  Instruction  after  the  CALL 
histtuction. 


The  use  of  "long  calls"  could  be  used  to  place  all  the 
subroutines  in  selected  page(s),  since  the  entire  page 
can  contain  the  subroutines  (not  restricted  to  the  top  half 
of  the  page).  The  placing  of  all  subroutines  in  fewer 
program  memory  pages  can  reduce  the  overhead  of 
specifying  the  reqtfit^  f^t^i^-  ^re  cl^anged 

less  frequently.  < 

Ul^  ftiB  MPASM  assemiiler  can  ease  in  the  verifica- 
tion that  call  vectors  ahd  the  call  routine  are  In  the  same 
progran  metnoiy  page.  Example  1  shows  the  use  of 
assembler  directives  to  print  user  defined  wartiing  or 
mot  messages  in  the' lining  file.  These  are  shpwn  as 
the  sliiaded  conditional  statements.  These  messages 
are  only  printed  in  the  lining  file,  and  no  indication  of 
these  messages  is  at  the  completion  ef  assem- 
bly. 
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EXAMPLE  1:  USE  OF  ASSEMBLER  DIRECTIVES 

LfltllJ.  lA'^  ■  ■  ile»D  •■ifll  ell 


P1_T0P 
P2_T0P 
P3_T0P 
P4_TOP 
RESET_V 


EQU 
EQU 
EQH 
EQU 
EQD 


0x0000 
0x0200 
0x0400 
0x0600 
0x0  7FF 


First  address  in  page  0 
First  address  in  page  1 
First  address  in  page  2 
Seset  vector  a<3dress  in  page  1 


Vector  for  ^yiJSiil^outine 


'  «  1    •  n'.  Li  '  ■■/«|fl 


My_Subroutine 


M/_Subroutine_END  RETtJMf 


if  (   {  Si'^aibr<Mltia©„V  S  0x0600)    1=  S%„Subrout;ina_END  t  OxCSOQi  ) 


;  Program  memory  address  for  the  reset  vector 
;  Goto  the  beginning  of  the  program 


CONCLUSION 

The  use  of  "long  calls'  may  ease  the  development  of 
application  programs.  For  minimal  overhead,  the  appli- 
cation program  can  execute  a  subroutine  from  anywhere 
in  the  program  memory,  and  return  to  the  desired  loca- 
tion. This  eases  the  development  of  the  application 
program,  by  reducing  the  mapping  of  subroutine  in  the 
first  256  words  of  each  program  memory  page.  The  use 
of  "long  calls"  is  possible  in  any  of  the  PIC1 6C5X  devices, 
but  Is  most  useful  in  the  devices  with  more  than  one 
program  memory  page.  For  device  with  more  than  one 
page  of  program  memory,  the  assembler  directives  can 
be  used  to  verify  that  the  subroutines  are  in  the  program 
memonffSB*. 


Author  MalfPeJmer-Sr.AppHcationBiglneer 


Microchip 
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iNTRomienoN 

TTlis  application  note  discusses  the  use  of  the  MPASM 
assembler'sconditional  assembly  to  automatically  switch 
between  program  memory  pages  or  to  set  the  data 
memory  banks.  These  macros,  along  with  the  long  call 
technique  (see  Application  Note  AN581),  ease  the  de- 
velopment of  software.  Though  the  use  of  these  macros 
can  simplify  the  program  memory  paging  and  data 
memory  banking  with  minimal  software  overhead.  The 
use  of  these  macros  without  thought  can  causes  unnec- 
essary (duplicate)  instructions  to  b^  used,  by  setting, 
,  ps#>  or  tank  btts  uniwossslwiif.- 


|1%e  IHiOiec^  family  of  ximmes  Has  m  awehitaettira 
I  vt^em  I^iai0t9mmmmat0m-^  to  four  pc^ee  of 
>  pogim  memory  ^12  words  / pi^)  and  four  banks  of 
{dEitamainofy(t6bytes  /tank).  Twobits  in  me  STATUS 
register,  PA1  and  PAO,  are  used  to  manage  the  program 
memory  page.  Two  bits  of  the  FSR  register,  bits  6  and  5, 
^  meinage  the  data  memory  bank.  We  will  call  the  FSR<5> 
bit  RPO  and  the  FSR<6>  bit  RP1  (for  Register  Page  0 
and  1).  The  naming  of  these  bits  RP1  and  RPO  sliould 


not  be  confused  with  the  similarly  named  bits  in  the 
PIC16CXX family  (PIC16C64,  PIC16C71 ,  etc.).  The  RP 
bits  for  the  PIC16CXX  family  are  found  in  the  STATUS 
register,  asopposed  tothe  FSR  registerforthe  PIC16C5X 
family.  The  use  of  these  macros  can  be  modified  to 
support  the  PIC1 6CXX  family. 

Tlie  program  memory  organization  is  shown  h  Figure  1 
andKm  (Mta  rriemory  organization  is  shown  in  Figure  2. 
To  USB  Qie  macros  for  the  data  memory,  the  data 
memory  ttx^/Stem  liKu^  t»  EQUated  for  the  absolute^ 
addr^«in4jK»MWiM9ra  aiktress  in  «ie  boMt.  Thet 
retata  aldrNs  isteiiwer  5-bits  of  the  data  rtiemory 
address. ' 

When  the  address  of  the  data  memory  has  the  MSb 
(bit  4)  of  the  direct  address  is  cleared,  or  FSR<4> 
cleared  (for  indirect  addressing),  the  address  Oh  through 
OFh  is  accessed.  That  is  when  accessing  addresses  Oh 
through  OFh,  the  bank  selection  (FSR<6:5>)  bits  are 
ignored.  This  means  that  data  memory  addresses 
'xxxO  xxxx'b  access  the  data  memory  Eiddress  Oxh 
(xisO-Fh).' 
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FIGURE  1:  PROGRAM  MEMORY  0II@AMIZATION 


I  A10  |a9  I  as" 
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00 
01 
02 
03 
04 
06 
06 
07 
08 
0« 
OA 
OB 

oc 
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OE 
OF 
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RTCC 


STATUS 


PORTA 


PORTS 


PORTC 


_  GENERAL 

_  PURPOSE 

_  REGISTER 

_  FILE 


CALL 
REILW 


10  987654321  0 


STACK  1 
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I  STACK  2 


10 

11 
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IS 

■m 
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16 
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ID 
IE 
IF 
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REGISTER  FILE 
VIA  ALU  ,  


5  4  3  2  1  0 


t  (1  n-fi^  ■ 


FSR<6:5>:  DATA  MEMORY 
BANK  SELECT 


i...jnii|nti- 
i(|  ■'^ii'  (IS 


FROM  PROGRAM  MEMORY 


GENERAL 
PURPOSE 
REGISTER 

FILE 
(«Jl  TYPES) 


(BANK  0)0 


GENERAL  PURPOSE 
REGISTER  FILE 

(P1C18CS7GNLY) 


(BANK  1)0 


(BANKign 


5F 


(BANK  3)  O 


7F 


(•)    NOT  A  PHYSICALLY  IMPLEMENTED REQISnnR.  ^  SECTION  4.0  OR  DETALS 

(")   BANK  0  IS  AVAILABLE  ON  AU.  MtCROCONTROaERS  WHLE  BANK  1  TOBAMOARE  ONLY  AVAILABLE  ON  THE 

PIC16C57  AND  PIC16C58. 


RQURE  2:  DATA  MEMORY  MAP 


PC 


A10  A9 


—  GOTO,  CALL,  INST  WITH  PC  AS  DESTINATION   FROM  STATUS<6>  PIC16C57  ONLY) 

—  GOTO,  CALL.  NSTWrra  PC  AS  DESTINATK3N   FROM  STATUS<5>  PIC16C56/CS7/CSeONLY) 

/aOTO  ^  ^  BRBCTF»K»ill»BifBUCTIONWOnD 

\cMJLtmfnmpciemsniKt\m  always 

J'GOrO.CALL   OnECT  FROM  INSTRUCTION  WORD 


AiNST  WITH  PC  AS  DESTINATION   FROMALU 


REUW.CALL 


9-11  BIT 


STACK  LEVEL  1 


STACK  LEVELS 


000 

OFF 
100 


--JS=F: 


300 


.to,'  J  J- 

1        .  .a: 


PAGES 


4FF 
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^  WkGE  S   

ft  "  TOO 


MAX.  EPROM  ADDRESS  FOR: 


'  hCMCBMqQiacK 


■  PICieC86 


till  p.  . -I 


-PIC16C57/PIC16C58 


.  a  :  --r- 


I 
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The  use  of  MPASM's  conditional  assembly,  allows  the 
selection  of  source  code  to  t>e  assembled  based  on  the 
address  of  the  symbol  /  label.  The  Macros  supplied  are 
show  In  Table  1 .  They  can  be  grouped  Into  three  catego- 
ries: 

1 .  Configuring  of  the  program  memory  pages 

2.  Configuring  of  the  data  memory  banl<s 
nttiii.  fflWW'C--  v-HT-aflw  


E 


£  J5 .3J  M*ta 


•I- 


TABLE  1:  MACROS 


Program  CMMMiMB 

Operands 

Operation 

CALLIM 

address 

Sets  page  bits,  then  CALl£  the  specified  routine 

GOTOM 

address  . 

Sets  page  bits,  inen  Qui.usjiw^apecinBai'tRKp'WS' 

PAGE_MAC 

8^S:Qli[ll^^ft£l  page  bits            >  | 

Data  Memorv  BanldlMi 

MU  U  VV  r_IVlMw 

Dan  WAct 

r\og,  uvoi 

Oola  DcUlK  una,  (lloll  oAW<Ulao  Ulo  MUL^VVn 

MIN  L/VV  r__WI«li> 

nog,  U091 

otns  PW1K  una,  inan  exvcutss  uiv  MPii/nr 

DC/r_lvlAO 

Reg,  bit 

Sets  Banl<  bits,  then  executes  the  BCF  I 

BSF  MAC 

Reo  bit 

Sets  Banl<  bits  then  executes  the  BSF  i  i 

BTFSC_MAC 

SMsBank'Bls,lhen«mcuiasthaBT^e  ! 

BTFSS_MAC 

Rieg,M 

Sets  Bank  bits,  then  executes  the  BTFSS 

CLRF_MAC 

Sets  Bank  l^^its,  then  executes  the  CLRF 

COMF_MAC 

flal9,<ia8t 

Site  Bank  l^^^aR  wmetHas  ttis  COk^F  ' 

DECF_MAC 

Sets  Bank  t;itSVllBillHSKnG^Mt^  I 

DECFSZ_MAC 

Reg,  desf 

Sets  Bank  bits,  then  executes  the  DECFSZ 

INCF_H/IAC 

Reg,  dest 

Sets  Bank  bits,  then  executes  the  INCF 

INCFS2_Miie 

Reg,  dest 

Sete  BMc  dl^'ttien  executes  the  INCFSZ 

IORWF_MAC 

Reg,  dest 

Sets  Bank  bits,  then  executes  ttte  lORWF 

MOVF_fWAC 

Reg,  dest 

Sets  Bank  bits,  then  execut^s.Sie  MOVF 

MOVWF.MAG 

Reg 

Bank  Ms,  Vien  executes  the  MOVWF 

RLF  MAC 

Reg,  dest 

Sets  Bank  bits,  then  executes  the  RLF       _  ._ 

RRF_MAC 

Reg,  dest 

Sets  Bank  bits,  then  executes  the  RRF 

SUBWF_MAC 

Reg, 

Ba*  bite,  thm  «woute8  the  SUBWF 

SWAPF_MAC 

Reg,  dest 

Sets  Bank  bits,  then  mmma  ttw  SWAPF 

XORWF_MAC 

Reg,  dest 

Sets  Bank  bits,  then  executes  the  XORWF 

BANK_MAC 

Reg 

Sets  the  specified  Bank  bits 

Other 

SAVE_W_STATUS 

Saves  the  W  and  STATUS  registers 

RESTORE_W_STATUS 

Restores  the  W  and  STATUS  registers 
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These  macros  (see  Appendix  A)  ease  the  development 
of  programs,  but  care  should  be  taken  in  their  use  so  that 
redurKlaiit  instructions  are  not  caused.  An  example  of 
ttiis  is  if  you  wanted  to  do  the  operations,  INCF  and 
BTFSS,  on  data  memory  location  CNTR  (in  t>ank  3)  and 
ttle  FSR  was  point  ing  to  some  other  bank.  The  use  of  the 
maetos  for  both  operatk>ns  wouM  cause  six  program 
nwrnory  loctdions  to  be  assembled,  while  with  some 
bought  ot)^  four  welds  am  omdecl  ^sm  Bnmple  1 ). 


coNCLusibir 

The  use  of  these  macros  simplify  the  program  develop- 
ment by  managing  the  memory  resources  of  the 
PIC16C5X  device.  If  the  application  program  becomes 
too  large  for  the  desired  device  program  memory,  H  is 
recommended  to  study  the  listing  file  for  any  unneces- 
sary code  due  to  non-optimum  usage  of  these  macros. 
The  MAC_TST.ASM  file,  is  suppUedtosh(^j^9^rttiese 
macros  work  in  a  program. 


mCPJOkC  OJTR,   F  ->  BSF  FSR,  5 

BSF  FSR,  6 

INCF  CNTR,  F 

B^tSSJOC  canR,  S  ->         BSF  FSR,  S  utmecaasaiy^  «lxiaa4/  in  bam^ 

BSF  FSR,  6  ;  VIimac9a»wey,  '$ilrmii4^  ba'hte^'  - 

BTFSS  CNTR,  5 


EXAMPLE^Br  GENERATION  OF  OPflMNIM  a)D&  - 

mc^jas:  arm,  r  ->        bsf       fsr,  5 

BSF  FSR.  6 

INCF       CNTR,  K)A<r 
BTFSS  CNTO,   5  -i>  BWSS     CMTR,  5 


Writtan  By:  Mark  Palmer  -  Sr.  Application  Engineer 
ConUbuOons  by:  Mike  Morse  ■  Sr.  Field  Application 

Engineer  (Dallas) 
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nolist 

************************** ***V******* ****************************** 
This  file  contains  M&CROs  to  ease  in  the  use  of  the  Program  Memory 
paging  and  the  Datsk'  Hemdry  bank  in^^^ng  £01:, .the  PIC16C5x  devices 

File  Name:      AUTol.PG.mC  '  '     ■■.^^t.':!  ->  .  -u     ,  li. 

REVISICM:         5-20-94         ^   ,  '  r  -n  .  . 

*****«*^#**#«*^«*;#*«^«4t-*'**W*wVV* 

PAGE1_0R_3      EQU  8x0200  ;  Program  Memory  in  page  1  or  p»ge  3 

PAGE2_OR_3      EQU  03^400  ;  Program  Memory  in  page  2  or  page  3 

BMnC2^(^^  0x040  ;  Data  liemory  in  Bank  2  or  Saak  3 

J  *«*********************************.««<l^**<|^*«********************************** 

;  CALUt  ^rogra]i|_address 

;**  Confijgjifjes'.<t])^|A4«,-|^.P4Q  J^^^     sm  r«4aiXf#'  BOff^^  that  the  Cl^ed 

*routine'  is  in  th^  flxst  256  lo@atl:«;pa%fi<^. tt^g^gp^prMt  m/Sii&^'  page. 

;**  Xf  the  *routine*  Is  In  the  secscmS  25S  leeatiens  of  the  v^eogmait  mraaory  page, 

;*«  an  User  Defined  ERB^  Uamusgm  is  placed  la  fche  itMlNB  file.  WMS» 

;**  p^onMt}^  o^ly  plaees  tibiis  message  in  the  listing  file  (i.e.  no  indication 

•  **  |{f  tiiiia  cetilxletes  execution  in  the  MiROR  /  WARNIIK>  listed. 

.  *« 

1 

CMiIJB  aweiWj  routine  :-    —  ,•  _•  i-j , 

r 

M  (   (  *oaeine  &  PAGE1_0R_3   )   ==  PAGE1_0R_3  ) 

BSF  STATUS,    PAO  ;   Set  PAO  for  Program  Memory  Page  '   ''''  ■ 

BCF         STATUS,  PAO  ;  Clear  PAO  for  Program  Memory  Page 

iM  {  I  routine  &  PAGE2_OR_3   )   ==  PAGE2_OR_3  ) 

BSF  STATUS,    PAl  ;  Set  PAl  for  Program  Memory  Page 

i^Be 

BCF  STATUS,   PAl  ;  Clear  PAl  for  Program  Memory  Page 

ezidif 

if   (    (  routine  &  0x0100  )   ==  0x0100  ) 

MESSG   "Error  -  User  Defined:  CALLed  routine  in  2nd  256  locations  of  the 
limmgSs0S»  memory  page* 

endifi 

CALL  z«sutine 
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*******  ****tt*-a^*t****'***Mr*^***  ************************  *ir1t,*m*m* 

**  GOTOM         progremuaddress       .-i-  <• 

**  Configures  the  PAl  cind  PAO  bits  as  required,  and  GOTOs  ah*  i^p^if ied 

**  locations  of  the  program  memory  page. 

*  * 

****************************************************************************** 


GOTOM 


routine 


if  (   (  routine  6  PAGEl_0iL.3  ) 

BSF  STATUS,  PAO 

else 

BCF  mimj&,  SAO 

endif 


PAGE1_0R_3   )  .  .  . 

;  Set  PAO  for  Erogran  Hemoary  Page 
-■  s  Clear  PAO  for  SrograBH  Memory  Page 


if  (   (  routine  &  PAGE2_0R_3  )  == 

BSF  STATUS,  PAl 

else 

BCr  STASUS,i«Al. 

endif 


PAGE2_OR_3  ) 

;  Set  PAl  for  Progrsun  Memory  Page 

>'  ;  Clear  PAl  for  Srogram  Memory  Page 


GOTO 
endm 


routine 


****************************************************************************** 

**  •■■  ADDWF_MAC  data_address ,  destination 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 

**  and  then  executes  the  "ADDWF  data_address,  destination'  instruction.  The 

**  data_address  must  be  the  absolute  address  and  NOT  the  relative  address  in- 

**  the  data  memory  page. 

** 

****************************************************************************** 


AM»_MAC 


iKacco 


'seddeesn.,  d 


if  (  (  add£ess  Sk  PAiGSl_aiL.3  ) 
BSF  FSR,  RPO 

else  -J.       ,  . 

BCF  FSR,  RPO 

endif  j 


f  AS11_0H_3  ) 

!  i.  i'.  Set  RPO  for  Dat&a  Memory  iPage 
;  Clear  RPO  for  Data  Memory  Page 


if  (  (  address  &  BaGS2^(^3  ) 

BSF  F^,  IHPl 

else  •  

BCF  FSR,  RPl 

endif 

ADDWF  address,  d 
endm 


PAGE2_OiL.3  ) 
'   jlcgefe^iSfl  for  E^eajlwory  Page 

;  Clear  RPl  for  Data  Memory  Page 


6  tSRiMltetmiilFrltaeMciigy  met 
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}**  Configures  jb^-aitee^ailieet^il^ 

;**  and  then  executes  tbe  *Jan3IIF  ^fesuaddli^ess ,  dwrt^lnp^iaar  «testoacteiim.  The 
;**  4ata_address  iguet  X«  felte  -  al^soliitie  mSSBe.aa9  and  KOf  tbe  relative  address  In 

}*■*  tm- mmtw»^'^mt:   ■  —  .  

•  *«««**^'#*^^IMM«ift*«*ri;»#*****  *******  ************* 
/ 

*IBiW.jaie  t»mo  address,  d'      ^ (  t.j'C.i.  .. 

IE  (  {  aMiWiit  ft  S»G^_0R_3  )  ==  PAGE1_0R_3  ) 

aOS'MlOinoM  HMSp'SBO'-"'  ■»,.',Set  RPO  f o<.«ltjf.tmi(IBaEy  Pa^' 

FSR,  RPO  ;  Cleaut  BPO  for  &ata  Mensry  Page 

;  vzCfTt-iM  "    r-QOi*!  t"o^    C/^S  -.  *  <  .'^-''7'. 

If  (   (  add^^S  &  PASS2_OR_3  )  =•=  PAGE2_(:^3  )  t-  i\. 

oiNHMIt        FSBfc  RPl  ;  Set  RPl  toU^tM^Kamzy  Pa^ 

else  '  ihrt. 

SeF        FSR,  RPl  ;  Clear  RPl  for  Data  tfsinory  Page 

endif  -^r-jK- 
ANDMF       address,  d 
endm 

.****************************************************************************** 

;**  BCF_MAC  data_address,  bit 

;**  Configures  the  FSR<5:5>  bits  as  required  for  the  Data  Memory  addressing 
;**  and  then  executes  the  "BCF  data_address,   bit"  instruction.  The 
;**  data_address  must  be  the  absolute  address  and  NOT  the  relative  address  in 
;**         data  m^nory  page. 

. **  ..  . 

J  ##*lk*«««*#'4M«'«*>««^:*'********  *******************************  ******************** 

BCFJM  MS^Bp  address,  b 

( 

if   {   i  m^0&mi0^'  PAGE1_0R_3   )■  ==  PAGE1_0R_3  ) 

BSF  FSR,   RPO  ;   Set  RPO  for  Data  Memory  Page 

BCF  FSR,  RPO  ;  Clear  RPO  for  Data  Memory  Page 


if  (  (  address' tciPasBL.raS&S  t.o^  Plii^j:^3  ) 

BSE         FSR,  KPl  ;  Set  RPl  for  Data  Memory  Page 

eiS«'  »9«S  \--  ,r  iK  1  "(w'.  S~.Si    .et.:'j   .  J-iiJ 

FSR,  RPl  ;  Clear  Wl  for  Data  Memory  Page 

address,  b  >t 
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*******t*************************«**«****t*****t ********************** ******** 

**  BSF_MC        ^e^jK^f^s,  ..Mi; 

**  Ceafigurgs?  th»  F^<<?!  S»,Wt:»  .i»s  f  ^j;.  Ifemery  addressing 

**  aecni  then  ^ecutes  the  "BgF  data_adG[^es9,,  bijt*  instruction.  The 
**  data^jaddrje^  natst  be  the  a^olute  Md^ess  an$l  NOT  the  relative  address  in 
**  the  data  memory  page.  , 

*■* 

*«**•**»#*»#*«****«****((**«**>#»»*#*•*•*♦*******************♦***************** 


BSFJC&C 


macro 


address,  b 


if  (   (  address  6  PAGEl_OR_3  ) 
BSF         FSR,  RPO  , 

else 

BCF  F5R,  RPO 

endif 


PASE1_OTL,3  ) 

;  Set  RPO  for  Data  M^nory  Page 

;  Clear  RPO  for  IJata  Memory  Page 


if  (   {  address  &  PAGE2_OR_3  ) 

BSE  .  FSR,  RPl 

else 

BCF  FSR,  RPl 

endif 

BSF  address ,  b 

endin 


PAGE2_OR^3  ^  ) 

;  Set  RPl  for  Data  Manory  Page 

;  Clear  RPl  for  Data  Memory  Page 


*:*************************************** 


**  BTFSC_MAC  data_address,  bit 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 

**  and  then  executes  the  "BTFSC  data_address,   bit"   instruction.  The 

**  data_address  must  be  the  absolute  address  and  NOT  the  relative  address  in 

**  the  data  memory  page. 

** 

***if*****ititit,**  *****  it*        *****************  ****ii-fi*****it*ic*** 


BTFSCJt&C 


address ,  b 


if  (   (  address  &  PAGE1_0R_3  )  ==  PAGEl_OIt^  ).  . 

BSF         FSR,  RPO  ;  Set  ^0  for  Data  Memory  Page 

else 

BCF         FSR,  RPO  ;  Clear  RPO  for  Data  Memory  Page 

endif 

if  (  (  address  fc  PAGia_caL^  )  =  mm2_OS^3  ) 

t^-t      '        '  !  Set  RPl  for  Data  H^apry  Page 

else 

•  BCF         FSR,  ipi;.--  ;  Clear  RPl  for  Qata.jM»ory  Page 

endif 

BTFSC  address,  b 

endm 
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;**  BTOSSJiaC         data_addreBs,  bit' 

;**  Configxires  the  PSR<i s SS*Sits  as  required  for  the  Data  Memory  itjAlri^slag 
;**  and  then  executes  t^-*m^^'ima.MM^r-M*^--USMT&miem't-'tm^  ■•<■■  ^-i- 

;**  data^address  must  b^«ii£' iMSllii  '^me^^'^^_  tim'^m^''r^k'mke'mSa:ieBB-m--'-''^' 
;**  fetee  da^  nemxy  page.  - i--^.  i:" 

.  ** 


address,  b 


"US'   ""  ==fiR,  »0 

i  t  (   (  as^«lt«  &  PAGE2_OEL.3  ) 
iSi*'^    '   PSR,  RPl 

*  '    '  FSR,  Rfl 

address ,  b 


endm 


T^'iet  RPO  for  Data  MeiikEy  Pa9<s 
;  Clear  RPO  jCor  ^tl^  iteory  M^e 


'W«3E2_OR_3  )  .  . 

;  Set  RPl  for  Data  Memory  Page 

;  Cleax  RPl  for  Data  Mteoory  Page 


It*************************************** 


**********************************: 

**  CLRF_MAC  data_address 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 
**  and  then  executes  the  "CLRF  data_address'  instruction.  The  data_address 
**  must  be  the  absolute  address  and  NOT  the  relative  address  in 

**  t|i«  ^itft  MMoar  i^sa^'  ^  - 

** 

CLRF.JM::  MSMro  address 


If  (   (  address  &  PAGE1_0R_3  )  ==  PAGEl_OR_3  ) 
BSF  PSR,  RPO 

BCF  FSR,  RPO 


Set  RPO  for  Data  Memory  Page 
Clear  RPO  for  Data  Memory  Page 


(   (  sMxmSA  &  PAeE2_0IR_3  ) 

.misam 

address 


PAGE2_OR_3  ) 

;  Set  RPl  for  Data  M«nory  Page 

;  Clear  RPl  f  oz' 'bkt^ 'Kemory  Page 


Switching 


****************************************************************************** 

**  COMF_MAC  data_address ,  destination 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 

**  and  then  executes  the  "COMF  data_address,   destination"  instruction.  The 

**  data_address  must  be  the  absolute  address  and  NOT  the  relative  address  in 

**  the  data  memory  page. 
** 

********  **.«******^  *********** 

CCaiF_}tAC  macro  address,  d 

if   (    (  address  &  PAGE1_0R^3  )   ==  PAGE1_0R_3  ) 

BSF  FSR,  RPO  ;  Set  RPO  for  Data  Memory  Page 

else 

BCF  FSR,  RPO  ;  Clear  RPO  for  Data  Memory  Page 

endif 

if  {   (  address  &  PAGE2_OR_3  )   ==  PAGE2_OR_3  ) 

BSF  FSR,   RPl  ;   Set  RPl  for  Data  Memory  Page 

else 

BC^         PSH,  .SPl'  ;  Clear  RPl  for  Data  Memory  Page 

endif 

COKF       address,  d 
endm 

*********************  «^4HHIMb**'MMMt^««.^^ 

**  Configures  the  FSfi<fiffo>JSitS:;SMb 'BNpiil^^l^.tii^.i^^  addressing 
*'*  and  then  -executes:  the  -"^^M  'dsfeatjiiiiressif-  #gHtj«^i.on'  Instruction.  The 
**  data_address  unist  be  tte  abaolute  address  -aaad         the  relative  address  in 
**  the  data  memory  page. 
** 

********-***-****'****r**«**«********'*****«****'***********4Mfe********************** 

DBCF_)IAC  macro  address,  d 

if  (    (  address  &  PAGE1_0R_3  )  ==  KaSK._OR_3  ) 

BSF  FSR,   RPO  ;  Set  RPO  for  Data  Memory  Page 

else 

BCF  FSR,  RPO  -    ;  Clear  RPO  for  Data  Memory  Page 

endif 

if  {   (  address  6  PAGE2_OR_3  )  ==  PAGE2_OR_3  ) 

BSF  FSR,   RPl  ,-  Set  RPl   for  Data  Memory  Page 

else 

BCF  FSR,   RPl  ;  Clear  RPl  for  Data  Memory  Page 

endif 

DECF        address,  d 
endm 


e  nnw  t<fa>an|m>etMaB(^  bc.  osoosseAiiage  ii 
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t. 


************************************************ 


************************** 


**  DECFSZ_MAC  data_address,  destination 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 

**  and  then  executes  the  "DECFSZ  data_address ,  destination"  instruction.  The 

**  data_addre8#  must  be  the  absolute  address  and  NOT  the  relative  address  in 

**  &e  iittta  nen^y  page. 

** 


DECFSSUtW 


address,  d 


if  (  t  address  &  PAGE1_0R_3  ) 
BSF  FSR,  RPO 

BCF  FSR,  RPO 


PAGE1_0R_3  ) 

;   Set  RPO  for  Data  Memory  Page 

;  Clear  RPO  for  Data  Memory  Page 


If  (  (  address  &  PAGE2_OR_3  ) 

BSF  FSR,  RPl 

BCF  FSR,  RPl 

DECFSZ  address,  d 


PAGE2_OR_3  ) 

;  Set  RPl  for  Data  Memory  Page 

;  Clear  RPl  for  Data  Memory  Page 


**  IHCf  JiSBf"'  -  :^ta_address,  destination 

**  Configures  the  FSR^^^'SwitdE^Uus  required  for  the  Data  Memory  addressl^'  '  .  r^. 
**  2md  then  executes  E^W-'^H^ i^bta_address ,  destination'  instruction.  The^  It 
**  da.ta_address  jguat  b6'4lhe  atoolQte  ai^xiass  ^arad  NOT  ti»  relative  address  In  f  .'i.: 
**  the  data  memory  page.  , 

aia^o  address,  d  .  ^ 


INCFjaC 

; 


If:  {  (  address  &  PAGE1_^L.3  > 
BSF  FSR,  RPO 

el-se 

•1B^  ,        FSR,  RPO 

endif 


Set        't&t  ^iSa  .'HgHory  Patfe 
Clear  RPO  for  '^ta  Memory  Page 


i#  {  f  address  &  PAGE2_OR_3  ) 

BSF  FSR,  RPl 

BCF  FSR,  RPl 

INCF  address,  d 


PAGE2_OR_3  ) 

;  Set  RPl  for  Data  Memory  Page 

;  Clear  RPl  for  Data  Memory  Page 
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****************************************************************************** 

**  INCFSZ_MAC  data_address,  destination 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 

**  and  then  executes  the  "INCFSZ  data_address ,  destination"  instruction.  The 

**  data_address  must  be  the  absolute  address  and  NOT  the  relative  address  in 

**  the  data  memory  page. 

** 

*********  1^ *  *t  *  *il|.*  *  ^*  ** 

INCFSZ_;iAC         macro  address,  d 

if   {   (  address  6  PAGE1_0R_3  )   ==  PAGE1_0R_3  ) 

BSF  FSR,   RPO  ;   Set  RPO  for  Data  Memory  Page 

else 

BCF  FSR,  RPO  ;  Clear  RPO  for  Data  Memory  Page 

endif 

if  (  <  address  &  PAGE2_OR_3  )  ==  PAGE2_OR_3  ) 

BSF  FSR,   RPl  ;  Set  RPl  for  Data  Memory  Page 

else 

BCF         tSS,,  RPl  ;  Clear  RPl  for  Data  Memory  Page 

endif 

INCFSZ    address,  d 
endm 

♦*****^*l^*^^******1^.i^.*;*5^1^i|^^^)^*;;**,***>  **********************  *************** 

**  lORWFJlAC         data_address ,  destination 

**  Ccmfigjiffsf  ,1|J^%-j^^^;6:  5>  bits  as  required  for  the  Data  Memory  addressing. 

**  sixd  then  executes  the  "i^ORWF  data_address,  destination'  instruction.  The 

**  data_a£ld;;cts>s  im;ist,.be  t%cs  ^Jsisol't^te  a^i^dreias  aqd  NOT  the  relative  address  in 

**  t^jjg  data  memory  page. 

** 

******^*4^^**f  ********  *^*^.*^**  **************  ******i(*  *********** 

IORV]F_^C  macro  address,  d 

if   (   (  address  &  PAGE1_0H_3  )  ==  PAGEl_OR_3  ) 

BSF  FSR,  RPO  .  ;  Set  RPO  for  Data  Memory  Page 

else 

§CF         FSR,  RPO  Clear  RPO  for  Data  Memory  Page 

endif 

if  (  (  address  &  PAGE2_OR^3  )        f»fi^jpR_3  ) 

BSF  FSR,  RPl  '  ;  Set  RPl  for  Data  Memory  Page 

else 

BCF  FSR,  RPl  ;  Clear  RPl  for  Data  Memory  Page 

endif 

lORWF        address,  d 
endm 
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k  ***** * 


k*************^ 


**  MOVF_MAC  data_address ,  destination 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 
**  and  then  executes  the  "*MOVF  data_addrGss ,   destination"   instruction.  The 
**  data_address  must  be  the  absolute  address  and  NOT  the  relative  address  in 
**  ttm  ■iSsimi  immtr  page. 

** 

**** 

MOVF_WftG  mtaST^'  address,  d  •  •  =• 


tf   (   {  address  &  PAGE1_0R_3  ) 

BSF  FSR,  RPO 

BCF  FSR,  RPO 

tm&M 

iff  {  it  address  &  PAGE2_OR_3  ) 

BSF  FSR,  RPl 

BCF  FSR,  RPl 


==  PAGE1_0R_3  ) 

;  Set  RPO  for  Data  Memory  Page 

;  Clear  RPO  for  Data  Memory  Page 


;  Set  RPl  for  Data  Memory  Page 
;  Clear  RPl  for  Data  Memory  Page 


MOVF 


address ,  d 


**  MOVWF_HftC         data_address  ' 

**  Configures  the  FSR"cs>l'Ss«  Mts  as  required  for  the  Data  Memory  adafessitig' '    '[  ' 
**  and  then  executes -'^W  data^.adaress'  instruction.  The        ■  ' 
**  data_addr*«s  must  %m  ilke  lE^oittte' iaddr«s«'iS*J^li3*  fte  rel'atriW'lKadretfsi' iJi    ^  - 
**  the  data  memory  page.  ' 

i 

iKMMOinC'  tmeTO  address  '  ■  - 

PAGE1_0R_3  )  aSk     ,  ' 

;  Set  RPO  for  Data  Memory  Page 

- 1 . 

;  Clear  RPO  for  Data  Memory  Page 


if  {  t  address  &  PAGE1_0R_3  ) 
BSF  FSR,  RPO 

««*eF  FSR,  RPO 


vtt  <  .(  address  &  PAGE2_OR_3  ) 
BSF  FSR,  RPl 

BCF  FSR,  RPl 

^^dJ^£ 

MOVWF  address 


PAGE2_OR_3  ) 

;  Set  RPl  for  Data  Memory  Page 

;  Clear  RPl  for  Data  Memory  Page 
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**  Configures  the.  ¥SRsis&>'hAt»it>B3miijSBiimtiMBmj^)^  addressing 
**  and  thens^eciites'  tbe:  *gOBi4^jeLf<lilB  niBn i) s VmtHmBAmm"  4.tlstzxictlon.  The 
**  dteta^d^ess  mast  be  the  absolute  address  and  NOT  the  relative  address  in 
**  the  data  niemoxy  trnge  . 

**  .   «   .        .        -         >   ,  Y  *  .        .    ,  .        *   .  .        ..        ■  -    'r        .  *  ^    -  .    ^  > 

****************************************************************************** 

■  '.'  J.L-  ' 

tlLF_tlAC  macro  address,  d 

;  t_?<'._.  -  -  '   1  . 

if  (  <  adt^ss  «i«8aBl£llKL3  l^ASB^QBLS  ) 

BSf         ESR,  SPO  ;  Set  BPQ  for  Data  Memory  Page 

else       s,i33'   v:-.:".^**  !  ■  t<l  7ic.. 0  -, 

BCF         FSR,  SPO  ;  Clear  KPO  for  Data  Mranory  Page 

endif 

;  ■  '•    -.  -        C_.TO_-.iu'  >i 

if  (  (  a^iHA  «:<  «tBi2&.iraRL.3  )  =#VPAE^_(»L.3  )  ni  i 

BSF         FSR,  RPl  ;  Set  HPl  for  Iteta  Mexaory  Page 

else       ^'  ■     ■  I        ■■   •  i"  , 

BCF  FSR,  RPl  ;  Clear  RPl  for  Data  Memory  Page 

endif 

RLE  address ,  d 

endm 

****************************************************************************** 

**  RRF_MAC  data_address ,  destination 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 
**  and  then  executes  the  "RRF  data_address ,  destination"  instruction.  The 
**  data_address  must  be  the  a32Solute  siddress  imd  NOT  the  relatjAPe  address  in 
**  the  data  memory  page. 

**  •*•.■•»#-.     *-**»»«    -**  C-*  *.»  r  «•«*'•  •      .»#  ^  . 

****************************************************************************** 

RF_MAC  macro  address,  d 

if   (    (  address  &  PAGE1_0R_3  )   ==  PAGE1_0R_3  ) 

BSF  FSR,  RPO  ;  Set  f!PO  for  Data  Henory  Page 

else       ^v-"?  Ui'C.  .    v.;  Ci  .-^ 

BCF  FSR,  RPO  ;  Clear  RPO  for  Data  Memory  Page 

eadif 

l^u  .    ■  ■■^  /:  -  ■ 

If  (  <  ad£bE^s«  «;  BfteE2_OIL.3  ^»«eE2_OR_3  ) 

BSF  FSR,  RPl  ;  Set  RPl  for  Data  Memory  Page 


else 
endif 


BCF         FSR,  RPl  ;  Clear  RPl  for  Data  Memory  Page 

MiF         address,  d 
endm 
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t  -  -  ■  ■ 

**  =-*««*-git«i^i»r'--*aiEta_aaiiresB,  d«*^aBfei^   »  ■ 

**  Configures  the  VSM«S:^«niftft«flMlJ3M>qulred  £oir  th*  SNrtaapjMgM^  *eKbr«(Siag  'v 
**  and  th«i>«ceeBt£»s  ^M>d8mMia«MSiuMMaM«i^^ 

**  datajaddaress  mst-.iMWitiiit' j)Mn&iii^4i|Klseiltoi^^  bi''^  " 

**  the  data  memoiry  pajrwiX^'s  '  ..  anaifeiM;         ■   -jb  '-lij         ?rtMi        ■!>-.-,.  ^-efc  •.* 

**  •■— -xi^i^'i  c.jsb  u(t?  *»  ■ 

SUBWFJIAC  macro  address,  d 

else  -?*3«M:  «."cif7  TK^-  f"'-?  i'ff-  '■  'j-sa  ^143  v^a 

endif  ij''-:  -i  : 

if  (  (  address  i  PAQ62_0IL.3  )        PAGE2_OK_3  ) 

BSF         PSA,  «ei  s  S«6ARra- for  Data  Mffioorr  tM0ei:( 

else  .I 

BCP         FSR,  RPl  ,-  Clear  'SSft  for  Data  Memory  Page 

endif  ,  •  .  : 

S^HF      address,  d 

endm 

****************************************************************************** 
**  SWAPF_MAC  data_address,  destination 

**  Configures  the  FSR<6:5>  bits  as  required  for  the  Data  Memory  addressing 
**  and  then  executes  the  "SWAPF  data_address,  destination'  instruction.  The 
**  data_address  mist  be  the  absolute  address  and  NOT  the  relative  address  in 

**  the  mmwnmm  »»g*-  ■■       ■  ■   '  -  -  ^- 
** 

Hr*  ************  **^#tt»****  ********************************************  **********  •  • 


SKftPFJI^C  macro  address,  d 


if  (  (  address  6  PAGE1_0IL.3  I  -«  PAGE1_0R_3  ) 

Bl^         FSR,  RPO          '  I,     :  Set  RPO  for  Data  Manory  Page 

mSktm^          "VeA  vrcnh     ojbU         C<1«  .-.>■.  is>i    >.i  i 

■W0'         fSft,  SPO                   ;  Cj.«(Q;  £dr  Bata  Memory  Page 

endif              ,  i...  -:  M           ^      'nf[  laair  '■'->•  , 

if  (  (  address.  6  mmiLfiia^  >  -trn'm^jm^:  i 

else              ji"   .  r-.-.:;!-?'           -x^^     • "si  •.  .  •  -.2 

BCF        FSR,  RPl                ;  Clear  for  Data  Memory  Page 

SMAPF     si^retis,  d 


a-42 


***************************  ****«***«t«g*4^#^*  4^         4(^4^*  ***«*jfr^ 

**  .nii.Pd"  b  .  X@IW;WB&^  -'>a&ta^adBrea«'»:  -d^:inMM.^ ' 

C(XB£iBixe«i  Etliar^se«le:^  l3£ist!  as  required  £atoJfei»uCatotc  tttte^jT'iaddressing 
**  and  tltera  eicecutes  the  "XOStlg  data_address,  deHtinatiOn*.  toajtOffistion.  The 
**  data,jEeficbre8s  must  be  the  absolute  address  and  NOT  the  relative  address  in 

**  the  'dteCS' lawnory  page.   ■      -   ,  ■  >  ».  -. .  «       ■  ■  

*• 

*************************************************  *****4MM^#*alr********4r******* 

X^eiff:J|jkC  laacro  address,  <i  '  ' 

;  I     ■  v;  .   »  .  -j.tJ   nqq  /at   :  v.;-^ 

if  (   (  address  6  PAGEl_OK_3  )  ==  PMm_OIL.3  ) 

i-JBSE         ?SR,  ;  Set  RPO  for  Mattory  Page 

else 

BCF         FSR,  RPO  ;  Clear  RPO  for  Data  Memory  Page 

dndif  •     ■       ^'v.  '  - 

;  - •         r-  '  :  u.     -  :>  ^      - '      ;  0   :  '  . 

if  (   (  address  &  PjkGS!_OR_3  )  ==  PAGE2^CaB^3  ) 

'  mss  ■  w^t^amt  ■•i  rpi  for  mma.  janoty  vsm 

else 

BCF  FSR,  RPI  ;  Clear  RPI  for  Data  Honory  Page 

endif 

-  XQRWF  aaaseiiB.   

endm  "..jI-a  -  ..il.  l 

**  PAG£LHAC         i^ogranuaddress         "  j''  ni 

**  Configures  the  PAl  and  'PAO  bit*  cH3  ratjuiEed   -  j  -  •        -  r  ■  ■ 

**  I  ,  ■ 

**************  **it******i,it**ii*1iit*1r**********************ie1e*ic*ii*****1i****^ 

PA3SJ1AC  oacro  routine 

if   (    (  routine  &  PAGE1_0R_3   )  ==  PAGE1_0R_3  ) 

BSF  STATUS,   PAO  ;   Set  PAO  for  Program  Memory  Page 

else 

BCF  STATUS,  PAO  ;  Clear  PAO  for  Program  Memory  Page 

endif  .i-!::iT  ■!. 

iS  ■<.!.(  routine  &  PAGE2_OR_3   )  ==  PAGE2_OR_3  ) 

BSF  STATUS,   PAl  ;   Set  PAl  for  Program  Memory  Page 

else 

BCF  STATUS,  PAl  ;  Clear  PAl  for  Program  Memory  Page 

endif  MVi 

endra 


4(i1iMtoRiBl#'f6e«Mtg^  Inc. 
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*******  ********it*^%ie**ir*****M********#^^^ 


**  Configures  tb«  F@^$:5»M6liaat>:x«aiiMBMI^«3>«he  Data  K&tmm  »SiSxeaaiag. 

** 's^^  a»taaatiliiiMiiiiiftj'«Mg*a<*** imtaitmMcm  itfMmm'tBL^  ikm;-  the-  mta^vs  assaatm  '-'^'--'^  * 

*♦  Its  eoalbbt   'JV  i  .■•&.■■.  •   ^-^  ■^^y   ■     .  .  ■       •  .,-     r.  ^  t'  I 

3 

'mmjB«T'^-"-i0mem-  a^rwis     •    *-    ■ 

s 

if  (  (  address  &  PAGE1_0R_3  )  ==  PASE1_0R_3  f  o-.: 

BSF         FSR,  RPO  ;  Set  RPO  for  Data  Memory  Page 

else  J  ; 

aCS-  f       FSRv  ^0,  ♦  CVsax  RPO  for  Data  Memory  Page 

■mm,M  -  ■  ■■ 

7  -• 

if  {   (  address  &  PAGE2_OR_3   )  =  PAGE2_OR_3  ) 

BSF         FSR,   RPl  ;  Set  RPl  for  Data  Memory  Page 

BCF         FSR,  RPl  ;  Clear  RPl  for  Data  Memory  Page 

endm 

**^r1r*:^ciT^^ir^Tir1r*^r■lc**1r1r***^!■lt**:*^:■t:^^■k■k■k1c*1^■^!**■*r■*r***********■k^^*^k**^c****■^t*******■^t*ir*:*** 

**  SAVE_W_AND_STATOS 

**  Saves  the  contects  of  the  W  register  and  the  STATUS  register  to  two 

**  temporary  RAM  locations  W_TEMP  and  STATUS_TEMP.  These  temporary  RAM        '       ■    •  • 

**  locations  should  be  in  the  NON-Banked  part  of  Data  Memory  (8h  to  Fh) . 

**  This  Macro  generates  a  User  Defined  Warning  tssoQ  aenXy -iin  lisSiiig  .file);   i  i"      ■  •  * 

**  if  the  Data  RAM  location  is  in  Banked  RAM. 

****************************************************************************** 

■<ri_   ..    •  •- 

SAVe_W.JUID_STATUS  macro 

f  2^  • 

MOVWF      W_TEMP        ,         ■■  •  i^-     ;  V 

SWAPF      W_TEMP,  F  .  * 

.  SVBIPP      STATOS, -ifj  W  ••  0A1  .-i""!-//';^ 

MOVWF  S!PATOS_3afflff 
if  <   (  WjraiP  &  8j^0  )   !=  0x©6  ) 

HESSG  "VCaning  ^  QSer-  OefineSi  »J^%9 1«Atisi^er  is-defia^  to  be  in  BANKea. 
-BteSiaBSfiSmaM        ,•-  •<  a  --. 

endif 

if  (   (  STA!raS_CT#  &  OacOtfO  )   {e  QadJO  ) 

KESS6  'Haming  -  tteer  Qefiaedt:  SSAsroSjrSIW  register  is  defined  to  be  in  BANKed 
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****************************************************************************** 

**  RESTORE_W_AND_STATUS 

**  Saves  the  contects  of  the  W  register  and  the  STATUS  register  to  two 
**  temporary  RAM  locations  W_TEMP  and  STATUS_TEMP.  These  temporary  RAM 
**  locations  should  be  in  the  NON-Banked  part  of  Data  Memory  (8h  to  Fh) . 
**  This  Macro  generates  a  User  Defined  Warning  (seen  only  in  listing  file) 
**  if  the  Data  RAM  location  is  in  Banked  RAM. 
** 

****************************************************************************** 

RESTORE_W_AND_STATUS  macro 

SWAPF       STATUS_TEMP,  W 
MOVWF  STATUS 
SWAPF       W_TEMP,  W 
if    (    (  W_TEMP  t  OxOFO  )    !=  0x00  ) 

MESSG   "Warning  -  User  Defined:  W_TEMP  register  is  defined  to  be  in  BANKed 
memory* 

endif 

if   (    (  STATUS_TEMP  &  OxOFO  )    !=  0x00  ) 

MESSG   "Warning  -  User  Defined:  STATUS_TEMP  register  is  defined  to  be  in  BANKed 
memory" 

endif 

endm 


list 
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Implementing  Wake-Up  on  Key  Strok** 


INTRODUCTION 

In  certain  applications,  the  PIC16CXX  Is  exorcised  only 
when  a  key  is  pressed,  eg.  remote  keyless  entry.  In  such 
applications,  the  battery  life  can  be  extended  by  putting 
the  PIC16CXX  to  sleep  during  the  inactive  state  and 
when  a  key  is  pressed,  the  PIC16CXX  wakes  up,  does 
the  task,  and  then  go^  bode  to  stenp. 

IMPLEMENTATK>N        -  ^  - 

The  circuit  in  Figure  1  depicts  an  application  with  two 
keys.  The  PIC16C54  is  normally  in  SLEEP  mode 
consuming  very  little  operating  current.  If  either  of  the 
two  keys  Is  pressed,  the  PIC16C5X  'wakes  up',  scans 
the  keys  and  tumson  one  of  the  two  LED's.  When  SW1 
is  pressed,  the  green  LED  is  turned  on  and  when  SW2 
IspressedtheredLEDIstumedon.  The  LED's  are  usflfd, 
purely  for  demonstratwn  purposes,  in  real  fife  appUcaj^ 
tion,  s  tran^nission  will  be  completed  b^orapiKig  ffie 
PlCt^CSX  back  in  sleep.This  example  can  beexfended 
to  handle  more  than  two  keys. 

In  the  sleep  mode,  the  scan  outputs  (SC  AN1  and  SCAN2) 
are  both  set  to  a  low  logic  level.  In  this  state,  the 
capacitor  C  is  fully  charged  and  a  high  logic  level  is 
present  at  the  MCLR  pin  of  the  PIC1 6C5X.  When  a  key 
is  pressed,  C  discharges  through  either  R2  or  R3  (de- 

FIQURE 1  -  TWO  KEY  INTERFACE  TO  PIC16C5X 


pending  on  SW1  or  SW2  being  pressed)  and  the  voltage 
across  C  falls  rapidly  (approx.  1  ms),  causing  a  low  at  the 
MCLR  pin  of  the  PIC16C5X,  which  in  turn  causes  the 
PIC1 6C5X  to  wake  up  and  enter  its  reset  state.  In  reset, 
the  SCAN1  and  SCAN2  outputs  default  to  a  high  imped- 
ance mode,  so  the  discharge  path  for  capacitor  C  is 
blocked  and  it  charges  to  a  high  level  through  resistor 
R1.  Note  that  the  RC  values  have  been  chosen  such, 
that  the  discharge  and  charge  cycles  times  are  less  than 
the  reset  time  for  the  PIC16C5X  (approx.  18  ms),  and 
certainly  far  less  than  the  minimum  duration  of  a  key- 
press (approx.  50-100  ms). 

After  the  reset  cycle  is  completed,  the  code  executkxi 
momentarily  takes  the  SCAN1  and  SCAN2  outputs  tow 
in  order  to  sample  the  key  stroke(s).  This  does  not  cause 
the  capacitor  to  discharge  since  the  duration  of  the  low 
is  of  the  order  of  10  mkao  seconds. 

~''3niie  j|e1&l)RS8t»  (li^^  has  been  executed,  the 
pefSmflSd^GmWd  Kay  has  been  released,  safe  We 
^omt  and  SCAN2  outputs  tow  and  'goes  baek  to 
deafT.  Re8i^isR4-ltB  am  not  required  forfuncttonal- 
ttf,  but  are  reeomnended  to  provide  protecMon  from 
{■leetrailt«edtocharge(ESD).  SwitchesSWI  andSW2, 
Whinpnssfcedmayfrequentiy  pass  ESDto  the  PtCI  6C54. 


AuUm:: 


10'Souza 


SW1 


SW2 


R2 
— W— 
4.7  K 


R3 

— 
4.7  K 


R4ioon 

.  c 
.1  mf 


— w  

Re 

— — 

R7 

 ^A^^  

R8 

— w  

4X100Q 


SCAN1 


SOIN2 


MCLR 


PIC16CS4 


GREEN 
RED 


RBO 
RBI 

RB2 
RB3 
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FIGURE  2  -  TWO  KEY  SaiNfWiyi&UI>  HUNG  DMl^MMl 
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OR 
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I. 


HIGH  IMPEDANCE  LEVEL 


nciecsx  in 

SLEEP  MODE 


PICieCSXM  RESET 
S18MS 


PIC16CSXIN 
SLSPHOOE 

■    ■      t"  ■■■»■  ■  ■ 


FIGURE  3  -  PIC16CSX  INTERFACE  TO  4  X  4  KEY  MATRIX 
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HffftSM  l.SO  Released 
Key  S  troke  Wake  Vp 


WO. ASM      7-15-1994  13:10:54 


LOC     OBJECT  CODE 


LINE  SOURCE  TEXT 


0002 
0006 
0002 
0003 
0000 
0001 

aoo4 

0005 
0014 

0008 
0009 


0000  0910 

0001  0920 

0002  0915 

0003  0028 

0004  0608 

0005  0929 

0006  0628 

0007  092B 

0008  0920 

0009  0915 
OOOA  OFOO 
OOOB  0743  0A08 


GOOD  0446 
OOOE  0466 
OOOF  0003 


0010  0C03 

0011  0006 

0012  OCFF 

0013  0026 

0014  0800 


0001 
0002 
0003 
0004 

mms 
oootr 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0035 

003g 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044, 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0060 

0061 

0062 

0063 

0064 

0065 

0066 


TITIiE  "Key  Stroke  Hake  VIp' 

LIST    P  =  16C54,f=inhx8m 
.  ******************************* 

;■.       ■■  'Bxt^xmi  demonstrating  key  stM:e  wake  uit'''for 
;k    -  --tSMrtlClfiSEt.  has  betm  iiqplanettted  for 

'  '  eM'keys,  bde'Sflri  U^^tesaca  for  more  K«ys. 
when  SWl  is  pressed  a  green  LED  lights  up. 
Mhen  SW2  is  pressed  a  red  LED  lights  up. 


*************************************** 


Define  equates 


PC 

EOO 

2 

PORT_B 

EQU 

6 

SCANl 

EQU 

2 

SCAN2 

EQU 

3 

SWl 

EQU 

0 

SW2 

EQU 

1 

GRN_LED 

EQU 

4 

RED_LED 

EQU 

5 

MSBC_20 

BQD 

D 

SBl 

BQO 

8 

OP 

EQD 

8 

DB2 

EQU 

9 

;PORT_B  ASSISNHHITS: 

}  :  SVfl  INPUT 

;  1  ->:SM2  nsWS^ 

;  i  — >  SCSNl  OOWOT 

3  ->  SCAN2  OUTPUT 

4  ->  GRN_LED  OUTPUT 
;               5  ->  REDJiED  OUTPUT 

6«7  — >  ASiSIGHBD  AS  DOiOa  OUTBDSS 


ORG 

0 

CALL 

INIT_PORT_B 

INITIALIZE  PORT 

B 

CALL 

DELAY 

DELAY  20  MSECS 

CALL 

SCAN_KEYS 

GET  KEY  VALUES 

MOVWF 

GF 

SAVE  IN  RAM 

BTFSC 

GP,SW1 

SKIP  IF  SWl  NOT 

PRESSED 

CALL 

TURN_GREEN_ON 

ELSE  DO  ROUTINE 

BTFSC 

GP , SW2 

SKIP  IF  SW2  NOT 

PRESSED 

CALL 

TURN_RED_ON 

ELSE  DO  ROUTINE 

CHK_FOR_KEY 
CALL 
CALL 
XORLH 
BNZ 

NO_KEY_PRESSED 
BCF 
BCF 


MOVLW 

TRIS 

MOVLW 

HOVWF 

RETLW 


DELAY 

scixjms 

0 

CmLFOR^KBY 


PORT_B,  SCANl 
P0RT_B,SCAN2 


B'OOOOOOll' 

POHT_B 

OFFh 

PORT_B 

0 


;  DELAY  FOR  20  MSEC 
iQEt  KEY  HIT 
;EXCL.  OR  WITB  0 
;KEY  STILL  PRESSEJ 
;THEH  LOOP 

SET  SCAN  LINES  LOW 


;  config  SBO,  1  as  i/p's 
;    and  RB2-7  as  o/p's 

;  DEFAULT  VALUES  FOR  PORT_B 
.•RETURN  WITH  NO  ERROR 
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1  mii  , 

^  f 

eOG8 

^is  routine, 

scans  two  keys  and  returns  the  following: 

0069 

0  if  no 

key  is  pressed 

0070 

1  if  SWl  is  pressd 

0071 

2  if  SH2  is  pressed 

0072 

3.ii£  SWl  2uid  SW2  are  pressed 

0073 

0015 

0446 

OOTS 

SCT  ■ 

;sekSLE  SCAN  pos  mi 

0016 

0466 

0076 

BCF 

P0RT_B,SCJUJ2 

;EANBLE  SCAN  FOR  SW2 

0017 

0C03 

0077 

MOVLW 

B' 00000011' 

;LOAD  MASK  IN  W 

0018 

0146 

0078 

ANDWF 

PORT_B,0 

;AND  WITH  PORT 

0019 

0546 

0079 

BSF 

P0RT_B,SCAN1 

.'DISABLE  SCAN 

OOIA 

0566 

0080 

BSF 

P0RT_B,SCAN2 

/ 

OOIB 

01E2 

oasi 

PC,I 

;OET  OFFSET  TO  TABLE 

OOlC 

0803 

BOSS 

RETIM 

3 

;SW1  AND  SW2  PRESSED 

00  ID 

0802 

0083 

2 

imi2  WS^XB 

OOIE 

0801 

0084 

lamst 

1 

OOIF 

0800 

0085 
0086 

RETLW 

0 

;N0  KEY  PRESSED 

0087  ;DEIJVY,   IS  A  APPROX.  WAIT  FOR  20.4niSECS,   FOR  A  SYSTEM 

0088  ;USING  A  2  Mbz  CRYSTJO.  CLOCK. 


0089 

DELAY 

It 

0614 

0O90 

I(SBC^20 

0021 

0028 

0O91 

MDVWF 

DBl 

0092 

DLYl 

■  ■     C  i  ■ 

0022 

0069 

0093 

CLRF 

DB2 

0023 

02E8 

0094 

DECFSZ 

DBl 

0024 

0A26 

0095 

GOTO 

DLY2 

0025 

0800 

0096 

RETLW 

0 

0097 

■DLTC2 

0026 

02B9 

0098 

DBCFS2 

0027 

0099 

GOTO 

■I'.f     I  / 

aoat 

■mm 

0100 

GOTO 

0101 

0102 

0103 

TORN. 

GREEN_ON 

0Q39 

0104 

002 A 

0800 

0105 

0 

0106 

0107 

TURN. 

_RED_ON 

002B 

04A6 

0108 

BCF 

PORT_B,RED _JOED 

0026 

0109 

RETLW 

0 

OHO 

oiia. 

tarn 

oiii 

lOiaQr  ^eSMii  laainsil^?.  Osed,     <-'  =  xniused) 

oooo  >  ii»»»»iifi|ifi!!i)ii'ffii  tatxxniiiuMXiciatx  xxxxxxxxxxxxx  '  .v.: 

ooAO  i  — » —  —  ■  Ta„M  <■■  -ri'-  J  ■  m'  

All  other  iinniozy  blades  uw^edi 

Errors  :  0 
Wazninga  :  0 
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INTRODUCTION 


•1         c'  ftiqre 


i>iiwwil»i#)»aiirtfifl8fcB*<intt^ 

miK«>M#><^::ttM>  MQS^,  frequency,  atMtiiMMit 

with  voltages  up  to  several  hundred  volts.  The  nietliod 
requires  only  one  external  component,  a  resistor,  and  is 
mora  raliabie  iKan  praviously  pufejtaMAimetfiid^Miii^ 
capadtois  or  bulky,  expmSv&VlSSilSSfmts. 

APPLICATIONS  I 

This  measurement  method  can  be  used  in  any  appHcal 
tion  where  power  line  parameters  are  used  for  system 
measurements  or  control.  Typical  applications  are  for 
switch  timing  (what  part  of  the  power  cycle  should  the 
system  be  activated),  power  factor  con-ection,  power 
measurement,  and  power  line  monitor.  An  additional 
application  is  to  generate  timing  or  clock  functions  using 
the  relatively  stable  power  line  frequency.  The  method 
Is  also  useful  for  calibrating  the  oscillator  frequency  for 
accurate  timing  measurements  when  an  inaccurate 
reference  such  as  an  RC  oscillator  is  used  to  dodc  ttie 
PIC16C5X. 

THEORY  OF  OPERATION 

The  application  takes  advantage  of  the  input  static 
protection  circuitry  that  exists  on  all  I/O  pins  of  a  CMOS 
PIC16C5X.  These  protection  circuits  are  designed  to 
short  the  inputs  to  the  power  supplies  when  a  large 
oven/oltage  is  applied,  thus  protecting  the  chip  from 
static  electricity  spikes.  On  the  PIC16C5X 
microcontrollers,  this  protection  circuit  is  two  large  P-N 
diodes  on  each  input  (see  Figure  1).  These  diodes  will 
short  any  voltage  higher  than  Vdd  to  the  Vdd  supply  and 
any  voltage  less  than  to  the  Vss  supply.  They  can 
lake  several  milliamps  of  eii#Mil  without  any  damage  to 
I  theehip.  High  voltagesceii^applieiitoe^Vto^^ 
;  inputs  M  k>ng  as  they  ara  cwraRt  lbn^  '■   


0 


FIGURE  1 -PIC16C5X  SERIES  INPUT 

PROTECTION  CIRCUIT  mHQ' 
PINS 


The  least  expensive  method  of  current  limiting  is  using 
a  high  value  resistor  This  method  is  shown  schemati- 
cally in  Figure  2.  The  power  line  voltage  iscurrent  limited 
by  the  resistor  and  then  clamped  by  the  input  protectk>n 
diodes  internal  to  the  PIC16C5X.  A  typical  input  wave- 
form is  shown  in  Figure  5.  A  115V  AC,  60  cycle  sine 
wave  will  traverse  from  0  to  2  volts  in  32  n.s  so  a  typical 
threshold  of  2  volts  on  the  PIC1 6C5X  I/O  port  will  permit 
zero  crossing  detection  accuracy  of  about  30  \is.  If  the 
typical  capacitance  on  an  I/O  pin  is  5  pF,  then  R  should 
be  (T  =  RC)  6  MEGohm  or  less  for  best  zero  crossing 
accuracy.  A  5  MEGohm  resistor  with  1 1 5V  AC  applied 
to  it  will  limit  current  to  32  \iA,  a  value  which  is  well  within 

itw  MiB^  mBg^  Of  the  If  ictecsx. 

FIGURE  2  -CURRENT  LIMITING  USING 
AN  EXTERNAL  RESISTOR 


110V  R>5MEQ 

AC  O  lA/V*  
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IPEAK  =  162V/ 
5  MEG  -  32  mA 
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PIC16C5X 
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The  user  needs  to  be  aware  that  the  dteiiitDaqiAaiti  tP 
connect  the  RTCC  input  to  AC  poww  9m  Is  ^^M^ 

^rotsdbh  isi^d^as  ffiT&S  pin  has  on^  ^  pmUmsKIm 
'mmatmrnxmia  m^mf^ee  Rgure  3).  Therefore,  it  is 
necessaiy  to  connect  a  diode  externally  between  RTCC 
pin  and  Vdd  in  order  to  clamp  the  voltage  on  RTCC  pin 
to  Vdd  +  0.6V  (approx.).  See  Figure  4.  It  is  also 
recommended  that  resister  R  be    toast  2M0. 

RELIABILITY 

Reltabfltty  of  production  devtew  Urt     jtee«%  een- 
nected  to  AG  power  is  always  a  mttemt.  f%oWbBi) 
jnnodss  are  possible.   First,  the  SMifii  iMl^r  «}( 
I  Hgure  1  might  faH  short,  destroy  Infll^iniei'OcoHtwIei 

FIGURE  3  -  INPUT  STRUCTURE  AND  RTCC 
PIN  I 


RTCC& 


MCLHpins 


VW^-[^>o- 


Input 
buffer 


Simplified  structure  of  RTCC  and  MCLR  pins. 
Grounded  gate  NMOS  device  provides  BSD  and 
overvoltage  protection. 


11ii$  i»1ha  fflt«t  wlaVM^^  df  a  resistor,  and 
mMm  tmmm  nriMlittMn  tmnsformersor  capaci- 
tors, which  arefie^tmatt^nponents  for  measuritig 
tine  parametem;  Thfa  r^finllabnM«d«ftiC0d^i#) 

to  fail  short  to  cause  catastro|tric  faRura.  a  vwy  onMeely 
event.  The  second  possible  failure  mode  is  that  exces- 
sive injection  of  current  into  the  PIC16C5X  input  might 
caiKellwpii>t«Bliondi6cletoopen.  Thiswouldallowthe 
input  to  go  t^lhe  poWBf  im  peak  voltage  (162V)  and 
short  the  input  transistor  gate  oxide,  causing  device 
failure.  The  maximum  continuous  injection  current  into 
an  I/O  pin  is  specified  ±500 pA.  An  I/O  pin  is  also  capable 
of  handling  larger  injection  cuirent  (>1 00  mA)  for  a  very 
short  period  (tranBiec#0rtim»<  Thmkm  hlgtefltjiw- 
sient  currents  doe  to  im  voltage  sufgw  W#ba  iWlly 
handled. 

FIGURE  4  -CONNECTING  AC  POWER  LINE 

,■  .dl6''Rl'CC'*ll*'-'  ■         I.  ■ 


o — JW- 


Vdd 
RTCC 


PIC16C5X 


Connecting  to  RTCC  input.  R  2  ZMCl 


FIGURE  5  -  INPUT  WAVEFORM 


-25.0000  msec 


0.00000  sec 


25.0000  msec 


 ^ 

Ch.    1  =     1,000  volts/div 

Timebase     =    5.00  msec/div 

Ch .   1  Parameters  Freq, 

Rise  Time  =     184.001  usee  +  Width 

Fall  Time         174.005  usee  Preshoot 

P-P  Volts  =     6.187     volts  rais  Volts 


59.9797  Hz 
8.26099  msec 
0.000  '.'olts 
3.894  volts 


Offset 

Delay 
Period 

-  Width 
0  V  !i  r  s  h  Q  0 1 
□  u  t y 0  y c  1  e 


3.000  volts 

0.00000  sec 
16.6723  msec 
8  4  1132  msec 
0.000  volts 
4  3.54  ». 


WaveforiT)  at  part  pin  (RAO)  • 

R = imk      60  Ms^  1  to  V 


Autmr:  Dmo  Cex 

Logic  Products  Division 
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Frequency  Counter  Using  PIC16C5X 


INTRODUCTION 

The  PIC16C5X  has  one  84>it  timer  (RTCC),  which  can 
be  used  with  an  8-bit  prescaler.  The  prescaler  runs 
asynchronously,  hence  it  can  count  a  vety  high  fre- 
quency. The  minimum  ifse  and  fed  ttnes  of  the  Input 
frequency  are  specified  to  be  lOhS,  so  the  fastest  dock 
rate  the  RTCC  can  count  is  50  Ml-lz.  The  prescalermust 
be  used  whan  measuring  high  frequency.  Shoe  the 
piiiHiealarem  be  eonifigurad  as  a  divide  by 256  counter, 
the  fnaxjRnim  resiMon  which  the  'm$»A  frequency  can 
benMWuradis  l€bife.  However,  ttmproscat^i^^fi^ 
be  iiiFee%  to#lte  ragt^er.  Tt^  sppltcaHMnN^ 
de#;is;  a  urdque  M0wd%  «Meh  the  liser  cm 
the  waiua  h  flie  prescaler,  whereby  tfie  raioMlieni 
of  ttie  mrasurement  is  16  bits  wHh  flie  high  8  bits  in  the 
RTCC  and  the  low  8  bits  in  the  prescaler. 

iNm.EMENTATION 

Afrequency  counter  which  can  read  frequencies  from  50 
MHz  to  50  Hz  was  Implemented  In  this  application  note 
to  demonstrate  this  method  of  measuring  the  16-bit 
counter  value  from  the  prescaler  and  RTCC. 

The  basic  hardwaie  for  the  measufamnit  dieuit 
depMed  k  Flgtnv  1  ■  tt  eonsiste  of  #w  freipMiey  irsptit 
at  IfFCC  or  RM  (pin  3  in  a  PIC16C54i}.   fm  & 
connected  to  RA2.  The  input  f  requent^  is  comected  to 
RTCC  through  a  470  ohm  resistor. 


FIGURE  1 


RTCC 
RA2 


PtCl6C54 


-J-^  


470Q 


Frequency 
Generator 


The  RTCC  is  configured  to  measure  the  input  frequency 
at  RA4  of  the  PIC16C54.  The  input  frequency  is  "gated" 
fora  precise  duration  of  time.  Before  starting  this  precise 
'gate",  ttie  RTCC  is  cleared  (which  also  clears  the  pre- 
scaler), and  the  RA2  pin  is  configured  as  an  input.  The 
precise  "gate"  is  implemented  in  software  as  an  accurate 
delay.  At  the  end  of  the  delay,  the  R A2  pin  Is  configured 
as  an  output  going  low.  This  will  cause  the  input  to  the 
RTCC  to  be  "hatted"  or  "stopped'.  A  16-bit  value  of  the 
Input  frequency  Is  now  saved  In  RTCC  and  the  8-blt 
prescaler.  The  high  8  bits  are  In  RTCC  and  can  be  easily 
read.  The  low  8  bits  have  to  be  "shifted  out".  The8-bits 
in  the  prescaler  are  "shifted  out"  by  toggling  RA2  with  a 
"BSP  and  "BCP  instmction.  AStor  eveiy  toggte,  the 
value  in  RTCC  is  checiced  to  see  if  the  RTCC  has 
Incremented.  If  the  number  of  toggles  required  to  cause 
the  RTCC  to  increment  by  1  is  N,  then  the  8-bit  value  in 
9»  pie'«6al^,Qan.  be>  cptpulated  to  be  =  (256  -  f)t).  By 
oanratenallrig  ilie  cakaiiatBd  value  and  the  otigmal 
value  in  RTCC,  the  164)11  value  for  the  frequency  is 
detemiined. 

To  measure  a  wide  range  of  frequency,  the  following 

intermediate  steps  were  taken: 


Frequency  Range 

Precise  "gate"  Delay 

Resolution 

50  MHz  - 10  MHz 

1  ms 

±10  KHz 

10  MHz -1  MHz 

5  ms 

±2  KHz 

1  MHZ-'DEIOICHz 

50  ms 

±200  Hz 

100  KHz -10  KHz 

20Oms 

±50  Hz 

50  KHz  -  50  Hz 

SOmst 

±2  Hz 

t  In  this  case,  the  RTCC  uses  the  internal  4  MHz  clock 
and  counts  the  number  of  Instance  of  the  external  clock. 
Maximum  Time  required  Is  50  ms  to  make  a  +  2  Hz 
accurate  measurement  for  10  KHz  Input  frequency. 

The  check  for  the  correct  frequency  Is  done  automati- 
cally starting  with  the  high  frequency  and  going  down  to 
the  low  frequency.  The  maximum  time  required  for  each 
conversk>n  is  approximately  310  ms.  In  other  words, 
l^fee  irequsncy  checks  aredone  every  second. 

CONCLUSrON 

The  PIC16C5X  family  can  be  used  to  make  a  16-bit 
measurement  of  Input  frequency  with  a  small  overhead 
Of  qne  ra»^and  one  I/O  port. 


Author  Stan  CySouza 

Logic  ProdMs  DMshn 


®  ^4  mmmft'miimdtagf  mc. 
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FAOE  1 


lioe- 


LINE  SOURCE  TEXT 


0001 
0000 
0000 


0046 
0047 
0048 


0001 
0002 
0003 
0004 
0005 
0006 
0179 
0180 
0181 
0006 

0007  ; 

0008  TRUE 

0009  FALSE 

0010  FUZZY 
0011 

0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 


; Title  DISPLAY. ASM 

;This  file  displays  a  binary  value  found  in  the  display 
;  register  "DisplayRegister* .  tbe  binary  value  is  converted 
;to  BCD  and  then  displayed. 

list  p=16c71,£si4hxftii 
include  ^&mx..W 


.    ;  •-'■ri  'O  it»i  jr.t.  -I'-r 


equ  1 
equ  0 
equ  FALSE 
if  FUZZY 

tdefine  _ledEn    _portb,3  * 
♦define  _ledData  _portb,  fn>«">1~l  " 
♦define  _ledclk  _portb,2:«M'l<50»  Ifli'' 
else  "e-.  tjriij  a 

♦define  _ledEn    _pos4^i:%cn  9i17  'flki 
♦define  _ledData  _g*r6Ja,,i5t<  "  .•{,;.' 
♦define  _lodClk  _portb,l 
endif 


10  k' 


f  IfTii.'.'iV. 
.;1T  y:>.>. 


,  ■  .  f  t 


0011 

0020  HighFreq 

equ 

0x11 

1  ,-^ 

'l'^"  4  jqp/ 

0012 

0021  LowFreq 

equ 

0x12 

..J 

'MUBB^.      ' •* 

la 

OOIB 

0023  aceb 

-lb 

in 

OOlC 

0024  accc 

equ 

Ic 

■'       •  _ 

ooiD       '  vnnsiipt 

0025  accd 

equ 

Id 

~   0  Lr-.  i:>r 

OOIE 

0026  acce 

equ 

le 

OOIF 

0027  accf 

equ 

If 

0005 

0028  time 

equ 

09 

'  '.i  'll-l 

M'J  ■ 

■1.-.'   >:U:1(I  (Kt' 

m 

0030  ;  '^"^y'-^rl 

f-  '  ■ 

bo"  'tn 


0032 

org 

0 

0033  start 

0000 

3004 

0034 

movlw 

.4 

initialize  time 

0001 

0089 

0035 

movwf 

time 

/ 

0002 

019B 

0036 

olrf 

aocb                    ;  i 

0003 

0186 

0037 

olrf 

_portb 

inlt  ports 

0004 

0185 

0038 

elrf 

_porta 

/ 

00O5 

1586 

0039 

bsf 

_ledEn 

disallow  writes  to  display 

0006 

3017 

0040 

movlw 

B'OOOlOlll' 

RA3  as  output,   rest  as  inputs 

0007 

3070 

0042 

movlw 

B'OlllOOOO' 

RB4-6  as  inputs  rest  outputs 

0008 

3087 

0044 

movlw 

B'lOOOOlll' 

ps  with  RTCC  for  Tcyl/256 

0009 

0062 

0045 

bption 

staiit  tiaer 

OOOA 

0181 

. 

0046 

clrf 

_rtcc  ' 

1 « 

0147  waSt 

OOOB 

202D  ■*  VHl^Bih' 

-Display               fdi^lay  on  leds 

OOOC 

280B 

0049 

goto 

tnit 

0050  ; 
0051 


0055 
0056 
0057 
0058 
0059 
0060 


This  si^broutine  converts  a  8  bit  binary  word 

W'ii^t'^in  accb 

output  is  in  accc  and  accd  with     Isd  in  ACCD. 
The  basic  idea  is  that  a  8  bit  binary  #  has  a  value 
between  0  and  255.  First  we  check  if  the  #  is  >  99 
then  if  it  is  >  199.  After  each  check  we  inc  the  USD 
Lastly  we  convert  the  LSD  which  will  have  a  value 
between  0  and  99. 


'« IWMMlBRicMp' 
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;f^i^^i^lg(^siiiliter  Usifig  PIC1€05X 


0061  ;  I' 

0062  ■-  • 

^l^***^^;^*^*,******,******************************^******  *************** 

0063  J        ;  .' 

00S4  Bin8teBed3  •  - 


OOOD 

3002 

0065 

movlw 

2 

OOOE 

009C 

0066 

movwf 

accc 

OOOF 

0190 

0067 

clrf 

temp 

0010 

30C7 

0068 

movlw 

.199 

; check  if  #  is  >  199 

003.1 

021S 

0069 

subwf 

accbfW 

0012 

1»03 

0070 

btfsc 

_z 

;^  199? 

0013 

2S16 

0071 

goto 

Bcd99B 

0014 

1803 

0072 

btfsc 

c 

;  / 

0015 

2821 

0073 

goto 

Bcdl99 

;yes  then  do  >200  # 

0074 

Bcd99B 

0016 

039C 

0075 

elCCC 

;else  inc  Msd  of  BCD 

0017 

3063 

0076 

ntovlw 

.  99 

; and  see  >  99  ^ 

0018 

02  IB 

0077 

accb 1 w 

;              /                      '                             '  ' 

0019 

1903 

0078 

btfsc 

Z        I.  ^ 

tt  7^  99?  1  . 

OOlA  28U> 

0079 

goto 

Bcd99A 

■t'B^Sgs  fhffft  skip  ov&c  ^ 

00  IB 

1803 

0080 

btfsc 

.  i'  ■  -  fi 

OOlC 

2821 

0081 

goto 

Bcdl99. 

«MtA  f'Tiiiii  i3a  QQ 

0082 

Bcd99A 

OOID 

03  9C 

0083 

decf 

accc 

0084 

Bcd99 

OOIB 

081B 

0085 

movf 

accb  w 

OOIF 

009D 

0086 

movwf 

accd' 

0020 

2823 

0087 

go  o 

r-TAt- 1  n  t-'h 

X  U  L^l 

0088 

Bcdl99 

0021 

009D 

0089 

mo^^tff 

accd 

0022 

03 9D 

0090 

decf 

_ 

0091 

0023 

300A 

0092 

movlw 

.10 

0024 

02113 

0093 

Sll^f 

accd,w 

;  reduce  by  10 

0025 

1C03 

0094 

btfss 

_c 

.»I|«B  i§  #one 

0026 

282A 

0095 

goto 

BcdOver 

ryM  tb«l  end 

0027 

009D 

0096 

movwf 

accd 

;get  new  value  in  ACCD 

0028 

0A90 

0097 

incf 

temp 

; inc  10s  count 

0029 

2823 

0098 

goto 

getlOth 

;  do  next  .i 

0099 

BedOver 

.■  ii  ? 

002A  OHIO 

0100 

swapf 

tesr^,w 

; get  in  w 

002B 

049D 

0101 

lorw^. 

aocd 

!or  wi  th  Is 

002C 

0008 

0102 

return 

0103 

0104 

.  It******************** *** 

**************  *****-***********  *  *  *  ***** 

0105  ;  This  routine  displays  3  digits  on  a  LT8522  display. 

0106  ;  ThJTee  wires  are  required  to  drive  the  display 

0107  ;  Enable  — >  active  low  whsa  writing  to  display 

0108  ;  Clock        ,1  j^tart  £^;ilow9$ fjb^  35  more  (36  total) 

0109  ;  36  clock  required  for  load  to  occur. 

0110  ;  Rising  edge  of  Clock  is  active. 

0111  ;  Data      ->  start  data  bit  =  high; 

0112  ;  1st  data  bit  ->  segment  A  of  MSD 

0113  ;  2nd  data  bit  — >  segment  B  of  USD 

0114  ;  so  on. . .  '  ■ 

0115  ;  8  th  (tofetefeit  T*-^^?-  of  USD  r. 

0116  ;  9th  data  bit  ->  segment  A  of  2nd  digit 

0117  ;  10th  data  bit  ->  segment  B  of  2nd  digit 

0118  ;  so  on. . . 

0119  ;  16th  data  bit  ->  d.p.  of  2nd  digit 

0120  ;  17th  data  bit  ->  segment  A  of  LSD 

0121  ;  18th  data  bit  ->  segment  B  of  LSD 

0122  ;  so  on  . . . 

0123  ;  24th  data  bit  ->  d.p.  of  LSS 

0124  ;  i,3(g^bf.<|alia  bit  — >  i^^ars  on  pin  4  of  display 

0125  ;  2Stb  data  bit  ">  appears  chi  pin  5  of  display 

0126  ;  so  cm  . .  . 

0127  ;  34th  data  bit  — >  appears  on  pin  13  of  display. 

0128  ;  to  dirve  segment  set  data  =  high. 
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0129  ; 

0130  ;  The  routine  does  a  leading  zero  blanking. 

'  '^t$X  t  3  B(3)  aMtiilM  iffiAiId      ^atilaSI*  in  accc  and  accd, 

0132  ;  wit&  ttiB  USD  In  tlie  low  nilable  ef  Heed; '  ■ 

0133  " *************************************'********♦******************** 

0134  Bisplay 


002D 

205E 

0135 

call 

Star tDisplay 

0136 

0  02F 

3  90F 

0137 

andlw 

0x0  f 

0030 

204  0 

013  8 

call 

0031 

013  9 

call 

i-/ X  s>^  X  n  n 

UU 

UX4tU 

K4  <i  ■li'>ff  it  am  '  M  w— 

0033 

390F 

0141 

andlw 

OacOf 

0034 

2040 

0142 

call 

LedValue 

0035 

2052 

0143 

call 

DisplayW 

0036 

0E12 

0144 

swapf 

LowFreq.w 

0037 

390F 

0145 

andlw 

0x0  f 

0038 

2040 

0146 

call 

LedValue 

0039 

2052 

01*7 

call 

DisplayW 

003A 

0812 

0148  " 

BS*f 

IiowFreq.w 

003B 

390F 

0149 

on^w 

OxOC 

003C 

2040 

0150 

'  6*11 

003D 

2052 

0151 

call 

Displayir 

003E 

2064 

0152 

call 

EndDisplay 

003F 

3400 

0153 

retlw 

0 

0154  ; 

0155  ; 

0156  ;  .>■"■■-■-<.■  J 

0157  LedValueAddreas 

0158  if  LedValueAddress  <  0x100' 

0159  LedValue 


0040 

018A 

0160 

clrf 

_pclath 

0041 

0782 

0161 

addwf 

_pcl 

0042 

34FC 

0162 

retlw 

Oxfo 

;code 

for  0 

0043 

3460 

0163 

'•••ftllN 

-09(60 

foe  1 

0044 

34IA 

01S4 

01^ 

y^ms 

for  2 

0045 

34F2 

0165 

retlw 

axf2 

;cbde 

for  3 

0046 

3466 

0166 

retlw 

0x66 

;code 

for  4 

0047 

34B6 

0167 

retlw 

0xb6 

;  code 

for  5 

0048 

34BE 

0168 

retlw 

Qxbe 

;  code 

for  6 

0049 

34E0 

0169 

retlw 

OxeO 

;code 

for  7 

004ii, 

3^B' 

0170 

retlw 

Oxfie 

fo#-*8 

004B 

34e£ 

0171 

retlw 

OxeS 

;code 

fSi'  9 

004C 

34EE 

0172 

retlw 

Oxee 

;code 

for  A 

004D 

343E 

0173 

retlw 

Ox3e 

;  code 

for  b 

004E 

349C 

0174 

retlw 

0x9c 

;  code 

for  C 

004F 

347A 

0175 

retlw 

0x7a 

;  code 

for  d 

0050 

349E 

0176 

retlw 

0x9e 

;  code 

for  E 

0051 

34SS 

0x8e 

fo*  V 

Oll78 
0179 
0180 
0181 

DisplayW 

0052 

0090 

0182 

movwf 

temp 

0053 

oes4 

3008 

009% 

0183 
OI.84M 

movlw 
movwf 

.8 

J  loll- 

'OlSS  DisplayLoop 

0055 

0D9O 

0186 

rlf 

temp 

0056 

1803 

0187 

btfsc 

_c 

0057 

1506 

0188 

bsf 

_ledData 

0058 

1486 

bsf 

_ledClk 

0059 

1086 

0190 

bcf 

_ledClk 

005A 

1106 

0191 

bc£ 

_ledData  ■ 

005B 

0B9A 

0192 

decfsz 

acca 

O05C 

it 

0193 

OOSD 

340«(*I1»"> 

0 

0195  ; 

■.-•iatifc  :■-        0196  ; 


0197  StartBisplay 

OOSB 

1186 

0198 

]9ef 

_ledBn 

OOSF 

1506 

0199 

bsf 

0060 

1486 

0200 

bBf 

_lodCllE 

0061 

1086 

0201 

bcf 

_ledClk 

0062 

1106 

0202 

bcf 

_ledData 

0063 

3400 

0203 

retlw 

0 

0204 

0205 

EndDisplay 

08164 

1486 

0206 

bsf 

_iaacuc 

006S 

1086 

0207 

bcf 

_ledClk 

0066 

1486 

0208 

bsf 

_ledClk 

0067 

1086 

0209 

bcf 

_ledClk 

0068 

1486 

0210 

bsf 

_ledclk 

0069 

1086 

0211 

bcf 

_ledClk 

ooeA 

1586 

0212 

bsf 

_ledEn 

006B 

3400 

0213 

rstlw 

0 

0214 

0215 

0216 

Oxlff 

OlFF 

2800 

0217 

goto 

start 

0218 

0219 

0220 

«nd 

0221 

0222 

0223 

MEMORY  USAGE  MAP   ('X'   =  Used,  =  Unused) 

0000  :  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 
0  «  4  0  >  xxxxxxxxxxxsocxxx 

0180  s   

OICO  •   

All  otiwr  mnory  blocks  unused. 


Betors  t  0 
Warnlags  i  0 
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Analog  to  Digital  Conversion 


INTRODUCTION 

This  application  note  describes  a  method  for  impiement- 
ing  analog  to  digital  conversion  on  the  PIC1 6C5X  series 
of  microcontrollers.  The  converter  requires  only  five 
external  components  and  is  software  and  hardware 
configurable  for  conversion  resolutions  from  6  bits  up  to 
10  bits  and  conversion  times  of  250^s  or  longer.  The 
method  is  useable  for  isoth  voltage  and  current  conver- 
sion and  uses  a  software  calibration  technique  that 
compensates  for  time  and  temperature  drift  as  well  as 
component  errors.  The  PIC16C5Xmicrocontroile|s  are 
ideal  for  simple  analog  applications  because: 

*  Vetybwcqst. 

*  Few  extemal  components  required. 

*  Fully  programmable.  PIC16C5Xmicrocontrollersare 
aff«radas  One-Time-Programmable  (OTP)  EPF^OM 
devices. 

-  lAMlilableeff -tie  ttielS  from  distributers. 

*  Oailtotton  in  software  for  improved  measurement 
aocuiacy. 

*  Power  savings  using  PIC16C5X's  Sleep  mode. 

*  PIC16C5X's  output  pins  have  large,  current  source/ 
sink  capabiPty  to  drive  LED^  directly. 

THEORY  OF  OPERATION 

The  application  uses  a  capacitive  charging  circuit  (see 
Figure  1)  to  convert  the  Input  voltage  to  time,  which  can 
be  easily  measured  using  a  microcontroller.  First,  the 
reference  voltage  Is  applied  to  the  input  voltage  to 
current  converter  (U1 ).  The  equivalent  circuit  Is  shown  In 
Figure  2.  This  circuit  provides  a  linearly  variable  current 
as  af  unction  of  Input  voltage.  The  logarithmic  character- 
istic that  would  occur  if  the  input  voltage  was  applied 
directly  to  an  RC  Is  not  present.  The  capacitor  C  is 
charged  up  until  the  threshold  on  the  chip  input  trips. 
This  generates  a  software  calibration  value  that  is  used 
to  calibrate  out  most  circuit  errors.  Including  inaccura- 
cies in  the  resistor  and  capacitor,  changes  in  the  input 
threshold  voltage  and  temperature  variations.  After  the 
software  calibration  value  Is  measured,  the  capacitor  Is 
discharged  (see  Figure  3)  and  the  input  voltage  Is 
conmded  to  Vin.  The  time  to  trip  the  threshold  is 
I  ttmaumi  for  the  input  voltage  and  compared  to  the 
calftiration  value  to  determine  Ihf  actual  input  voitage. 


FIGURE  1  -  VOLTMETER  A  TO  D 
CONVEFTTER 


S1 


S2 


.^066 
U1 


S3 


10  I 
(12)  S4 

11  T  17 

— *-^^AA/ 


c  R-iooa 


RTCC 


PIC16CS4 


FIGURE  2  -  VOLTIVIETER  MEASUREMENT 
CYCLE 


PIGUAi  t^'lHSiTMETER  DISCHARGE 
LCYOLE 


OlSMHIiera^iipTeeltMlo^  kic. 
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Analog  to  Digital  Coii¥ersSori 


CIRCUIT  CdNFIGURATION 


CIRCUIT  PERFORMANCE 


The  values  of  R  and  C  are  selected  based  upon  the 
number  of  bits  of  resolution  required. 


Where: 

Vi  =  Lowest  voltage  to  be  measured  (at  least  ten  Isb's) 

T  =  Time  to  do  ttie  number  of  bits  of  resolution  desired 

lt=Ttireshold  voltsQq^^nvill^l^npiit  being  used 

pAciiia(  value  for  RC  slH»al#<M>-^gH^  mmlhit^tmi 
cafculated  to  ensure  tttttt  the  PICieC5X  dfos  not 
overcount  during  the  measurement. 

For  example  use  a  3  volt  input  and  8  bits  resolution  with 
a  8  MHz  clock  and  8  iHMi^ltien^ey^stf |Mr  oa(git 

Vi=100mV 

'     iT  =  256  *  1/8  MHz  *  4  clocks/cycle  *  6  cycles  =  768mS 

Vt=  3.0V  (est)  -     I"  I 

For  Input  voltages  greater  than  3  vote  a  r^siaiordMdil 
network  should  be  used  to  keep  the  madtnum  wsttHga 
on  ViN  to  less  than  3  Vpits.  Foiclt^gBiteinianee  th9 
reference  voltage  should  be  b^^NMnl; and  3  volts,  j 

The  circuit  can  also  be  used  as  a  currerrt  mode  A  to  ^ 
converter.  In  this  case  the  input  voltage  to  currail 
converter  is  not  needed  and  the  reference  ^inml  and 
inputcurrentare  both  routed  via  anatog  sw^iM<d^wtly 
intoihe  capa^or.  ^  ^rvji' 

FIGURE  4  -  TRANSMISSKm  FijOWC^iART 


The  calibration  cycle  removes  all  first  order  errors  (off- 
set, gain,  R  and  C  inaccuracy,  power  supply  voltage  and 
temperature)  except  the  reference  voltage  drift.  Any 
change  in  the  reference  voltage,  including  noise,  be- 
tween the  calibration  cycle  and  the  measurement  cycle 
may  result  in  measurement  errors.  Other  error  sources 
are  analog  switch  leakage,  resistor  and  capacitor  non- 
linearities,  input  threshold  uncertainty  and  time  mea- 
surement uncertainty  (+/-  one  instruction  cycle  time). 
Measured  performance  shows  the  converter  to  be  accu- 
rate within  +/- 1%  of  full  scale. 

Example 

Assembly  code  implementing  the  circuit  of  Figure  1  is 
listed  in  Appendix  A.  This  code  measures  the  time  up  to 
16  bits  and  calculates  the  results  using  16-bit  multiply 
and  divide  subroutines.  In  actual  applications,  if  mea- 
surement accuracy  permits,  it  may  be  advantageous  to 
use  8  bits.  The  math  code  can  be  substantially  reduced 
and  the  measure  time  is  reduced  by  the  simpler  code 
and  shorter  count. 


Initial  Setup 


Set  Cap  to  Ground 


Call  Discharge 


Wait 


.  HCBVV 


Setup  Outputs  for 
CsKbiattDn 


Open  Cap 


Call  Measure 


Return 


Call  Disctiarge 


^        Measure  ) 


Setup  OMtHits  for 
.Measure 


.  jg^Measum 


Clear  RTCC 
I 


Clear  Counter 


Ceropute  Result 


End 


Increment  Counter 

t^ 

1 

Ctieck  for  RTCC  Trip 

1  Yes 

Return 

DSeostsCxpage^ 


Analog 


Conversion 


APPENDIX  A: 


HFASM  BO.  54  PAGE  1 

VOLIMETER/AD  CONVERTER  PROGRAM  REV  3-29-90 


TiTiiB   '■vmmmm./AD  cmmsam^  mosmm  «ev  3-29-90  • 

LIST  P=16C54,F=inh3cl6,B=0 


0008 

ACCA 

EQU 

8 

OOOA 

ACCB 

EQU 

OA 

OOOC 

ACCC 

EQU 

OC 

OGOE 

ACCD 

EQU 

OE 

0010 

ACCE 

EQU 

10 

0012 

TMEAS 

EQU 

12 

0014 

TEMP 

EQU 

14 

0060 

VCALMS 

EQU 

60 

;VCAL  MSB  VALUE  IN  HEX 

00A4 

VCAIiLS 

EQU 

0A4 

;VCAL  LSB  VALUE  IN  HEX 

ORG  IFF 

OIPF 

OAS  8 

GOTO 

VOLTS 

*PltO(3tAM  CODE 

ORG 

0 

;  SUBROUTINES 

0000 

0209 

HADD 

MOVF 

ACCA+1  ,W 

0001 

01  EE 

ADDWF 

ACCB+1 

•  ADD  LSB 

0002 

0603 

BTFSC 

3,0 

0003 

02AA 

INCF 

ACCB 

00;04 

0208 

MOVF 

ACCA^W 

0005 

OIBA 

ADDWF 

ACCB 

;iQ^'^lK!B 

0006 

0800 

RETLW 

0 

0007 

0000 

NOP 

0008 

0915 

MPY 

CALL 

SETUP 

/RESULTS  IN  B(16  MSB'S)  AND  C(16 

0009 

032E 

MLOOP 

RRF 

ACCD 

;  ROTATE  D  RIGHT 

OOOA 

032F 

DBF 

APCD+I 

OOOB 

0603 

SKFNC 

}SasB  10  Ai^? 

OOOC 

0900 

CALL 

MADD 

OOOD 

032A 

RRF 

ACCB 

OOOE 

032B 

RRF 

ACCB+ 1 

OOOF 

032C 

RRF 

ACCC 

0010 

032D 

RRF 

ACCC+1 

0011 

02F4 

DBCFSZ 

TEMP 

jl&eOV  '.UNTIL  ALL  BITS  CHECKED 

0012 

0A09 

MLOOP 

0013 

0800 

0 

0014 

0000 

NOP 

0015 

OCIO 

SETUP 

MOVLW 

10 

0016 

0034 

MOVWF 

TEMP 

0017 

020A 

iMCSVB  B  TS  0 

0018 

002E 

ACCD 

O0J.9 

020B 

mmt 

OOIA 

002F 

MOVHF 

ACCD+1 

OOIB 

020c 

MOVF 

ACCCW 

OOlC 

0030 

MOVWF 

ACCE 

OOID 

020D 

MOVF 

ACCC+1,  W 

OOIE 

0031 

MOVWF 

ACCE+1 

OOIF 

006A 

CLRF 

ACCB 

0020 

006B 

CEJtF 

ACCB+l 

0021 

0800 

RBTLW 

0 

0022 

0000 

NOP 

0023 

0915 

DIV 

CALL 

SETUP 

0024 

0C20 

MOVLW 

20 

0025 

0034 

MOVWF 

TEMP 

002« 

006C 

0027 

006D 

CLRF 

ACCC+1 

eta94MtetiaehipTKl«teio9y  Ine. 


2«1 
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Analcig  tc^Digi 


002S 

0403 

DLOOP 

CLRC 

0029 

0371 

ACCE+1 

002A 

0370 

ACCE 

002B 

03eF 

ACCD+1 

002C 

036B 

RLF 

ACCD 

002D 

036O 

RLP 

ACCC+1 

002E 

036C 

RLF 

ACCC 

002F 

0208 

MOVF 

ACCA.W 

0030 

008C 

SUBHF 

ACCCW 

;  CHECK  IF  A>C 

0031 

0743 

SKPZ 

0032 

0X35 

GOTO 

0033 

0209 

MOVF 

ACCA+l.W 

0034 

008D 

SUBWF 

ACCC+1, W 

;IF  MSB  EQUAL  THEN  CHECK  LSB 

003S 

0703 

NOCHX 

SKPC 

.•CARRY  SET  IF  OA 

0036 

0A3E 

GOTO 

NOGO 

0037 

0209 

MDVP 

ACCA+1,W 

,-C-A  INTO  C 

0038 

OOAD 

ACCC+1 

0039 

0703 

B^SS 

3,0 

003A 

OOEC 

ACOC 

003B 

0208 

.- 

wavT  - 

ACCAW 

003C 

00  AC 

SUBWF 

ACCC 

■ '( 

003D 

0503 

SETC 

;  SHIFT  A  1  INTO  B  (RESULT) 

003E 

03  6B 

NOGO 

RLF 

ACCB+1 

003F 

036A 

RLF 

ACCB 

0040 

02F4 

DECFSZ 

TEMP 

;IX>OP  ONTILL  ALL  BITS  CHECKED 

0041 

Qtas 

GOTO 

QLOOP 

0642 

0*00 

RETUf 

0 

0043  OCOE 

0044  0005 

0045  OCFF 

0046  0034 

0047  02F4 

0048  0A47 

0049  OCOF 
004A  0005 
004B  0800 

004C  0061 
004D  0069 
004E  0068 

004F  03E9 

0050  0A54 

0051  03E8 

0052  0A54 

0053  0AS6 

0054  0701 

0055  DA4F 

0056  0201 

0057  0800 


H_TIME 


WO_3t 


MOVLW 
TRIE 
MOVLW 
MOVWF 


B'OOOOlllO' 

5 

OFF 
TEMP 


SOTO 

IfOVLW 

TRIS 

RETLW 

CLRF 
CLRF 
CLRF 

INCFSZ 
GOTO 


LOOP 

B' 00001111' 

5 

0 


ACCA+1 
ACCA 

ACCA+1 
ENDCHK 


INCFSZ  ACCA 
GOTO  ENDCHK 


GOTO 

BTFSS 

GOTO 

MOVF 

RETLW 


ENDJH 

1,0 

TLOOP 

1,M 

0 


.■DISCHARGE  C   (RAO  ON) 


;MAI7. 

;ALL  RA  HIGH  Z 


; CLEAR  RTCC  REGISTER 
iCimM.  16  sue  COUNTER 


;  CHECK  FOR.  BSeC  TRIP 


0058  0C06 

0059  0026 
005A  OCPO 
005B  0006 
005C  0C28 
005D  0002 

005B  ocoe 
oost  e^s 

0060  0943 

0061  OCOA 

0062  0026 

0063  094C 

0064  0209 

0065  0033 

0066  0208 

0067  0032 


MOVLW 
MOVWF 

wmM 

rails 

wsmM 

MOVLH 
KOVMF 

CALL 
HOVLH 
HOVHF 
CALL 

MOVF 
MOVWF 
MOVF 
MOVWF 


B'OOOOOllO" 
6 

B'lUlOOOO' 
6 

B'OOIOIOOO- 

B' 00000000' 

5 

OSCHRG 

B' 00001010' 

6 

ttJtUIB 

ACCA+1, W 

TMEAS+1 

ACCA,W 


.  f^T  S2  AND  S3  HIGH  (ON  WHEN  ACTIVATED) 
;J«C7IV&TB  SmXCHES  S1-S4 
f  SMKt  POSZ-BEVE  EDGE  FCOi  RTCC 

;SET  RAO  LOW  (ON  WHEN  ACTIVATED) 

sCSARGB  CAPACITOR  TO  VIN 
;S2  AND  S4  ON 


; STORE  LSB 
;  STORE  MSB 
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0068 

0C05 

CAL  MOVLW 

B'OOOOOlOl' 

;S1  AND  S3  ON 

0069 

0026 

MOVWF 

6 

006A 

0943 

CALL 

DSCHR6 

;  CHARGE  CAPACITOR  TO  VREF 

006B 

0C09 

MOVLW 

B' 00001001' 

;S1  AND  S4  ON 

ooec 

0026 

MOVWF 

6 

0060 

094C 

CKU. 

;I(EASOR^  TDfE 

OOSS 

OCM 

mmM 

VCAIiLS 

ooisr 

00^ 

0070 

0C60 

VCASHS 

0071 

002A 

MOVHF 

ACCB 

0072 

0908 

CALL 

MPY 

}]SJLTlVLi  ACCA(TCAL)  *  ACCB  (VREF) 

0073 

0213 

MOVF 

TMEAS+1,W 

0674 

0029 

ACCA*-! 

0075 

0212 

mm 

IMBftS.W 

0076 

0028 

ACCA 

0077 

0923 

CALL 

DIV 

iDIVIIS  ACCB(TCAI.  *  V)  BY  ACCA(IMEAS) 

0078 

0A58 

GOTO  VOLTS 

Ecrors  :  0 
Warnings  ;  0 


ZS3 
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Analcsg^to;  Digital  iCoiliprMQil 
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Implementing  Ohmeter/Temperature  Sensor 


INTRODUCTION 

ohnvneiarfiequiiwmlytimaKlerhaloo^^ 
spllMnreanel  ^ia«teare(»nflguiableforissi8tance  nwa- 

Hw  mtfiod  uses  a  s«7f!hi|H9  (faW^ii^Hdi^lit^wi^  that 

well  as  component  errors.  The  PIC16C5X 
miciDcontrollers  are  ideal  for  simple  analog  applications 
because: 

*  Veiy  low  cost. 

f  Few  ewtemal  components  required. 

*  FtMy  programmable.  PICIi 
offered  as  One  Time  Prog 

devices. 

*  Available  off  tlie  sfielf  from  distributors. 


FIGURE  1  -  OHMETER/TEMPERATURE 
SENSOR 


RAO 

RA1 
RA2 
RTCC 


17 

 VWn 


-wv- 
Rm 


■'WW 
Rp 


Note: 


Rp  is  a  small  resistor  (100-2000)  to  limit  peak 
current  through  RA2  while  discharging  or  through 
RA2  or  RTCC  In  the  event  of  an  ESD  or  EOS  related 
brsalcdown. 


PKlUREl  -  iOMiETEI^MPERATURE 
SENSOR 


*  Calibration  in  software  for  Improved  measurment 
accuracy. 

*  Power  savfirgs  using  PtCfecsX's  Sleep  mode. 

*  PIC16C5X's  output  pins  have  large,  current  source/ 
sinl<  capability  to  drive  LED's  directly. 

Voilage 
on  C 

TM 

Tc 

VlHFTT 

I  TIu^RmC 
tc-RcC 

THEORY  OF  OPERATION 

i  TIME^ 

Tlie  application  uses  a  capacltive  charging  circuit 
(Figure  1)  to  convert  ttie  resistance  to  time,  which  can  be 
easily  measured  using  a  microcontroller.  First,  a  refer- 
ence vottage  (usually  Vdd)  is  applied  to  a  calibration 
resistor,  Rc.  The  capacitor  C  is  charged  up  until  the 
Ihresttolei  on  the  chip  Input  tiips.  JThe  gunera^  a 
aoRware  calibration  value  thaf  ^  'used1o~(^^rate  out 
most  circuit  enors,  indudkisftaccuracies  in  the  capaci- 
tor, changes  in  the  inpirt^thre^kJ  voltage  and  tempera- 
ture vaiiatlaBS.  After  O  Is  diisehacged,  the- reference 
volta9s  is  applied  to  the  resistance  to  1^  measured  (or 
ftmrntm.  the  time  to  trip  the  tfwMiidH  Is  ^en 
inaaBifliad  and  conipmd  10  tw  eObtm^  VahMTiir 
jiBteiinine  the  actual  resiStanea  {p^am  ^  mrttie 
kemporaturs  sensing  mode.  l^.tMiipflMMs  ^.gsIcu- 
tated  using  a  lookup  table.  ,  , 


ilH.  ^  XHC 


CIRCUIT  CONFIGURATION 

The  values  of  Rc  and  C  are  selected  based  upon  the 
number  of  bits  of  resolution  required.  Rc  should  be 
approximateiy  one  half  the  largest  value  resistance  to  be 
nwjpsurad  and:  '  _y 

C=- 


Where: 
Vr  =  Reference  voltage 

T    =  Time  to  do  ttie  number  of  bits  of  resolution  desired 

Vt  =  Threshold  voltage  of  the  PIC16C5X  input  being  used 

Rm  =  Maximum  resistance  value  to  be  measured 

AeUial  wriue  for  C  should  be  slightly  smaUm- than  calcu- 
latad  to  ensure  that  the  PIC16C5X  does  not  overcount 

during  the  measurement. 


CiWIWeWehipTeehHOIcigy  ire:  OSOOSiac-piige  1 
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Ohmeter/T@mperatyf0  ^nsor 


For  example  use  Rm=200K  for  8-bits  resolution  with  an 
8  MHz  clock,  Vr  =  5V,  Vt  =  3V,  Rc  =100K  and  6 
instmctlon  cycles  per  count: 

T  =  256  counts  *  1/8  MHz  *  4  docks/instnjction  *  6 


C=  4200  pF  (Use  3900  0F] 

ein^OlT  PERFORMANCE 

The  caiibiHtlon  cycle  remov68^|^tj^lBr  errois  (otf- 
sat,  gain,  C  inaccuracy,  powa^sa^p^mitaga  mi  tam- 
peiature)  except  R  absolute  accumigpKKKWllNRWHSKff 
should  be  selectedfor  R  and  its  value  sl^Bd  lttsoinMaM 
ilo  mlH!»  i^MSUrmentAnpFs.  Other  eibr  souses  art 
t^f/ln  taaislipl-MtelerWict^capacnor  hon4naaitte^ 


input  thresh^  unceitedn^  and  time  measurenient  un- 
cedinnty  (4/-  one  InstruGlion  cycle  time).  Measured 
patfoonatiGe  shows  the  ohmmeter  to  be  accurate  within 
4/-1%overonede«Kle.  t. 

The  assembly  code  implementing  the  circuit  of  Figure  1 
is  listed  in  Appendix  A.  This  code  measures  time  up  to 
16  bits  (65535  measure  cycles)  and  calculates  the 
results  using  16  bit  multiply  and  divide  subroutines.  In 
actual  applications,  it  is  more  efficient  to  use  8  bit 
measurements  if  application  accuracies  permit.  The 
math  code  will  be  substantially  reduced  and  measure- 
ment time  is  reduced  by  the  simpler  code  and  shorter 
count. 


J 


Author:  Doug  Cox 

Logic  Products  Division 


mmm  ^''mmms^OH  flqVv  chart 


START 


J 


c 


DISCHARGE 


InKial  Setup 


) 


Call  Discharge 


Setup  Outputs  for 
Callbrarfien  , 


Call  Measure 


HCHTAf 

r  xJin""'  ■■'!  =>-4lt.  ■ 


Set  Cap  to  Ground 

WAIT 

Open  Cap 

RETURN 

MEASURE 


^tgp  Outputs  for 


Call  Measure 


Compute  Result 


Clear  RTCC 

Clear  Counter 

Increment  Counter 

NO 

Ctieck  for  RTCC  Trip 

YES 

RETURN 

Pifli^ta&pegt^ 
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APPENDIX  A: 

-  'y  -  ■ 

MPASM  BO.  54  ,  EAC* 


P=16C54,F=inhx81I 


ACCA 

EQU 

g 

ACCB 

ElQU 

OA 

ACCX^ 

EQU 

■  OG 

ACCD 

EQU 

OS 

UUJ,U 

EQU 

10 

TCATi 

HQU 

0014 

EQO 

14 

002F 

RCALMS 

EQU 

2F 

jRCAL  MSB  VALUE   IN  HEX 

003C 

RCALLS 

EQU 

3C 

;RCAL  LSB  VALUE  IN  HEX 

ORG 

IFF 

OlFF 

0A5S 

GOTO 

OHHS 

ORG 

0 

0000 

0209 

MADD 

MOVF 

accah-1(W, 

0001 

OlEB 

ADDWF 

ACCB*"! 

;ADb  LSB 

0002 

0603 

3v  0 

0003 

02AA 

0004 

0208 

MOVF 

ACCAfW 

0005 

OlEA, 

ADDWF 

ACCB 

;ADD  USB 

0006 

0800 

RSTIiW 

0 

0007 

0000 

NOP 

0008 

0915 

■  RESm«S  IS  B(16  KSB'SI  AHD  Cile 

0009 

032E 

HLOOP 

fROTATS  Bi  RISIS' 

OOOA 

032F 

Aee^i 

OOOB 

0603 

SKPHC 

,-SmD  .TO- ADD? 

OQOC 

0900 

CALL 

MAOD 

OOOD 

032A 

RRF 

ACCB 

OOOE 

032B 

RRF 

ACCB+1 

OOOF 

032C 

mm 

IliCCC 

,- •-i-">'J.'.           '  ■  .1 

0010 

032D 

•axe 

ACCC+1 

0011 

02F4 

fSMP 

;LOOP  liSTIL  ALI'  BfTS  CSKKED 

0012 

0A09 

GOTO 

HLOOP 

0013 

0800 

RETIiW 

0 

-S) 


0014  0000 

0015  OCIO 

0016  0034 

0017  020A 

0018  002E 

0019  020B 
OOIA  002F 
OOIB  020C 
OOlC  0030 
OOID  020D 

oeiB  0031 

OOIF  006A 

0020  006B 

0021  0800 

0022  0000 

0023  0915 

0024  0C20 
003S  003« 
0(it2#  OOfiiS 
0027  0060 
0018  0403 
0029  0371 
002A  0370 
002B  036F 


NOP 

MOVLW 

10  . 

MOVWF 

TEMP 

mm 

;  ACCB  ,  W 

MOVWP 

ACCD 

MOVF 

ACCB+1,  W 

MOVWF 

ACCD+1 

MOVF 

ACCCW 

MOVWF 

ACCE 

MOVF 

ACCC+1, W 

MOVWF 

ACCE+1 

CLRF 

ACCB 

CLEF 

ACCB+1 

RETLW 

0 

NOP 

CALL 

SETUP 

MOVLW 

20 

MOVWF 

TEMP 

CLRF 

ACCC 

AGCe+l 

CLRC 

RLF 

ACCE+1 

RLF 

ACCE 

RLF 

ACCD+1 

2t67 
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002C 
002D 
00211 

0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
003A 
003B 
003C 
003D 
a03E 
003F 
0040 
0041 
0042 


036B 
036D 
t36C 
0208 

008C 
0743 
0A35 
0209 
008D 
0703 
0A3E 
0209 
00  AD 
0703 
OOEC 
0208 
00  AC 
0503 
03  6B 
03  6 A 
02F4 
0A28 
0800 


H0I30 


SUBWF 

SKPZ 

GOTO 

MOVF 

SUBWF 


»scc 

ACCA.W 

ACCCW 

NOCHK 

ACCA+1,W 

ACCC+1,W 


GOTO 
MOVF 
SUBWF 

BTFSS 
DECF 
MOVF 
SUBWF 
SETC 

to*-'  »ib6mt-i 

KLF  &CCB 

DECFSZ  TEMP 

GOTO  DLOOP 

RETLW  0 


ACCA+1,W 
ACCC+l 

3,0 
ACCC 
ACCA.W 
ACCC 


;CHECK  IF  A>C 


;IF  MSB  EQUAL  THEN  CHECK  LSB 
;CaBSY  SET  IF  C>A 


;c-A  iireo*;c 

c  ■ 


;  SHIFT  A  1  INTO  B  (RESULT) 


■  IiOOP  dMU>  AlS'  Vm  CHECKED 


0043  OCOB 

0044  0005 

0045  OCFF 

0046  0034 

0047  02F4 

0048  0A47 

0049  OCOF 
004A  0005 
004B  OSOO 

004C  0061 
004D  0069 
004E  0068 
004F  03E9 

0050  0A54 

0051  03E8 

0052  OAS  4 

0053  0A56 

0054  0701 

0055  0A4F 

0056  0201 

0057  0800 

0058  ocas 

0059  0O25 
005A  0C28 
005B  0002 


DSCHRG  MOVLW      B' 00001011' 


TRZS 

Mevtw" 

MOVWF 

DECFSZ 

GOTO 

MOVLW 

TRIS 

RETLW 


iHJIME  CLRF 
CLRF 
CLRF 


5 

'm 

TEMP 
TEMP 
LOOP 

B' 00001111' 

5 

0 

1  ■ 

ACCA+1 
ACCA 


TLOOP 


INCFS2  ACCA+1 
GOTO  ENDCHK 

GOTO 


GOTO 
™* HicHR' iJTFS^' 

GOTO 
idD.M  MOVF 
RETLW 


OPTION 


EKO( 

TLOOP 

1,W 
0 

B' 00000011' 

s 

*''0*l()i060' 


.■ACTIVATE  RA2 


;WiIT 

;ALI.  OUTPUTS  SifW' 


;CL8Jffi'ieTeC 


■jll 


•  1  >S.l 
■■  '  -Tit 


;  CHECK  FOR  RTCC  ^IP 

ssm  RAO  AND  RAi  Hicai  (c»i  WHEN  AcnvwH^j 

/SBEfiCT  POSITIVE  EDGE  F(Ml  RTCC 


005C  0943 
005D  OCOE 
005E  0005 
005F  094C 

0060  0209 

0061  0033 

0062  0208 

0063  0032 

0064  0943 

0065  OCQD 

0066  0005 

0067  094C 

0068  0C3C 

0069  002B 
006A  0C2F 


CALL 

wsmM 
•mis 

MOVF 

MOVWF 

MOVF 
MOVWF 

CALL 

MOVLW 

TRIS 

CALL 

MOVLW 
MOVWF 

MOVLW 


DSCHRG 

B- 00001110- 

5 

I(u.TIMB 
ACCAfl.W 

TCAL+1 
ACCA.W 
TCAL 

DSCHRG 

B'OOOOllOl' 

5 

M_TIME 

RCALLS 
ACCB+1 

RCALMS 


.•DISCHARGE  CAPACITOR 
;ACTIVara' RAO 

.-IffiSisURE  TIME 

;  STORE  LSB 
; STORE  MSB 

.■DISCHARGE  CAPACITOR 
;ACTI«%^  RM?— '  -  - 

/MEASURE  TIME 

;  CALIBRATION  LSB  VALUE 

.■CALIBRATION  MSB  VALUE 


fflj  ICO 

i  3' 


08ea5t2D>peg»4 


e  l99«MtoiaBhlp  T«8lSMilagRtt«. 


2^ 


Ohmeter/Temperature  Sensor 


006B  002A 


MOVWF  ACCB 


006C  0908 
006D  0213 
006E  0029 
006F  0212 
0070  0028 


CALL  MPY 

MOW  TCM.+1,W 

MOVWF  ACC*+i 

MOVF  TCAL.W 

MOVWF  ACGA 


lHOLTlVLY  ACCA(HEAS)   *  ACCB(RCAL) 


0071  0923 


0072  0A58 


CALL  DIV 
GOTO  DBMS 


jDIVIDB  AeCBtlEAS  *  R)   BY  ACCACTCAL) 
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Implementing  a  Simple  Serial  Mouse  Controller 


INTRODUCTION 

The  mouse  is  becoming  increasingly  popular  as  a  stan- 
dard pointing  data  entry  device.  It  is  no  doubt  tiiat  the 
ctemand  of  the  mouse  is  increasing.  Various  kinds  of 
mice  can  be  found  in  the  market,  including  optical 
mouse,  opto-mechannal  mouse,  and  its  ck>se  relative, 
trackball.  The  mouse  interfaces  to  the  host  via  an  RS- 
232  port  or  a  dedicated  interface  card.  Their  mecha- 
nisms are  very  similar.  The  major  electrical  components 
of  a  mouse  are: 

•  Microcontroller 

•  Photo-transistors 

•  Infiared  emitting  dkxie 

•  Voltage  conversion  circuit 

The  intelligence  of  the  mouse  is  provided  by  the 
microcontroller,  hence  the  features  and  performance  of 
a  mouse  is  greatly  related  to  the  mk:rocontroller  used. 

This  application  note  descraMS  ttie  implementation  of  a 
serial  mouse  using  the  PIC16C54.  The  PIC16C54  is  a 
high  speed  8-bit  CMOS  microcontroller  offered  by  Mi- 
crochip Technotogy  Inc.  It  is  an  ideal  candidate  for  a 
mouse  controller. 


THEORY  OF  OPERATION 

A  mouse  cai  be  divided  into  several  functional  blocks: 

•  Microcontroller 

•  Button  detection 

•  Motion  detection 

•  RS-232  signal  generatk>n 

•  5V  DC  power  supply  unit 

A  typical  f  unctbnal  block  diagram  is  shown  in  Figure  1 . 

In  Figure  2,  three  push  buttons  are  connected  to  the 
Input  ports  of  the  PIC1 6C54.  When  a  switch  opening  or 
closure  is  detected,  a  message  is  formatted  and  sentto 
the  host.  The  X  and  Y  movements  are  measured  by 
counting  the  pulses  generated  by  the  photo-couplers.  In 
the  case  of  an  opto-mechanfcal  mouse ,  the  infrared  light 
emitted  by  the  infrared  diode  is  blocked  by  the  rotating 
wheel,  so  that  the  pulses  are  generated  on  the  photo- 
transistor  side.  In  case  of  an  optical  mouse ,  the  infrared 
light  emitted  by  the  infrared  diode  is  reflected  off  the 
reflective  pad  patterned  with  vertical  and  horizontal  grid 
lines.  It  is  then  received  by  the  photo-transistor  in  the 
mouse.  When  any  X  or  Y  movement  Is  detected,  a 
message  is  formatted  and  sent  to  the  host. 


FIGURE  1  -  FUNCTIONAL  BLOCKS  OF  A  SERIAL  MOUSE 
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Tbe  Microsofl*  Mouse  System  andflia  MatiMgi^temaf 
device  both  use  serial  input  tedMcpas.  JtM  Mouse 
Sy^empraloeolfonnateontairwtlWB^asQtdalB,  One 
byte  describes  the  stalus  of  1hi«e  pusii  buitorts,  two 
tffiBSSeintie  relative  X  movements  and  two  bytes  for  the 
relativa  Y  movements.  The  Microsoft  protocol  format 
contains  three  bytes  of  data  describing  the  status  of  two 
push  buttons  and  the  relative  X  and  Y  movements.  The 
details  of  these  protocols  are  given  in  Table  1 . 

Three  lines  are  connected  to  the  host  via  the  RS-232 

port: 

•  Signal  Ground 

.!  Ill ■.>■<)<.':<..■( 

•  Received  Data 


"llee^iliadOidareaittMthemes^ge  sent  byttietnouse. 
WM  fteMiMfttoSen^  prcwides  a  -1 OV  DC  for  vdkage 
comwEtonebeuitiy.  Avotagaof45VDCi$racpMfpr 
sIMsbonic  conponenls  kK(MH||HI>ifi^l^99!^M||i^|ff^^V 
DC  is  not  part  of  an  RS-232  port,  so  voltagcoHiMMm 
circuitry  is  required.  This  circuit  is  typically compossd  of 
a  555  timer,  Zener  diodes,  and  capacitors.  An  example 
circuit  is  shown  in  Figure  3.  Since  the  current  supplied 
thfoiigh  the  R$-232  ^  is  limited  to  1 0  mA,  the  mouse 
cetmot  desiBned  to  consume  more  than  10  mA 
currant  unless  an  extemal  power  supply  is  provided. 
ThetPICI  6C54,  ninning  at  4  MIHz  (1  |js  instruction  cycle) 
ean  provide  a  very  high  tiacking  speed,  i^flt*^  MHz 
veision  of  PIC16CSA.||  alse  available  If  I^OtWMiW- 
n^an^isds^ired. 


1 
1 


r 
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RA1 
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SIGNALS  FROM  Y-COORD. 
PHOTO-TRAMSaSTOR 
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RECEIVED  DATA  PIN  OF  HOST  RS232  PORT 


FIGURE  3  -  VOLTAGE  CONVERSION  CIRCUrTRY 
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ABOUT  THE  SOFTWARE 

The  major  tasks  performed  by  the  software  are  button 
scanning,  X  and  Y  motion  scanning,  formatting  and 
sending  serial  data  to  the  host.  These  taslcs  need  to  be 
perfonned  in  parallel  in  order  to  gain  better  tracl<ing 
speed.  The  pulses  generated  by  the  photo-couplers  are 
counted  while  transmitting  the  serial  signals  to  the  RS- 
232  port.  The  number  of  pulses  reflects  the  speed  of  the 
movement.  The  more  number  of  pulses,  the  faster  the 
movement  is. 

The  cfirectipns  of  the  mo<«ment  are  detonnined  by  the 
last  stede«  jaqd  the  present  s^es  of  the  outputs  of  me 
pKato^tiainsistors.  Iri  Figure  4,  }0LOCKand  XOATA  are , 
outputs  from  fhe  photo-trsnsisto^  corr^^nding  to  the 


X-axis  movement.  XDATA  is  read  when  a  rising  or  a 
falling  edge  of  XCLOCK  is  detected.  For  right  move- 
ment, XDATA  is  either  LOW  at  the  rising  edge  of 
XCLOCK  or  HIGH  at  the  falling  edge  of  XCLOCK.  The 
up  and  down  movement  detections  follow  the  same 
logic.  In  Table  1 ,  X7:X0  are  data  for  relative  movement. 
If  X  is  positive,  it  implies  that  the  mouse  is  moving  to  the 
right.  If  X  is  negative,  it  implies  a  movement  to  the  left. 
Similarly,  if  Y  is  positive,  it  indicates  that  the  mouse  is 
moving  down  and  if  Y  is  negative,  it  indicates  that  the 
mouse  is  moving  up.  The  pulses  generated  by  the 
photo-couplers  are  checked  before  every  bit  is  sent.  A 
bit  takes  1  /1 200  second  to  send,  if  the  distance  between 
the  grid  lines  is  1  mm,  the  trafoking  speed  will  be  up  to 
1200  mm/second. 


FIGURE  4  -  VOLTAQE  CONVERSION  CIRCUITRY 
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TABLE  1  ■<  MOMSe  SYSTilifl  ANO  MtCfKl^a^  PROTOCOLS 


Bit 

Position 
Bytel 
Byte  2 
Byte  3 
Byte  4 
iyteS 


1 

X7 
¥7 
X7 
Y7 


Mouse  System  Format* 


Microsoft  Format* 


0 

X6 
Y6 
X6 


0 

X5 
Y5 
X5 
YS 


i- 

0 

X4 
Y4 
X4 


0 

X3 
Y3 
X3 
¥3 


L 

X2 
Y2 
X2 
,Y2 


M 

XI 
Y1 
XI 

Yl 


R 

xo 

YO 
XO 
YO 


7 

6 

5 

4 

3 

2 

1 

0 

1 

1 

L 

R 

Y7 

Y6 

X7 

X6 

0 

0 

X5 

X4 

X3 

X2 

XI 

XO 

0 

0 

YS 

Y4 

Y3 

Y2 

Y1 

YO 

L  s  Left  Key  Status 
M  t:  MiieteUe  Key  S^s^ 
R  a  Right  Key  ^tet^ 


1  =F 
.  9^ss.nel«ased 


X7-X0  -  X-Ms  Movement  Data 
Y7-Y6  a  Y-^s  Movement  IMa 
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llie'buttons  are  scanned  after  a  message  is  sent  and  the 
time  used  to  send  the  message  is  used  as  the  detx)uncing 
time.  The  message  is  in  an  RS-232  format  with  1200 
baud,  eight  data  bits,  no  parity,  and  two  stop  bits. 

The  flow  charts  of  the  main  program,  subroutine  BYTE 
and  subroutine  BIT  are  shown  in  Figures  5,  6,  and  7. 
Figure  5  shows  the  Trigger  Flag  is  set  when  any  change 
of  button  status  or  X/Y  movement  is  detected.  Subrou- 
tine BYTE  is  called  in  the  main  program  five  times  to 
send  five  bytes  of  information.  Subroutine  BYTE  con- 
trols the  status  of  the  'Received  Data"  (RD)  pin.  If 
Trigger  Flag  is  clear,  RD  will  always  be  HIGH.  Hence, 
no  message  will  be  sent  even  when  subroutine  BYTE  is 
called.  Figure  7  shows  that  subroutine  BIT  counts  the 
number  of  pulses  from  outputs  of  the  photo-transistors, 
determines  the  directions,  and  generates  1/1200  sec- 
ond delay  to  gM  l^  taiij  tkning. 

The  iTwuse  has  been  tested  in  Mousft^gimJMpde  and 
is  functioning  properly.  A  completed  itstinfofthe  source 
program  is  given  in  Ap^indlx  A.  | 

SUMMARY 

The  PIC16C54  from  Microchip  Technology  Inc.  pro- 
vides a  very  cost-effective,  high  performance  mouse 
implementation.  Its  low  power  (typically  <  2  mA  at  1  jis 
instruction  cycle),  small  package  (18-pin)  and  high  reli- 
ability (on-chip  watchdog  timerto  prevent  software  hang- 
ups) are  among  several  reasons  why  the  PIC16d54  is 
uniquely  suitable  for  mouse  applications. 


FIGURE  5  -  FLOW  CHART  OF.THE  HiWI 
PROGRAM 


ividesthe  userwithasimple, 
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paU  i|Sfutliwt€yte 
Data  * —  X-Oior.  Byte 

Call  Routine  Byte 
Data  A —  Y-Coor.  Byte 
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FIGURE  6  -  FLOW  CHART  OF  ROUTINE  BYTE 
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APPENDIX  A: 

MPASH  BO. 54 


0000 
0001 

0001 

0002 
0003 
0003 

0000 

0002 

wm 

0007 
0002 
0002 


LIST      Psl(^4,i^  ■  • 

******************************************* 

*  * 

*  MOUSE  C0NTROIJ.ER  * 

*  * 

*  VERSION  :  25  APRIL,  1990  * 

*  ..        ;|  * 

*  MODE  =  PIC1SC54X9!      CUM.XmSZ  ■*). 
***************  *♦**-*•**#*  *******  ***^  i^jfj^***  ** 


FILES  AS. 

0003 

! 

EQU 

3 

STATUS  RBSISTER 

0005 

RA. 

EQU  5 

I/O  PORT  A 

OftOS 

RB 

KSIKaS  .     1 ' 

I/O  PORT  B 

0008 

tIMERl 

KOO 

16 

COUHTER  FOR  DELAX 

oooc 

CSTAT 

EQU 

14 

CO-ORDINATE  STATED 

OOOD 

BSTAT 

EQU 

15 

BUTTON  SWDS 

OOOE 

DATAO 

EQU 

16 

OOOF 

DAfAl 

EQU 

17 

0010 

DATA2 

EQU 

20 

5  BYTE  RS232  DATA 

0011 

EQD 

21 

0012 

I]A1%4 

EQO 

22 

0013 

FLAGA 

EQU 

23 

GENERAL  PURPOSE  SlAG 

0014 

XCOUNT 

EQU 

24 

X-MOVEMENT  COUNTTO 

0015 

YCOUNT 

EQU 

25 

Y-MOVEMENT  COUNTER 

0016 

FLAGS 

EQU 

26 

GENERAL  PURPOSE  FLAG 

0018 

COUNT 

EQU 

30 

GENERAL  PURPOSE  COUNTER 

0019 

1 

BQD 

31 

FOR  TEMP.  STORAGE 

BIT  ASSI<»)HENT 


YC 

EQU 

0 

Y-CLOCK  PIN 

YD 

EQU 

1 

Y-DATA  PIN 

OT 

EQU 

1 

wmm  OF  KAG 

XC 

EQU 

2 

X-CLOCK  PIN 

XD 

EQU 

3 

X-DATA  PIN 

RI 

EQU 

3 

MOVING  RIGHT  FLAG 

BUI 

EQU 

0 

BUTTON  #1  PIN 

BU2 

EQU 

2 

BUTTON  #2  PIN 

CA 

BQ0 

0 

CARRY  FLAG 

RD 

BQD 

7 

RECEIVED  DATA  PIN 

ZERO.JUtEA 

EQU 

2 

^eSSO  BIiAS 

TR 

2 

^G@BR  FLAG 

'  SOBROUTINES 


**j^^4ti%**A*4^4r**^*#»^*,********************* 

ORG  0 

******************************************* 


DELAY  A  BIT  TIME  AMD  CHECK  XC  &  YC  STATOS 
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BI7 


0000  0745 

0001  OAOA 

0002  064C 

0003  OAll 

0004  02B4 

0005  0476 

0006  0765 

0007  OAll 
OOm  0576 

0009  OAll 

OOOA  074C 
OOOB  OAll 
OOOC  02B4 
OOOD  0476 
OOOE  0665 
OOOF  OAll 

0010  e57« 


GOTO 

INCF 

BCF 

BTFSS 

GOTO 


BITO 


BTFSS 

GOTO 

INCF 

BCF 

BTFSC 

GOTO 


BITO 
CSTAT.XC 

BITY 
XCOUNT 
FLAGS,  RI 
RA,XD 
BITY 

Bm 

CSTAT,XC 

BITY 
XCOUNT 
FLAGS,  RI 
RA,XD 
BITY 
FLAGS, RI 


;3K:  =  1  7 
;(XC=1) 

;  (XC  ALWAYS  =  1) 

;  (XC  -|_) 

;  DEFAULT  LEFT 
;I£FT  /  RIGST  ? 


(SC=0) 

(XC  ALWAYS  =  0) 
(XC  _|-) 
BEFAOLT  LEFT 

LEFT  /  Ricar  ? 


0011  0705 

0012  OAIB 

0013  060C 

0014  0A22 

0015  02B5 

0016  e«36 

0017  0725 

0018  0A22 

0019  0536 
OOIA  0A22 

OOIB  070C 
OOlC  0A22 
OOID  02B5 
OOIE  0436 
OOIF  0625 

0020  0A22 

0021  0536 


BITYO 


BTFSS 

GOTO 

BTFSC 

GOTO 

INCF 

BCT  I'  • 

BTFSS 

GOTO 

BSF 

GOTO 

3 

BTFSS 

@im »  '-' 

BCF 

Stfsc 

GOTO 
BSF 


RA,  YC 
BITYO 
CSTAT, YC 
BITDY 
YCOUNT 


1  ? 


BITDY 
FLAGS ,  UP 
BITDY 

CSTAT,  YC 

CBtaw"  " 

FLAGB,UP 

RA.YD 

BITKf 


: (YC=1) 

;  (YC  ALWAYS-  « 
;  (YC  -|_)  ^ 
;ISFAIX^  jSWH 


1) 


3fiO" 


; (YC=0) 

;  (XC  ■mam-  =  o) 


0O22 
0023 
0024 
0025 

0026 
0027 
0028 

&a29 


0205 
002C 
OCCl 
0028 

0000 
02  E8 

otoo 


BITDO 


vam 

HOVMF 
MOVLW 
MOVWF 

D 

NOP 
DECFSZ 
GOTO 
SBTLM 


CSTAT 

193D 

TIMERl 


TIMERl 
BITDO- 
0 


;  SAVR-COORr-flfSrOB 
■  0.833  MS  DELAY 


■IJ»  • 


*  SUBROUTINE  TO  SEND  A  BYTE 


002A  0078 
002B  0753 

oesc  0A2E 


CLRF 
BTFSS 
GOTO 
BCF 


COUNT 

FLAGA,TR 

BYTEO 


itx>»  m  FOR  sTtsec  bit  ' 


0029!  0900 

002F  0753 

0030  0A37 

0031  0339 

0032  0703 

0033  0A36 


BVTEl 


CAUi 

L 

BTFSS 
GOTO 
RRF 
BTFSS 

GOTO 


Bit'  • 

FLAGA,TR 
BYTE3 

DATA_AREA" 
STATUS, CA 
BYTE2 


;ANY  TRIGGER  ? 


;  SHIFT  BATA  TO  CARRY 
;0  /  1  7 
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0034 

0SE6 

BSP 

t  SEmi  A  1 

0035 

0A37 

GOTO 

BYTES 

BYTE2 

0036 

04B6 

BCF 

RB,RD 

iSE^  A'  0 

BYTE3 

0037 

0900 

CALL 

BIT 

0038 

02B8 

INGF 

0039 

0778 

BTFSS 

COUNT,  3 

; COUNT  =  8  ? 

003A 

0A2F 

GOTO 

BYTEl 

003B 

0753 

BTFSS 

FLAGA, TR 

;ANY  TRIGGER  ? 

003c 

0A42 

GOTO 

BYTE4 

O03D 

04E6 

BCF 

RB,RD 

; SEND  SENT  BIT 

0O3'S[ 

000(0 

CALL 

BIT 

OOSf 

05B6 

BSF 

SB. BO 

0040 

0900 

CALL 

BIT 

0041 

0A44 

GOTO 

BYTES 

ByrB4 

0042 

0900 

CALL 

BIT 

0043 

0900 

CALL 

BIT 

BYTES 

0044 

0800 

RETLW 

0 

RESET  ENTRY 

[NIT 

0045 

OCCl 

MOVLW 

B'llOOOOOl' 

;  DISABLE  WATCH  DOG 

0046 

0002 

OfTItai 

-           '  '-  - 

0047 

OCOF 

HOVLW 

s'Ooooiiii' 

;INIT  IGSO^'  BE  lOMTS 

0048 

0006 

mi  s  KB 

;RB4-7  BE  0DTH3TS  ^ 

0049 

OCFF 

;1N1T  msa~3  BE  mPOTS 

004A 

0005 

TRIS 

RA 

004B 

05E6 

BSF 

;KIGH  RD  PIN 

004C 

0246 

COBF 

BB,H 

;OET  INIT  BUTTON  INPUTS 

0:048 

OBO'S 

ANBLW 

B''^|0©O1O1 ' 

0@4S 

^SO 

icmsn 

B'lOOO'OOOO' 

0047 

002D 

SSTltT 

-  * 

0050 

002B 

MOVW 

WW"" 

0051 

0205 

MOVF 

RA,W 

0052 

002C 

MOVWF 

CSTAT 

0053 

0073 

CLRF 

FLAGA 

■  CLEAR  TR  FLAG 

0054 

0074 

CLEF  ' 

XCOUST 

jiaSSKT  XCOraiT  £  YCODNT 

0055 

0075 

CLRI' 

Ycaaw 

scm 

0'05€ 

00 6P 

CLRP 

BATAl 

!\3Wm.TS  X,Y  MOVEMENT  DATA 

0057 

0070 

CLRF 

DATA2 

0058 

0071 

CLRF 

DATA3 

0059 

0072 

CLRF 

DATA4 

005A 

0214 

MOVF 

XCOUNT , W 

;XCO0NT  =  0  ! 

005B 

0743 

BTFSS 

STATUS ,  ZERO_AREA 

OftSO 

GOTO 

SGAHA 

' '  ' 

005D 

0215 

MOVF  Y 

COUNT, W 

;Y<3BiaiW  *''8  ?  ' 

005E 

0743 

BTFSS 

STATUS ,  ZERO_»REa 

005F 

0A92 

GOTO 

WRITY 

SCANS 

0060 

0246 

COMF 

RB,W 

;  BUTTON  STATUS  CHANGE  ? 

0^61 

O'EOS 

ANBLH 

B'OOOOOlOl' 

0062 

OD80 

lOlW 

B'ji/OMosoe' 

0063 

00  AD 

SUBUF 

BSTAT 

0064 

0643 

BWSC 

STATUS ,  ZERO JREA 

;IF  CHANGE  THEN  TRW^m. 

0065 

0A6B 

GOTO 

SCANC 

;  (NO  CHANGE) 

0066 

0553 

BSF 

FLAGA, TR 

;  (CHANGE)   SET  TRIGGER  FLAG 

0067 

0246 

COMF 

RB,W 

.•FORMAT  BUTTON  STATUS  DATA 

0MB 

oms 

ANDLH 

B'OOOOOlOl' 

00*9 

soso 

vmm 

B'lOOOOOOO' 

imnipiiii 

uglify  a  Cimr»l«  C« 

d06C  0E05 

ANDLW 

B' 00000101 ■ 

006D  0D80 

imoM 

B' 10000000' 

006E  002D 

mmif 

BSTAT 

006F  02 OE 

vsm 

EAZAO.W 

0070  0039 

■  ■  ■ 

0071  092A 

BYTE 

0072  020F 

mm  ' 

•mmk.M 

nA^^^  AA^A 

0073  0039 

MOVWF 

DATA_AREA 

0074  092A 

CALL 

BYTE 

0075  0210 

MOW 

DATA2,W 

0076  0039 

mmn 

maa^j^KEA 

ft  An     A  A1  X 

UU  /  /  U9^A 

mm 

0078  0211 

wsm 

DATA3,W 

0079  0039 

mvmf 

BATA_AREA 

0D7A  D92A 

GALL 

BYTE 

007B  0212 

MOVF 

DATA4,W 

007c  0039 

MOVWF 

DATA_AREA 

007D  092A 

CALL 

BYTE 

007E  0453 

BCF 

FLAGA.TR 

/CLEAR  TRIGGER  FLAG 

QQIW  C|AS€ 

SOTO 

0080  0553 

BSF 

FLAGA.TH 

;SET  TRIGGER  FLAG 

0081  0C40 

MOVLW 

40H 

; IF  XCOUNT  >  64  THEN 

0082  0094 

SUBWF 

XCOUNT.W 

0083  0603 

BTFSC 

STATUS ,  CA 

0084  0A8D 

.  .■tGSiP  <'.'< 

WttTS 

0085  0776 

BTFSS 

FLAGS,  RI 

;LEFT  /  RIGHT  ? 

0086  0A90 

GOTO 

WRITL 

0087  0274 

COMF 

XCOUNT 

;  (RIGHT)  NEG  XCOUNT 

INCF- 

WRITA 

0.089  002F 

OOm  0031 

seam. 

■;■ 

008D  OC40 

MOVLW 

40H 

; XCOUNT  <-  64 

008E  0034 

JECOUNT 

008F  0A85 

GOTO 

VIRITS 

MRITL 

0090  0214 

MOVF 

XCOUNT.W 

;  (LEFT) 

Od9X  fEtt89 

GOTO 

« 

WRITA 

AAA**  ACC*^ 

0092  0553 

EBF 

FLASA.TR 

;SET  TRIGGER  FLAG 

0093  0C40 

MQVLH 

40H 

;IF  YCOUNT  >  64  'i'ttlSEl 

0094  0095 

StJBViF 

YCOUHT.W 

0095  0603 

BTFSC 

STATUS, CA 

0u9o  0A9F 

GOTO 

WRITV 

WRITW 

0097  0736 

;DOWN  /  UP  ? 

0098  0AA2 

SOTO 

mxTB 

0«Sf:9 

YCOOMT 

;  tOT)  K8@  IfCOUHT 

009A  V295 

mcF 

YCOONT.W 

WRITS 

009B  0030 

MOVWF 

DATA2 

009C  0032 

MOVWF 

DATA4 

009D  0075 

CLRP 

YCOUNT 

.•RESET  YCOUNT 

009E  0A6O 

GOTO 

SCANB 

DS00519B-page  10 


2W 


MB  = 
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Mouse  Controller 


009F  0C40 
OOAO  0035 
OOAl  0X97 


WRITV 


wmn  40H 

MOVNF  yCOONT 
GOTO  WRITW 


;ycoanT  <-  64 


00A2  0215 
0OA3  0A9B 


OlFF  0A45 


MOVF  yCOUNT.W 
GOTO  WtlTB 


RESET  ENTRY 


ORG  777 

GOTO  met 


: (DOWN) 


;  JDHP  TO  FRO(atAM  STARTIN3 


Errors  :  0 
Warnings  :  0 


,  ******************************************** 
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Intelligent  Remote  Positioner  (Motor  Control) 


Aa^non  Stevm  Frank  -  Ve^ta  Technofogy  tnm 
INTRODUCTION 


Ttie  excellent  cost/performance  ratio  of  the  PIC16C5X 
are  well  suited  for  a  low-cost  proportional  D.C.  actuator 
controller.  This  application  note  depicts  a  design  of  a 
remote  intelligent  positioning  system  using  a  D.C.  motor 
(up  to  1/3  hp)  run  from  12to24  V.  The  position  accuracy 
is  one  in  eight  bits  or  0.4%.  The  PIC16C5X  receives  its 
command  and  control  infonnation  via  a  MICROWIRE^" 
serial  bus.  However,  any  serial  communication  method 
is  apfsHcable. 

l!liBA^IC16C5X  based  oentoltoK  iilseeives  commands 
Umi  a.<host,  compareskHtam  la.'tlw  actual  position, 
calcttlates  the  desinKtm^cdriv^  leiMand  thotviiulsi^ 
a  fuH.JH-bridga  (iigEiKiv^.  vtn  tt^  wojf  ILiSBives.as  a 
remote  lnte%witi4SM^iQ!8er,4rwjng-^  (o^ufitll  It  has 
reached  the  cptncttanded  pe^ion.,  Jt^em.  tie  used  to 
controlanyptoportional  D.C.  actuatori.e.  D.C.  motor  or 
prspcKtianal  valve; 

lflSliiyste(H#ta^lly  suHed  to  mne^  pes^sn  vah^es 
ei^fi«ehir)d(^riet»AbeiissdwnhQ.OltrK»mto«asify 
atj(Offtate>  ft^uah^Mpmem.  Bb6austi  df-ttM  S-wire 
miSI  ifltdftace,  the  |»^Mdh6r  ban  t>e  tnstatted  near  its 
power  supply  and  load.  The  remote  intelligent  posrtioner 
can  then  be  linked  to  the  central  control  processor  by  a 
small  diameter  easily  routed  cable.  Since  the  positioner 
is  running  its  own  closed-loop  PID  algorithm  (Figure  3), 
the  host  central  processor  need  only  send  position 
commands  and  is  therefore  free  to  service  the  user 
interface,  main  ^plication  software andcomman,d  maip^ 
remHla,p?^ei^lC,,  '  ,'    ' "!„"'^, "  '„'..^ 

The  limit  switch  inputs  provide  a  safety  netthis  Iceeps  the 
system  from  destroying  itself  in  the  event  that  the  feed- 
back  device  is  kist.  The  optional  current  sense  input  can 
be  used  to  determine  if  the  load  has  jammed  and  preweril 
overheating  of  the  actuator  and  drive  etectronics. 


The  commanded  positions  are  presented  to  the 
PIC1 6C5X  via  a  microwire  type  protocol  at  bit-rates  of  up 
to  50kb/s  for  the  4  MHz  part.  As  currently  implemented 
in  this  application  note,  the  position  request  is  the  only 
communication.  There  are  several  variable  locations 
available  and  they  could  be  utilized  to  allow  down- 
loading of  the  loop  gain  parameters,  reading  positioner 
information,  or  for  setting  a  current  limit.  The  host  that 
is  sending  the  position  request  mij^  set  the  chip  select 
low,  and  wait  for  the  PIC1 6C5X  to  raise  the  "busy"  (DO) 
line  high.  Atthis  point,  eight  data  bits  can  IpQloc^  into 
the  PIC16C5X.  The  requested  posion  sent;  most 
significant  bit  first  and  can  be.any  S-bit  value.  Values  1 
through  255  represent  valid  positions  with  0  betig  re- 
served for  drive  disable. 

The  PIC16C5X  acquires  data  by  way  of  a  microwire 
A/D  converter.  This  part  was  chosen  for  low  cost  yet  it 
ptx>vides  adequate  performance.  The  second  channel 
of  the  A/D  is  shown  hooked  up  to  a  peak  cunent  detector. 
If  the  user  desired,  the  PIC16C5X  could  monitor  and 
protect  the  rmtor  Irom  overcurrent  by  monHorip  this 
infonnation. 


FIGURE  1  -  BLOCK  DIAGRAM 


UieicwiB 
Input 


Test  Set-Up 


A/D 
Converter  U, 


PIC16CSX 

Power  Fet 
Bridge 


Position 


Peak 
Detector 


Peek  Current 
througfi  Motor 


MICROWIRE™  is  a  trademark  of  National 
Semiconductor  Corporation. 
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The  H-bridge  power  amplifier  will  deliver  10  or  mora 
amps  at  up  to  24  volts  when  properly  heat-sinlcad.  It  is 
wirscl|oramodified4-<^^attt()odeofopeiiiMon.  One 
le^  of^  bridle  js  us«M%ntmt  direcUon  and  the  ottier 
leg  pulses  the  low  FET  and  the  high  FET  alternately  to 
generate  the  desired  duty-cycle.  In  this  way  the  system 
will  operate  well  to  produce  a  desired  'speed'  without 
the  use  of  a  separate  speed  control  loop.  This  allows  use 
of  the  P IC 1 6C5X  to  control  the  PIO  aigotttHii  to  positien 
directly  while  having  maonslate  speed  oonHot.  Thil 
capacitance  at  the  gates  of  the  FETs  combined  with  the 
impedance  of  the  drive  circuits  provides  fortum-off  of  the 
upper  FET  before  the  bwer  FET  turns  on ...  an  important 
criteria. 

The  PID  algorithm  itself  is  where  most  of  the  meat  of  this 
application  note  is  located  so  let's  look  at  it  more  closely. 
The  Algorithm  is  formed  by  summing  the  contribution  of 
three  basic  components.  The  first  calculation  is  the  error 
for  that  is  what  the  other  terms  are  based  on. 

The  error  is  the  requested  position  minus  the  actual 
position.  It  is  a  signed  number  whose  magnitude  can  be 
255.  In  order  not  to  lose  resolution,  the  error  is  stored  as 
an  8-bit  magnitude  with  the  sign  stored  separately  in  the 
FI^GS  register  under  ER_SGN.  This  allows  us  to 
resolve  a  full  signed  8-bit  en-or  with  8-bit  math. 

The  proportional  term  is  merely  the  algebraic  difference 
of  the  requested  position  minus  the  actual  position.  It  is 
scaled  by  a  gain  term  (Kp)  called  the  'proportional  gain* . 
The  sign  of  this  term  is  important  for  it  tells  the  system 
wNch  direction  it  must  drive  to  correct  the  error.  The 
proportional  term  is  limited  to  ±  100.  Increasing  the 
proportional  gain  tetin  will  improve  the  dynamic  and 
staticaccuracyofth^^spiettl.  Incraasingittoomuchwill 
cause  oscillations.  '•  \j  i 

The  next  term  that  gets  calculated  i$.ttin  Integral  teim. 
This  term  is  traditionally  f omne^  tiy  Integntfng  the  enoi; 
overtime.  Inthisapplk^iHonit&donedyintofmtin^ 
Kitemi  overtime.  When  the  error  is  zei^,  no  tit^patbri 
is  performed.  This  is  a  more  practlcari  nn^  t#R^i|  ai 
potentially  large  number  in  8-bitfliefVi.  Byinoitesawttiei 
Ki  term  the  D.C.  or  static  gain  of  the  ^stemjsimpiovodi 
In^iMi^lns  thohtegtal  gain  too  nnjch  can  li^  to  low 
|to|i(iMiiE|f^@Mations.  '  | 

I  I  I---.  ( ■--   -  ! 


  -   *-.i;y--r  

Thsfliffemntlal  term  (Kd)  is  a  stabilizing  temn  that  helps 
Iteeplheintegial  and  proportional  termsfiom  overdriving 
ttis  system  through  the  desimd  position  and  thus  creat- 
ing osdilations.  As  you  more  proportional  and 
integral  gain  you  will  need  more  differential  cn  well. 
The  differential  gain  is  calculated  by  looking  at  the  rate 
of  change  of  the  positional  error  with  respect  to  time.  It 
is  actually  formed  as  "delta  error/delta  time'  with  the 
delta  time  being  a  program  cycle. 

The  three  terms  are  summed  algebraically  and  scaled  to 
produce  a  percentage  speed  request  between  0  and 
100%.  The  sign  of  the  sum  is  used  to  control  the 
H-bridge  direction.  The  loop  calculations  run  approxi- 
mately 20  times  per  second  on  a  4  MHz  part.  This  yields 
sufficient  gain-bandwidth  for  most  positioning  applica- 
tions. If  higher  system  performance  is  desired,  the 
number  of  pulses  can  be  reduced  to  20  and  a  16  MHz 
PIC16C5X  can  be  used.  Your  Loop  gains  (Kp,  Ki,  Kd) 
will  have  to  be  recalculated,  but  the  system  sample  rate 
will  be  increased  to  400  Hz.  This  should  be  sufficient  to 
control  a  system  that  has  a  response  time  of  20  millisec- 
onds or  more. 

The  key  to  using  the  PIC16C5X  series  parts  for  PID 
control  and  PWM  generation  is  to  separate  the  two  into 
separate  tasks.  There  is  simply  not  the  hardware 
support  or  the  processing  speed  to  accurately  do  both 
concurrently.  It  is  fortunate  therefore  that  it  is  not 
necessary  to  do  both  concurrently.  The  systems  that  are 
generally  controlled  can  be  stabilized  with  a  much  lower 
information  update  rate  than  the  PWM  frequency.  This 
supports  the  approach  of  calculating  the  desired  per- 
centage, outputling  the  PWM  for  a  period  of  time  and 
then  recalculating  the  new  desired  percentage.  Utilizing 
this  technique  the  inexpensive  PIC16C5X  can  imple- 
ment PID  control,  PWM  generation  and  still  have  pro- 
cessing time  left  over  for  monitor  or  communication 
functions. 

About  the  Author: 

Steven  Frank  has  been  designing  analog  and  digital 
control  systems  for  ten  years.  His  background  is  in 
medical  and  consumer  electronics.  He  has  received 
numerous  patents  in  control  systems  and  instrumenta- 
tion. At  Vesta  Technology  Inc.,  Mr.  Frank  works  with  a 
numl>er  of  engineers  on  custom  embedded  control 
systems  designs.  Vesta  Technologylnc.isaproviderof 
embedded  control  systems  from  an  array  of  standard 
products  and  designs.  Vesta  offers  custom  design 
services  and  handles  projects  from  concept  to  manufac- 
turing. 
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FIGURE  2  -  PROGRAM  FLOW  CHART 


FIGURE  3  -  P.I.D.  ALGORITHM  FLOW  CHART 


I  Determine  P.I.D.  term 
1    =  PENT  and  direction 


SetCNT  =  100 


N 

PCH<- 

PCNT;  ■ 

PCL«- 100-PCNT  1 

Y 

CNT«- 

CNT-1  j 

CNT  =  0? 


start 


ERR  =  POSR  -  POSA 


Kperr «-  Min.  of 
[Kp'ERRorlOO] 


1 


SUM  V-  SUM  +  Kperr  || 


PeMiner 


Microwire 
Port 


RA2 

RA1 

RA3 

RAO 

RTCC 

OSCI 

MCLR 

0SC2 

VSS 

VDD 

RBO 

RB7 

RBI 

RB6 

RB2 

RB5 

RB3 

RB4 

Pici 


16 


520pF520pF 
U2 


.1uF 


^    100  I      I    ,  ,     I  ? 

1N47504;  35V  ^  ^ 


10K^10K<     <10K  l"P"' 

Switches 


1 .  All  pnp  transistors  are  2N3g06 

2.  All  npn  transistors  are  2N3904 

3.  All  diodes  1N914  unless  otherwise  specified 

4.  AH  zenere  are  1 N4742 


cs 

Vcc 

Dl 

CHI 

DO 

CHO 

OLK 

GND 

lOuF 


il»C0832 


Position 
Feadbacit 


+6 
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tMI^ISfM  W^mmM  Pdsililiner 


HPASM  BO. 54 


;  mwSpos.aan  .T... 

LIST  P=16C56'U  1 

.  ****************************************** 

;}  iHEV.  A.-.  -  Oej^taal  release    1/10/92  srfj,.  J 

)■  •  ■    '     ■  -  •  •„^ 


0000 
0019 


b  A 


.■REGISTER  EQUATES 
W  EQU 
1  Wmmt:'  ,BQV 


0 

,v  oem.- 

L.jilSMat 


e«o3 

BSD 

03B 

0003 

SHR 

03H 

0004 

PSR 

EQU 

0005 

PORTA 

EQU 

05H 

0006 

PORTS 

EQU 

06H 

0007 

HI 

EQU 

07H 

0008 

LO 

^  088:? 

00W9 

PCDT 

ago 

09B 

OOOA 

HI_T 

EQU 

OAH 

OOOB 

uoje 

EQU 

OBH 

oooc 

ERROR 

EQU 

OCH 

STJMLO 

BQU 

am 

oooa 

ACCOM 

EQU 

OEH 

OOOF 

■  .1  .-  If. 

EQU'.-. 

OFH 

CONTENTS  OF  PQINniR': 

X3SE  TEIS  VABIABbB  I«CM!ION  AS  FUkSS 

0  BIT  IS  SIGN  OF  mam^  i  is  negative 

1  BIT  IS  SIGN  OF  aiROR  ACCt]MDU.TOR 

2  BIT  IS  SIGN  OF  THE  DE/DE  TERM 

3  BIT  IS  DIRECTION  0  IS  CW 

4  BIT  IS  SIGN  OF  THE  OLD  ERROR 

STATUS  WORD  REGISTER 

0  =  CARRY 

1  =  IX;      ^r-  ' 

2  =  Z,   SET  IF  RESULT  IS  ZERO 
FILE  SELECT  REGISTER 

I/O  REG    (A0-A3),    (A4-A7  DEF=0) 

I/O  REGISTER(B0-B7) 

NUMBER  OF  HIGH  MICROSECONDS 

uatmm,  m*M^  mic^sbconds 

PERCENT  DOTYCTdJS' BBQTJBST 

COUNTER  FOR  USECONDS  LEFT /PULSE  HI 
COUNTER  FOR  USECONDS  LEFT/PULSE  LO 
HOLDER  FOR  THE  POSITIONAL  ERROR 
THIS   IS  AN  8  BIT  MAGNITUDE  WITH  THE  SIGN 
KEPT  IN  THE  FLAG  REGISTER   (9BIT  SIGNED) 
mOGRBSSIVE  SDM  OF  THE  PID  TERMS 
ERROR  ACCUMULATOR 
ERROR  HISTORY  USED  FOR  de/dt 
THIS  IS  AN  8  BIT  MAGNITUDE  WITH  THE  SIOI 
KEPT  IN  THE  FLAG  REGISTER   (9BIT  SIGNED) 


0010 

POSR 

EQU 

lOH 

POSITIONAL  REQUEST 

0011 

POSA 

EQU 

IIH 

ACTUAL  POSITION 

0012 

CYCLES 

ma 

12H                        vfi'^SSiSBSt  PE)iHeYCLBS  OUT 

-  X 

vs;  :,.> 

0013 

mulcaid 

e^ 

13H 

8  bit  multiplicand-; 

0013 

ACCaLO 

ma 

13H 

same  location  used  for  the  add  routine 

0014 

mulplr 

equ 

14H 

8  bit  multiplier 

0014 

ACCbLO 

EQU 

14H 

same  location  used  for  the  add  routine 

0015 

H_byte 

equ 

15H 

High  byte  of  the  16  bit  result  ■ 

OOlS 

ACCaHI 

EQU 

ISB 

same  location  used  for  the  add  rottttner 

0016 

L_byte 

equ 

ISH 

Low  byte  of  the  16  bit  result           ,  c 

0016 

ACCbHI 

tga 

16H 

same  location  used  for  the  add  routine 

0017 

count 

egii 

17H 

loop  counter 

0018 

SUMHI 

18H                        ;  HZ@K  BYTE  OF  IIB  LOOP .  SUM 

>   ;  PORT  Asmsmmns  ahd  constants 


0000  pvoicM  BQU      0  ;  <sac$Bme»  mm  0OTfm- vtv 

ooei  FMtccN  B0i£:>'.  -i'.  .  j.csBafaiCTiaggwaatfaw  ootpot  bit 

0000  CARRY  asa         0  ;  QffiSY  BIT  W  TEE  STATUS  REGISTER 
0002  Z  WSa         2  JioSBKifBRO  P3^>  OF  TBB,  STATUS  REGISTER 

0001  Sonn  ^.1  i.i  u  ;  \i  .-- 


S«7 


tntslllgeffll  lim^  taaPMit 

•gssa^smmmsam^i   -  -'  ^ ,  -  - '  sm 


0000 

EQU 

0 

;  SlaH  BIT  FOR  THE  ERROR  IN  FLAG  RBOtSiaH 

OOOl 

EQU 

1 

mas  BIT  FOR  THE  ERROR  ACCUMOLATMKO!.-  WLI 

EQU 

2 

aim  BIT  smi  BH/oi 

0004 

QBIUSai  EQD 

4 

StG^  BIT  FOR  TBB  QU>  ISWOR. 

0030 

KP 

EQU 

30 

PROPORTIONAL  GAIN 

0002 

KI 

EQU 

2 

INTEGRAL  GAIN 

OO20 

KD 

EQU 

20 

DIFFERENTIAL  GAIN 

0003 

DIR 

EQU 

3 

THE  DIRECTION  FLAG 

0007 

CSN 

EQU 

7 

CHIP  SELECT  NOT  ON  A/D 

0006 

nr 

EQU 

6 

DATA  LI49E  FORI  WBB  A/B 

0005 

BQU  ■■ 

CLOCK  LINE  F0S'8RS'X/S 

0002 

Mvnx) 

BQU  -a 

mOtOHIRE  O&TA  OUT  FROM  POSITIONER 

0001 

100)1 

EQU 

1 

MICROWIRE  DATA  IN  TO  FOSITIC»)ER 

0000 

 nwes 

EQU  ■  • 

0  

•  • 

mCROWIRE  CHIP  SELECT  TO  POSITIQNBR 

0003 

BQU 

3 

MICROWIRE  CLOCK  IN  TO  POSITIONS 

KftCROS 


********************************************** 


SI. 


NOP 
ENDH 


;  eSiBil      mieSte  feC  tiRe  mierowiza 


Of' 


CLKDN  MACRO 

BCF  PORTS, CK 


clock  down  macro  for  the  microwira 
data  acquisition  from  the  a/d 

111,1  J  -      - '    «  . 


GET_BIT  MACRO 

BCF  SWR,  CARRY 

BSF  PORTS, CK 

BTPSC       PORTS,  BV 

Bsi«-  o» )  mmvmmio  a 

BCF  PORTB,CK 

NOP 

ENDM 


«*  FOR  RECEIVING  A/D  DATA  ** 

SET  CLOCK  BIT  HIGH 
LOOK  AT  DATA  COHMING  IN 
SET  THE  CARBS  WmS'tt-i 
ROTATE  THE.  ViimS  L^ 
SEX  THE  CLOCK  LOW  a 
DELAY 


»0v . 


0000  0B88 


0001  0075 

0002  0076 

0003  0C08 

0004  0037 

0005  0213 

0006  0403 

0007  0334 
OOOSsOSOSoi  bbt 
0009  01F5 

OOOA  0335 
OOOB  0336 
00 OC  02F7- 1  ' 
OOOD  OA07 
O0OB»«Ml^i  ' 


aOTO        CLRREG  : 

3X,  "         Tin  I  , 

;  tBSfg^  ^tiOWtJNBS  **************************************** 

;  Hijn  Dua       ■'    V  ., 

.   ****  g  Blip  MULTIPLY  ********  if,'. 
.  ***************************** 

iiipy_S       clrf  H_byte 
clrf  LJayte 
TaiTjrauivlw  8 


Bagitf  HBltl^lia^  Routiiw 


-  movwf 


tiri 


rrf 

btfsc 

addwf 

rrf 

rrf 


ceimt 

mulplr 
STATUS,  CARRY 
H_byte , Same 
H_byte,  Same 
L_by  te ,  Same 


retlw  0 


BO  I 


Cl«BK  3ie  earty  bit  in  the  status  Besf . 


, -i^*************************  *  *** 


I  BoaSLE  DECISION  ATO  AW)  SUBTRACT  (  ACCa>-ACCa->ACCb  ) 


OOOF  0»tT 


neg_A 


;  a£  Seei,  th«n  add 


,  ***************** 


Double  Precision  Addition  (  AGCb+ACCa^>ACCU  } 


0010  0213  n<xa  waust^ 

0011  01F4 


movf 
addwf 


ACCaLO.H 
ACCbLO 


2-88 


liit@INpiff  Remote  Positioner 


0012  0603 

0013  02B6 

0014  0215 

0015  mm 

0016  0800 


incf  ACd^BI 
retlw  00 


aiM  in  casiy 


0017  0273 

0018  02B3 

0019  0643 
OOIA  OOFS 
OOIB  027S 
OOlC  0800 


neg_A 


ccanf  ACCaLO 

infef  ACCaLO 

decf  ACCaSt 

am£  ACCaBI 


negate  ACCa 


divicie  by  16  and  limit  to  100  Decimal 


OOID  0403 
OOIE  0336 
OOIF  0403 

0020  0335 

0021  0603 

0022  OSFe 


SHIFT  MACRO 


RJtP 

BCF 

RRF 

BTFSC 

BSF 


LJSjfte 
SWR,  CARRY 
H_byte 
S»R,  CARRY 


SHIFT 


BCF 

RRF 

BCF 

RRF 

BTFSC 

BSF 


SWR,  CARRY 
L_byte 
SWR,  CARRY 
H_byte 
SWR,  CARRY 


SHIFT 


0023  0403 

0024  0336 

0025  0403 

0026  0335 
om  Q«03 
0028  05F6 


BCF 

RRF 

BCF 

RRF 

BTFSe 

BSF 


SUR.CAIWY 

L_byte 
SWR,  CARRY 
H_byte 
SMR,  CARRY 
IJsyte,? 


0029  0403 
002A  0336 
002B  0403 
002C  0335 
002D  0603 
002B  0SF6 


BCF 
RRF 
BCF 
BSF 
BT3PSC 


SWR , CARRY 
L_byte 
SWR,  CARRY 

H_byte 
SWR,  CARRY 


002F  0403 

0030  0336 

0031  0403 

0032  0335 

0033  '0603 

0034  05F6 


BCF 

BCF 
RRF 

BTFSC 


SWR,  CARRY 

L_byte 

SWR,  CARRY 

HJbyte 

SWR,CARR? 

IJaytte,? 


0035  OCOl 

0036  0095 

0037  0703 

0038  0A3C 

0039  0C64 
003A  0036 
003B  0A42 


MOVLW 

SUBWP 

BTFSS 

GOTO 

MOVLW 

MOVWF 

GOTO 


IH 

H_byte,0 
SNR,  CARRY 
L8_E 

e4H 

L_byte 
LMT_EXIT 


;  SUBTRACT  1  FROM  THE  HIGH  BYTE  TO  SEE 

;  IF  THERE  IS  ANYTHING  TOBRB,   IF  MOT, 

;  TKEM.id»sing  •mm.  ym  byte  alcme 

;  C^tBgHmsS  OIVB  1HB  LOW  BYTE  A  FDUi 

;  cxmrc  tm  it  will  have  been  limiteo 

,  TO  100 


003C  0C64 


MOVLW  64H 


LIMIT  THE  MAGNITUDE  OF  THE  VALUE  TO 


e  itm  MtoeoMp  TaiiHnelogy  Inooipaattd 
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DS0OS31C-piga  7 


003D 

0096 

SOBWF 

L_bYte, 0 

100  DECIMAL 

003E 

0703 

BTFSS 

SWR,  CARRY 

0M3 

0040 

0CC4 

0041 

0036 

0042 

0800 

RETLW 

08 

;THE  ROUTINE  CALCTIMES  DOES  THE 

FOLLOWING:   PCNT  =  DUTY  CYCLE  IN  * 

;   100  -  PCNT  -> 

LO    AND  PCNT  -> 

HI%.  ZERO  VALUES  IN  EITHER  LO  OR  HI 

;ASE  FORCED  TO 

1. 

CALCTmSS 

0043 

0209 

MDVP 

pcwr.w 

;  mmmai^sumB  %  raro  w  register 

0044 

0027 

MOVWF 

HI 

!  ocm  ON  xccRo^oQNOs  m  TO  HI  time 

0045 

0C64 

MOVLW 

64H 

0046 

0028 

MOVWF 

LO 

0047 

0209 

MOVF 

PCNT.O 

0048 

00A8 

SUBWF 

L0,1 

LEAVE  100-HI  TIME  IN  LO  TIME 

0049 

0207 

mw 

HX,0 

INSPECT  IBE  HI(^  VIXB 

004A 

0643 

sarae 

smt,2 

IF  ITS  IS  ZERO 

004B 

02A7 

mm 

HI,1 

INCREMENT  IT 

004C 

02O8 

MOVF 

LO,0 

INSPECT  THE  LO  TUm 

OOtD 

0643 

BTFSC 

SWR, 2 

IF  ITS  ZERO. 

004E 

02AB 

INCF 

LO,  1 

INCRBHWE  IT 

0041! 

0800 

RETLW 

00 

0050  0000 


BBSIN 

NOP  '    ;   STOBBED  BEGBgNIMS 


,*».. CHECKING  THE  LIMIT  SWITCHES  AND  CHECKING  FOR  MW*************** 

,-  This  will  check  the  switch  inputs  for  closure  and  will  terminate 

i  pttl9liig  M  one       eloaed-    It  deaan'  %  di»tlagai^  between  the  switches 

;  so  tbay  are  not  dadtcatted  to  tWRMt^DHld  oetHlMd. 

SWLTRAP 


0051 

0004 

CLRWDT 

0052 

0746 

BTFSS 

PORTS , 2 

;    THIS  WILL  TEST  ALL  THREE  OF  THE 

0053 

0A51 

GOTO 

SW_TRAP 

;   SWITCH  INPUTS.     IF  ANY  ONE  IS 

00S4 

0766 

BTFSS 

PQitXB,3 

;  flBT  WW  BXICOTION  OF  THE  CODE 

005S 

0A51 

eoTo 

]mr_^AP 

•  trail,  m  ii3siii!i«irw,i.ooKiNG  for 

0056 

0786 

BTFSS 

P0R!I«,4 

;  IT  TO  BE  isjmam 

0057 

OASl 

GOTO 

SW_TRAP 

****RECEIVING  THE  POSITIONAL  REQUEST******************************* 

brot  syBfeen  tl»t  wifltei  t«R>  Mm^poa  ItidUiii.  »^a«Bta  to  the  poe^^o^eSE 
iftervo  aak#8  its  desiirei  known  by  setting  the  chip  select  to  the  positioner 
%.am^    It  then  monitors  the  busy  {Data  Out)  line  from  the  positioner.  When 
the  positioner  sets  the  busy  line  high,   the  host  may  begin  sending  its  8 
request.     The  data  bits  should  be  valid  on  the  rising  edge  of  the  clock. 
After  8  bits  have  been  received  by  the  positioner  it  will  begin  operation 
to  send  the  system  to  the  received  position.     It  can  be  interrupted  at  any 
point  during  the  positioning  process  by  the  host  sending  a  new  coBinaiia^.!  '  <' ' 
opportunity  to  update  the  comnand  is  issued  every  100  pwm  pulses  (^ev$fery  iSO 
milliseconds) . 

If  tdie  host  sen^  a  zero  positicmal  command  the  positioner  will  stop  the 
system  and  remain  inactive. 

If  the  host  does  not  successfully  complete  a  microwire  transmission  of  8 
data  bits  the  watchdog  timer  will  trip  and  reset  the  system  to  an  inactive 
*stopped*  state. 


0058  OCOB 


MOVLW  OBH 


RESBT  THE  FORT  FOR  THREE  INPUTS 


toteiniBPii  iimote  Positioner 


m$9  00«5 
00S&  0445 
OOSB  0C20 
005C  0037 

005D  070S 
005E  0A62 
OOSF  02F7 
O0«O  O'jVSD 
00«1  0A71 

0062  0545 

0063  0C08 

0064  0037 

0065  0765 
0O«£  0&65 

0067  0403 

0068  0625 

0069  0503 
006A  0370 
006B  02F7 
OOeC  0A6E 
006D  0A71 

00^  0$65 
S06F  0A6E 

0070  0A65 


IRIS  V); 

BCF 

M0VIM 


WATCa_CS 


BTFSS 
GOTO 


RBC_CHD 


WJklTJDP 


eoTO 

BSF 

MOVLW 

MOVWF 

BTFSS 
GOTO 

acF  .: 

BTFSC 
BSF 

RLP 

DECFSZ 

GOTO 


i>@STA,BHDO 
2  OH 

PORTA,  MWCS 
REC_CMD 
«ount,  1 
1  WATCH_CS 
RBCJEQCIT 

PORTA,  UNDO 

8H 

count 

PORTA,  MWCK 
WAII_HP 

PORTA,  MHDI 
SWR, CARRY 

POSR,  1 
count ,  1 
WAIT_DN 


■  £KT  Tm  DA'EA.  OUT  LOW  FOR  BUSY 


CHECK  FOR  INCOMMING  REQUESTS 
RECEIVE  A  NEW  POSITION  REQUEST 


HO  RSQOEST  laS  mSM  IN  SHE  TIME  ALLOTED 

SEX  fIHE  QATA  OUT  HIGH  FOR  »0K  TO  SEND* 
SBV  m  RBCBIVB  8  BITS 


;  WAIT  FOR  A  RISING  EDGE 

;  RESET  tBS  CARR*'  TO  A  DEFAULT  ZERO 

;  READ  THE  DATA  IN 

;  SET  THE  CARRY  FOR  A  ONE 

;  ROTATE  THE  BIT  INTO  THE  POSITION  REQ. 

;  DECREMENT  THE  BIT  COUNTER 

;  WAIT  FOR  THE  FALLING  EDGE 
Mas-  BIT  lOKEIVED 


.'WAIS_OT 


CBBCK  T^  INBQHKIigO  CLOCK 

IF  fT  IS  sTiUi  msa  wot  for  it  to  go  low 

IF  IT  GOES  LGH  GO  BACK  TO  RECEIVE  NEXT  BIT 


0071  0445 


pcmTA.Dtroo 


SET  THE  HOST  I%!$B 


»**»Jr>«*»*i<  SBECK  Fes  THE  DISABLS  R&G^ST  ************************* 
Positioa  0  is  considered  a  request  to  not  drive  the  system.     In  this  way 

.'th#  positioner  will  come  up  from  a  reset  in  a  safe  state  and  will  n^t 
try  to  move  the  system  to  some  arbitrary  location. 


0072  0210 

0073  0S43 

0074  0A50 


mm 

GOTO  BEGIN 


■fAtS^mS.  Tm  SBQDBSTBD  POSTION 
,  it-It  IS  Z«0  THEN  WAIT  FOR  A  NON-ZERO 
;   REQUEST  BY  BRANCHING  BACK  TO  THE  BEGINNING 


****READ1NG  THE  A/D  VALUES*** 


****  ** 


Read  the  positional  a/d  chaxmel  (1)  and  store  the  value  in  the  actual 
position  variable  (POSA) . 

This  is  written'  in  line  to  minimize  the  use  of  variables 


0075  0071 

0076  04E6 

0077  OCIC 
007S  0006 
0079  05C6 
007A  0000 

007B  05A6 
007C  0000 


CLRF 

BCF 

MOVLW 

TBIS' 

BSF 

NOP 

BSF 
NOP 


POSA 

PORTB, 

ICH 


,BV 
PORTB,  CK 


;  CLEAN  THE  POSITION  ACTUAL  HOLDER 
.  Tjjg  CHIP  SELECT  LOW  TO  A/D 

;   SET  THE  DATA  LINE  TO  OUTPUT 

i.00mvBfiimia^tsEi-iis  bits 

.  SB!  FOR  "SateT'  BIT 

;  diO^  IN  THE  START^  BIT 
i{  data  acquisition  from  the  a/d 


0071D  04A6 
007E  0000 


BCF 
N09. 


PORTB, CK 


;  data  acquisition  from  the  a/d 


007F  05A6 
0080  0000 


BOKIB.CR 


1  CLOCK  IN  SIHQUB-ENOBD 

;  data  acqoialtli'CSi  Iron  the  a/d 


2-91 


DSOOSaiOpase  9 


Inteiligent  Revnote  PDsitioner 


6081  04A6 
0082  0000 


BCF 
NOP 


PORIB.CK 


acijaisition  frcoi  the  a/d 


0083  05A6 

0084  ■mio. 


CLKUP 


BSF 
NOP 


CLOCK  IN  CHANNEL  1 

data  acquisition  from  the  a/d 


0085  04A6 

0086  0000 


CLKDH 


BCF 
NOP 


PORTS,  CK 


seat  seiiaist'tton  from  the  a/d 


0087  0C5C 

0088  0006 


0089  05A6 
OOBA  0000 


008B  04A6 
008C  0000 


HOVIiW 
TRIS 


BCF 
NOP 


5CH 


POKTB.CX 


SET  THE  DATA  LINE  TO  INPUT 
TO  RECEIVE  DATA  BITS  FROM  A/D 
CLOCK  UP  TO  LET  MUX  SETTLE 
4mt*  ae^sitioa  fron  the  a/d 

1..  j:  .*v!  -J 

i  daCk  ac^jBiifi£eLon  freaa  the  a/d 


008O  0403 
OOSS  05A6 
008F  06C6 

0090  0503 

0091  0371 

0092  a4A6 

0093  0000 


0094  0403 

0095  0SA6 

0096  06C6 

0097  0503 

0098  0371 

0099  04Ae 

emtk  mm 

009B  0403 
009C  05A6 
009D  06C6 
009E  0503 
009P  0371 
OOAO  04Ae 
OOAl  0000 


GBT_BIT 

BCF 


RLF 
■  BCF 
NOP 

BCF 
BSF 
  BTFSC 

BSF 
RLF 
BCF 
NOP 

BCF 
BSP 
BTFSC 
BSF 
KLF 
BCF 
.  NOP 


SWR,  CARRY 

PORTBvBV 
SWR.CABSY 
POSA 
PORTS,  CK 


SWR, CARRY 
PQRTB,CK 

SWR, CARRY 
POSA 

PORTS, CK 


SWR.CARKY 
PORTS,  CK 
PORTS, BV 
SWR,  CARRY 
POSA 
PORTS,  CK 


;  GET  SIT  7 

;  LOOK  AT  WrA  COHHIIIS  ,m 

;  SET  THE  CARRY  FOR  A  1 

;  ROTATE  THE  W  REG  LEFT 

;  SST.  THE  CLOCK  LOW 

;  DBLAY 

}  BIT  6  i 

;  SET  CLOCK  BIT  HIGH 

;  LOOK  AT  DATA  COHHING  IN 

;  SET  THE  CARRY  FOR  A  1 

;  ROTATE  THE  W  REG  LEFT 

(  SET  THE  CLOCK  LOW 

;  BIT  5 

;  SET  CLOCK  BIT  HIGH 

;  LOOK  AT  DATA  COMMING  IN 

;  SET  THE  CARRY  FOR  A  1 

;  ROTATE  THE  W  REG  LEFT 

;  SET  THE  CLOCK  LOW 

;  DELAY  •••  : 


00A2  0403 
00 A3  05A6 
00A4  06C6 
00A5  0503 
00A6  0371 

0  0^7  mm 
omt  mm 


00A9  0403 
OOAA  05A5 
OOAB  oec6 
OOAC  0503 
OOAD  0371 
OOAB  04A6 
OOAP  0000 


OOBO  0403 
OOBl  05A6 
00S2  06C6 


BCF 

BSF 

BTFSC 

BSF 

RLF 

msp 

GET_SIT 

BCF 
BSF 
BTFSC 
BSF 
KLF  . 


NOP 

c.-'j  t:.: 
••f-  ^  jiMT_BIT 
BCF 
BSF 
BTFSC 


SWR, CARRY 
PORTB , CK 
PORTS, BV 
SWR,CARRT 
POSA 
POKrB,CK 


SWR,  CARRY 
PORTB, CK 
PORTS,  BV 

smL.enimx 


FORro,CK 


SWR,  CARRY 
PORTB, CK 
PORTB, BV 


SIT  4 

SET  CLOCK  BIT  HIGH 
LOOK  AT  DATA  COMMING  IN 
SET  THE  CARRY  FOR  A  1 
ROTATE  THE  W  REG  LEFT 
HBS^KSS  CL9CK  LOW 


;  SIT  3 

;   SET  CLOCK  BIT  HIGH 
;   LOOK  AT  DATA  COMMING  IN 
;   SET  THE  CARRY  FOR  A  1 
;  ROTATE  THE  W  RBG  LEFT 

.  sasT  T^  aumm.  usk 


WHS  2 


SET  CLOCK  BIT  HIGH 
LOOK  AT  DATA  COMMING  IN 
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0OB3  0503 

O0B4  0371-"/ 

OOBS  cmm^ 

00B€  OOOO 


00B7  0403 
00B8  05A6 
00B9  06C6 

oem  0371 

OOBC  04A6 
OOBD  0000 


i'.'siiii>.'eABRY 


.  HLF.1 
BCP 
NOP 

GET_BIT 

BCF 
BSF 
BTFSC  ' 


RLF 
BCF 
HOP 


FORTB,CK 


SWR,  CARRY 
PORTB.CK 
eORIB.BV 
'iSMRliiSftBBY 

worn. 

PORTB.CK 


.ammm  <x>am  for  a  i 
fmams  lbft 

LOW 


■BIT  1 

SB?  diOGK  BSS&SSeB. 

.  ameasBs  dHW  for  x  i 

S8I.XHE  GIACX  LOW 
DELAZ 


OOBE  0403 
Q&BF  S5A6 
OOCO  06C« 
OOCl  0503 
00C2  0371 
00C3  04Ae 
00C4  0000 


BCF, 


SHR>/CAKBY 

BSF  SIK^CftKftY 

RLF^'  PB&A 

BCF  PORTB.CK 
NOP 


;  BIT  0 

•MM«ar-<€LOCK  KtX  BIOH 
;  IiOl«r;AT  OKer  COHHINS  IN 
;   SET  THE  CARRY  FOR  A  1 
;   ROTATE  THE  W  REG  LBFT 
;   SET  THE  CLOCK  LOW 


00C5  05Ee 


PORTS. CSN 


DESELECT  THE  CHIP 


J******************  cAliCO^Kms  jHH-MB  TMBS^  *********************** 

; ****CALCULATE  THE  ERROR**'**** 

;  The  error  is  very  simply  the  signed  difference  between  where  the 
;  system  is  and  where  it  is  supposed  to  be  at  a  particular  instant 
;  in  time.     It  is  formed  by  subtracting  the  actual  position  from  the 
;.'i»tilMikM*p«ai>t4«BM^Sl«toni««iB<MifeB&  «  Ses'il'tlrai  «etual ) .  This 
!  dlCS^amsa  ii  i^Ma.-mkmet.'^  dfttsBMhkul '  HMm  ^oEioirttoDsl ,  integral  and 
i  differential  term  contributions  to  the  output. 


C_HtR. 


00C6  0211 
00C7  0090 
00C8  0603 

ooe»  oacB 

OOCA  OACB 


MOVF  POSA,  0  ;  LOAD  THE  ACTUAL  POSITION  INTO  W 

SUBWF  POSR.O  ;  SUBTRACT  IT  PROM  THE  REQUESTED  POSITION 

BTFSC  SHRiCARRY  ;      i  CBBCK  SBB  eARRX..BIT  TO  DETERMINE  THE  SIGN 

GOTO  PLS_ER  ;  ITS  POSATIVE  (POSR>P0SA) 

GOTO  MNS_ER  ;  ITS  NEGATIVE  (FOiSJUrPOSR) 


OOCB  002C 
OOCC  0419 

OOCO  OAoa 


MOVWF 
BCF 


ERROR 

FLAGS,  ER_SGN 
Ct!_BXIT 


SAVE  THE  DIFFERENCE  IN  "ERROR" 

SET  THE  SIGN  FLAG  TO  INDICATE  POSATIVE 


OOCE  0210 

OOCF  0091 
OODO  002C 
OODl  0519 


MOVF 
StJBWF 
MOVWF 
BSF' 


POSR, 0 
POSA,  0 
ERROR 

FLAGS,  ER_SGN 


RE-DO  THE  SOTTRACTION 

ACTUAL  -  REQUESTED 

STORE  THE  DIFFERENCE  IN  "ERROR" 

SET  THE  SIGN  FLAG  FOR  NEGATIVE 


00D3  0078 


CLRF 
CLRF 


SOHLO 
SUHHI 


t  msxa  om  wsxms  our  to  prspare 

;   FOR  THIS  CYCLES  SUHHATI<»[ 


*«.» CALCULATE  THE  PROPORTIONAL  TERM****** 

The  proportional  term  is  the  error  times  the  proportional  gain  term. 
This  term  simply  gives  you  more  outfiut  di^Swe  the  farther  away  you  are 
from  v^re  you  want  to  be  (errmr)  *l^. 

pc^vo^ional  gain  tmm  la  a  i4|(IWa  tatt^MmeeD  -100  and  100  Tb» 
al^^'IBe^ajjftional  gain  you  have  th^tintet  ^9Qi  system  following  ei^ar 
will  be.    The  higher  your  proportional  gain,  the  more  Integral  and 
differential  term  gains  you  will  have  to  add  to  make  the  system  stable.' 
The  sum  is  being  carried  as  a  16  bit  signed  value. 


iBislllipsifl 


00D4 

020C 

'JlQAD  TIS  SHMR  TfS^           N             1.  020 

00D5 

0033 

!  MDBTIFLY  i«JKt  THE  mOSCHetl^miL  SMOii  i  ' 

ooDe 

0C30 

■"SEP":- 

j  BP  AMD  THEN  SCALE  IT  DOMM  BY  DVnvme  ^  n 

00D7 

0034 

»ma 

■   IT  DOWN  BY  16.   IF  IT  IS  STILL  dVBK  '  •  -  l 

00O8 

0901 

;   2S5  THEN  LIMIT  IT  TO  255 

od&i 

OSiM 

CALL 

RESTORE_SGN 

OODA 

0719 

BTFSS 

FLAGS,  ER_SGN 

;   IF  THE  ERROR  SIGN  IS  NEGATIVE  THHI 

OODB 

OADB 

jutseaiwi^  smmmfso  tbe  low  byte 

OODC 

027S 

03Bt 

ADDPROP 

OODE 

0216 

HOVF 

L_byte,W 

;   SAVE  THE  PROPORTBMM,  PMT 

OODF 

OlED 

ADDHF 

SUMLO, 1 

;   IN  THE  SUM 

OOEO 

0603 

BTFSC 

SWR, CARRY 

;  IF  THE  tisDimm  ekfOtiMD  Gitff  TBsi  >>f-  :i'  ^si  i 

OOEl 

02B8 

IKCE 

.  SOMHI,! 

;   INCREMENT  '^01            tf^SB                    ivOC  0: 

0OB2 

OCOO 

am  T.:.  . 

00B3 

06ED 

*             SXTSIBi  '"70  ^TOB  VPVSR                  1  ^  '  ' . 

Oj9lB4 

'.OCFF' 

.VI  HQtm 

aiPBFW.;  ■, 

•  .MSS'                                                        ■  •  ■ 

ADDHF 

mm..i 

***** 

«B»i^ls,Taii  aeeamilatlen-ef  tdm-ertot'  tima-  far.    its  purpose 

is  to  allow  even  a  small  error 

to  effect  a  large  change.     It  does  this 

by  adding  a  small  number  into  an  acc\unulator  each  cycle  through  the  pro 

Thusly  even  a 

small  error  that 

exist  for  a  while  will  build  up  to  a  large 

enough  number 

to  effect  an  output  sufficient  to  move  the  system.  The 

that  this  integral  accumulator 

has  is  modulated  by  the  integral  gain  term 

o&tttj^esevox  oyar«*te>BJ>»3liiBili1t»Hiiiiii^  ilg  rad  bbe  result  is 

^1.  IT  i  eaemc^ba^ea  m^fXm  final  sama 

tiea  i<st  Stittaaiii^lSB  the  output  value.  Ibis 

term  helps  to 

insure  the  long-term  accuracy  of  the  system  is  good.  A 

amount  is  necessary  for  this  purpose  but  too  much  will  cause  oscillations. 

The  integral 

is  bounded  in  magnitude  for  two  purposes.     The  first  is  so 

it  never  rolls  over  and  changes 

sign.     The  second  is  that  it  may  saturate 

long  moves  forcing  an  excessively  large  overshoot  to  "de-integrate"  the 

q:  aceamtribatea-ftiritia  the  first  «d 

nmmmsm  !'••<. 

^    A'"  ,1 

ooEe 

020C 

MOVF 

ERROR,  tf 

;   MOVE  THE  ERROR  INTO  THE  W  REG 

00E7 

0643 

BTFSC 

SWR.Z 

;   AND  CHECK  TO  SEE  IF  IT  IS  ZERO 

00E8 

OAFF 

GOTO 

ADDINT 

;    IF  SO  THEN  DONT  CHANGE  THE  ACCUMULATOR 

00E9 

8619 

BTFSC 

FLAGS, ER_SGN 

;   TEST  THE  FLAGS  TO  FIND  THE  POLARITY 

oosa 

GOTO 

MNS_1 

;         IBS  Wmeu  .  .  0  POSATIVE  l  NEGMTIWE   '  ^ ' 

OOEB 

0C02 

JQ 

;   IP  POSATIVE  ADD 

OOEC 

OlEE 

ffTBE  ERROR  ACCOMOIATMl                          •£!!  — M 

OOED 

OAFO 

GOTO 

LMTACM 

;   THEN  LIMIT  IT  TO  +/-100 

10IS_1 

OOEE 

0C02 

MOVLW 

KI 

;   IF  NEGATIVE  THEN  SUBTRACT  ONE 

OOBF 

OOJ^ 

SUBNP 

ACCDM.l 

IiMfACM 

VISSJI- 

OOFO 

06BB    ;  .v;5 

  .-j.miammtK'  »egm,l 

TOR 

'7' 

^  ."•  -        TV                                               ■  - 

OOFl 

0AF9 

GOTO 

M_LMT 

;   AND  DO  A  POSATIVE  OR  NEGATIVE  LIMIT 

P_LMT 

O0F2 

0C9C 

MOVLW 

9CH 

;   FOR  THE  POSATIVE  LIMIT  ADD  156  TO  THE 

00F3 

OICE 

«•  »<;'J3t-  ADDWF 

ACCUM,  0 

;   NUMBER  AND  SEE  IF  YOU  GENERATE  A  CARRY 

00F4 

0703 

BTFSS 

SWR,  CARRY 

;   BY  CHECKING  THE  CARRY  FLAG 

OOFS 

OiMT 

;ci^..NOa'.'.!rHEai  ITS^.Q«itt  . 

OOFS 

,sx^]^i^  IIHi|l(:«w4Slii>rt>  •vcn  ^cn^  aim?  80  TWOc SmEih9SS  ACCDHDLKIOR  TO 

0©F7 

mmaa  I. 

'  ■    -  aiflBWfc 

'-■  ajif.'r  ""BSTOi' 

"  '                   !  -     ■    '         '  ' 

00F9 

0C9C 

MOVLW 

9CH 

;   FOR  THE  NEGATIVE  LIMIT  SUBTRACT  156  FROM 

OOFA 

OOSE 

SUBWF 

ACCUM,  0 

;    THE  NUMBER  AND  SEE   IF  YOU  GENERATE  A 

iRt^HfM  Remote  Positimier 


OOFB  0603 
OOTC  OAFF 
OOWD  0C9C 
OOFB  002E 


MOVLH 
HOVWF 


AODINT 

9CH 

ACOM 


;caiGi».euanr'  @OHDZTiaN  maacxiwa  a  roll-over 
lai'-NOT  nmo  sbave  the  accomolator  a£<»ie 

IP  so  THEH  limit  it  to  -100  BY 

forcing  that  valob  ih  the  accumulator 


OOFF  020E 

0100  OlED 

0101  0603 

0102  02B8 

0103  OCOO 

0104  06EE 

0105  0240 

0106  01F8 


MOVF 

ADDWF 

BTFSC 

INEF 

MOVLW 

BTFSC 

COMF 

ADEWF 


ACCUM.W 
SUMLO, 1 
SWR,  CARRY 
SUtDII,! 
0 

ACCOM,? 
W,W 

SUHHI.l 


ADD  THE  INTEGRAL  ACCUMULATOR  TO 

THE  LOW  BYTE  OF  THE  SUM 

TEST  FOR  OVERFLOW,    IF  SO  THEN 

mCRBIffillV  TEEB  HI  BYTE 

LOAD  0  INTO  THE  W  REGISTER 

IF  THE  INTEGRAL  ACCOMOLATOR  WAS  NEGATIVE 

COMPLEMENT  THE  0  TO  GET  SICTI  FOR  HIGH  BYTE 

ADD  INTO  THE  HIGH  BYTE  OF  THE  SUM 


EXIT  POINT  FOR  THE  UP/DOWN  CONTROL  OF  ACCUM 


****CALCTJIiATIlll8  THE  DIFFERENTIAE  TEMI************************** 

The  differential  term  examines  the  error  and  determines  how  much 
it  has  changed  since  the  last  cycle.     It  does  this  by  subtracting  the 
old  error  from  the  new  error.      Since  the  cycle  time  is  relatively  fixed 
we  can  use  it  as  the  "dt"  of  the  desired  ''de/dt".     This  derivative  of  the 
error  is  then  multiplied  by  the  differential  gain  term  KD  and  becomes  the 
differential  term  canbribtttlon  for  the  final  sunmation. 


;  First,  create 
;  minus  the  old 


the  *'de'  teiaft  by  doing  a  sigaatd^  subtaction  of  new  error 
error 1  (new_error  -  old_err*t^'  ' 


0107 

02  OC 

MOVF 

ERROR,  W 

;  LOAD  THE- NEW  ERROR  INTO  REGISTER 

OlOS 

0719 

'  BRSS'  "- 

0109 

OBOb 

GOTO 

"-L01.SYTE 

OlOA 

026C 

COMF 

ERROR, 1 

;  CORRECT  THE  VALUE  TO  BE  16  BIT 

OlOB 

02  BC 

INCF 

ERROR, W 

OlOC 

026C 

COMF 

ERRCai.l 

;  RESTORE  IT  FOR  FUTURE  USE  TO  8  BIT  MAQNI 

TUDE 

LO_BYTE 

OlOD 

0034 

MPVHF 

ACCbLO 

;  FOR  SUBTRABTION 

OlOE 

OCOO 

HOVLW 

00 

OlOF 

0619 

BTFSC 

FLAGS,  ER_S(a» 

;   SIGN  EXTEND  THE  OFFER  BYTE 

0110 

OCFF 

MOVLW 

OFF 

0111 

0036 

MOVWF 

ACCbHI 

0112 

020F 

MOVF 

ERR_0,W 

;  LOAD  THB  tXiD  ERROR  INTO  OTHER  REGISTER 

0113 

0799 

BTFSS 

FLAGS,  OER_SGN 

0114 

0B17 

giem  ' 

■  LO_BYTEO 

r:       ■  . 

0115 

02  6F 

ERR_0,1 

-  CXUXBeV  ^ESB  'VMSX  TO  BE  16  BIT 

0116 

02  8F 

INCF 

ERR_0,M 

L0_BYTE0 

0117 

0033 

MOVWF 

ACCaLO 

;   FOR  SUBTRACTION 

0118 

OCOO 

MOVLW 

00 

0119 

0699 

BTFSC 

FLAGS ,  OER_SGII 

;   SIGN  EXTEND  THE  UPPER  BYTE 

OllA 

OCFF 

HOfVCM 

OFF 

OllB 

mss 

MQVWF 

ACCaHI 

one 

090F 

CKLL 

0.L«ab 

;   PERFORM  WS  SUBTRACTION 

STRIP_SGN 

OllD 

06F6 

BTFSC 

ACCbHI ,  7 

;  TEST  THE  SZW  OF  THE  RESULT 

OllE 

0B20 

GOTO 

NEG_ABS 

OllF 

0B25 

GOTO 

•-.  -  .  n  1, 

NBG_ABS 

r  .  . 

0120 

0559 

BS7 

'  I  iffl^iiiBSAms'' SO  ^gr  the  flag  and 

0121 

0274 

COMF 

ACCbLO, 1 

;  C<aiK[iBI^9T  T^  ^^UB 

0122 

0294 

INCF 

ACCbLO,  W 

0123 

002F 

MOVWF 

ERR_0 

0124 

0B28 

GOTO 

MULT_KD 

POS _JIBS 

0125 

0459 

BCF 

FLAGS ,  DE_SGN 

;   ITS  POSATIVE  SO  SET  RESET  THE  FLAG 

2-95 


DS0053tCf)«j|e  13 


;  Then  multiply  by  Kd 


ilBIiT_I3> 


0128 

020F 

MOVF 

ERR_0,W 

0129 

0033 

MOVWF 

mulcnd 

;   MOVE  THE  DE/DT  TERM  INTO  THE  MULCND  REG. 

012A 

0C20 

MOVLW 

KD 

;   MOVE  THE  DIFFERENTIAL  GAIN  TERM  INTO 

012B 

0034 

MOVWF 

mulplr 

;   MULPLR  TO  MULTIPLY  THE  DE/DT 

012C 

0901 

CALL 

wpy_s 

;   DO  THE  MULTIPLICATION 

012D 

091D 

CALL 

DIVJMT 

;  a^i£8  MOi'IiQ^T  TO  100                    'z.r'r  1 
,  .        V  r                                      ■■ ,  . 

T  to 

h:-  4 

.  '.-.f  .  -.- 

012S 

0759 

FLM3S,DS_. 

easr 

0B32  ■.' 

•,  f.|, 

GOTO 

SAVE_D1FF 

•   POT  THE  SIGN  IIB^  ^SS  LOW  BYTE 

0130 

0276 

COMF 

L  byte ,  1 

0131 

02B6 

INCF 

L_byte,l 

S&V^JKtPF 

0132 

0216 

•  • 

•  •    •»  • 

•  ■  MOVF 

L_byte,W 

0133 

0643  1 

i«;   '  ir-T 

•  .B^^SC 

- -  aia.sr- 

0134 

0B45 

.  T 

013S 

002F 

MOVHF 

ERH_0 

;.  ADD 

THE  DIFF 

TERM  INTO  THE  StXOl  *************** 

AmaiF 

0136 

ocoo 

HOVLW 

00 

0137 

0659 

BTFSC 

sGSht'.'    jini»aBBs3a(^0sy£T)  vssat  into  the 

0138 

OCFF 

mviM' 

0139 

0036 

mmiw 

;  SXSH  taeiVID  THE  UPPSt  BYTE 

013A 

020F 

Mow 

K6l_0,W 

013B 

0034 

MOVWF 

ACCbLO 

013C 

020D 

MOVF 

SOMLO.W 

;   LOAD  THE  CURRENT  SDH  INTO  THE 

013D 

0033 

MOVWF 

ACCaLO 

;  REGISTERS  TO  ADD 

013E 

3i 

-WBSWi 

*                                               -J.'.'  /-u 

013P 

0035 

0148 

0910      s  . 

dum 

t  KSB'  IN  TBi'-49I^ERENTIAL  TESK 

0141 

0214 

HOVP 

;  SAVE  THE  RSS0LTS  BACK 

0142 

002D 

MOVWF 

SOMLO 

;   INTO  SOMLO  AND  Wi 

0143 

0216 

MOVF 

ACCbHI.W 

0144 

0033 

MOVWF 

SUMHI 

.V 

.•1 

R 

IT..-                                                                          r  -.i 

0145 

02  OC 

tlWISStklBBiSBISBim  EBRDR 

0146 

002r'«  rx 

■  Msmnr 

-'Hat® 

t  Mf&'VW  1^"^  THE  SilROR  HISTORY 

0147 

0499 

BCF 

FLAGS, OER 

_SGN       ;   SAVE  THE  CURRENT  ERROR  SIGN 

0148 

0619 

BTFSC 

FLAGS , ER_ 

SGN         ;    IN  THE  OLD  ERROR  SIGN  FOR 

0149 

0599 

BSF 

FLAGS,  OER 

_S(aj       ;  NEXT  TIME  THROUGH 

After  the  svim  of  all  the  ceinpoxients  has  been  made,  the  sign  of  the 

sum  will  determine  vAiich  way  the  bridge  should  be  powered. 

If  the  sum  is  negative  the  bridge  needs  to  be  set  to  drive  ccw;   if  the 

sum  is  posative  then  the  bridge  needs  to  be  set  to  drive  cw.  This 

is  purely  a  convention  and  depends  upon  the  polarity  the  motor  and  feedback 

eloarait  are  hooked  up  in. 


SET _DIR 

014A  0479  BCF  FLAGS,  DIR 

014B  06F8  BTFSC  SUMHI, 7 

014C  B»t9  0Il/i  a^„->  lUV  BSF  FLAGS, EBR 


SET  FOR  DEFAULT  CLOCKWISE 

LOOK  AT  THE  SlCai  BIT,   IF  IT  IS  SET 

THEN  SET  FOR  CCW  BRIDGE  DRIVE 


TO  HJj^wUKN  0  AND  100%  ********************** 

;  Mtec  the  Slrectim  is  set  the  «e<g9i)M>£  for  duty  cycle  Is  limited  to  tietaieen 
;  0  and  lOO  pearemt  inclaalv«.    This  value  is  passed  bo  the  dutycycle  setting 
SIT  TfS'isisutiBe  lay;  liswdinsr  it-  in  tim  ymcit3A».  "POW  . 
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Intelligent  HimQlB  Pimitiiiiier 


014D  67F8 

014E  0B52 
014F  0278 

0150  026D 

0151  02AD 


INCF 


GOTO  POS_rjl 
COMF         SUMHI ,  1 
COMF  SUMLCl 


SDHLO, 1 


CSECK  TO  SEE  IP  IT  IS  NBQ&TIVE 


0152  OCOl 

0153  0098 

0154  0703 

0155  0B59 

0156  0C64 

0157  002D 

0158  0B5F 

0159  OG64 
015%  0S8D 

015B  0703 
015C  0B5F 
015D  0C64 
015E  002D 


wynvn 

SUBWF 

BTFSS 

GOTO 

MOVLW 

MOVWF 


memia 

SUBWF 

BTFSS 

GOTO 

MOVLW 

MOVWF 


IH 

SUMHI,  0 
SWR.CAHRY 

LB_L 

64H 

StMLO 

64B 

SUMLOiO 
SWR,  CARRY 
LP_EXIT 
e4H 
SOHLO 


sOBfnOiCT^  mou  the  high  byte  to  see 

IP  THERE  IS  ANYTHING  THERE,   IP  NOT, 
THEN  LEAVE  THE  LOW  BYTE  ALONE 
OTHERWISE  GIVE  THE  LOW  BYTE  A  FULL 
COUNT  AND  IT  NIU.  BKVE  BEEN  LUCtTBD 

TO  100 

.  QOaPO  LIMIT  PERCB9T  EXIT 

LmT  THE  MAQNI'TODE  OF  THE  VALUE  TO 
100  DBCIHAL 


015F  020D 
0160  0029 


MOVP 
MOVWF 


SOHLO, H 

pcarr 


STORE  THE  LBMITBD  VALUE  IN 
THE  PERCENT  DOTYCYCLE  REQUEST 


************************************ 


PWM  GENERATING  ROUTINE 

TM  ^^^mtmis  biliiis  here  is  not  to  ttav*  «e  do  toa  mm^  decisions  or 
calculations  «^le  you  are  generating  tbs  100  or  so  pulses.    These  will 
take  time  «)^'  liliitt  the  minimum  or  mskimm'&My  cycle. 


0161  0679 

0162  0B76 

0163  0B64: 


WHICH_DIR 


BTFSC      FLAGS, DIR 
IT  SCJCH 


CHECK  THE  DIRECTION  FLAG 
DO  CCW  PULSES  FOR  1 
DO  CW  PULSES  FOR  0 


0164  0426 

0165  0C64 

0166  0032 

0167  0»4a!-' 


BCF 
MOVLW 

ctm.  ■ 


PORTS, PWHCCW 

64H 

CYCLES 

CALCTIMES 


FOR  CW  HOVE 


SET  UP  CYCLES  COOiTIIR  F(ai  100  PULSES 
CALCULATE  THE  HI  AND  LO  TIMES 


0168  0207 

0169  002A 
016A  0208 
016B;  002B 
Oiec  0004 


MOVF 

MOVWF 

MOVF 

MOVWF 

CLRWDT 


HI,D 
HI_T 
L0,0 
LOT 


RE  LOAD  THE  HI  TIMER 
WITH  THE  CALCULATED  TIME 
RE  LOAD  THE  LO  TIMER 
WITH  THE  CALCULATED  TIME 
TAG  THE  WATCHDOG  TIMER 


016D  0506 
016E  02EA 
016F  0B6D 


BSF  PORTB.PWMCW  ;   SET  THE  CLOCKWISE  PWMBIT  HIGH 

DECFSZ     HI_T,1  !  DECREMENT  THE  HI  USEC.  COUNTER 

GOTO         CHHl  ;    DO  ANOTHER  LOOP 


0170  0406 

0171  02EB 

0172  0B70 

0173  02F2 

0174  0B68 

0175  0A50 


GOTO 
GOTO 


PORTB,PWMCW 
LOJI.l 
dQjO 
CYCLES, 1 

■mjoem 

BEGIN 


SET  THE  CLOCKWISE  PWM  BIT  LOW 
DECREMENT  THE  LO  USEC.  COUNTER 
DO  ANOTBHl  LOOP 

DECSSKBNT  THE  NUMBER  OF  CYCLES  LEFT 

DO  mmmBL  folse 

DO  ANOTHER  MAIN  SYSTEM  CYCLE 
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Intelligent  Remote  Positioner 


0176  0406 

0177  0C64 

0178  0032 

0179  0943 

OnA  0207 
017B  002A 
017C  0208 
017D  002B 
017E  0004 


017F  0526 

0180  02EA 

0181  0B7F 

0182  0426 

0183  02EB 

0184  0B82 
01S5  02P2 

0186  0B7* 

0187  0A50 


CCHHI 

;  IK-  ■ 


::1IT  ^i-    1UL.1  1 
eCKiO 


BCF 
MOVLW 
MOVWF 
CALL 

MOVF 

MOVWF 

MOVF 

MOVWF 

CLRWDT 


BCF 

DECFSZ 
GOTO 


GOTO 
GOTO 


PORTE, PWMCW 
64H 

CYCLES 
CALCTIHBS 

HI,0 
HI_T 
LO,0 
LOT 


HI_T,  1 
CCWHI 

PORTB.PWMCCW 
LO_T, 1 
CCWLO 
CYCLES,  1 
RLDCCW 
BEGIN 


SET  THE  BRIDGE  FOR  COW  MOVE 

SET  UP  CYCLE  COUNTER  FOR  100  PULSES 

.oseemTB  Tm  hi  and  lo  times 

RE  LOAD  THE  HI  TIMER 
WITH  THE  CALCULATED  TIME 
RE  LOAD  THE  LO  TIMER 
WITH  THE  CALCULATED  TIME 
TAG  THE  WATCHDOG 


;  SET  THE  COQHTBRCLOCKWISE  PWM  BIT  KMC  0 
INCREMENT  THE  HI  USEC.  COUNTER 
DO  ANOTHER  LOOP 

SET  THE  COUNTERCLOCKWISE  PWM  BIT  LOW 
DECREMENT  THE  LO  USEC.  COUNTER 
DO  ANOTHER  LOOP 

iDHBREMBNT  Tffi  NUMBER  OF  CYCLES  L^T 

DO  ANOTHEH  PULSE 

BQ  mOf^l  mm  SYSTBC  CYCLE 


0188  OCOB 

0189  0005 

olsft  oene 

018B  0006 

018C  0040 
018D  0002 
018E  0C08 
018F  0024 


MOVLW 
TRIS 

temM 


OBH 
PORTA 
ICS 


MOVLN 
MOVWF 


OSH 
FSR 


;  SET  PfSm  A  BESL  3  nmmS  AND 

.  AN  OUTPUT 

;  SET  PORT  B  FXJT  raimBB  MID  OQTIOTS 

;  ims  SETTim'FOR  SSDHHG  TO  A/D 

•  .ESJBOl  T^K'WSEQIS^^ 

;  sfTSim  ■mf-m-wm' m  im  option  rbg 

;  STARTING  REGISTER  TO  ZERO 


0190  0060 

0191  03E4 
0193  mUXM 
0193  OMO 


SO"! 


IMCFSZ 
GOTO 

goto 


00 
FSR 
GC3E» 
BEGIN 


;   SKIP  AFTER  ALL  WBOISTSStS 

j  -mem-  mm  tmruubJZED 

r  '3%jU(T  AT  TBr  ^ntiHs  of  the  program 


OlFF  0B88 


ORG 
GOTO 


OlFP 
CLRREG 


START  VECTOR 


Errors      :  0 


2-98 


m-ammemllllp  T«ehnolOM)i|mgip«MM 


Microchip 


AN590 


A  Clock  Design  Using  the  PIC16C54  for  LED  Displays  and  Switch  Inputs 


INTRODUCTION 

The  purpose  of  this  application  note  is  to  design  a  ciocl< 
while  nnultiplexing  the  features  as  much  as  possible, 
allowing  the  circuit  to  use  the  18-pin  PIC16C54.  Other 
devices  in  the  Microchip  Technology  Inc.  line  expand  on 
this  part,  making  it  a  good  starting  point  for  leaming  the 
basics.  This  design  is  useful  because  K  utilizes  every  pin 
for  output  and  switches  some  of  them  to  inputs  brief  ly  to 
read  the  keys.  For  a  more  extensive  ckxd(  design, 
consult  appllcatnn  note  AN529.  V: 

THE  DESIGN 

This  design  is  a  simple  time  of  day  dock  incorporating 
!  f<»iir  s«ven>s^|inent  l£0  displsQrs  <»Mf1Mee  ir^df'-'^. 
!  aWKltehes.  Iltera  is      an.addittMialiaset  s«^^ 
I  wo«Mnotm>miallybein(X)ipoiBtedlEito.ttiefinaldesign.  - 
'  ITte  sdwmaOc  is  illustrated  in  Figure  1 . 

CONNECTIONS 


The  individual  eegments  of  each  display  are  conneetod 

together,  A-A-A-A,  B-B-B-B,  etc.  The  displays  are 
numbered  from  the  right,  or  least  significant  digit.  The 
second  display  from  the  right  is  flipped  upskle  down  to 
align  its  decimal  with  the  third  display,  ci4atlng  the 
center  ck>ck  colon.  Therefore  the  segments  are  not  tied 
together  evenly  straight  across  on  the  board,  but  must 
compensate  for  the  change  in  one  display's  orientation. 
The  common  cathode  for  each  display  is  turned  on  with 
transistors  connected  to  the  four  I/O  lines  of  Port  A.  The 
connections  are  RA0-CC4/Digit4,  RA1  -CC3/Digit3,  RA2- 
CC2/Digit2,  RA3-CC1/Digit1.  A  low  output  turns  on  the 
PNP  transistor  for  the  selected  display.  The  Port  Spins 
activate  the  LED  segments.  For  this  design  only  the 
center  colon  decimal  points  were  connected.  The  con- 
nections are  RBO-dp,  RB1-A,  RB2-B,  RB3-C...RB7-G. 

The  switches  are  also  connected  to  Port  B  I/O  pins.  Port 
B  pins  RB1 ,  RB2,  and  RB3  are  pulled  low  with  1 0K  ohm 
resistors.  This  value  is  high  enough  to  not  draw  current 
away  from  the  LEDs  when  they  are  being  driven  on. 
Inputs  are  detected  by  pulling  the  pins  high  with  aswitch 
to  Vdd  through  820  ohm  resistors.  This  value  is  low 
enough  to  pull  the  pin  high  quickly  when  the  outputs 
have  been  turned  off,  and  to  create  a  90%  of  Voo  high 
input. 


OPERATION 

..  .     ■  '  .  , 

Switches 

When  no  buttons  are  pressed,  the  circuit  will  display  the 
current  time,  starting  at  12:00  on  reset.  Pressing  SW1 
will  cause  seconds  to  be  displayed.  The  time  is  set  by 
pressing  S  W2  to  advance  minutes,  and  SW3  to  advance 
hours.  Since  each  of  the  segments  are  tied  together 
across  all  displays,  only  one  display  should  be  turned  on 
at  a  time,  or  all  displays  turned  on  woukJ  display  dupli- 
cate data.  The  displays  are  turned  on  right  to  1^,  «^ 
each  display's  value  being  output  Its  turn.  This  ts  done 
fast  enough  so  that  there  is  no  perceived  fUcker.  The 
switches  are  read  between  display  cycles. 

mf'.  .-.,1.11  .a."     *  .■ 

THntrii 

The  PlCteCXXftfescaler  is  assigned  to  the  RTCC  as  a 
1:16  divide.  The  RTCC  pin  is  tied  low  since  it  is  not  used. 
The  OPTION  Register  is  loaded  with  03h  to  initialize  this 
prescaler  set  up.  The  software  is  written  with  timing 
based  on  a  4.000mhz  crystal.  The  instruction  clock  is 
1 .000  MHz  after  the  internal  divide  by  four.  The  8-bit 
RTCC  register  rolls  over  every  256  cycles,  for  a  final 
frequency  of  244.1406  Hz.  (exactly  a  4.096  ms  period) 
Availal)lsnamadaac_pth  is  iisedtocount244  roll-overs 
ottheWrcefarartifseetiT^  The  benefit  of  keeping  time 
mti  a  nth  varialSrM  &-that  iean  be  written  to  as  needed 
~  tOfKljusttime  in.'*ri^'%^a  second,  altowing  almost  any 
yleyiliiisad.  Simply  determine  the 
iWn'  diwklef,  and  conftuteithe  "nth" 
I  foMaotf  mbiute,  hour,  twelve  hour 
»  kept  accurately  to  two  'nOis'  aday 
"  HtZAAeiai  second  in  this  case).  In  this  circutt, 
BsubtiaiHed  each  minute,  34  "nths*  are  added 
|r,  and  8  "nths*  subtracted  every  twelve  hour 
,  I  tSte  liMiw^s  a  (^puted  error  of  1 .5  seconds/ 
|isaiin»f^lOTciy^  frequency  drift.  Another  possible 
toluttsAi  Is  to  iManze  the  RTCC  to  some  vttlde  that 
causes  a  roll-over  at  a  predetermined  time  interval. 
Writing  to  the  RTCC  causes  two  ctock  cycles  to  be 
missed  while  edges  realign,  whteh  wouki  have  to 
be  accounted  for.  This  is  described  in  the  Mktochip 
Data  Book. 


10  ttM)MM9tHip^niiMMtofly  ^ 
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A  Clock  Design  Uiiiig  ttio  PtCf^l  ftir      M^tai^  amci  Switch  Inputs 


Displays 

•TYm  f  iassm  GlBMnt  pOrtioiM  of  co^  UM  «Bt  as  a 
(Ssjpiy  dmar.  A  ftutabW  exls6  for  each  of  the  Ibiir 
displays.  A  hex  value  from  0  to  9  can  be  written  to  these 
variables  and  they  will  be  converted  to  display  code  and 
output  to  ttie  displays.  Only  one  display  is  actually  on  at 
a  time,  and  its  code  is  output  into  it  in  its  turn.  Another 
section  of  code  takes  the  seconds,  minutes,  or  hours 
value  and  separates  It  into  the  two  cfigits  needed  for  each 
display.  In  other  words,  48  seconds  WoQId  be  separated 
into  a  '4'  and  an  *8*  and  written  to  the  appropriate 
display  variable.  The  displays  used  were  common 
cathode  and  turned  on  with  transistors  to  avoid  tryinQfo 
sink  ti^gyirw;^  cunwt  into  ttt^  g^^j|gQ^^^(^|||tf^Js 
anableci  wWi  a  zero  at  the  a|fi|^|||^j^k«  j^ffeni 
eantvbeolSTv'.gfrir  , 

•Ktl  (t  'L*«  ,«'U. 

FIGI4BE  -k  TIME  mm^)&^immmmi9m9cm 


I 

resistors  were  used  in  series  with  the  segments  to  obtain 
the  desired  brightness.  Different  values  may  be  re- 
quired if  different  efisplays  mused.  Since  the  displays 
are  each  on  less  than  one  Smk  <Stit»  Vkim,  tharaibter 
value  must  be  low  enough  to  compensatefortheTMWiad 
forward  current. 

CONCLUSION 

The  instruction  «te£tifion  speed  of  the  PIC16C54  (and 
the  rest  of  the  PIC1 6/1 7  series)  allows  many  f  unctwns  to 
be  implemented  on  a  few  pins  by  multiplexing  them  In 
msttmt».  Vm^mMsiJkml^mm  ^Mtt^iwilatWKl 

muttiphsl'rajil^MifipWPii^WBO^^ 

' .  a/ft  -Boiei 

riieJOClfllOW 


?5Vdc 

sw1  -displays  seconds 


sw2-advances  minutes  swS-advances  hours 


10K 
Ohm 


i    i  ^ 

swi  sw2  3W3 


CC2 
CC1 


iiii 


-dp 


RA2 
RA3 
RTCC 


RA1 

RAO 
OSC1 


MCLR  OSC2 

V"  Vdd 

RBO  RB7 

RBI  RB6 

RB2  RB5 


-A 
•B 

C)RB3 


CC3- 
CC4- 


\  4,0O0MHz 
)xtal  Of  09C 

/  circuit  as 
'  needed 


G — 
F — 
E— 1 


1C]RB3  HB4|-D| 
I  Wi  1  I — W  1 


2N5401 


lOKohm 


All  of  the  same  display  seg- 
ments are  linked  together 
(A-A-A-A,  B-B-B-B,  etc.) 
and  are  individually  selected 
by  turning  only  the  desired 
display  on. 

'".•Mi  Grrif    bwiieiMib  * 


Common  Cathode  1 
Digit  1 


HPotef  HOSPTSOS 


Author.  Dan  MaSthows 

Coipomte  ApplkiaUons  Manager 
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;lkj(^ck{)eaddn  ysifis  thfti^6@i4^^ft^^  and  Switch  Inputs 


-LOG     lhq!  source  TKXU' 


0001 
0002 

0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0023 
0029 
0030 
0031 
0032 

«035 
I  0(i36 
0037 
0038 
«039 

mo 

0041 

0042 
0043 


lint  F  =  16eS4 


**************************************************** 

Clock 

******************************** 


********** 


********************************* 


PROGRAM  DESCRIPTION  . - 

This  program  runs  on  a  PIC16CS4. 

^urtSware  Description 

DISPLAYS 

Four  7  segment  displays  are  multiplexed.     The  segments  are  tied  together, 
with  the  common  cathode  pins  broken  out  separately.     The  display  appears 
as  a  clock  with  a  center  semicolon  {  88:88  ).     The  segments  are  assigned 
to  Port  3,  with  the  semicol<^  ^ing  RBO,  and  segnaats  A  through  F 
assigned  as  RBI  to  RB7  respectively. 

The  four  common  cathodes  are  activated  by  the  four  Port  A  pins  through 
transistors.  RAO  for  Digit4,  RAl/Digit3,  RA2/Digit2 —  through  Digit4, 
with  Digitl  being  in  the  rightmost  position.   The  center  semicolon  is 
made  from  the  decimals  of  LED  2  and  3. 

Digit2  is  turned  upside  down  to  put  its  decimal  into  position, 
but  it  is  wired  with  a  corrected  A-F  ztssignment  to  ccnpensate.  Both 
decimals  are  tied  together  at  RBO,  but  the  display  cathodes  are  still 
jsofparate.^  -  AQtivatiJ3g  the  ^|ff«?%iwili  't<^  digit2  ABID  3  will  on  the 

center  colcm. 

SWITCHES 

Because  all  twelve  I/O  pins  are  already  used  for  the  muxed  displays, 
eight  for  segments  and  four  for  digit  selection,   the  three  switches  inust'< 
be  read  alternatingly  througih  aoftware.    The  switches  lie 
^«:^Mepm%^Ba]St'  Bi^itl**  MS/B  is^maft^  #o  im^ml^m'Smttkxi^i  during  read 

;  and  rhrtnQt^rl  baelt       ont^tA  faring  Mt^Xmy.    Wmmsfii  amrles  resistance 
;  most  be  used  to  f»Nv««^  tjuxndjso      f^x  shorting  segments  during  display     '  • 
ti  .-icyeices  -if  a  switch  -1^  gageoaeiA.  -     "  j 

;  SWl-displays  seconds,  SW2- advances  minutes,  ^ 
;  SWS-advances  hours,   (none) -displays  tjjae 


. «  *  *  ^.j*  *  *-.*  *A*  ******-*.  j|^,'* 


Bender  ***************** 


******** 


OlFF 

0044 

P1C54 

equ 

H' 

OlFF' 

;  start  address  if  used  in  a  P1C16C54 

03FF 

0045 
0046 

PIC56 

H' 

03FF' 

;       •          "         •        ...  PIC16C56 

0000 

0047 

8' 

oe> 

;  itSgtmtm  hm^-'ii-oa  to  I0  m  'i&dirQf&  address  potnfees: 

0001 

0048 

RTCC  •>  ■ 

H' 

01- 

;  address  o£  «SCC  clodc  value 

0002 

0049 

PC 

9m 

H' 

02' 

;  program  counter 

0003 

0050 

STATUS 

equ 

H 

03' 

;   F3  Reg  is  STA'TOS  Reg. 

0004 

0051 
0052 

FSR 

equ 

H 

04' 

;  F4  is  File  Select  Register,   address  POINTER  will  direct 

0005 

0053 

PORT_A 

equ 

H' 

05' 

;  7  segment  Display  Common  Cathodes 

0006 

0054 

PORT_B 

equ  ^  r 

/t  Wixeii  Ol^gisy  Segment*  r(!ai|i.tclta«..iidien  inputs  1 

00S5 

;  ■:. 

0056 

;  ffoamxmt  Bits 

0000 

0057 

CABSY 

0 

;  cariar  84%  4s  Bit.O  of  F3. 

0000 

0058 

C 

equ 

0 

0001 

0059 

DCARRY 

equ 

1 

0001 

0060 

DC 

equ 

1 

0002 

0061 

Z_bit 

equ 

2 

;  Sl-t  <2  -of  F3  is  Zero  Bit 

0002 

0062 

Z 

equ 

2 

0043 

3,. 

0003 

0064 

H) 

equ 

3 

0004 

0065 

T_OUT 

equ 

4 

0004 

0066 

TO 

equ 

4 

0005 

0067 

PAO 

equ 

5 

;16C5X  Status  bits 

« 199*,Mlciach|>  Taehnokifflr  kie. 


0006 

0068 

PAl 

equ 

g 

16C5X  Status  bits                                '       -      'i  i 

0007 

0069 

PA2 

equ 

7 

16C5X  Status  bits 

0070 

007E 

0071 

ZERO 

equ 

; 

OOOC 

0072 

ONE 

equ 

H'OC' 

.  .       .                                        1  . 

00B6 

0073 

THO 

equ 

H'  B6 ' 

009E 

0074 

THREE 

equ 

H '  9E ' 

-            «  '              -                           -     ,     :  1 

OOCC 

0075 

equ 

OODA 

0076 

FIVE 

equ 

H'DA' 

OOFA 

0077 

equ 

H'FA' 

OOOE 

0078 

H'  OE ' 

OOPB 

0079 

EIGKT 

AMU 

B'SS' 

1 

OOCB 

0080 

NXNE 

e^ 

H'CS' 

■      .  -                 •-                                                                                  -       ■  -  - 

AAfln 

0081 

BIjANK 

equ 

H'OO' 

0082 

0083 

timer  variables  start  at  a  nxunber  that  allows 

0084 

rollover  in  sync  with  time  rollover,   i.e.  secoi^s 

0085 

starts  at  decimal  196  so  that  sixty  1-second 

increments  causes  0. 

OOOC 

0086 

MAXNTHS 

equ 

D'12' 

initialization  constEuats  for  timer  count  up 

0OC4 

008T 

00C4 

0088 

e^ 

00P4 

0089 

MAXHRS 

equ 

D'244' 

00F3 

0090 

MINHRS 

equ 

D'243  ' 

0009 

0091 

ADJ14IN 

equ 

D'9' 

number  of  nths  to  be  subtracted  each  minute  for 

accuracy 

0022 

0092 

ADJHR 

equ 

D'34' 

nths  added  each  hour  for  accurate  time 

0006 

0093 

«^ 

ttths-  ftoi^am^fid  'Adiisb'  ■'l/Z  day  m&ll^v^ 

0094 

OOFE 

DISP4 

6qU 

B'lllllllO' 

OOFD 

0096 

DISP3 

equ 

B'llllllOl  ' 

Mapping  of  Active  Display  Selection  (PORT_A) 

OOFB 

0097 

DISP2 

equ 

B'lllllOll ' 

displays  are  active  low 

00F7 

0  0  98 

DISPl 

equ 

B'llllOlll' 

OOFF 

0099 

equ 

H'FF' 

•  turns  all  displays  off  when  written  to  PORT_A 

OOOE 

0100 

■SUfVKSS  -  ■ 

'  eiia  ■ 

-  '  •''WtMMWi''  '>^<pa0d  is  et^is-B            'JlM-3" -£02$  switch  ii^Mi^s 

0101 

■■  ■                iltg^it            ■.     -jj-j-.t:      1   .<   J.-'  !•  .!■-,.■ 

0102 

0000 

0103 

SEC 

equ 

H'  0  ' 

•  tipiiiite  4^Ml9«(Sll^i9^3f  vlulttefl  for  stfd,  min,  hours 

0001 

0104 

MIN 

equ 

H'l' 

0002 

0105 

HRS 

equ 

H'2  ' 

0003 

0106 

CHG 

equ 

H'3' 

•  a  change  has  occu^eni' a  switch  or  a  display 

•      value                                                     :  i«r 

0004 

0107 

SWl 

equ 

•  «'4' 

•  Flag  bit  assi^^ii^ts  -  'gWltdhe^  that              =  1 

equ 

H'5' 

SWl  is  Seconds-minutes,   SW2-hours,  SW3-inode 

0006 

0109 

equ 

H'6' 

0007 

0110 

H'7' 

*   indicates  a  switch  has  been  pressed 

0112 

■   RAM  VARIABLES 

equ 

H'08'       i  '••  s^Jwet  used  i 

0009 

0114 

equ 

H'09' 

f  %its  1 0-SBC,  1-HIN, l-'WHSi^^^aB^  4-SWl ,  5-SW2 , 6-SW3 , 7-Stt_ 

OOOB 

0115 

display 

equ 

H'OB' 

-  SW_ON  vaarlea^Ie  loisi&^cai  ^  ^«hich  dispU^  to  update 

OOOC 

0116 

equ 

H'OC 

•  Rightmost  display^  ^lue               i^"'  / 

OOOD 

0117 

equ 

H'OD' 

•  Second  display  from  right 

OOOE 

0118 

digits 

equ 

H'OE' 

•  Third 

00  OF 

0119 

digit.4 

equ 

H'OF' 

•  Fourth  (and  Leftmost) 

0010 

0120 

sec_jath 

equ 

H'lO' 

•  seconds,  f raeti<^i(t  pla<^      '             '  ^  "ic'Mi 

nni  1 

0121 

sdconds 

equ 

H'll' 

•  seconds                                                          ' '.'  ^ 

0012 

0122 

minutes 

H'13 ■            <.»•  n«aMM*'i''  i^-                                            ^  v" 

0013 

0123 

hours 

•»>  S  -3 

0014 

0124 

var 

equ 

H'14' 

0015 

025 

count 

equ 

H'15' 

J  loop  &sm6bm£  mix^i^isk 

0126 

t  ' 

0127 

:'.  u  . 

0128 

^^19 

•    mitialixe  Ports  all  out^^,  bltttOc  ^a^l«iy     '  ^Ci 

OSS  ;  -•-  -  fSf^" 


'  BS00MWt>itos»4 


HltCrioclcD^gir  y8irit;MP96i6^  ii!e|tS0^Dis|)^  idn^^^  Inputs 


OBJECT 

— LOC 

CODE 

LINE 

0000 

0C03 

0131 

0  XATvX  JhvVXVF 

H'03 '      i  A 

Aet  cptioQ  ire^istef ,  tiransition  on  cXoclc, 

0001 

0002 

0132 

'Prescale  UTOC ,  '/i. :  16  .  : 

0133 

0002 

OCOO 

0134 

0            -  ■• .  1 

0003 

0005 

0135 

PORT  A 

all  Tv^pt'  n i'tlB  itfl  ontxmts 
nxx  ^K'^A*       mw  CUP   ^ •  "fc^  ~ 

0004 

0006 

0136 

tris 

PORT  B  "1 

0005 

OCOO 

0137 

0006 

0026 

0138 

inovwf 

PORT  B 

0007 

04C3 

0139 

bc£ 

0008 

04213 

0140 

bcf 

STATUS,  PA0,. 

0141 

0142 

0  0  09 

OCOl 

0143 

movlw 

H'Ol' 

002 1 

0144 

inovwf 

RTCC 

SGt    KTCC    3J30V6    ZSITO    SO    iTlltidl   W3.it  pSlTlOd  OCCUITS 

0145 

movlw 

DISPl 

oooc 

002B 

0146 

movwf 

display 

ixixtidlizes  display  selected  to  fixst  displa.y. 

4tl  £r  n^tflpj^^^  to  lihLttnlc  1  no  vi  s  xbX  6  SAS^iMits 

00.015 

tin's  f* 

oi4t^&:  ^hv.  ftiKiiaeE  ^ 

O00F 

W  v^U 

0149 

BKWWE 

0010 

0150 

tCbu  vw£^ '  ■ 

-    ■           .  . 

0011 

0151 

movwf 

digit4 

0012 

OCOC 

0152 

movlw 

MAXNTHS 

set  time!r  vaxiabXes  to  initial  values  *  ^><..- 

0013 

0030 

0153 

movwf 

sec_nth 

0014 

0CC4 

0154 

movlw 

MAXSECS 

0015 

0031 

0155 

movwf 

seconds 

00:1£ 

015« 

ai^lw 

0017 

COS'S 

'Qtm 

■           aft"    1    1  '         •  ■ 

0018 

OCFF 

0158 

movlw 

H'FP' 

iieturs  ditart  at  12  tdiich  is  max  at  FF 

0  019 

0159 

movwf 

hours 

OOIA 

OCOO 

0160 

movlw 

H'  00 ' 

OOIB 

0029 

0161 

movwf 

sum  ■■' 

clear  the  flags  variable 

OOlC 

0004 

0162 

clrwdt 

clear  WatchDog  Timer,  must  be  within  every  18ms 

0163 

>0t64 

•.S''             ■  i 

1 

0165 

M&IN 

0166 

0167 

wait  for  RTCC  to  roll-ever 

0168 

RTCC_FILL 

00  ID 

0201 

0169 

movf 

RTCC.O 

0170 

ztoter  RTCC  is  left  free  running 

OOlF 

0171^ 

IlTdC_FltiL 

0172 

0020 

03F0 

0173 

incfsz 

sec_nth, 1 

;add  1  to  Bths,  n  X  nths  =  1  see,  n  ia  based  on  pres' 

002 1 

0A54 

0174 

goto 

TIME_DONE 

0022 

0004 

0175 

clrwdt 

0023 

OCOC 

0176 

movlw 

MAXNTHS 

0024 

0030 

0177 

mcnntff' 

ree(&o£<4^ttciGCptlis  varisble  for  next  roimd 

0178 

-.f-„.    -  , 

0179 

0025 

07E9 

0180 

btfss 

flags,  SVCCW 

if  no  switches  pressed,  bypass  this 

0026 

0A3C 

0181 

goto 

SET_TIME 

0027 

0689 

0182 

btfsc 

f lags.swl 

0028 

0A3C 

0183 

goto 

SETjriME 

if  seconds  display  is  pressed,  do  not  change  time 

002^' 

00bl4^ 

0184 

menrlw 

0031 

0185 

movwC 

reset  seeeMaaA  '^to  seSw  idien  setting  clock 

002b 

0C7F 

0186 

002C 

0030 

0187 

movwf 

Bec_ntb'  ■ 

advance  second  timer  1/2  second  to  speed  setting 

002D 

07A9 

0188 

btfss 

flags,  SW2 

002E 

0A35 

0189 

goto 

HOURSET 

if  minutes  do  not  need  changing,  check  hours 

002F 

OCAF 

0190 

movlw 

H'AF' 

0030 

0030 

0191 

movwf 

sec_nth 

advances  timer  faster  when  setting  minutes 

0031 

03  F2 

0192 

incfsz 

minutes ,  1 

advances  minutes  1 

0032 

0ft35 

0193 

goto 

00^9  0664^ 

10194 

movlw  . 

0034 

0032 

0195 

movwf 

if  minutes  roll  over  to  zero,  reinitialize 

minutee:.' 

0196 

«10MllMnachip  TsctMologylne. 
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0038 

0A60 

0200 

^n£jv*^  .^.^  J  A—Pi  1 

0201 

inovlw 

003A 

0033 

0202 

movwf 

hours 

003B 

OASO 

0203 

goto 

CHECK_TIME 

0204 

UZUD 

____  _____ 

sst__thie 

0509 

0206 

bsf 

003d 

0569 

bs£ 

L  J. ays  , 

0D3E 

03F1 

0208 

S€cotids  r  1  .' 

003F 

0209 

goto^^ 

TTMT?  nnMTP 

0040 

0CC4 

u^xu 

0041 

0031 

0211 

0212 

,  I 
"* 

:  :  ii  .J 

00«2 

O^es 

0213 

Exags  f  nxn  w 

0043 

0569 

r  xags , 

t 

0044 

0C09 

0215 

movlw 

AIXTMIN 

0045 

0060 

0216 

subwf 

sec_nth, 1 

. 

0046 

03F2 

0217 

incf sz 

minutes , 1 

0047 

0AS4 

0218 

goto 

0048 

0CC4 

0219 

SBOVlW 

■BMliilfBia 

0049 

0032 

0220 

movwf 

miixute^ 

0221 

004A 

0549 

0222 

bsf 

flags , HRS 

004b 

0569 

0223 

bsf 

nags ,  cn(j 

■• 

004C 

0C22 

0224 

movlw 

ADJHR 

004D 

OlFO 

0225 

soc_jith«  1 

1 

004E 

03F3 

0226 

hours.  If  1  1 

004F 

OAS  4 

0227 

goto 

TIME_^mMUI 

0050 

0CF4 

0228 

movlw 

MAXHRS 

0051 

0033 

0229 

movwf 

hours 

' 

0052 

0C06 

0230 

inovlw 

ADJDAY 

0053 

OOBO 

0231 

subwf 

sec_nth, 1 

1 

0232 

0233  TIllE_pQHB 

0054 

0769 

0234 

btfss 

flags , CHG 

0055 

0A91 

0235 

goto 

CYCLE 

-  •  •7 

0236 

7 

0237 

1 

0238 

0239 

O0S6 

0789 

0240 

flags  «SW1 

•• 

0057 

0A60 

0241 

goto 

CHECK_TIME 

0058 

ocoo 

0242 

taovlw 

H'OO' 

- 

0020 

0243 

novwf 

OOSA 

0028 

0244' 

digita 

005B 

002F 

0245 

BKMnif 

digit4 

005C 

0CC4 

0246 

movlv 

005D 

0091 

0247 

subwf 

seccmds ,  0 

OOSE 

002C 

0248 

movwf 

digitl 

'6fm 

0249 

goto 

3WL1TJISSX, 

0250 

0251 

CHBO^TIME 

0060 

OCOO 

0252 

movlw 

H'OO' 

0061 

002F 

0253 

movwf 

digit4 

0062 

002D 

0254 

movwf 

digit2 

j 

if  hours  roll&  over  to  zero,  reinitialize 
skip  time  keeping,  go  to  display  changes  I'- 

indicates  seconds,  if  displayed,  shou3tSt^Ba  ' 
updated 

inicates  a  flag  change  was  made. 
'  add  1  to  seconds 

1  /•♦Iti    tS'.'i'  « 

reetoxa  seeeads  variable  for  next '#9aifiiC"''  » 

HtirafreB,  tt>'«Bpla^^l^  should  be -tifidatii^  C&rri 
indicates  a  flag  change  was  made 

accuracy  adjustment,  do  not  go  below  0 
add  1  to  Aiiiiutes 

TfeBtXfre^iBieSXSa  VHii:eble  for  next^fiouir' 
countdown 

hours,  if  displayed,  should  be  updated 
Indleates  a  flag  change  was  made 

•as  HOMlafliiii^niBMMM  to  aths  for  each  &aur 
mM  1  to  ^ 


restore  hours  variable  for  next  round 
subtraction  adjustment  for  each  1/2  day  rollover 


if  no  switches  or  potentially  dislayed 
numbers 

mre  changed,  then  leave  the  display  same 


If  seconds  button  was  pushed  display 
seconds  ^.■i.m  .l  • 

'    -  fi-^     Vw-.-^NB  r      1  ■ 

if  seconds  button  not  pressed,  skip  this 
zero  time  display  varldblAA  accept  seconds 
{digitl) 

digitl  used  to  ten^zarily  hold  haic  seogbds 
or  minutes  "  r  , 

subtract  initialized  preset  to  get  actual 

seconds 

1st  digit  variable  teaporarily  holds  hex 

value  seconds 
done  i^^Scetnf'  itt^qpia^  variables  in  ' 

.;  ir  ■-  -     ■  •■ ;  "E 


zMro  out  -tens  plaees  in  case  there  is  no  tmA 


DSOOSgOAr^a^ft 
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0063 

0CF3 

0255 

movlw 

HINHRS 

0064 

0093 

0256 

■  subwf 

hours, 0 

subtract  initialized  preset  to  get  actual 

boure 

0065  ' 

002B 

0257 

mow£ 

digits 

3xd*  digit  variable  temporarily  holds  hex 

value  for  hours 

0066 

0CC4 

0258 

movlw 

MAXMINS 

0067 

0092 

0259 

subwf 

minutes , 0 

subtract  Initialized  preset  to  get  actual 

minutes 

0068 

002C 

0260 

movwf 

digitl 

1st  digit  temporarily  holds  hex  value  for 

minutes 

0261 

0262 

no^9  ^Igit  vaxidbles  are  used  for  tenp 

vvxiables  sn^*  .final  display  variables 

0263 

0264 

split  into  two  hex  display  variables  and 

write 

0265 

0069 

0C02 

0266 

movlw 

H'  02  ' 

006A 

0035 

0267 

roovwf 

coTint 

coaymi^  each  nudser  -  seconds  -  or  minutes 

and  hours 

0268 

;lst  time  throujflii  FSR  =  digitl,  2nd  time  PSR  = 

; 

digits 

006B 

ococ 

0270 

movlw 

aigi tl 

006c 

0024 

0271 

movwf 

FSR 

; 

address  of  digitl  into  File  Select  Register 

; 

prepares  POINTER  .  i.  ■ 

goto 

liOOP 

; 

this  loop  is  used  to  modify  the  mtnutes/ 

T  1        - '  '  ] 

; 

aeaimAa  place 

0273 

; 

006B 

0274 

I.00P2 

movlw 

f44  m4  K1 

006F 

0024 

0275 

movwf 

FSR 

; 

this  loop  is  used  to  modify  the  beuxs  place 

U4  /D 

1 

0277 

LOOP 

0070 

OCOA 

0278 

movlw 

0071 

oo&o 

0279 

: 

find  out  how  trnnv  tens  in  nuoiber. 

0073 

0603 

0280 

btfsc 

was  a  borrow  aaeded? 

0073 

0A76 

'lEWT'lH^ffiW^T  lOS 

if  not,  addil  to  tens  position 

O0?4 

02^2. 

addMTf  ' ' 

rFOSH^BRf  1-. 

if  so,  do  not-  increment  tens  place,  add  ten 

back  on 

0075 

0A7A 

0283 

goto 

wi?ir*p  nTrtTT 

0284 

I  A 

0285 

INCREHE 

■-          J  J 

0076 

02A4 

0286 

incf 

FSR/ 1 

Samm  '«ddress  minted  to  from  Is  positoten  to 

10s 

0077 

02A0 

0287 

incf 

f 

add  1  to  10s  position  as  determined  by 

previous  subtract 

0078 

00E4 

0288 

decf 

FSR.l 

put  POINTER  value  back  to  Is  plaae  Corsnaxt 

subtraction 

0079 

0A7O 

0289 

goto 

LOOP 

f. 

>«mdgiK^  and  keep  subtracting  until  finished 

0290 

0291 

NEXTJDIGIT 

007A 

02F5 

0292 

decfsz 

count , 1 

007B 

0A6E 

0293 

goto 

L00P2 

after  splitting  minutes  into  two  places,  go 

split  hours 

0294 

02 9S 

e<»iv»rts  digit  variables  to  decimal  di^lay 

:■-      '  • 

■>■}      •  . 

esMto-.      'v'.v  ■                                  i  . 

007C 

OCOC 

0296 

movlw 

digitl 

007B 

0924 

0297 

movwf 

VSR 

pne  die  aa&rass  of  the  digitl  into  the  FSR  to 

enable  POINTER 

007E 

0C04 

0298 

movlw 

H-04' 

007F 

0035 

0299 

movwf 

count 

prepare  count  variable  to  loop  for  all  four 

»'  »  . 

■  ■ 

displays 

0300 

mm- 

02«0tl  f- 

0301- 

>ai|lia3te  ]MK::Malue  of  the  curr«it  idiglt  nmrl 

HKte 

0081 

09C3 

0302 

call 

RETORN_CODE 

call  for  the  hex  to  segment  display  code 

conversion 

0082 

0020 

0303 

movwf 

POINTER 

put  the  returned  display  code  into  the  digit 

variable 


0083 

02A4 

0304 

incf 

FSR.l 

increment  the  pointer  to  the  next  digit 

02FS 

OMST  - 

a^e^  - 

ttiietE«BS 

allM^t^ly  eknmt  (4)  times  through f 

0085 

0X80 

0306 

goto 

NEXT_HEX  : 

0307 

0308  FIX_ 

DISPLAY 

0086 

0C7E 

0309 

movlw 

ZERO 

0087 

008F 

0310 

subwf 

digit4, 0 

check  to  see  if  left  digit  is  a  zero,  if  so 

blank  it  out 

0088 

0743 

0311 

btfas 

mm9  90KSC 

TjCuw 

•  0313'^ 

008b 

002F 

0314 

dlgit4 

0315 

008C 

0789 

0316  FIX_ 

SEC  btfss 

flags , SWl 

If  seconds  are  displayed,  blank  the  third 

008D 

0A8F 

0317 

goto 

CLEAR_FLAGS 

>  :>  1. 

-  mum^ 

-•I-                                    .  . 

0319 

0320  CtilBmjnAGS 

008F 

OCFO 

0321  i  • 

movlw 

H'FO' 

0090 

0169 

0322 

andwf 

flags,  1 

clear  the  lower  4  flag  bits  to  show  updated 

time  status  <' 

0323 

0324  @CS>B  ea  r    :  ,  a 

0091 

OCFT 

osas-'i-^ 

0092 

0025 

0326 

Turn  off  LED  Di^ls^s 

0093 

OCOB 

0327 

movlw 

0094 

0006 

0328 

tris 

PORT_B 

Set  some  port  B  pins  as  switch  ii^iUts 

0095 

OCOF 

0329 

movlw 

H-OF' 

0096 

0169 

0330 

andwf 

flags, 1 

reset  switch  flags  to  zero 

0097 

0000 

0331 

nop 

nop  may  not  be  needed,  allows  old  outputs  to 

0098 

0000 

0332 

b^dedoff  tfarou^  10k  R  before  reading  port 

I.J  e*i*:i  \fiAw  -  -<i 

J17C  jLfl! 

lp!$S^>^t       Iwaca  OS* 

0099 

0000 

0333 

ttiebaajt  ■.•-.3,- 

'  vrt       -Ts-a-f                .  ■   :       '          ■,  :„r 

009A 

02O6 

PORT_B,  0  ?.C 

l3ika.  FeHlT_B  ffi»I!  :switch  status  .-''f. 

B  mitt  »n5«-iL-'.'*B*«f 

var 

iStitM  switdb  status  to  tsnqoorary  ytaxiitSl^ 

009c 

0734 

033S 

btfss 

var,l 

*var' 

009D 

OAAl 

0337 

goto 

SHITCHS  ' 

indicate  vdiich  switches  are  pressed  in  the 

flags  vari^le' 

-  OO^B 

0569 

0338*  •'- 

-  ■  ■  -fe^t  -  -  -T 

:  ^'            -                                   -.-  .V 

009F 

0589 

0339 

bsf 

flags,  SfWl: 

05E9 

0340 

bsf 

flags,  SW_1MI 

;.T^j  .t'?              .  ; .                        '  .  .  ... 

1 

0754 

0341  SWITCH2  btfss 

var,  2 

00A2 

0AA6 

0342 

goto 

SWITCH3 

-'                                           •  ' ' " 

00  A3 

0569 

0343 

bsf 

f lags,CHG 

00A4 

05  A9 

0344^  ^fi  u 

0DA5 

05E9 

0345 

bsf 

flags,  SHjDil 

00A6 

0774 

0346  SWITCH3  btfss 

var,  3 

00A7 

OAAB 

0347 

goto 

SETPORT 

00A8 

0569 

0348 

bsf 

flags, CHG 

-  .                        t  -  .■ 

00A9 

05C9 

0349 

bsf 

flags, SW3 

OOAA 

05E9 

0350 

bsf 

flags,  SW_ON 

0351 

OOAB 

ocflo 

0352  semmis  miviv 

H^Off*'                     ;  eastaiac*  HSOl^  as  all  outputs  to  SlirolojfB 

03m 

tris 

PORT_B 

-  mmm 

movlw 

BLANK 

blanK^qpltir  to  preparation  ifomKMt  ^gtt 

cycle 

OOAE 

0026 

0355 

movwf 

PORTJ 

j0356 

0357 

t 

determine  vdiich  display  naads  updating  and 

cycla  it  on            '"'it'  i-' 

OOAF 

0708 

0358 

'  btfss 

OOBO 

020F 

0359 

movf 

dlglt4,0 

OOBl 

072B 

0360 

btfss 

display, 1 

if  2nd  di«pl«i>>-SWt  2nd  digit 

00B2 

020E 

0361 

movf 

digit3 , 0 

00B3 

074B 

0362 

btfss 

display, 2 

if  3rd  display,  get  3rd  digit 

A  Clock  Design  Using  «Me}RI€1jeiS#tSI«i:^  IM^       and  Switch  inputs 


Q0B4 

020O 

0363 

iiiov£ 

digit2 , 0 

076S 

0364 

btfas 

display, 3 

;  if  4th  display,  get  4th  digit 

a^m 

020C 

0365 

mavt 

dlgltl.O 

SOB? 

002 S 

0366 

novHf 

;  put  the  nuniser  in  w  out  to  display 

0OB8 

06F0 

0367 

btfsc 

•ec_ntli,  7 

0069 

0506 

036S 

bsf 

P<«T_B,0 

;  sets  colon  decimal  on  %50  duty  using  highest 

bit 

OOBA 

020B 

0369 

movf 

display,  0 

;  get  display  needing  cycle  on 

OOBB 

0025 

0370 

movwf 

;  enables  proper  display 

OOBC 

002B 

0371 

movwf 

display 

;  enables  display  selected  in  last  pass  of 

;  etajs 

OOBD 

03  6B 

0372 

rlf 

display, 1 

;  rotate  display  *on*  bit  to  next  position 

OOBE 

050B 

0373 

bsf 

display,  0 

;  assures  a  1  on  lowest  position  since  rotated 

;      in  carry  is  zero 

OOBF 

078B 

0374 

btf  ss 

display, 4 

;  check  if  last  display  was  already  updated 

OOCO 

040B 

0375 

bcf 

display,  0 

;   if  it  was,   set  display  back  to  1st   (bit  0 

;  cleared) 

OOCl 

0004 

0376 

clrwdt 

;  this  program  pass  conpleted  normally,  reset 

;      watch  dog 

0377 

0378 

0379 

00C2 

OAID 

0380 
0381 

aoto 

0382 

RETURN  CODE 

' 

0383 

O0C3 

01E2 

0384 

addwf 

PC,1 

2  tbe  hex  value  in  the  display  variable  is 

00C4 

087E 

0385 

ZBRO 

;      added  to  PC  idiich  causes  a  jump  to  return 

•      its  display  code 

00C5 

080C 

0386 

retlw 

ONE 

00C6 

08B6 

0387 

retlw 

TWO 

00C7 

089E 

0388 

retlw 

THREE 

oocs 

08CG 

0389 

FOOR 

0BC9 

09tA 

0390 

retlw 

FIVE 

OOCA 

08FA 

0391 

retlw 

SIX 

OOCB 

080E 

0392 

retlw 

SEvan 

OOCC 

08FB 

0393 

retlw 

EIGHT 

OOCD 

08CB 

0394 

retlw 

NINE 

0395 

0396 

0397 

org 

PIC54 

;  reset  locatiw  for  this  processor 

Warning:  Crossing 

page  boundary  —  ensure  page  bits 

are  set 

OlFF 

OAOO 

0398 

goto 

START 

,-  begin  program  execution  at  START  label 

0399 
0400 
0401 


HEHPRY  MtSB  ('X' 


ttoed. 


-  Ubused) 


0000  :  jtXXXJUUOUUUUUUOUC  : 

0040  :  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 


0080   :  xxxxxxxxxxxxxxxx 

OOCO 


xxxxxxxxxxxxxxxx 


0180  : 
OICO  : 


All  other  memory  blocks  lumsed. 


Errors  : 
Warnings  : 
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Multiplexing  LED  Drive  and  a  4x4  Keypad  Sampling 


INTRODUCTION 

Many  applications  require  driving  LEDs  along  with  an 
interface  to  a  keypad.  Implementing  such  designs 
usually  involves  using  up  significant  amounts  of  the 
processors  I/O  lines.  This  application  note  describes  a 
method  which  uses  only  16  I/O  pins  of  a  PIC16C5X 
microcontroller  to  sample  a  4x4  keypad  matrix,  and 
directly  drive  four?  segment  LEDs  (see  Figure  1 ).  Direct 
drive  of  the  LEDs  is  possible,  because  of  the  high  sink 
atxJ  source  capabilities  of  the  PIC1 6C5X  microcontroller, 
thus  eliminatiiig  the  use  ef  external  drive  tran«iifrt9MWKi 
resulttig  in  reduced  cost  and  complexity  of  the  oveiall 
circuit. 


Typically  applications  having  LEDs  and  keypads  also 
keep  track  of  real  time,  in  order  to  synchronize  certain 
key  events.  An  Industrial  Clock/Timer  example  has 
been  used  in  this  application  note  as  a  demonstration  of 
this  technique.  The  software  overhead  to  keep  track  of 
real  time  is  minimal  and  the  user  can  modify  the  code  to 
significantly  expand  the  functionality  of  this  circuit. 


FIGURE  1  -  PIC16C5X  INTERFACE  TO  A  SEOIMENt  DlSPtJVV  AND  4%i  KEYPAD 
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Multiplexing  LED  Drive  and  a  4x4  Keypad  Sampling 


PART  A:  4X4  KEY  MATRIX 
SAMPLING 

liqplSinieiititiQo. 

TIm  4x4  Key  Matrix  is 
PIC16C5X(RgUre2a):  the 
to  RC0-RC3  and  the  four  rows  are  connected  to  RC4- 
RC7.  Each  digit  is  refreshed  every  20  ms.  with  a  5  ms 
pulse.  The  keypad  is  sampled  every  20  IDS  with  fours  Its 
pulses  (Figure  3).  '  '  "•    "  •  ' 

The  Iceypad  sampling  is  as  follows: 

1.  The  columns  are  connected  to  output  pins,  and  the 
.  lows  are  connected  to  input  pins. 

2.  Each  column  Is  sequential^  \b  a  toMr  vi^lDoe 
while  atthe  same  instancettw^fouriowsaF»s«linipliML 
Since  the  rows  are  all  heMMgh  wAh  pu|Npi>MMois, 
ailfourinputswillnormallytettiSh.  ifail«ytep«ssed 
in  a  colurnn  which  is  at  a  low  lawal,  ttiat  low  (iMwl  tiM 
be  conducted  to  the  input  pih  ihious^  ttw  eloeed  k^r 
aM  the  cerraspoMttig  low  will  lie  sensed  as  a  low. 


3.  Before  a  new  column  Is  brought  low,  care  should  be 
taken  to  discheuge  the  input  pins  (see  code  sectnn 
fordetaite). 

.  4.    50  ms  key  debounce  ted«iafj|f'jias  been  imple- 
linmted  in  the  software,  in  eid&rWiSliminate  multiple 


Nctes: 


Resistors  R8-R1 1  and  R12-R14  have  been  selected 
such  that  their  ratio  is  1  ;1 0.  This  will  Insure  a  0.5  Volt 
level  at  the  input,  when  a  key  Is  pressed.  Also 
R8-R14  should  have  a  value  such  that  their  current 
contribution  to  the  LEDs  segments  Is  negligible. 

In  circuits  where  there  Is  substantial  Interference 
between  the  key  matrix  and  the  LED  drive  circuit,  the 
alternative  circuit  (Figure  2b)  shoukl  be  utilized. 
Diodes  in  the  path  of  all  pins  connected  to  the  keypad 
insure  thiat  there  is  mininrKil  interference  from  the 
keypad,  when  it  Is  not  being  sampled. 


FIGURE  2A  -  PIC16C5X  INDUSTRIAL  CLOCIC/Tir/ 
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PART  B:  INDUSTRIAL  CLOCKHIMER:  ' 
Clock  Selection 

the  4.096  MHz  crystal  osdllalor  is  tno  time  base.  lYt^i 
PIC16C5X  internally  divides tttscloek  by  4  to  give  ah 
internal  clock  of  1 .024  MUe.  TR&tdoic  is  further  divided 
by  32  (by  the  prescalerin4he  OPTIONS  register)  to  give 
fi  dock  of  32  KHz  which  Is  used  to  Increment  the  RTCC 
tilhe  PtC16C5X.  If  the  RTCC  is  Initialized  to  96,  it  would 
overflow  to  0  in  5  ms. 

(256-96)  X  (1/32000)  =  5.000  iro  , 

IMS  5  nw  is  usedi4o  countltie  se<;otKHriiiMas-mel 
fioiKsinfhecloelcAimer.  itis^ui|Md«B«liiiw4«Mr 
to  ujidaie  the  dfeplay  digte  andaawpteBttJMjitaaaBL 
The  clock  speed  being  4.096  MHz,  eadi  instoicfion  wili 


execute  In  1  \is.  Therefore  In  5  ms,  approximately  5000 
instructions  can  be  executed.  This  gives  sufficient  time 
to  execute  a  large  section  of  code  and  not  miss  the 
overflow  in  the  RTCC. 

Using  a  3.S7954« IIH^cdlp-barSteryatal  oseiilaiar 
asatimelMse  -  —  I 

Some  useis  may  waitt  to  uise  a  color  burst  ciystal 
oscillator  as  a  time  base,  because  oflts  tow  ooilt.  H  a 
3.579545  MHz  crystal  Is  used,  then  ttie  bitemal  clock  will 
be  1 .117  lis.  IIMiis  isproscaiejd  by  32.  the  RTCC  will  be 
incremsnted«il«iy3SJS8|iS.  IntliaizingtheirrCCwah 
1 1 6  V^^ifa  t  to  ovwflow  to  Oil  5.006  ms.  gMng  an 
error  eif  CU2%.  IMBWtor-eari  be  corrected  In  as^are 
Isyifnptdng  time  acfustments  eiviety  minute  and/or  every 
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Vcc 


02 

-II— ^r-T 


RAO 
RA1 
RA2 
RA3 

iSclH 


RTCC 
OSC1 


RBO 
RBI 
RB2 
RB3 
RB4 
RB6 


RCO 
RC1 
RC2 


OSC2 


RC4 
RC5 
RCS 
RC7 


m 

-vw- 
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col.  3 

Keyscan 
col.  4 

Digit  1 


}4- M  40  ps  (housekeeping  delay)  -M»Vi'. 

 II  .'^M.^r) 


''MM* 


r 


""►IJ-^-Sms 
->!  l*--40(»(housefcBepin9detey) 


H  H"  5  nis 


"U-T 


The  FlowCllait  (Figure  4)  shows  the  sequence  of  events 
in  the  clOCkAimer  software.  The  clock  has  the  following 


SETTING  CLOCKH'IMER  FUNCTIONS 


1 .  12  hour  clock  with  a.m7p.m. 

2.  1 2  hour  alarm  with  a.myp.m. 

3.  Full  function  Hex  keypad  (Figure  5). 

4.  AA  audible  alarm  for  1  minute, 
f.  l^imwWttami  disable. 

I  '  !  ' 


I 


I 


Function 

Key  Sequence  to  Activate  Function 

Set  Real  Time 

Set  ->  Hours  (tens)  ->  Hours  ->  Minutes  (tens)  -»  Minutes    AM/PM  -¥  Set 

View  Alaim  Time 

Alarm  (alarm  time  is  displayed  for  5  seconds) 

Alarm  ->  Set  (must  be  pressed  when  alarm  LED  is  flashing)  ->  Hours  (t«|is)  -»Hoiiis 
Minutes  (tens)  ->  Minutes    AM/PM  -¥  Set 

Enable/Disable  Alarm 

Alarm  -»  Alarm  (toggles  alarm  status)                              -  ' ' 

Disable  AA  alarm 

Disable  Alarm  (disable  audible  beep  fortlO  mlMffilS)  j  ^.                 '-s.    ^ '-,-;<■. 

Clear  Alarm 

Clear  Alarm  (clears  audible  alami) 

Abort  Entry 

Clear  Entry  (aborts  data  entry  mode  when  setting  real  and  alarm  time) 

Notes:    1 .  Valid  key  strokes  will  be  acknowledged  with  a  beep. 

Z.  Hours  and  minutes  used  atiove  correspond  to  digits  0  -  9  on  the  keypad. 


I — i?^- 
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FIGURE  4 -TI^ 


FIGURE  5  -  KEYPAD 
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SUMMARY 

This  Applicatkm  r4eiteftomon8irate8asinnple  method  of 
interfacing  the  PIC16C5X  to  7-S8gment  LEDs  and  a 
keypad.  The  key  features  gf  Uw  PIC16CSX  wtlich 
made  this  possible  are: 

1 1 .   High  sink^sourcs  of  tha  U@  poite. 

;2.    Fast  instruction  cycle  for  quick  key-scan. 

3.    RISC  processor  alkjwing  minimal  overhead  for 
real  time  clock  maintenance. 

i4.   Recontigurable  I/O  ports,  enabling  (jualfuncttonal- 
of  porte. 

Rgure  6  depicts  a  block  diagram  connecting  a 
PICieOS4/5e  to  a4-diglt,  7-segment  LED  disptay  and  - 
a  4x4  hex  iceypad.  Shce  only  1 2  I/O  pins  are  available 
;in  the  PIC1 6054/56,  external  npn  tiansistef wiUtiave  lo 
ba  uMUnd  to  ^Ic  the  current  from  eai«  dVife^  |  ^ 


SIZE 

Kaif  scan  ->  97  bytes 
Displty  update  ->  1 13  bytes 


Author:  StanD'Souza 

LggK^Pm^uOs  piyisiqn 
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Multiplexing  LED  Drive  and  a  4x4  Keypad  Sampling 


APPENDIX  A:  CODE  LISTING 

CLK.ASK      7-15-1994    13:15:10  .KAeS  1 

  '  -  -a-i 

LINE  SOORCE  TEXT  : 

0001  TITLE  -Alarm  Clock' 

0002  LIST    P  =  16CS7,f=inh3c8in 

0003  ; 

0004  ;Deflne  Equates: 

0005  ;  . 

0006  PIC57       BQU  7FFH 

*******  ********  T- 

0008,  ;acfc«^^  #i>se.  imM^.  f  Pxaaoalar  of  3i\  V»ad,  which  gives  a 

0009  ;31.25  mieceSac  toearan^Wef' RiCC.  If  RTCC  io  intially  loaded  with 

0010  ;it  would  overflow  to  0  in  B.OQjf)  mi^liSecs.  Givi^.  a  0.00%  error. 


0060 

0011 
0012 

MSEC5 

EQU 

D'96' 

.  ************************************************************************* 

0000 

0013 

C 

EQU 

0               _  , 

oooo 

0014 

BEP 

EQU 

0  , 

0000 

0015 

RTATS 

EQU 

0 

0001 

0016 

DC 

EQU 

1  . 

0001 

0017 

HRIO 

EQU 

1 

0018 

EQU 

2 

0002 

0019 

m 

EQU 

2 

0003 

0020 

MINIO 

EQU 

3 

0004 

0021 

MIN 

EQU 

4 

0004 

0022 

FLASH 

EQU 

i 

0005 

0023 

PAO 

EQU 

5 

0005 

0024 

KEY_BEEP  EQU 

5 

0005 

0025 

AHPH 

EQU 

5 

ooos 

0026 

PAl 

6 

0000 

0027 

000  s 

0028 

-me^tv 

6/iv-'.  v> 

0006 

0029 

ALED 

EQU 

6 

0007 

0030 

AM_PM 

EQU 

7 

0003 

0031 

COLON 

EQU 

3  , 

0093 

0032 

EQU 

2                                              !      .(:  . 

ami 

0033 

SERVICED  EQU 

7 

OOOD 

0034 

0001 

0035 

mu. 

ma- ' 

1    ■  '    '  r 

0002 

0036 

SILNC 

EQU 

2 

0003 

0037 

INAA 

EQU 

3  '. 

0005 

0038 

INKEYBEP  EQU 

5 

0039 

0040 

IVBKIXIE  RAM  LOCATIONS: 

0001 

0041 

EQU 

0002 

0042 

EQU 

2 

0003 

0043 

STATUS 

EQU 

3 

0004 

0044 

FSR 

EQU 

0005 

0045 

PORT_A 

EQU 

5               ^                 ,       .,  ; 

0006 

0046 

PORT_B 

EQU 

6                     „                ,  .  : 

0007 

0047 

PORT_C 

EQU 

7 

0048 

jDBFini  RBkL  Til 

IB  NSDB  1 

0008 

0049 

MSTMR 

EQOr 

8             smtiLZ  ^C.  TI^SR 

0009 

0050 

STMR 

EQU 

9         tmse.  fmmj,  o;. 

0051 

.  ********************************«.*^*«**********j*)k 

0052 

;D0  NOT  CHANGE  RELATIVE 

POSITlraj  OF  NEXT  6  BYTES 

OOOA 

0053 

MTMR 

EQU 

OA             ;MIN.  TIMER 

OOOB 

0054 

HTMR 

EQU 

OB             ;HOUR  TIMER 

0055  .-DEFINE  ALARM  TIME  MODE  REGS  (ATM) 
OOOC  0056  MALASM    EQU  OC  iMIN.  ALARM     .  :j 

OOOD  0057-  ^   :D..tft@T<Wic:Pajlv.-.a  ■§»  -    .  aSBWiAlAWI  s 

0058  ;DEnHB  HS&TK  SNTRt  nOOB  tms  (IW) 


MP  ASM  1.00  Released 
Alarm  Clock 

Loc  OBJECT  ccms 


OTW? 


2-115 


DS9e6280f«g«7 


ooos 

0059 

so  ftp 

0060 

0061 

0063 

0064 

0065 

0066 

0067 

0068 

00«» 

0070 

0071 

0072 

0073 

0074 

0075 

r 

0076 

-  -.  - 

0077 

0078 

0t79 

0080 

DOll 

0081 

0012 

0082 

0013 

0083 

0014 

0084 

OOlS 

0085 

OOlS 

0086 

•Oil 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 

0101 

0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 

0111 

0112 

0113 

0019 

0114 

0115 

OOIA 

0116 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

0125 

0126 

0127 

0128 

MEHTRY    EQS  ME  ;«n3.  f^ttg^Ql^.    ■   I  . 

HENTRY    EQD  OV  ;HOaR  BHTRY 

**************************************************** 


DBFIMB  FLAG  REO  AND  FUNCTION: 
KLAO        EQU  10 
BSra  #  7|6|5|4|3|2|1|0| 

 H-l-l-l-l-l-l 

X|X|X|X|X|X|0|0|  -> 

X|X|X|X|X|X|0|1|  -> 

X|X|X|X|X|X|1|0|  -> 

X|X|X|X|X|X|1|1|  -> 

X|X|X|X|X|  Y|X|X|  -> 

xjxjxjxi Y|X|X|X|  -> 

X|X|X|Y|X|X|X|X|  -> 

XlX|Y|X|X|X|X|X|  -> 

X|Y|X|X|X|X|X|X|  -> 

'        ■-•  "  *ix|x|x|x|x|x|x|  -> 

X  -  DEFIMISD  ECiSEHKBRS  IN  TABLE 
Y  *  aiPlMBB       SHOm  '<0/l) 


REAL  TIME  MODE  (RTM) 
ALARM  TIME  HODEiATH) 
DATA  ENTRY  MODE  (DEN) 
TEST  MODE  (TM) 
ALRMLED  ON/OFF 
COLON  LED  ON/OBT 
FLASH  display" '"' 
KEY_BEEP 

KEY_H1T  Wl)-  - 
SERVICED 


TEMP         EQU  11 

DIGIT       EQU  12 

NEW_KEY  EQU  13  ^ 

KEY_NIBL  EQU  14 

SBBOaMB  IS 

KHLSae  EQO    ■  16 

SJTFLG    EQU  17 

flag  dadicated  to  the  key  entry  mode 
BIT  #  7|6|5|4|3|2|1|0| 

 l-l-l-l-l-l-l-l 

X|X|X|X|X|X|X|Y| 
X|X|X|XlX|X|Yixi 
X|X|X|X|X|Y|X{xj 
X|X|X|X|Y|X|X|X|  ->  MINIO  DONE 
X|X|X| Y|X|X|X|X{  ->  HIN  DONE 
X|X|Y|X|X|X|X|X|  ->  INKEYBEP 
X|Y|X|Y|X|X|X|X|   ->  NOT  USED 
Y|X|X|X|X|X|X|X|  ->  NOT  USED 


MIN/SECONDS  TIMER 


REAL/ALARM  TIME  STATUS 
HRIO  DONE 


ALONOF 
INAL 
SILNC 
INAA 

NOT  USED 
NOT  USED 
NOT  USED 
NOT  USED 


oov,- 


ALFLAG    EQU  18 
flag  dedicated  to  the  alarm 

BIT  *  7|6|5|4|3|2|1|0| 
 l-l-l-l-l-l-l-l 

x|x|x|x|x|x|x|y|  - 

x|x|x|x|x|x|y|x|  - 

x|x|x|x|x|  y|x|x|  - 

x|x|x|x|y|x|x|x|  - 

x|x|x|y|x|x|x|x|  - 

x|x|y|x|x|x|x|x|  - 

x|y|x|y|x|x|x|x|  - 

y|x|x|x|x|x|x|x|  - 

aaflag  equ  19 
;  flag  dadlMjfeaS  to        -Mt,  alam 


Port  pin  def  initiaHiSI* 


BIT  0       ->  BEEPER   (ACTIVE  LOW)   OUTPUT  ' 
BIT  1-3  — >  unuaed  I/O  — 'ji^  •       •  i 

PORT_Bi  ALL  OUTPUTS 

BIT  0S4  ->  MSB  DIGIT  COMMON  CATHODE  &  ALARM 

BIT  1S5  ->  2ND  DIGIT  COMMOM  CATHODE  &  COLON 
BIT  2S6  ->  3RD  DIGIT  COMMON  CATHODE  S  PM 
BIT  3S7  ->  LSB  DIGIT  COMMON  CATHODE  S  AM 


m\6 


0i29  ;         .  ,  •  ; 

0131  ;1N  DISPLAY  MODE  ALL  SEG/ANNN  SET  AS  OOTPOTS 

0132  ;nJ  KEY  SCAN  MODE  COLS  ARE  OUTPUTS  ROWS  ARB  INPUTS 


0133 

BIT  0 

->  SEGMENT  A  4 

COL  4 

0134 

BIT  1 

->   SEGMENT  B  i 

COL  3 

0135 

BIT  2 

->  SEGMENT  C  & 

COL  2 

0136 

— >  SEGMENT  D  & 

COL  1 

0137 

— >  ^GMENT  E  St 

ROW  4 

—>  SBBmKIT  F  & 

ROW.iJO" 

0139 

? 

-•.BI*««- 

-*  SWaBBIT  G  fi 

ROW.  2  -• 

0140 

t 

BIT  7 

->  CA  OF  ALIi  AHNONCIjaCmS  £  ROW  1 

0141 

0142 

0144 

0145 

ORC 

0 

0146 

STARS          •  ■  • 

OOOQ 

Oi^ 

0147 

IKIT_a«i-'. 

;  mCSSSALIZE  CLOCK 

0148 

;  lais'ssanxBS 

RONS  A  TEST  OK  I] 

!B 

0149 

•  ALL 

TBS  RBLEVBUr  LBDS  ARB  I^  l^.'>f«»t'"2  SBCff. 

0150 

0151 

TEST_ 

HARDWARE 

0001 

0C02 

0152 

MOVLW 

d'  02 ' 

DISPLAY  FOR  2  SECS 

0002 

0036 

01S3 

<lffff«jt    (BIRO    1               1  X 

•,v--     /  1 

OIS-4,  ill 

.-•1    n  ••^ 

'  .  '  »''1/Cv.'0> 

'OIS'5 

;T .  r- 

~T  '  " 

•('  V  ■"- 

u^3>e 

-  ^  /■  -i ' ,  ■■  ■  . 

0003 

0216 

0157 

MOVF 

VTXT    OC/*  M 

GET  MIN/SEC 

0004 

0643 

0158 

BTFSC 

NOT  0  THEN  SKIP 

0005 

OAOB 

0159 

GOTO 

MODM  TTMr? 

ELSE  NORMAL  TIME 

0006 

0925 

CALL 

UPDATE  DISPLAY 

0007 

05A3 

0161 

BSF  ■ 

S 1  AX  iJo  t  IrAU 

GOTO  PAGE  1 

OOOS 

O900 

'•m 

mm--xm  upoATEi 

0009 

04A3 

0163' 

SXSBT  PAGE  M&RKER 

OOOA 

0A03 

0164 
0165 

NORM. 

GOTO 
TIME 

LOOP  BACK 

OOOB 

0410 

0166 

BCF 

FliAG  0 

POT  IN  REAL  TIME 

OOOC 

0430 

0167 

BCF 

FLAG,1 

..I 

0168 

TIBE_ 

.LOOP 

00{)O 

0925 

0169t 

vwtmn  Ik  la,  ,|/>w#;pirwiwnir|[ 

•Jj.V  ■' 

OOOE 

SSC3 

0170 

Bsar-  ■■ 

STATOS.tAl 

■  GOTO  PAGE  2 

OOOF 

0900 

0171 

CALL 

SERV1CE_KEYS 

0010 

05  A3 

0172 

BSF 

STATUS ,  PAO 

GOTO  PAGB'  3    '  ' 

0011 

0900 

0173 

CALL 

S0UNT3_AA 

CHECK  ALARM 

0012 

04C3 

0174 

STATUS , ?A1 

GOTO  PAGE  1 

0013 

0900 

0175 

CALL 

UPDATE_TIMERS 

WAIT  AND  UPDATE  TIMERS 

0014 

04%3 

0176 

BCF 

STAiCG^,SA0 

RJBSBT  PAGE  MARKER 

OOlS 

04C3 

0177 

BCP 

Sl%TCrS,FAl 

/ 

0016 

0210 

0178 

MOVF 

FLAG,W 

SEE  IF  IN  AIM  . 

0017 

0E03 

0179 

ANDLW 

B'OOOOOOll' 

/  T 

0018 

OFOl 

0180 

XORLW 

B'OOOOOOOl ' 

/ 

0019 

0643 

0181 

BTFSC 

STATUS , 2 

SKIP  IF  MOT 

OOIA 

091C 

0182 

CALL 

RESET_ATM 

OOIB 

OAOD 

0183 
0184 

GOTO 

TI1B_L00P 

■.•■'If 

0185 

RESET J^TM 

oolc 

0216 

0186 

MOVF 

MIN_SEC,W 

GET  MIN/SEC 

OOID 

OEOF 

0187 

ANDLW 

B'OOOOllll' 

/ 

OOIE 

0743 

0188 

BTFSS 

STATUS,  Z 

Z  THEN  SKIP 

OOIF 

0800 

0189 

RBTLW 

0 

ELSE  RETURN 

0020 

0410 

0190 

BCF 

FLAG,0 

SET  TO  RTM 

ooai 

04S0 

0191 

BCF 

FLAG.ALRMLED 

CLEAR  LED 

0022 

oeis 

0192 

ALFLSS.ALQtK^ 

fTSSf^t^A^ 

0023 

osso 

01^ 

FUtS.WaBttx) 

0024 

0800 

0194 
0196 
0197 

RBTUlf 

0  'Ji 

0198 

UPnATE_DISPLAY 

0025 

OCOO 

0199 

MOVLW 

B'OOOOOOOO' 

;  CLEAR  SEG  DRIVE 

Miiltpi^itg  LE 


#iiifiaiiipring 


0026  0027 

0027  0C3F 
ocas  0186 

002&  OMF 


002B  0246 
002C  0643 
002D  OCCO 
002E  0031 
002F  0271 

0030  0503 

0031  0371 

0032  0703 

0033  0371 

0034  0371 

0035  0211 

0036  9026 


0037  OCOA 

0038  0024 

0039  0210 
003A  0E03 
003B  0031 
003C  0P03 
003D  0643 
003E  0A4B 
003F  0403 

0040  0371 

0041  0211 

0042  01B4 

0043  0954 

0044  0032 

0045  09O1 

0046  0690 

0047  094E 

0048  0212 

0049  0027 
004A  0800 


004B  OCFF 
004C  0027 
0040  0800 


004B  0770 
004F  0A51 

0050  0800 

0051  OCOO 

0052  0032 

0053  0800 


0054  0246 

0055  OEFO 

0056  0643 

0057  02A4 

0058  0200 

0059  0031 


0200 
0201 
0202 

mm 

0304 
0205 
0206 
0207 
0208 
0209 
A310 

mt2 

«213 
0214 

0215 
0216 
0217 

0219 

0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 

SZtl 
0242 

0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
OSSf 
0257 
0258 
0259 
0260 
0261 
0262 


;BLSEr  SC«N  tXmSD 


MOVWF  PORT_C  ;  / 

MOVLW  B'OOllllll'  ;SEE  IF  LAST  DIGIT 

GOTO  SCAN_KP 

UP_DSP_1 

.•SELECT  DIGIT  TO  BE  DISPLAYED 

COMF  PORT_B,0 

BTFSC  STATUS,  Z 


RLF 

BTFSS 
RLF 
RLF 
MOVF 


TEMP 
STATUS, C 
TEMP 
TEMP 
TEMP,  0 


; GET  COMPL .  PORT  B  IN  M 
;N0  DIGIT  SELECTED? 

;SAVBl:IN  l&efx  « -' 

;SET  exmei 

;  SHIFT  LEFT 

;1F  C=l  THEN  SKIP 

.-ELSE  3  TIMES.  .  . 

;THRU  CARRY 
;GET  IN  W 


wmm  .imom jBs^  a  e.viuH  :mmmmTmmiBiKt- 


.•FIRST  FIND  MODE  OP  OPERATION 


ISS&<\>iUEaBS  flQR  TH&T  DIGIT 


MOVLW 

MTMR 

LOAD  FSR  WITH  MTMR 

MOVWF 

FSR 

/ 

MOVF 

FLAG,  0 

GET  FLAG  IN  W 

ANDLW 

B'OOOOOOll' 

MASK  OTHER  BITS 

SAVE  IN  TEMP 

B' 06000011 ■ 

IN  TEST  MODE 

BTFSC 

STATUS, Z 

NO  THEN  SKIP 

GOTO 

DO_TM 

ELSE  TEST  MODE 

BCF 

STATUS, C 

CLEAR  CARRY 

RLF 

TEMP 

LEFT  SHIFT  TEMP 

MOVF 

TEMP.O 

GET  IN  W 

ADDWF 

FSR 

<XH)SE  INDIRECT  POINTER 

*i' 

CALL 

GET_7_SEG 

SEG  DATA  IN  W 

MOVWF 

DIGIT 

SAVE  IN  DIGIT  LOC. 

'  ' 

v.. 

CALL 

MASKJNNC 

MASK  ANNC  TO  DIGIT 

BTFSC 

FLAG, FLASH 

NO  FLASH  THEN  SKIP 

■  ^'l 

CALL 

CHK_HALF_SEC 

ELSE  CHK.    IF  ON 

MOVF 

DIGIT,  0 

GET  BACK  DIGIT 

mmm 

OUTPUT  TO  PORT'- 

'  coy 

■Tr 

0  fiWvSnTATB 

RETUBN                !  ' 

r-Xf^  ■ 

MOVLW 

B'llllllllf 

LIGHT  ALL  SEGMENTS 

MOVWF 

PORT_C 

/ 

RETLW 

0 

RETURN  FROM  UPDATE  DISPLAY 

CHK_HALF_SEC 


GOTO 
RETLW 
BCMnCJlSP 

MOVLW 
MOVWF 
RETLW 


0 

B'OOOOOOOO' 
DIGIT  '■'J-'  ^^  ' 
0 


;MAKE  PORT  C  LOW 


rON  ENTRY  FSR  POINTS  TO  THE  REAL  TIME  MODE'S  MINUTES  REGISTER. 
;0N  RETURN  FSR  POINTS  TO  THE  TIMER  REGISTER  TO  BE  DISPLAYED. 
:W  REG.   CONTAINS  THE  DECODED  7  SEG.   INFO  OF  THE  DIGIT 
rTO  BE  DISPLAYED 


mvs 

{@«6 

0267 
0268 
0269 


B'lmOOOO  ■ 
BTFSC     STt^eos,  z 

INCF  FSR 
MOVF         FO ,  0 
MOVWF  TEMP 


;CCaiPLEIiENT  B  -^W 

iHz  Ttfssr  SKIP  ■ 

;  INC  POINTER 

.-MOVE  INDIRECT  TO  W 

;GET  INTO  TEMP 


D8005eBO.fii|8-10 
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OOSA 

0246 

0270 

COHF 

PORTJ.O-" 

j$mpL.B  ->  w 

OEFO 

0271 

B'llllOOOO' 

LO  HIBBCB 

oosc 

0643 

0272 

BTFSC 

STATUS, Z 

;IF  Dl/2  THEN 

OOSD 

04F1 

0273 

BCF 

TEMP,AM_PM 

;  CLEAR  AM/m  Bit 

005E 

0246 

0274 

COMF 

PORT_B, 0 

;GET  PORT  B  AGAIN 

005F 

OECC 

0275 

ANDLW 

B'llOOllOO' 

;SEE  IF  D2  OR  D4 

0060 

0643 

0276 

BTFSC 

STATUS , Z 

;YES  THEN  SKIP 

0061 

03B1 

0277 

SWAP? 

TEMP 

;SWAP  TEMP 

0062 

OCOF 

0278 

MOVLW 

B'OOOOllll' 

;MASK  HI  NIBBLE 

oa63 

0151 

0279 

MIDWF 

TBHP.O 

0064 

0182 

0280 

nnanF 

PC 

;AIX)  iO  PC 

0065 

083F 

0281 

RBTIW 

B'OOllllll' 

;CODB  FOR  0 

0066 

0806 

0282 

RKT£H 

B'OOOOOllO' 

;CODE  FOR  1 

0067 

085B 

0283 

RETLW 

B'OlOllOll' 

;CODE  FOR  2 

0068 

084F 

0284 

RETLW 

B'OlOOllll' 

;CODE  FOR  3 

0069 

0866 

0285 

RETLW 

B' 01100110' 

;COOE  FOR  4 

006A 

0860 

0286 

B'OlJLOllQl  ■ 

scemt  F«t  5 

0068 

087D 

0287 

B'miiioi' 

jcom  roR  6 

0O6C 

0807 

0288 

jSe^^Tcst  7 

006D 

087F 

0289 

B"oti:iiiii  • 

•eaiM  FOR  8 

006B 

0867 

0290 

B'WlOOlll' 

;CODE  FOR  9 

0291 

0292 

;This  routine 

scans  the  4x4 

hex 

key  pad  for  a  key  hit. 

0293 

;If  key  is  pressed,  KEY_HIT 

flag  is  set  and  the  Value  of 

0294 

;  the  hex  key  is  returned  in 

reg 

NEW_KEY 

0295 

;I£  no  key  ie  deteefeed,  tbea  a 

Dacf  f  value  is  returned  in 

0296 

i-ceglster  NEW_KES'  and  the  flag  KEY_HIT  is  reset. 

0297 

0298 

SCAN_KP 

006F 

06D0 

0299 

BTFSC 

FLAG,KEY_HIT 

; KEY  UNDER  SERVICE? 

0070 

0A2B 

0300 

GOTO 

UP_DSP_1 

;YES  SKIP  ROUTINE 

0071 

OCFF 

0301 

HOVLW 

B'llllllll' 

;SET  DIGIT  SINKS   . . . 

0072 

0026 

0302 

MOVNF 

;T0  HIGH 

0073 

0CF7 

0303 

1C3VLW 

B'llllOlll' 

;  SET  KEY  COL  LOW 

0074 

0031 

0304 

MOVWF 

TEMP 

0305 

SKPl 

0075 

OCOO 

0306 

MOVLW 

B'OOOOOOOO' 

;SET  PORT  C  AS  OtPTPDTS 

0076 

0007 

0307 

TRIS 

PORT_C 

/ 

0077 

0211 

0308 

MOVF 

TEMP.W 

0078 

OSOF 

0309 

B'OOOOllll' 

,-BI'SCHARGE  PINS 

0079 

0027 

0310 

MOVWF 

PORT_C 

/ 

007A 

OCFO 

0311 

MOVLW 

B' 11110000' 

[SET  AS  I/O 

007B 

0007 

0312 

TRIS 

PORT_C 

;  / 

007C 

0211 

0313 

.  MOVF 

TEMP.W 

;GET  OLD  VALUE 

007D 

0027 

0314 

MOVWF 

PORT_C 

.•OUTPUT  TO  PORT 

007E 

0207 

0315 

MOVF 

PORT_C,W 

;  INPUT  PORT  VALUE 

007F 

OEFO 

0316 

B'lllHOOWBA' 

BYTE 

0080 

OFFO 

0317 

XORLH 

B'lllUKftW' 

•iaBB  IF  KBt  KCf 

0081 

0743 

0318 

BTFSS 

STATOS,Z 

;IIO  KEY  THEN  SK^ 

0082 

0A8D 

0319 

GOTO 

DBT_KBY 

;LOAO  KEY  VALUB 

0320 

SKF3 

0083 

0503 

0321 

BSF 

STATUS , C 

;SET  CARRY 

0084 

0331 

0322 

RRF 

TEMP 

;MAKE  NEXT  COL.  LOW 

0085 

0603 

0323 

BTFSC 

-.ALL  DCaiB  THSI  SKIP 

0086 

0A75 

0324 

CiOTO 

SKPl 

0087 

0073 

0325 

CLRF 

KEW_KBY 

;SET  NEH_KEY  =  W 

0088 

00P3 

0326 

DECF 

NEW_KEY 

1 

0327 

SKF2 

0039 

0067 

0328 

CLRF 

PORT_C 

.•SETPORT  C  AS^  .'. . 

008A 

OCOO 

0329 

MOVLW 

B'OOOOOOOO' 

; OUTPUTS 

008B 

0007 

0330 

TRIS 

PORT_C 

/ 

008C 

0A2B 

0331 

GOTO 

UP_DSP_1 

/RETURN 

0332 

0333 

008D 

0293 

0334 

INCF 

NEW_KEY,W 

;CHK  IF  KEY  . . . 

008E 

0743 

0335 

BTFSS 

STATUS,  Z 

;WAS  RELEASED 

008F 

0A89 

0336 

GOTO 

SKP2 

;N0  THEN  RETURN 

0090 

0207 

0337 

MOVF 

PORT_C,W 

;GET  RAH  KEY... 

0091 

ODOF 

0338 

lORLW 

B' 00001111 • 

;  VALUE. 
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0092 

0151 

0339 

ANDWF 

TEMP.W 

/ 

0093 

0033 

0340 

MOVWF 

NEW_KEY 

SAVE  IN  NEW_KEY 

0094 

0998 

0341 

CAIi 

GET_KEy_VM. 

GET  JKCmMa  WES 

0095 

0033 

0342 

HSVWF 

NEW_KEY 

VMiUB 

0096 

05O0 

.  SSF 

SBf  ICSY  HIT  FLAG 

0097 

0344-  - 

GOTO 

SKP2 

0345 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 
0366 
03«7 


This  routine  decodes  the  hex  value  fxGoi  the  *raw*  data  got 
from  scanning  the  rows  and  cols . 

actual  key  value  raw  hex  value 


ONE 


C 

FOUR 
FIVE 
SIX 
D 

SEVEN 
EIGHT 


E 
A 

B 
F 


EQU 

wsa 

EQU 
EQU 
EQU 
EQU 
EQU 
E@U 
E^ 

ma 

EQU 
EQU 
EQU 


77 

m-:  -■- 

7JS 
0B7 

OBB 
OBD 
OBE 
0D7 
ODB 

ODE 

0E7 
DEB 
OED 
OEE 


0368 

<3BT_ianr_WMi 

\A  ■ 

0093 

OEOF 

0369 

ANKiH 

B- 00001111' 

;SK<^  NIBBLE 

0099 

0034 

0370 

MOVWF 

KEYJIIBb 

009A 

0C04 

0371 

HOVLH 

4 

l^gS^^BBSrs  TO  4 

009B 

0372 

MOVWF 

TZI^          J    y :  .» 

yawvn  / 

0373 

GKVl 

v,p.Ta. 

009C 

asm 

0374 

r     i  QmiU 

009D 

033:4 

0375 

HRl' 

KEYJIIHti 

,- ROTATE  NIBBIiB  '  ' 

0098 

0703 

0376 

BTFSS 

STATUS J  .| 

;SKIP  IF  NOT  Z 

009F 

0AA5 

0377 

GOTO 

GET_HI_SB»-  I-  - 

;GOTO  NEXT  PART 

OOAO 

03F!t 

0378 

DECFSZ 

TEMP 

;DEC  COUNT 

omt 

0379 

GOTO 

.-LOOP 

0380 

GO_RESET 

00A2 

05A3 

0381 

00  A3 

05C3 

mm 

STAT0S,I»3i"-i.-m 

1 

.  ..;  ,;r 

00A4 

OBFF 

0393 

a; ;        r  GOTO 

SYS_RESgf,..'f.riT 

;ELSE  BIG  ERROR 

6S«4-«a»_HI_KEY 

00A5 

OOFl 

0385 

DECF 

TEMP 

; REDUCE  BY  1 

00A6 

0393 

0386 

SWAPF 

NEW_KEY,W 

;GET  HI  NIBBLE 

00A7 

OEOF 

0387 

ANDLW 

B'OOOOllll' 

/ 

00A8 

0034 

03^. 

:  t-M -  Mmm 

;SAVB:                      ,  , 

aOA9 

0211 

0389- 

TEia>,W 

;C^..0^'S1T  TO  ^S9k. 

OOAA 

01E2 

0390 

ADDWF 

PC 

ffiQAD  IN  PC  : 

OOAB 

OAAF 

0391 

GOTO 

GET147A 

•,3at»  TO  NEXT  PART 

00  AC 

0AB8 

0392 

GOTO 

GET2580 

/ 

OOAD 

OABA 

0393 

GOTO 

GET369B 

/ 

OOAE 

OABC 

0394 

GOTO 

GETCDEF 

/ 

03^ 
039g 

GETi47A 

OOAF 

0CO4 

0397 

MOVLW 

4 

;SBT  COONT  TO  4 

0398 

GETCOM 

OOBO 

0031 

0399 

MOVWF 

TEMP 

0400 

GETCOMl 

■  •■•    CI  ..0 

OOBl 

0503 

0401 

BSF 

STATUS,  C 

;SET  CARRY 

00B2 

0334 

0402 

ISF 

KEY_NIBL 

.•ROTATE  RIGHT 

0033 

0703 

0403 

BTFSS 

STATUS, C 

;  CHECK  IF  DONE 

00B4 

OABE 

0404 

■iXam-  TO  TABLE 

00B5 

02F1 

0405 

l^^eODNT 

■y-  f 

00B6 

0^1 

0406 

GOTO 

^ETCOMl  , 

■  A'' 

00B7 

0M2 

0407 

GOTO 

GO_REM!P.   "  : 

0408 

^9.0- 
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0409 

GET2580 

f 

00B8 

0C08 

0410 

KOVtM 

8        :     '  A'w  , 

SET  COUNT  TO  8 

00B9 

OABO 

0411 
0412 
0413 

GET369B 

OBTC0H 

00B& 

OCOC 

0414 

MOVLW 

D'12'           v.-  . 

SSI  COaNT  TO  12 

OOBB 

OABO 

0415 
0416 
0417 

; 

GETCDEF 

GOTO 

GETCOM 

ODBC 

OCIO 

0418 

D'16' 

SET  COtBST  TO  16 

OOBD 

OABO 

0419 

0421 
0422 

KEy_TBI, 

GOTO 

GBTOC»i 

OOBE 

OOFl 

0423 

DECF 

TEMP 

REDUCE  BY  1 

OOBF 

0211 

0424 

MOVF 

TEMP,M 

GET  IN  W 

ooco 

01E2 

0425 

ADDWF 

PC 

JUMP  TO  TABLE 

ooci 

0801 

0426 

BE33M 

1 

KEY  1 

00C2 

0804 

0427 

RETLW 

4 

KEY  4 

0OC3 

0807 

0428 

7 

KEY  7 

eoc4 

080A 

0429 

OA 

00C5 

0802 

0430 

RETLW 

2 

KEY  2 

00C6 

0805 

0431 

RETLW 

5 

KEY  5 

00C7 

0808 

0432 

RETLW 

8 

KEY  8 

osce 

osoo 

0433 

RETLW 

0 

KEY  0 

O0C9 

0803 

0434 

SETLW 

3 

KEY  3 

00C& 

0806 

0435 

6 

IK  6 

OOCB 

0809 

0436 

9 

KEY  9 

oocc 

080B 

0437 

.RETLW 

OB 

KEY  B 

OOCD 

osoc 

0438 

RETLW 

oc 

KEY  C 

OOCE 

080D 

0439 

RETLW 

OD 

KEY  D 

OOCF 

080E 

0440 

RETLW 

OE 

KEY  B 

OODO 

080F 

0441 

RETLW 

OF 

KEY  F 

0442.-1  1. 

0444 

0445 

imsK_fimi: 

OODl 

OCFC 

0446 

MOVLW 

B'llllllOO' 

CHK  IF  DIGIT  1 

00D2 

0186 

0447 

XORWF 

PORT_B , 0 

/ 

00D3 

0643 

0448 

BTFSC 

STATUS , Z 

NO  THEN  SKIP 

00D4 

0AE5 

0449 

GOTO 

MASK_ALARM 

ELSE  MASK  ALARM 

aoDS 

acF3 

0450 

B' 11110011' 

CISC  IF  DIGIT  2 

00136 

0186 

0451 

XORHF 

PORT_B,0 

/ 

00D7 

0643 

0452 

BTFSC 

STATUS ,  Z 

NO  THEN  SKIP 

GODS 

0AE8 

0453 

GOTO 

MASK_COLON 

ELSE  MASK  COLON 

00D9 

OCCF 

0454 

MOVLW 

B'HOOllll' 

CHK  IF  DIGIT  3 

OODA 

0186 

0455 

XORWF 

PORT_B , 0 

/ 

OODB 

0643 

0456 

BTFSC 

STATUS ,  Z 

NO  THEN  SKIP 

OODC 

OAEl 

0457 
0458 

MASK.AM 

GQXO  , 

MASIL.PM 

ELSE  MASK  PM 

OODD 

02A4 

0459 

INCP 

FSR 

INC  FSR 

CODE 

07EO 

04«0 

BTFSS 

FO , AM_PM 

IF  0  THEN  AM 

OODF 

05F2 

0461 

BSF 

DIGIT, 7 

SET  MSB 

OOBO 

OAEB 

0462 
0463 

MASK_PM 

GOTO 

BLIilK_LEAQ_0  ' 

OOSl 

02A4 

0464 

IMCF 

FSR 

INC  FSR 

00E2 

06E0 

0465 

BTFSC 

PO,AM_EM 

IF  1  THEN  FM 

0OE3 

05F2 

0466 

BSP 

DIGIT,  7 

SET  MSB 

00E4 

OAEB 

0467 

GOTO 

BIiSK_I.EftD_0 

NEXT 

0468 

MASK_AIJiRM 

00E5 

0650 

0469 

BTFSC 

FLAG.ALRMLED 

1  THEN  LIGHT  LS> 

00B6 

05F2 

0470 

BSF 

DIGIT,  7 

/ 

00B7 

OAEB 

0471 

GOTO 

BIJIK_LEAD_0 

0472 

KASK_COLCffl 

DOES 

o«7a 

0473 

FLAS.CCMR'  v,-       s^.'tSaK  liIOOT  LEO 

GOES 

05F2 

0474 

BSF 

umm.'' ,  ■ '  ...    ;  .:.  .-I  / 

00E& 

OAEB 

0475 

0476 

GOTO 

BUnL.l<BAD_0 

0477 

BLNK_LEAD_0 

OOEB 

0210 

0478 

MOVF 

FLAG,W                     ;GET  IN  W 

OOEC 

0E03 

0479 

ANDLW 

B'OOOOOOll' 

SEE  IF  IN  DEM 
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OOED 

0F02 

0480 

XORLW 

B'OOOOOOlO'  , 

CHECK 

OOEE 

0643 

0481 

BTFSC 

STATUS , Z  , 

NO  THEN  DO 

OOEF 

0800 

0482 

RETLW 

0  * 

ELSE  RETURN 

OOFO 

OCFC 

0483 

MOVLW 

B'llllllOO'  , 

SEE  IF  DIGIT  1 

OOPl 

0186 

0484 

XOSHF 

POftT_9,0  i 

¥■ 

00F2 

0743 

048C^ 

xSv-^HESJ  SKIP 

00F3 

0800 

0486 

RBTIM 

0 

RETlniN 

00F4 

0C3F 

0487 

l^VLW 

B'OOllllll' 

ELSE  MASK  G  AND  ANDNC 

00F5 

0152 

0488 

ANCHF 

DIGIT , 0 

GET  IN  W 

00F6 

0F3F 

0489 

XORLW 

B' 00111111 ' 

SEE  IF  0 

00F7 

0743 

0490 

BTFSS 

STATUS, Z 

YES  THEN  SKIP 

OOFS 

0800 

0491 

RSTLW 

0 

RETURN 

00F9 

0C80 

0492 

MOVLW 

B' 10000000' 

ELSE  BLANK  Dl 

OOFA 

0172 

0493 

■■mm- 

DIGIT 

/ 

OOFB 

0800 

0494 

0 

0495 

0496 

J .  ^ 

0497 

0499 

0500 

THIS 

ROUTINE 

SETS  UP  PORTS  A,B,C  AND  THE  INTERNAL 

0501 

TUB!'- CIiOCK  COOMTER. 

0S02 

INlT_CM  ^ 

OOFC 

OCOF 

0503 

MOVLW 

B'OOOOllll' 

MAKE  ACTIVE  HIGH 

OOFD 

0025 

0504 

MOVWF 

PORT_A 

/ 

OOFE 

OCOO 

0505 

MOVLW 

B'OOOOOOOO' 

SET  PORT  A  AS  OUTPUTS 

OOPF 

0005 

0506 

TRIS 

PORT_A 

0507 

0100 

OCFF 

0908 

MOVLW 

B-lllimi'    -       ii^^Bm^  ESS 

0101 

0026 

0S09 

HOVWF 

PORT_B 

0102 

^0 

0510 

B'OOOOOOOO' 

SET  PORT  B  AS  'OOS^HTS 

0103 

em* 

0511 

TRtS 

PORT_B 

0512 

0104 

OCOO 

0513 

MOVLW 

B-00000000' 

SET  LEVELS  LOW 

OlOS 

0027 

0514 

MOVWF 

PORT_C 

/ 

0106 

OCOO 

0515 

mm30 

S'OOOOOOOO ' 

SET  SeRT  C  AS  OOTPOTS 

0107 

0007 

0S16' 

/ 

0517 

0108 

0CO4 

0518 

MOVLW 

B'OOOOOIOO' 

SET  UP  FRESCAlM' 

0109 

0002 

0519 

OPTION 

/ 

0520 

OlOA 

0C60 

0521 

MOVLW 

MSEC5 

RTCC  =  5  mSEC 

OlOB 

0021 

0522 

MOVWF 

RTCC  ■ 

/ 

OlOC 

0068 

0523 

CLRP 

MSTMR  ' 

CLEAR  MSTMR 

OlOD 

0069 

0524 

CLRF 

StIfBi 

&  SEC  USR  }' 

OlOB 

006A 

0525 

CLRP 

£  MINOTBS 

OlOF 

0C12 

0526 

MOVLW 

12H 

MAKE  HRS  =  12 

0110 

002B 

0527 

MOVWF 

HTMR 

/ 

0111 

002D 

0528 

MOVWF 

HALARM 

MAKE  HRS  =  12 

0112 

006C 

0529 

CLRF 

MALARM 

/ 

0113 

0CD3 

0530 

MOVLW 

B'OOOOOOll' 

SET  TO  TEST  MODE 

0114 

0030 

0531 

YSMi  ■ 

.  / 

0115 

0078 

0532 

alAj^'  • 

■  iSm&l  ALL  PLAl^- 

0116 

0079 

0533 

CLRF 

AAFLAG 

/ 

0117 

0077 

0534 

CLRF 

ENTFLG 

/ 

0118 

OAOl 

0535 

GOTO 

TEST_HARDWARE 

0536 

0537 

;A11 

troutines 

related  to  timer  updates  are  located  at 

0:53(8' 

io^drese  2A0  t 

OSitU 

ma' 

OSW"^ 

0541 

0542 

UPDATE_TIMERS 

0200 

02  01 

0543 

MOVF 

RTCCW 

SEE  IF  RTCC  =  0 

0201 

0743 

0544 

BTFSS 

STA'TOS.Z 

IF  0  THEN  SKIP 

0202 

OAOO 

0545 

GOTO 

OPUATEUriMERS 

ELSE  LOOP 

0203 

0C60 

t546 

mm» 

KSKS  ' 

RTCC  =  5  mSK: 

0204 

0021 

0547 

MOVWF 

RTCC 

/ 

0205 

0548 

INCP 

MSTMR 

•INC  5  MIIJ,!  SEC 

0306 

moo 

0549 

BTFSC 

FLAG,  KEXJIT 

•NO  KEY  HIT  THEN  SKIP 

0207 

0A70 

0550 

<30T5 

CBKJDB^BOOliCB 

tmSm  DBBODNCE 
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0551  UP_ 

.THR_1 

0208 

0210 

0552 

MOVF 

FLAG.H 

;ALaBM  MODE? 

&ZQ9 

$B03 

0553 

B'OOAOOaiSArr. 

;  ■.  .'.  "1     /           ^ '.' 

020A 

OFOl 

0554 

B'ooooowr— 

,■•■-»•»"  / 

020B 

0743 

0555 

BTFSS 

STATUS , Z 

;SKIP  IF  YES  1 

020C 

0A14 

0556 

GOTO 

UP_TMR_2 

;  DO  NEXT              '  -  .■ 

020D 

0550 

0557 

BSF 

FLAG,  ALRMLED 

; LIGHT  LED 

020E 

0570 

0558 

BSF 

FLAG.Cagni  ^'lU 

/ 

020F 

0C64 

0559 

MOVLW 

D'lOO'  ' 

;IF  i/2  SEC 

0210 

0088 

0560 

SDBHF 

HSTHR,  0 

;  BLINK 

0211 

0703 

0561 

BTFSS 

STATUS , C 

;     /  '  -        .'.        .  " 

0212 

0450 

0562 

Ui  1KV>  : 

FLAG/AXJOSJIEfH 

jattjam  led 

0213 

0A19 

0563 

upjUBtjaif "  ■  •"' 

0564  UP. 

_TMR_2 

0214 

0570 

0565 

BSF 

FLAG, COLON 

;TURN  ON 

0215 

0C64 

0566 

MOVLW 

D' 100 ' 

;<100  BLINK  COLON 

0216 

0088 

0567 

SUBWF 

MSTMR,  0 

/ 

0217 

0703 

0568 

BTFSS 

STATUS,  C 

;YES  THEN  SKIP 

02 18 

0470 

0569 

BCF 

FLAG, COLON 

>^tLSS  TURN  OFF  ^ 

0570  UP. 

_'IMR_3 

0219 

0208 

0571 

MOVF 

MSTMR, 0 

;  GET  MS1MR  IN  W  ■ 

02  lA 

0FC8 

0572 

XORLW 

D'200' 

*=  200  THEN  SK£^^  ' 

02  IB 

0743 

0573 

BTPSS 

STATUS, Z 

.  / 

02 IC 

0800 

0574 

RETLW 

0 

'  1-  J 

0575  ;INC 

SECONDS  COUNT 

0068 

0576 

CLRF  . 

MSTMR 

0216 

-0577^'.  ' 

MIN_SEC,W 

02  IF 

0578 

tUBXM 

B' 00001111 ■ 

0220 

0743 

0579 

BTFSS 

STATUS, Z 

•  7.1^f)  fnFTI  QKTP 

,  tlElXWJ     tZlKiSI  SJVXIr 

0221 

0OF6 

0580 

DECF 

MIN_SEC 

0222 

0C09 

0581 

MOVLW 

STMR 

0223 

0024 

0582 

MOVWF 

FSR 

/ 

0224 

0583 

CALL 

1IIC_60 

•  TUT*  vjffmsn^ 

0225 

ODOO 

0584 

lORLW 

0                  ••  o 

022.6 

0743 

05B5 

BKFSa 

^istORIT  ^  0  ^SKXF 

0227 

0A38 

058^' 

0587  ;INC 

MINUTES  COUNT 

022  8 

03B6 

0588 

SWAPF 

MIN_SEC 

022  9 

0216 

0589 

MOVF 

MIN_SEC , W 

■  f^TTT    MTM    QPr*    TN  U 

022A 

OEOF 

0590 

MIDLW 

B'OOOOllll ' 

022B 

0743 

0591 

B^SS 

STATUS, Z 

■SKIP  IF  NOT  SBT*  ■ 

022c 

es«a-  ■ ^ 

"Jam- 

022D 

d3B6 

0593  ^' 

■  9m» 

HIN__SKC  1 

't'SllO0  BACK 

022E 

0966 

0594 

CALL 

CHK_SIIMC_TIM 

022F 

OCOA 

0595 

MOVLW 

MTMR 

J  XNC  MINUTES 

0230 

0024 

0596 

MOVWF 

FSR 

/ 

0231 

0955 

0597 

CALL 

INC_60 

/ 

0232 

ODOO 

0598 

lORLW 

0 

0233 

0743 

0599'- 

STATES,  Z  0. 

0234 

0A38 

0600 

GOTO 

csRjiLjimM' 

0601  ;INC 

HOtm  COUNT 

0235 

OCOB 

0602 

MOVLW 

HTMR 

0236 

0024 

0603 

MOVWF 

FSR 

0237 

0989 

0604 

CALL 

INC_HR 

0605  ; 

0238 

0718 

0607 

■  BT*SS 

jf'£F''®PP  QtJXT 

0239 

0800 

0608 

RETLW 

0 

;  / 

023A 

0658 

0609 

BTFSC 

ALFLAa,SILNC 

;RST  IF  IN  SILENCE 

023B 

0800 

0610 

RETLW 

0 

023c 

0638 

0611 

BTFSC 

ALFLAG,  INAL 

(•ALREADY  DONE 

023D 

0A4D 

0612 

GOTO 

CHK_1_MIN 

;SEE  IF  1  MIN  UP 

0613  ; 

0 

;YES  THEEf  QUIT 

02$S 

020D 

0614  •'■ 

HALARM.H 

;CHK  HRS 

Q18B 

0240 

0743 

0616 

BTFSS 

STATD87K' ■  ■•Wri 

yiHES'^^raf  SKIP 

0241 

0800 

0617 

RETLW 

0 

;ELSE  RET 

0242 

020C 

0618 

MOVF 

MALARH,W 

;CHK  MIN 

0243 

018A 

0619 

XORHF 

MTMR.W 

;  EQUAL? 

2it23 
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0244 

0743 

0620 

BTFSS 

STATUS ,  Z                 ;  YES  TRQI'  I^BP  i  ~r  j 

0245 

0800 

0621 

BBTIiW 

0 

ELSE  RET            .   ;  0 

0246 

0209 

OS^S 

VEm  : 

mm«e  mcsO  ■..  r<, 

0247 

0743 

062^ 

tmtfsa 

smisBac*r,3o*«    ttm ■vam  SKIP 

0248 

0800 

0624 

RETLW 

0 

NO  THEN  RET 

0249 

0538 

0625 

BSF 

ALFLAG.INAL 

SET  IN  ALARM  FLAG 

02  4 A 

OCIO 

0626 

MOVLW 

10 

SET  1  MIN  TIMER 

024B 

0036 

0627 

MOVWF 

MIN_SEC 

/ 

024C 

0800 

0628 

RETLH 

0 

0629  ; 

.-51.  i 

M30  CHK_UraJ 

024D 

0396 

oc^l     '  '<vi 

.OMR 

lEEHL^K.W 

smp  IN  w 

024E 

OEOP 

0632 

B' 00001111" 

cane  MINUTES 

02  4F 

0743 

0633 

BTFSS 

STATUS ,  Z 

0  THEN  SKIP 

0250 

0800 

0634 

RETLW 

0 

ELSE  RET 

0251 

0438 

0635 

BCF 

ALFLAG.INAL 

CLR  IN  ALARM 

0252 

0478 

0636 

BCF 

ALFLAG,  INAA 

CLR  IN  AA 

0253 

0505 

0637 

BSF 

PORT_A,BEP 

STOP  BEEPER 

0254 

««e« 

0638      ■  .  H 

0  1, 

0639  ; 

0640  INC_60 

■' 

0255 

02A0 

0641 

INCF 

FO 

INC  AND  GET  IN  W 

I 

0256 

0200 

0642 

MOVF 

F0,0 

/ 

0257 

GEOF 

0643 

ANDLW 

B'OOOOllll ' 

MASK  HI  BITS 

0258 

OFOA 

0644 

XORLW 

B'OOOOlOlO' 

-  10  THEN  MAKE  IT  0 

0259 

0743 

0645 

i,: 

02  5A 

0801 

0646 

1           yr-  .'IK      rKSB  RETURN  H0il?ZB!IO 

025B 

OCFO 

0647 

MOVtW 

B'llllOOOO'          >miO  LSB  • 

025C 

0160 

0648 

ANDWF 

FO 

/ 

025D 

03  AO 

0649 

SWAPF 

FO 

SWAP  INDIRECT 

02  5E 

02A0 

0650 

INCF 

FO 

INC 

02  5F 

0200 

0651 

MOVF 

F0,0 

GET  IN  W            .  • 

02SO 

03A0 

0SS2  ^i^-4fj; 

z.-mmi. 

WO  »»_:>«• 

s«KP  FO  mm  ■  ^  - 

.■    ■  Itl.- 

0261 

0F06 

065* 

D'8'  •) 

■ss&'  ISBSM  SUP  ■•} 

0262 

0743 

0654 

BTFSS 

STATns,st!'*rE    *3T;t  / 

0263 

0801 

0655 

RETLH 

1    .:  r        t  n      itSIIK  HBSe^W  VB^r.-'': 

0264 

Q0«a 

0656 

CLRF 

FO 

/ 

esm 

mm 

0657 

RETLW 

0 

RET  0 

0658  ; 

0660  ; 

0661  CHK^SILNC_T1M 

A'  . 

0266 

0758 

0662 

ALFLAG,  &IUIB1.I  mhsmm 

0267 

0800 

0663 

■■  wmm 

0  las, 

f^r^gBW  SKIP 

0268 

0396 

0664 

SWAPF 

MIN_SEC,W 

SET  KIN  IN  W 

0269 

OEOF 

066S 

ANDLW 

B'OOOOllll' 

MASK  SECS 

■   -  r 

02  eA 

0743 

0666 

BTFSS 

STATUS, Z 

ZERO? 

02  6B 

0800 

0667 

RETLW 

0 

NO  THEN  RET 

02  6C 

0458 

0668  , 

BCF 

ALFLAG,  SILNC 

RESET  SILENCE 

02  6D 

OCIO 

oetattx''  • 

iO       ^-.T  ,ri 

NfBR'j  Mm  TimR: 

026E 

0036 

oewiT  ■■  1--,:. 

mmm 

026F 

oam 

0671 

RETLW 

0 

0672  ; 

0673  ; 

0674  CHK_DE 

_BOUNCE 

0270 

06B7 

0675 

BTFSC 

ENTFLG,INKEYBEP 

IN  KEY  BEEP? 

0271 

a&76 

0676 

&m> 

CHKJ>EB_1 

YES  THEHjiw  mm 

0272 

07B0 

0677  ?Ti,,, 

FLAa,KEir_BEEP 

KEY  BEEP  S£T?  ' 

0273 

0A7F 

0678 

GOTO 

CHK_SERV 

NO,   SEE  IF  SERVICED 

0274 

0678 

0679 

BTFSC 

ALFLAG, INAA 

IN  AA? 

t 

0275 

OAS  6 

0680 

GOTO 

CHK_BEP_ON 

YES  THEN  SEE  IF  ON 

0681  CHK_DEB_1 

0276 

05B7 

0682 

BSF 

ENTFLG,INKEYBEP 

SET  FLAG 

:( 

0277 

021S 

WKW 

DQeONCE.W 

OBI  IN  W 

0278 

0643 

0684 

BTF9C 

STATD5,Z 

NZ  WW  SKIP  :  .'  1  ' 

■j(.c  -.- 

0279 

0C14 

0685 

MOVLW 

D'20' 

ELSE  DB  100  aiSEC 

.    r(.  <| 

027A 

0035 

0686 

MOVWF 

DEBOUNCE 

/ 

-'S 

027B 

0405 

0687 

BCF 

PORT_A,BEP 

TURN  ON  BEEPER 

027C 

02F5 

0688 

DECFSZ 

DEBOUNCE 

DEC  AND  CHK 

027D 

0A08 

0689 

GOTO 

UP_TMR_1 

•GO  BACK 
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02 7E 

0505 

U09U  Osr 

PORT    &  RI7P 

n  C  Q  O      •                             I^T  D  TP 

U09^  •  t                  '  ^BiSV-  •■ 

'  " 

027? 

07F0 

U  D  3)4                        ax  s^t> 

TFT  an  '  CttHtyTY^Btn 

0281) 

oaos 

0o9d                 -  GOTO 

UP_TO®_1.1 

0281 

04^0' 

TTT .  Art    QFR  VT  PBTl 

0282 

04D0 

UO 3  /  OL>f 

171  ar*    ITTTV  WTT 

02  83 

04B0 

n    0  o  Dr'c 

■  D  P'^'R'T'    ITT                    9  r'  ' 

0284 

04B7 

n  c  a  Q  Bi^ip 

U  O  ^ 

iJM'I'h'l  f  TMVPVTSTTO 

;  / 

0A08 

^ 

0701  • 

Vivo 

•  B'T  OB"    MR  TTI 
;  CiLioJli   WA±  1 

0288 

0A76 

CnI\_DEB_l 

.  n  ui  m  1  M%T 

0706  ; 

0707  ; 

'    *'   '  '  ■ 

0708  INC_HR 

0289 

02  AO 

U  /(J9          '  iWlS 

FO 

;  JJM^  nOuK  I  xtUiK 

02  8A 

0200 

0710                ■  -1K>VF 

FO/W     "ii » 2^      - 1 

t^'E?^  HR  TMR  IN  W 

028b 

0031 

0711       «      '^■■'WSVmm  ■ 

02@C 

OEOF 

0712           ■  jU!3D£W 

B'OOOOlIxf'  ' 

;6llK^0  BH^E  s=  10'  ' 

028D 

OFOA 

0713  XORLW 

D'  1 0  ' 

;  / 

028E 

0743 

0714  BTFSS 

STATUS , Z 

;YES  THEN  SKIP 

02  8F 

0A93 

0715  GOTO 

INC_AML_PM 

;ELSE  CHK  12 

0290 

OCIQ 

0716  MOVLW 

B '  00010000 ' 

rll|9K«3Pl  IN  HSffi^ 

0291 

0020 

0717  MOVWF 

FO 

@2l^ 

0AA3 

0718       -        «''J^^0til '-. 

0293 

04E0 

0720  BCF 

FO ,  AMLEtt 

; CLEAR  AH/PH 

0294 

0200 

0721       '  "  MOVF 

FO  ,W 

;OET  IN  W 

029  5 

0F12 

0722  XORLW 

12H 

;SEE  IF  12  HEX 

0296 

0743 

0723  BTFSS 

STATUS , Z 

; YES  THEN  SKIP  " 

02  97 

0A9D 

0724  GOTO 

CHK_13 

;ELSE  CHK  13 

0298 

07F1 

07.2if**        -'"^  'W^g&Su 

;3«&'*^i^,  SKIP 

0299 

0A9C 

072  6  Gr&ToT 

02 9A 

04E0 

0727  BCF 

FO,AH_^M 

; CLEAR  FLAG 

02  9B 

0800 

072  8  RETLW 

0 

; RETURN 

072  9  SET_AM_PM 

02  9C 

05S0 

0730  BSF 

FO ,  AI^_PM 

; SET  FLAG             - '  "  ■ 

0731  CHK_13 

02 90 

0200 

0732  H01^ 

02  9E 

0F13 

0733  '   '      1  >  -9ECa^f> 

029F 

0743 

0734  BTFSS 

STATUS ,  Z 

•  YES  THEN  SKIP  I''-- 

02  AO 

0AA3 

0735  GOTO 

RESTORE_AM_PM 

0736  SET_1_^ 

02A1 

OCOl 

0737  MOVLW 

B'  000Cfi®©03;  ^ 

;S^--'*PO  1 

02A2 

002  0 

0738  MOVWF 

FO 

0739  R&ST4^£^^^__PH 

02A3 

OoFl 

0740  BTFSC 

TEMP , AM_PM 

; SKIP  IF  AM 

02A4 

05EO 

OT^JIj:-  -  BSF 

FO  ,jMl;.i!H '  ' 

;:^|^^  SET  TO  PH 

0800 

0742  RETLW 

0 

0743  ; 

0744  ; 

0745  ; 

0747        \  ■em- 

400     N.^a*  /^M^ 

0748  (  .  «  wr*r;  m. 

0749  ;XSY49)iMMKW 

00  OA 

0750 ''AJUffijaasjaar         b@u  ^ 

ooob 

0751  CE_KEY 

EQU 

OB  ■ 

000c 

0752  SNOOZE_ 

KEY  EQU 

OC 

oood 

0753                   AM_PM_KEY  EQU 

OD 

OOOE 

0754                   CLR_ALAKM_KEY  EQU 

OE                          '  .  ■ 

OOOF 

0755  SET_KEy 

EQU 

OF 

0756  !      ■-  ^H' » -  iXM  ■ 

ots*?  a^nssfOXiiM" 

0400 

07D0 

;»  IEBy  HIT  TKHSf.  'i  .. 

0401 

0800 

0759       ■  ■'\-mEmm 

0  !■ 
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0402 

06F0 

0769 

IF  NOT  SERVICESvSKIP 

0403 

0800 

0761 

0 

BLSE  BETORN  /i;..c 

0404 

05P0 

0762 

BSF 

FLAG,  SERVICBD 

S8T  SERVICED ;  F^^lfGv 

0405 

0210 

0763 

MOVF 

FLAS.W 

(SBs  mctDB  OF  orai«a?i<»i 

0406 

0E03 

0764 

ANDLW 

B'OOOOOOll' 

/ 

0407 

0643 

0765 

BTFSC 

STATUS,  Z 

00  THEN  RTM 

0408 

OAIO 

0766 

GOTO 

RTHKS 

RTM  KEY  SERVICE 

0409 

0031 

0767 

MOVWF 

TEMP 

SAVE  IN  TEMP 

040A 

02F1 

0768 

DECFSZ 

TEMP 

REDUCE  TEMP 

040B 

OftOD 

07  S9 

mm  ;  < 

040C 

OAIO 

0778 

0771 

SKI 

AllfflCS  ?  - 

at-f  -so  SLAiac  wsoHi 

* 

040D 

02F1 

0772 

DECFSZ 

TEMP 

REDUCE  TEMP 

040E 

0800 

0773 

RETLH 

0 

11  THEN  RETURN 

0774 

GOTO 

DEMKS 

10,  DATA  ENTRY  MOQB 

0775 

.\  ^ 

0776 

.-REAL 

TBS  MOES 

-,   3Tt  3 

0777 

RTHKS 

■  ■  ■t^c 

0410 

077« 

mm 

CRK  ALARK  jOBgS:,  r,  ■ 

ODOO 

0779?r' ■  -  rirttOWIf 

0  0« 

SV&  IF  NZ  RET 

0412 

0643 

0780 

BTFSC 

STATUS ,  Z 

NZ  THEN  SKIP 

0413 

0800 

0781 

RETLW 

0 

ELSE  RETXIRN 

0414 

OCOF 

0782 

MOVLW 

SET_KEY 

SEE  IF  SET  KEY 

0415 

0193 

0783 

XORWF 

NEW_KEY,W 

/ 

/  r  ■ 

0416 

0643 

0784 

BTFSC 

STATUS, Z 

NO  THEN  SKIP 

0417 

0A91 

0785 

Qgso 

SBRV_S8rjlT»:i 

0418 

OCOA 

0786 

HOVLH 

ALARM_KBT  ■ 

AiAiat  KEY? 

t-'  1 

0419 

0193 

0787 

XORWF 

NEW_KEY,W 

/ 

04  lA 

0643 

0788 

BTFSC 

STATUS , Z 

NO  THEN  SKIP 

04  IB 

OAAB 

0789 

GOTO 

SERV_ALARM_RTM 

ELSE  SERVICE  ALARM 

0790 

IC 

0791 
0792 

RETLW 

0 

1. 

ELSE  RETURN 

rALUat  TIMB  MOD 

S  KEY  SBRVISB. 

ATMKS 

041D 

09BA 

0795 

CALL 

CHK  AL_fCByS  ■ 

CHECK  ALRM  KEYS 

■  ','  ■ 

041E 

ODOO 

0796 

lORLW 

0  .>v^.V.. 

CHECK  IF  0 

041F 

0643 

0797 

ETPSC 

STA.'mSitjt  t. 

NZ  THEN  SKIP 

0420 

0800 

0798 

BSTLW 

0 

ELSE  RETURN  . 

0421 

OCOF 

0799 

MOVLW 

SBT_KEy 

SEE  IF  "msismi\-r 

0422 

0193 

0800 

.  xoimF 

NEW_KEyiW 

1       "  ■ 

•;«!•».: 

0423 

0643 

0801 

BTFSC 

STATUS, Z 

NO  THEN  SKIP 

0424 

0A9C 

0802 

GOTO 

SERV_SET_ATM 

30f? 

r  Pir 

0425 

OCOA 

0803 

MOVLW 

ALARM_KEY 

GET  ALARM  KEY 

0426 

0193 

0304 

XORWF 

NEW_KEY,W 

SEE  IF  HIT 

0427 

0643 

0805 

BTFSC 

STATUS,  Z 

NO  THEN  SKIP 

0428 

0AA2 

0806 

GOTO 

SBRV.JUARtLA1M 

ELSE  SERVICE 

0429 

OM.C 

0807 
0808 
0809 

0810 

;DATA 

DEMKS 

aom 

IGNORE JSSlt 
1  l^f  SERVICE 

vu  t*'  -*r*vT"WT  ^T••^ 

J  , 

042A 

09BA 

0811 

CALL 

CHK_AL_KBXS 

CHECK  ALARM  KEYS 

042B 

ODOO 

0812 

lORLW 

0 

CHK  IF  0 

042C 

0643 

0813 

BTFSC 

STATDS.Z 

NZ  THEN  SKIP 

042D 

0800 

0814 

RETLW 

0 

ELSE  RETURN 

042E 

OCOF 

0815 

MOVLW 

SET_KEY 

IF  SiBf         THBH' END 

042F 

0193 

0816 

xcmwF 

NEW_KEY,W 

-V,-  , 

0430 

0643 

0817 

BTFSC 

STATUS, Z 

NO  THEN  SKIP 

0431 

0A3F 

0818 

GOTO 

DEMKS_END 

GOTO  END 

0432 

OCOB 

0819 

MOVLW 

CE_KEY 

IF  CLEAR  ENTRY 

0433 

0193 

0820 

XORWF 

NEW_KEY,W 

/ 

0434 

0643 

0821 

BTFSC 

STATUS , Z 

SKIP  IF  NO 

0435 

0A48 

0822 

DEHK»_B)D_1 

ABANDCai  ENTRY 

r.coc 

0436 

0737 

0823 

W!FI/B, BRIO 

ID'S  BRS  DONE? 

•HiO." 

0437 

0A54 

0824 

GOTO 

ENT_HR^10 

NO  THEN  GET 

0438 

0757 

0825 

BTFSS 

ENTFLG,HR 

HRS  DONE? 

0439 

0A5F 

0826 

GOTO 

ENT_HRS 

NO  THEN  GET 

043A 

0777 

0827 

BTFSS 

ENTFLG.MINIO 

10 'S  MIN.  DONE? 

043B 

0A72 

0828 

GOTO 

ENT_MIN_10 

NO  THEN  GET 

mm. 
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043C 

0797 

0*29 

nM&5.,lM  s-:^  tiOltlBWBtf 

043D 

0A7F 

0830 

BHT.jaH         '  r 

SHUN  GBT 

043B 

0A87 

0831 

ENT.JUi_F>( 

HD  TBBN  GST 

0832~  nBKSi^BMCf 

043P 

0717 

0833 

BTFSS 

ENTFIiG.RTATS 

GET  OLD  STATUS 

0440 

0A4D 

0834 

GOTO 

LD_RTM 

LOAD  IN  TIME 

0441 

020E 

0835 

MOVF 

MENTRY.W 

LO  IN  ALARM 

0442 

002C 

0836 

MOVWF 

MALARH 

/ 

0443 

02  OF 

0837 

MOVF 

HENTRY,W 

1            .  (.1 

04«4 

WtXD 

0S38 

HkLABll 

iXjifc                   ■  ■ 

044S 

0450 

0839 

BCF 

0446 

0S18 

0840 

BTFSC 

0447 

0550 

0841 

BSP 

FItlkS.MiaBm        ;XLSB  SBT          '  :i  : 

0842 

DEMKS  END  1 

-  'Ai 

0448 

0410 

0843 

BCF 

FLAG,  0 

RTM  MODS            .  ,  i 

0449 

0430 

0844 

BCF 

FLAG,1 

/                      '  ^ 

b44A 

0490 

0845 

BCF 

FLAIt.FIiASKIi        sCTOF  FLASH 

0846 

SERV_COH_PET 

044B 

05B0 

0847 

B3F 

Fua.Kzs^jmi^ 

044C 

0800 

0848 

0 

'RB*flUW 

0849 

0850 

LD  RTM 

044D 

02  OE 

0851 

MOVF 

MENTRY.W 

LD  IN  RTM            -i  . 

044E 

002A 

0852 

MTMR 

A  .~     ,  .  >  . 

044F 

02  OF 

0853 

MOVF 

HENTRY.W 

/ 

0450 

002B 

BfHR'i.'.Ji  "i-.-.i 

0451 

0058 

0855 

0452 

0069 

0856 

CLRF 

STHR 

.  f 

0453 

0A48 

0857 

GOTO 

Dra!KS_END_l 

■GO  BACK 

0858 
0859 

ENT_HR_10 

0454 

0213 

0860 

MOVF 

NBW_KEy,W 

,SEE  IF  0 

045i5 

e<43 

0861 

B?^PSC 

STATUS, Z              (MB  TOW  BRtt 

045S' 

0A5C 

0862 

LD_JIB»TRy_fl 

■LORD  0 

0457 

02D3 

0863 

DECPSZ 

NEW_KEY,  0 

•  1  THB  SKIP        :  -  , 

0458 

OAIC 

0864 

GOTO 

IGNORE_KEY 

•ELSE  IGNORE  KST-J 

0459 

058F 

0865 

BSF 

HENTRY,4 

•SET  TO  1 

045A 

0537 

0866 

BSF 

ENTFLG.HRIO 

•SET  FLAG 

045B 

0A4B 

0867 

GOTO 

SBRV_CQM_BET 

■00  GBT  NEXT 

08$8  m^HflK^O 

T-  -■■* 

045e 

o*9r 

0859 

.  emw  ■ 

BBIRRt.4  ;.'2>i 

fiUmiva  0 

045D 

0537 

0870 

BSF 

045B 

0A4B 

0871 

GOTO 

!a!RV_C(BlJRBT 

0872 

ENT_HRS 

045F 

OCOP 

0873 

MOVLW 

HENTRY 

•USB  INDIRECT  U3aiL<. 

0460 

0024 

0874 

MOVHF 

FSR 

1 

0««1 

0875 

BBNT&Y,4 

•  SBB  IF  0  ,t..: 

04«3 

oxen 

087S 

AU.OW0_2 

;yES  THEN  0,l^k;: 

0463 

OCOA 

0877 

mmm 

D'lO'  -HJt 

tmSm.Tl  0-9  M.' 

0464 

0093 

0878 

SDBNF 

!    -   ■'  / 

0465 

0603 

0879 

BTFSC 

STATUS,  C 

;XF  C  THEN  SKIP 

0466 

OAIC 

0880 

GOTO 

;BLSB  IGNORE 

0881 

ENT_L0_C0M1 

0467 

0557 

0882 

BSF 

BHTFLSiBR 

;SEr  FLAG 

0883 

ENT_L0_C0M 

0200 

0884 

II0V7  : 

*0,M  W  hiA-J-.B 

0459 

OSFO 

0885 

ANDUr 

B' 11110000" 

^KHm  LO  NIBL 

046A 

0113 

0886 

lORWF 

NEW_KEY,W 

■OR  NEW  KEY 

046B 

0020 

0887 

MOVWF 

FO 

•SAVE  BACK 

046C 

0A4B 

0888 

GOTO 

SERV_COM.JlET 

•GET  NEXT 

0889 

AIiOW0_2 

046D 

0C03 

0890 

MOVU) 

D'3' 

■SBB  IF  0  -  2 

e4«B 

0093 

0891 

jmtjSBX.n  :-■ 

>    -  ^  / 

0603 

0892 

STATUS,  C- 

!<3^raHaxiF 

0470 

OAIC 

0893 

GOTO 

IGN(»tBJKBX 

0471 

0A67 

0894 

GOTO 

ENT_tO_C0Kl 

1  / 

0895 

0896 

EMT_>1IN_10 

0472 

OCOE 

0897 

MOVLW 

HENTRY 

;D0  INDIRECT  ADDR. 

94^  !> 

0t^93 

0900 

/ 

0476 

0603 

0901 

STATUS ,  C 

IF  C'TB^  SKIP 

0477 

OAIC 

0902 

GOTO 

IGNORE  KEY 

ELSE  IGNORE 

0478 

0380 

0903 

SWAPF 

FO ,  W 

SWAP  AND  GET 

,  ■ ' 

0479 

OEFO 

0904 

ANDLW 

B'  11110000 ' 

MASK  LO  NIBL 

047A 

0113 

0905 

lORWF 

NEW  KEY,W 

OR  NEW  KEY 

047B 

0020 

0906 

UOVWF 

FO 

SAVE  BACK 

047C 

03  AO 

0907 

SNAFF 

PO  iAM 

047D 

0577 

0908 

SNTFL&^KXlBL^n 

047S 

0909 

•     H     ^ISOfOT  ^ 

.  ■ 

"d- 

0910 

0911 

FNT*  MTN 

0*7F 

OCOS 

0912 

MOVLW 

MENTRY                       ;D0  INDIRECT 

0480 

0024 

0913 

MOVWF 

FSR 

/ 

0481 

OCOA 

0914 

MOVLW 

D'lO'                       ;ALLOW  0-9 

0482 

0093 

0915 

SUBWF 

NEW_KEY,W 

SEE  IF  > 

0483 

0603 

0916 

>  /■  • 

0484 

OAIC 

0917 

0485 

0597 

0918 

BSF 

SET  FLA0 

0486 

0A68 

0919 

GOTO 

HTJLO.COM 

0920 

0921 

TTHT   AM  PM 

0487 

OCOD 

0922 

AM_PM_KEY               ;AK/PM  KEY? 

0488 

0193 

0923 

NEW_KEY,W 

0489 

0743 

0924 

f '0*9 

STATUS, z        .           "msm  SHV  i ' 

048A 

OAIC 

0925 

IGNORE„KEY 

0926 

BTFSS 

HENTRY,AM_PM 

•nSST  BIT 

■■  ''(  .. 

048C 

0A8F 

0927 

SETAMPM 

ELSE  SET 

048D 

0  4HF 

092  8 

BCF 

HENTRY , AM_PM 

CLEAR  FLAG 

048E 

0A4B 

0929 

GOTO 

SERV_COM_RET 

GOTO  END 

0930 

048F 

05EF 

0931 

HENTRY,  A2^FM 

SET  FLAG 

0490 

0A4B 

0932 

GOTO"  * 

af^yjCOHJlET 

0933 

0934 

0935 

093  6 

QPCW    CJ!"r  HTM 

■  "'  '' 

0491 

02  OA 

0937 

MOVF 

MTMR,W 

0492 

002E 

0938 

MOSVP 

MENTRY. 

;WSATA  ENTRY 

• '  ■  t  ' 

020B 

0939 

III  IHIW 

J  / 

r , 

d494 

002F 

0940 

.  tvpn-  / 

0941 

o  UK  V  __V- wra 

0495 

0210 

0942 

MOVF 

FLAG,W 

•SAVE  IN  W 

..  1-  ' 

0496 

OEOI 

0943 

ANDLW 

B'OOOOOOOl' 

•ATM  OR  RTM  MODE? 

0497 

0037 

0944 

BN^LG 

•SAVE  IN  ENTFLd 

S  ;  ' 

^ , 

0498 

0CF2 

0945 

MOVLIf 

B'llllQOia' 

•FORCE  IS  >Vl 

0499 

0130 

0946 

FEM         •  Oi  w 

'.  "■  ■)'' 

04 9A 

0410 

0947 

BCF 

f:*te*je  ■ 

0498 

0800 

094& 

RETLW 

0             r'-.r ''V. 

0949 

^  , 

0950 

SERV  SET  ATM 

049C 

02  DC 

0951 

MOVF 

MALARM,W.-  ' 

•ISO^SFER  ALARM 

'  '<  1'  ■.. 

04  9D 

002E 

0952 

MOVWF 

MENTRY 

•  TO  'EiATA:  ENTSY 

Q49S 

02  OD 

0953 

BALARM,W 

•      ■    ■  / 

002F 

0954 

■ '  M^S'^ 

■■ :  ■  1  r 

0518 

0955 

BSF 

ALFLAG,ALONOF 

•SET  FLAG 

(MMU. 

OJ^S 

0956 

GOTO 

SERV_COM 

•GOTO  COMMON 

0957 

0958 

SERV  ALARM  ATM 

04&3 

0718 

0959 

BTFSS 

ALFLAG.ALONOF 

•TEST  ON/ OFF 

04A3 

0AA6 

09^0 

SBT_JkLGHC^ 

;  9ET  WOF  91^  I*> 

04A4 

0418 

0961 

AI.FLAG,ALCfNOF 

;a^AR  FLAG       *  f'?-'^ 

r  ■  :\  ^ 

04A5 

0AA7 

0962 

;RBT  THRO  COM 

0963 

04A6 

0518 

0964 

BSF 

ALFLAG,ALONOF 

•SET  FLAG 

0965 

SERV_ATM_COM 

04A7 

05B0 

0966 

BSF 

FLAG,KEY_BEEP 

;BEEP 

»iiWtllMWliltit>Milffritill|iii1Btp 


04A8 

OCFO 

0967 

ttOVLW 

B' 11110000' 

HSmB.  SEC  COONT 

04A9 

0176 

0968 

.  ANDHF 

HIN_SEC 

/ 

04M 

0800 

0969 

:'.<L'3  "tVSSM 

0 

0970 

0971 

^»V_ALAi!M_RTH 

04AB 

05B0 

0972 

BSF 

FLAG,KEY_BEEP 

SET  BEEP  FLAG 

04  AC 

0510 

0973 

BSF 

FLAG,  0 

SET  TO  ALARM  TIME 

04AD 

0430 

0974 

BCF 

FLAG,  1 

/ 

04AE 

QC05 

0975 

MOVLW 

D'05' 

SAVE  5  IN  MIN_SEC 

04AF 

0036 

0976 

MOVWF 

MIN_SBC 

/ 

04B0 

0800 

0977 

KETLW 

0 

0978^ 

1  .  1 

0979.  SEKVLSNOOZE 

J  "«i  - » 

04B1 

OCAO 

0980 

OAO 

SNOOZE  FOR  10  MINS 

04B2 

0036 

0981 

MIN_SEC 

/ 

04B3 

0558 

ALFLAG.SILNC 

SET  FLAG 

0983 

04B4 

05B0 

0984 

FLAG.KEXJBEBF 

SET  SEEP  FLAG 

O^S 

007A 

0985 

•           ■  ■ 

AftODt  ., 

SBiif  AA  TIHBl 

0079 

0986 

iSiHWIt  AA  FLASS- 

04B7 

0478 

0987 

BCF 

ALFLAa.IHAA 

SgSBT  INAA  FUt@: 

04B8 

0505 

0988 

BSF 

PORTJk.BKP 

TURN  OFF  B^PBIt" 

04B9 

0800 

0989 

RETLW 

0 

RET 

0990 

0991 

CHK_AL_KEyS 

"  .1  ,  ■ 

<MBk 

0718 

0992 

BSR'SS 

AfiFLkOrJffiCIIW.: 

•j^fg0  ON? 

04BB 

0801 

0993 

1 

NO  TSEN  RET 

04BC 

0738 

0994 

BTFSS 

ALPLAG ,  INAL 

IN  ALARM? 

04BD 

0801 

0995 

RETLW 

1 

NO  THEN  SKIP 

04BE 

OCOE 

0996 

MOVLW 

CLR_ALARM_KEY 

CHECK  IF  CLR  ALARM 

04BF 

0193 

0997 

XORWF 

NEW_KEY,W 

/ 

04C0 

0643 

0998 

BTFSC 

STATUS , Z 

NO  THEN  SKIP 

04CX 

QAC7 

0999 

GOTO 

■  B{^  GI^AR  JOiASli 

04C2 

OCOC 

1000 

MOVLW 

rSBEB  I^9N9Q^ 

04C3 

0193 

1001 

XORWF 

/ 

04C4 

0743 

1002 

BTFSS 

STATIC,  Z 

■^$S  TBBS  SKIP 

04C5 

0801 

1003 

RETLW 

1 

04Cfi 

OABl 

1004 

.  .  ,^om_ 

sBRy_s^«X8:B  ' 

1005 

1006 

f^itiJ>TiWI-  TJ-i 

04C7 

0438 

1007 

BC^ 

!Siismi  u>ARM 

04C8 

0458 

1008 

BCF 

ALFLAG,S13DfE;' 

msm  sxLstcE 

04C9 

OCOF 

1009 

MOVLW 

B'OOOOllll' 

■^iBftR  MINS 

04CA 

0176 

1010 

ANDWF 

MIN_SEC 

/ 

04CB 

0AB4 

1011 

GOTO 

CLR_AL_COM 

1012 

101^7^o  ir  ,.: 

860  ~,^\r:- 

1014 

;Zf        AA  alaaan  ifl  set,  th^,  thiag;:x$iatiiafi  tedcos  care  of 

1015 

;tke  timlns  iB  sounding  th^i  ^arm. 

1016 

1017 

0600 

0738 

1018 

BTFSS 

■^KXP  IF  IN  ALRH 

0601 

0800 

1019 

RETLW 

0 

RETURN 

0602 

0658 

1020 

BTFSC 

KLFLAG.SIUIC 

■SKIP  IF  NOT  IN.  SII. 

06O3 

0800 

1021 

RETUf 

0 

•ELSE  ^xm. 

0604 

06B7 

1022 

 ■'  -=.JB®IS& 

BiTFIilS;,  SI9EK)9BP 

•SKIP  IF  NOT  IN  KEY  BEP 

0605 

0AS5 

1023i 

CBKLCQLSN  . 

■C!HK  COLLISICal 

1024 

SNDJUi^O 

0606 

0778 

1025 

ALFLAO,Qmh<" 

r^em<  IF  IN  AA  • 

1026 

0607 

0919 

1027 

CALL 

INIT_AA 

INIT  ALL 

0608 

0719 

1028 

BTFSS 

AAFLAG.O 

SKIP  IF  DONE 

0609 

0*21 

1029 

'  .  -  .  s-mm:' 

^t,^HST  CYCL 

oevx 

0739 

1030 

r  BTFSS 

AAFLAStl 

■SKIP  IF  DONE 

060B 

0A29 

1031 

GOTO 

D0_CYCL1 

ELSE  2ND  CYCLE 

060C 

0759 

1032 

BTFSS 

AAFLAG,2 

SKIP  IF  DONE 

Q60D 

0A31 

1033 

GOTO 

D0_CYCL2 

ELSE  DO  3RD  CYCLE 

060E 

0779 

1034 

BTFSS 

AAFLAG,3 

SKIP  IF  DONE 

060F 

0A39 

1035 

GOTO 

D0_CYCL3 

DO  CYCLE  4 

2*129 
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0610 

0799 

1036 

BTFSS 

AAFLAG,4                 .-SKIP  IF  DONE 

0611 

0A3B 

1037 

DO_CYCL4                 ;D0  CYCLE  5 

0612 

07B9 

-.t' 

.  -  -  V 

0613 

0A43 

1039 

GOTO 

Do_carcii5 

DO  CYCLE  6 

0614 

07D9 

1040 

BTFSS 

AAFLAG,6 

SKIP  DOSS 

0615 

0A48 

1041 

GOTO 

D0_<iyCL6                ;D0  ClfCLE  6 

0616 

07F9 

1042 

BTFSS 

AAFLAG,7                 ;SKIP  IF  DONE 

1043 

GOTO 

D0_CYCL7 

DO  CYCLE  7 

0618 

0A07 

1044 

GOTO 

00  BACK 

1045  ; 

1046  INIT_AA 

DO"  ' 

1048 

061B 

1049 

GOTO 

POT_ON_100            ;lll>'*l(»  KSBCS 

1050  ; 

1051  DEC_AA_TMR 

1052 

DECF 

AATMR 

061D 

02  lA 

1053 

MOVF 

AATHR.W 

GB*"  IN  W            •  ' 

06  IB 

0743 

STATUS, S  .OsJ"" 

CraCK  IF  Z 

061F 

0801 

tests'-*  •■ 

NO  THEN  NZ        ^  ' 

0620 

0800 

AAii  mm-- 

0  , 

rSi^  0 

losr^"' 

<  ■ 

1058  D0_ 

.CYCLO 

0621 

091C 

1059 

CALL 

DEC_AA_TMR 

REDUCE  TIMER 

0622 

0743 

1060 

BTFSS 

STATUS,  Z 

IF  NZ  THEN  RET 

0623 

0800 

1061 

RETLW 

0 

.  1 

0624 

0519 

1062 

BSF 

AAFLAG.O 

SET  DONE  FLAG 

' 1-  0 

HI ; 

1063  PaT_OFF_10a 

ft'* 

0625 

0505 

1064 

BSF 

PORT.Jl,BEP            ;TI&dV^C^  I^BPfiR 

0626 

0C14 

1065 

MOVLW 

D'20'                      ;FOR  lOe  itSBCS 

0627 

003A 

1066 

MOVWF 

AATMR 

•  / 

0628 

0800 

1067 

1068  ; 

RETLW 

0 

Kft4.'J^  -..Tr 

\    -;T  • 

t  •  ^ 

£069  D0_ 

.CYCLl 

MJVdt  '■■■01 

■0 

0629 

091C 

1070 

'  CXLL 

062A 

0743 

1071 

1072 

RETLW 

0 

1073 

BSF 

AA^EdilSi'l  - 

■S@£9>'D0NB  FLAG  -  -  ' 

1074  PUT_ON_100 

062D 

0405 

1075 

BCF 

PORT_A,BEP 

TURN  ON  BEEPER 

062E 

0C14 

1076 

MOVLW 

D'20' 

FOR  100  HSECS 

062P 

003 A 

1077*-'-—  imm 

hUStmr        '-•  V    ,    .  .i>  / 

0630 

0800 

1078 

1079  ; 

1080  D0_ 

-^^p  mm- 

CYCL2 

0    .-•••n"  ■o 

'■•  r," 

0631 

091C 

1081 

CALL 

DEC_AA^TMR 

REDUCE  TIMER 

0632 

0743 

1082 

BTFSS 

STATUS, Z                 ;IF  NZ  THEN  RET 

0633 

0800 

1083 

RETLW 

0                         ;  / 

0634 

0559 

0635 

0505 

lots 

BSF 

PORTJk.BBP 

0636 

0C64 

1086 

MOVLW 

D'lOO' 

FOR  sm  w^es ' 

0637 

003a 

1087 

MOVWF 

AATMi  ' 

0638 

0800 

1088 

1089  ; 

1090  DO 

RETLW 

.cycL3 

0 

lu  ... 

'-  J 

0639 

091C 

"MB  mM'-^  ■• 

Ml. 

■t)EC_AA_TMR 

REDUCE  TIMER 

UD  JA 

U  /  4  J 

mgz  HOI 

STATUS,  Z 

IF  NZ  THEN  RET 

063B 

0800 

l»99 

KETUr 

0 

/ 

0579 

^W'lXmE  FLAG 

063D 

1095 

1096  ; 

1097  D0_ 

GOTO 

.cycL4 

IWJML-IOO 

DO  NSET  -'fe:¥S£S 

063E 

091C 

1098 

CALL 

DEC_AA_TMR 

REDUCE  TIMER 

063F 

0743 

1099 

BTFSS 

STATUS,  Z 

IF  NZ  THEN  RET 

0640 

0800 

1100 

0 

■     '  ''V. 

0641 

0599 

1101 

BSl'- 

AAFLAG,4 

0642 

0A25 

1102 

GOTO 

PqT_PMiJ<6«-'"-      ;aGF%i^  CYCLE  ' 

1103  ; 

:  ,  MUIA.-. 

1104  DO. 

.CYCL5 

tMlMMMMllfi  TAchndogy  Incoiporated 
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0643 

091C 

1105 

CAUi 

REEOCS  TIMTO 

8644 

0743 

not 

fiss  TmEN  teesi 

0645 

0800 

1107 

0 

/ 

0646 

05B9 

1108 

BSF 

AAFLA0,5                ;SET  DONE  FLAG 

0647 

0A2D 

1109 

GOTO 

PDT_OII_100            >D0  NEXT  CVCLE 

1110 

1111 

D0_ 

.CYCL6 

0648 

091C 

1112 

CALL 

DEC_AA_TMR 

REDUCE  TIMER 

0649 

0743 

1113 

BTFSS 

STATUS,  Z 

IF  NZ  THEN  RET 

064A 

OSOO 

1114 

RBTLW 

0 

1 

064B 

05D9 

1115 

BSF 

AAFLAG,6 

SBS  DONE  FLAG 

064C 

0505 

1116 

BSF 

PORT_A,BBP 

TURN  OFF  BEEPER 

064D 

0CC8 

1117 

MOVLW 

D'200' 

FOR  1000  HSECS 

0e4E 

003A 

1118 

UOVWF 

AATHR 

/ 

064F 

0800 

1119 
1120 
1121 

DO. 

{tBTLW 

.CYCL7 

0 

0650 

091C 

1122 

CALL 

DECJkAJTMR 

REDUCE  TIMER 

0651 

0743 

1123 

BTFSS 

STATUS, Z 

IF  HZ  THEN  RET 

0652 

0800 

1124 

KBTUf 

0 

/ 

0653 

05F9 

1125 

BSF 

AAFLAG,7 

■SET  DONE  FLAG 

0654 

0A2D 

1126 

GOTO 

PUT_ON_100             ;D0  NEXT  CYCLE 

1127 

1128 

CHK_COLSN 

0655 

0605 

1129 

BTFSC 

PORT_A,BEP 

IF  ON  THEN  SKIP 

06S6 

0A06 

1130 

GOTO 

•  ELSE  RET 

0657 

021 A 

1131 

MOVP 

AATMR,W 

■GET  TIMER 

0658 

0643 

1132 

BTFSC 

STATUS,  Z 

NZ  THEN  SKIP 

0659 

0A5C 

1133 

GOTO 

LD_AAT_1 

LOAD  A  1   IN  TMR 

065A 

OOFA 

1134 

DECF 

AATMR 

■REDUCE  TIMER 

065B 

0800 

1135 
1136 

LD. 

RETLW 

.AAT_1 

0 

■RETURN 

06se 

02EA 

1137 

INCF 

AATHR 

■INC  TIMER 

065D 

0800 

1138 

1139 
1140 

RETLW 

ORG 

0 

PIC57 

;RET 

1141 

SYSJSESET 

07FF 

OAOO 

1142 
1143 
1144 

1145 

1146 
1147 
1148 

GOTO 

am 

START 

USAGE  vas  ('X'  =  Used,     ■-'  =  tniused) 
0000  I  XX 

0040  I  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 

0080  :  xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX  xxxxxxxxxxxxxxxx 
ooco 


0100  :  xxxxxxxxxxxxxxxx  xxxxxxxxx- 

0140  !   


0200  :  xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 

0240   :   xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX  : 


0280   :   XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX  XXXXXX- 
02C0  1   

0400 

0440  I  XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX  xxxxxxxxxxxxxxxx  : 

0480   :   xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX 

04C0   :  XXXXXXXXXXXX  


OiaB4MieKigt^1MiNolo|Vlncon^^  DS00529(>f8ge  23 
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0600  :  XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX  XXXXXXXXXXXXiOXX  xxxxxxxxxxxxxxxx 

osilP  s  x»^SitititiBBEpxiac  mntxxxTncxxxxyx  


0780  : 
07C0  I 


All  other  menory  blocks  unused. 


Errors  :  0 
Hamings  :  0 
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Using  PIC16C5X  Microcontrollers  as  LCD  Drivers 


INTRODUCTION 


Fe^FB  a  small  dispray  at  a  low  cost  togethwiii^  iM» 
ea^fttjtts'M  the  standard  PldeCSS  mjcideMMW. 
W»siaM'by  an  overvi^^  k^deMces  mMMMiv 

of  the  aontii^eiF:  '"ffifli  MWtt^fMefor  tsntMHni  a 
iTwItiplexedC^^W^iq^lsiMaMlrii  Appendk  A. 

-  :  .1 

LIQUID  CRYSTAL  DISPLAYS 

The  Liquid  Crystal  Display  (LCD)  is  a  thin  layerof  "Liquid 
Crystal  Material"  deposited  between  two  plates  of  gt^, 
The  raw  LCD  is  often  referred  to  as  "glass".  Eleetrodes 
are  attached  to  both  sides  of  the  glass.  One  side  is 
referred  to  as  common  or  backplane,  white  the  otherside 
is  referred  to  as  segment. 

An  UM  '»  modelled  as  a  is^taMm,  wWi  one  side 
ceime^ed  to  the  c^nvmn  p taiie  and  Qte  other^de 
ooiwie^ed  to  the  w^mmtt  m  ^Mn  in  li^re  1 .  LCDs 
are  sensitive  to  Root  Mean  ^ua«  \ioiig»  toMs, 
Wien  a  ^f^teV9Mzmv<il^»ifll^t0mm^m 
.  ijQDjS'PFaGtiGallytransparBrft.  ~ 


T^tum'antC^ segment  "on",  which  makes  thssegment 
'  turn  darker  opaqusi  an  liCO  RMS  voltage  that  is  greater 
''than  the  LCD  thr^tuM  voltage  is  applied  to  the  LCD. 
'  ThB>R(MS  l£CD  vottage  Is  the  RMS  voltage  across  the 
eai^faeitorc  in  Figure  1  .  which  is  equal  to  the  potential 
difference  between  SEG  and  COM  values. 

Different  LCDs  have  different  characteristics;  Figure  2 
shows  typical  voltage  vs  relative  contrast  characteris- 
tics. Notation  on  curve  shows  operating  points  for 
multiplex  operation  with  the  threshold  voltage  set  to  1 .7 
Vrms.  This  voltage  is  often  used  as  the  measure  of 
voltage  for  LCD  to  be  "off"  or  transparent.  The  curve  is 
normalized  and  assumes  a  viewing  angle  of  90°  to  the 
plane  of  the  LCD. 

Contrast  control,  the  process  of  turning  on  a  segment,  is 
achieved  by  moving  the  operating  point  of  the  LCD  by 
applying  voltage  to  the  LCD  that  is  greater  than  the  LCD 
threshold  voltages.  A  typical  circuit  to  accomplish  this 
task  is  shown  in  Figure  3. 

Diliring  a  liquid  crystal  display  at  direct  current  (DC)  will 
«Hise  permanent  damage  to  the  display  unit.  In  order  to 
prevent  irreversible  electrochemical  action  from  de- 
stroying the  display,  the  voltage  at  all  segment  locations 
must  reverse  polarity  periodically  so  that  a  zero  net 
VOitAg@  is  applied  to  the  device.  This  process  is  referred 
to  as  AG  voltage  application.  There  are  two  LCD  driving 
methods  available:  Static  driving  method  and  multi- 
plexed driving  method. 


1  -<  CL^RfeAL  MOtlEL  &F  m  LCD  SaMlM'  WITH  DtllVINCi  VOLTAGES 


SEG.Q- 


COM  O 


GOM  ; 

I 

(Xm  -iBI;  — —   SegnftentOff 

COM  -  SEG  _Py~|J~~[_P]J~~|J~~[J~  Segment  On 


Von  RMS  =  Vdd 
VOFF  RMS  =  0 
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Using  PIC16C5X  Microcontrollers  as  LCD  Drivers 


Conventional  LCDs  have  separate  external  coniM@Hdi<is 
for  each  and  every  segment  plus  a  common  planSi  tMs 
is  the  Mie^  tMifMC  in^MMd  that  results  in  good  dipiliqF 
'qudtty.  Itwmaindteaclvantageofthisdrivingmelhodte 
JMeach  segment  requires  one  liquid  crystal  driver.  The 
sialic  diiVRig  method  uses  the  frame  frequency,  defined 
as  a  period  of  the  common  plane  signal,  of  several  tens 
to  several  hundred  Hz.  A  lower  f  requency  would  result 
in  blinking  effects  and  higher  toquenetos  wmM  hi- 
crease  power  raquNmente)  l»4ip«MI8pMMl>» 
votage  that  has  an  opfnm»t-ps»0^fi^^m0jmmmm 
ptana  signal  must  be  applied  iMMIniiga  Jani^  aiBS 
vo«ag»  acrass  the  plates.  „r%lin)>«f;»  WpMom 
voltage  lhat  is  of  Ae  sam«i<pt»lari^  l9  mmml^^lmm 
signal  is  applied.  This  drive  m^od  Is  universal  lo 
driving  LCD  segmerrts.  Figure  1  shows  an  example  of 
this  driving  method. 

The  LCD  frequency  Is  defined  as  the  rate  of  output 
changes  of  the  common  plane  and  segment  signals, 

whereas  the  frame  rate  is  defined  as  f,  


N 

where  N  is  the  multiplex  rate  or  number  of  backplane. 
Typically,  f^^^  ranges  from  25HZ  to  300HZ.  The  most 
commonly  used  frame  fequency  Is  40-70HZ.  A  lower 
frequency  would  result  in  flicl<er  effects  and  higher 
frequency  would  increase  power  requirements. 

.1  .IQlll'    JE       tIMV,      5  ■ 


MuWplexad  LCDs  maintaitrillwir  Hquid  crystal  chancler- 
isHps.  These  are  low  power  oonsumptiori,  high  contrast 
tans  WKtor  Mgh  ambient  Rpht  levels,  and  r8dHe|  the 

and  alphaiumeric  displays.  ThemultiplexdiivingiWttnd 
reduces  the  number  of  driver  circuits,  or  microooriUoltar 
I/O  pins  if  a  software  method  is  used.  The  method  of 
drive  for  multiplexed  displays  is  Time  Division  Multiplex 
(TDM)  Mtti  ttM  number  of  time  divisions  equal  to  twice 
the  mimbaiiaf  eomtnanpfeuws^^  in  agiven  fonnaL  In 
orderto  prevent  permanent  damage  to  9m  LCD  dteplay, 
ttwwIteigeatalliaepatriMlMBiiitpt^^ 

IMka  iwoon  tor«»j4t«iilie  in  ttm»-^^ 
commonplane  must  be  altemately  driven  witha^iHIIIiise 
pulseolopposite  polarity.  The  drive  frequeneyshiiltle 
melm^lim^Mfimmla  Sf     Hz.  since  inqiWDtia 

cnMsas  current  demand  by  the  CMOS  drcuSiy,  an 
upperdrive  frequency  level  of  60  Hz  is  recommended  by 

most  LCD  manufacturers.  We  have  chosen  a  drive  rate 
of  50  Hz  for  this  application  report  which  results  in  a 
frame  period  of  20  ms.  The  most  commonly  available 
fomiats  are  2x4, 3x3,  and  5x7.  In  this  report  >imM6982x4 
fOBSipt  LQQ,tp.displsy  heiS«ie(3inaldigila.,.^  i^j^ , 


':A'->  »rl'  b.f  *f'6;.|  nr. 


iFiGURE  2:  TYPICAL  LCD  CHARACTERISTICS 


FIGURES:  CONTRAST TONTROL CIRCUIT 
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To  better  understand  multiplexed  LCD  control  it  is  best 
to  look  at  the  general  case.  The  segnnents  in  a  multi- 
plexed LCD  are  arranged  in  an  X-Y  grid  form  as  shown 
in  Figure  4.  The  common  plane  signals  maintain  their 
relative  shape  at  all  times,  as  shown  in  Figure  5.  To  turn 
on  segment  1  (SEG1),  we  need  to  apply  a  voltage  Vd, 
such  that  Vs+Vd  turns  the  segment  on  and  Vs-Vd  turns 
the  segment  off.  Note  that  the  segment  signal  Vd  is 
symmetrical.  This  is  a  consequence  of  the  intervals  that 
the  common  plane  signal  is  not  present  at  all  times.  Use 
of  nonsymmetrical  waveform  will  result  in  a  higher  Vrms 
present  on  the  unaddressed  segments.  Thesymm^- 


cal  nature  of  the  waveforms  theoretically  result  in  a  zero 
DC  voltage  levels.  CMOS  drivers  (e.g.  microcontrollers) 
operate  at  0  to  +5V  levels  (rail  voltage  levels).  This 
would  require  driving  voltages  beyond  the  range  of 
operation.  This  constraint  is  addressed  by  a  technique 
referred  to  as  "level  shifting"  or  "biasing".  Level  shifting 
allows  application  of  voltages  in  the  range  of  0  to  +2.5V, 
which  is  compatible  with  these  drivers.  This  would 
require  an  additional  voltage  level  of  +2.5V,  wrtiich  can 
be  implemented  through  a  simple  resistive  voltage  di- 
vider circuit. 


FIGURE  4:  MULTIPLEXED  LCD  SEGMENT 
^RBANG^iNT  " 
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FIGURE  5:  MULTIPLEXED  LCD  DRIVE 
WAVEFORMS 
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4h^(M£f^rS^ed«ir^e  previous  secSbn  can  be 
applied  to  any  sC»  multiplexecl  LCD  display,  in  «lr 
implementation  we  used  a  4-digit  LCD  frMll 
'^Ocular  Inc.  [1  ].  The  circuit  diagram  used  in  this  appiiBjh 
tion  report  is  shown  in  Figure  6.  Each  UO  pin  on  Ato 
PiC16C55  device  controls  the  state  ot  two  segmMt 
(see  Rgure  6)  which  requires  a  total  of  16 1^  pins.  l¥m 
reference  voltages  are  generated  through  a-limple 

FIGURES:  SYSTEM GOWPIGURATION 
WITHLC^MVOUT 


  1  ^ir* 

to  input,  wtilch  instates  the  voltage  ievelseen  on  the  pin. 
This  method  uses  4  I/O  pins  to  generate  the  proper 
I  voltage  levels.  Figure  7  shows  the  truth  table  for 
.  generating  the  voltage  levels.  Figure  8  shows  how  to 
create  a  bitmap  for  different  digits.  Figure  9  shows  the 
^waveforms  generated  for  the  accompanying  software 
*which  implements  a  hexadecimal  counter. 
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FIGURES:  LCD  CHARACTER  BITMAP 


Digit 

COMO  SEG  0 
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1 
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0    10  1 

2 

10    0  1 

0    0    0  1 

0  110 

1110 

3 

110  1 

0   0   0  0 

0  0  10 

1111 

4 

0  111 

10    0  0 

10    0  0 

0  111 

5 

0    10  1 

0    10  0 

10  10 

10  11 

6 

1111 

_l.J.it  1 

1110 

10  11 

7 

1111 

0   0  10 

0   0   0  0 

110  1 

8 

0    0    0  1 

0   0   0  0 

1110 

1111 

9 

0   10  1 
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10  10 

1111 

a 

0   0  11 
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b 
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10    0  1 
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d 

10    0  1 

10    0  0 

0  110 

0  111 

e 
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f 

0   0  11 
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FIGURE  9:  EXAMPLE  OF  OUTPUT 

WAVEFORMS  FOR  DIGIT  4 
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CONCLUSION 

In  this  application  report  we  have  clenionstrated  the  use 
of  PIC16C5X  devices  to  implennent  a  simple  LCD  con- 
troller. As  discussed  earlier,  It  is  Important  to  keep  the 
generated  DC  voltage  to  a  minimum  to  extend  the  life  of 
the  LCD.  Ideally  one  should  switch  all  the  I/O  lines 
simultaneously,  however,  a  software  implementation  of 
the  LCD  controller  wHt  ^maBWaarily  ntroduM  a  deiay 
which  is  proportional  to  the  kistnictiQn  cyde  e(  the 
microcontroller,  as  shown  In  Figure  10.  Therefone  it  Is 
necessary  to  keep  ttie  switctijng  tbne  to  a  mMnum.  Our 
ihrtplenmiMon  irrtreiduceci  ie»  than  60  mV  of  DC  volt- 
age on  ^e  segmetit  tji)f  s  which  is  below  the 
manutacturer's  reoommmdsd  DC  offset  voltage  of  60 
mV.  ,  , 


[1]  Ocular  ine.4l>>mif^miniii»JH074. 


AUTHOR:  >t/loMfcft 
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FIGURE  10:  MICROCONTROLLER  GENERATED  OUTPUT  WAVEFORM 
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0008 
0009 
OOOA 

OOOB 

oooc 

OOOD 


eoco 


0000 
0001 


0002 


1ST  C=132,n=0,p=16c55,r=deo 
Project  I  PIC16C5X  as  a  nultlplalMI  MB 


I 


;  Rovislon  histoxyi  >  * 

04/14/93  original  -    ,  ,  ».  

. ***************** 

1  -''■]■ 


Equates 


OlFF 

pic54 

equ 

0x1  f£ 

OlFF 

pic55 

equ 

0x1  ff 

03PF 

pic5£ 

equ 

0x3  f£ 

OTFT 

pie57 

mi 

0001 

rtcc 

equ 

0002 

PC 

equ 

2 

0003 

status 

equ 

3 

0004 

far 

« 

:  ~,vrr'i.n 

0005 

tporta 

egu 

5 

0006 

portb 

equ 

6 

0007 

portc 

equ 

7 

realtime  mode  registers 
8 


currents tate 
naTiaar 

sTiaaarLoir 

sTimerHigh 

digit56 
digit34 


equ 
equ 
equ 
equ 

equ 
equ 


currentState+1 
nsTlBar+l 

aTimBrIio«H-l__ 
sTiiiierHigli4>I 
diitit56+l 


;  Misc  definitions 
FIVSMSBC 


;  Define  Reset  Vectors 

-■(•  -        I  -  - 

;  £1     .  ^ 
;  £3      ^       ;  I 

fli* :    r"'  ■'■ 

;  £6      ,       I  I 


;  Millisecond  timer 

;  Iiomr  byts  second  timer 


•  ABaiontng>-#';Sit-l|Bs-'es3r«jtal 


w 


equ 
equ 


z  equ  2 

.«  ' 

;  ^%<ffiTtsrEiaff1a's  

**************************** 

;  Port  assignments 


*********************** 


> 

; 

porta 

-  bitO: 

Coranon  Plane  0 

bitli 

Caution  Plane  0 

bit2! 

Coomon  P^ane  1 

blC3: 

Coamon  Pjam  X 

portb 

-  bitOs 

6B/DP 

* 

bitli 

6C/6D 

* 

; 

bit2: 

60/6B 

* 

bit3: 

6A/6F 

1  

T 

bit4: 

SB/DP 

'X' — 

» 

! 

bit5> 

5C/5D 

-t- 

: 

bit6: 

50/5B 

4 

bit?: 

5A/5P  

* 

; 

portc 

-  bitO; 

4B/DP 

* 

■«  W»maoeiMp  TocHmii^  Me. 
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0000  OCOl 

0001  0025 

0002  0C08 

0003  0005 

0004  OCOO 

0005  0026 

0006  OCOO 

000?  mo6 

0008  OCOO 

0009  0027 
OOOA  OCOO 
OOOB  0007 

OftOC  OCM 

ooos  mo2 

OOOE  0C60 
OOOF  0021 


-  bitl:  4C/4D 

-  bit2:  4G/4E 

-  bit3:  4A/4P 

-  bit4:  3B/VP 
;Shim>t  3C/3D 

-  bit6:  3G/3E 

-  bit7:  3A/3F 


************ 


********** 


********************* 


******************************************************** 
*************«*************.*A*.****«i*jt*«^#^ft^*^^^*^-A:M>:lk*** 


o^dateStaM 

swapf 

andlw 

call 

movwf 

swapf 

movf 
andlw 

call 

iorwf 

swapf 
aodlw 
-  t^tf- 
HKivwf 
swapf 


sTimerLow,  ^0 

Oxf 

Table 

digit56 

dlglt56,  f 

sTimefliow,  w 

Oxf 

Table 
digitse,  f 

sTimerHigh,  w 

Oxf 

Vable 

aigit34 

diglt34,  f 


movf  sTimerHigh,  w 
andlw       Oxf  - 

lozw£      dlglt34,  £ 


roovf 

movwf 

movf 

movwf 


digitW/  « 

portc 

digit56,  w 
portb 

<-  I«! 


1  Isolate  digit  5  (offset) 

J^Kc^ate-diial^t  6  (offset) 
;  Isolate  digit  5  (offset) 

;  Isolate  digit  6  (offset) 

r'^iepT^  digltB  3  &  4 
;  Display  digits  5  &  6 


;  Initialize  porta  K,  M,  and  C  and  RTCC.  In  case  of  output  data 
;  values,  set  the  data  latoh  fi£st,  then  set  the  port  direction. 


Initialize 

movlw  00000001b 


tris 

movlw 
movwf 
movlw 
tris 

movlw 
movwf 
movlw 
tris 

movlw 
c^ticai 

movlw 
movwf 


t>B®91000b 

porta 

00000000b 

portb 

00000000b 

portb 

OOOOOOOOb 
portc 
OOOOOOOOb 
portc 

0x04 


FIVEKSBC 
rtcc 


;  Set  data  latch 

.  getri4/o«  direction 

;  Set  levels  to  low 

;  Set  as  outputs 

;  Set  levala  to  low 

^11  J  -  '2 

;  Set  as  outputs 

;  Set  prescaler 

6  ;  *tee  =  5ms 
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^uj.  X  «u     ua  cts 


0012  OCOD 

0013  0029 


Wmnt  msTlmer 


;  Initialize  millisecond  biSWr 


0014  006A 
#915  OOSB 


clrf  sTimerLow 
clrf  sTimerHigh 


Cleu  second  counter 


:Mi  S*0;0 


retl* 


;  loop  taieil«t^«tesr'  «iaH»«iils^»"*-  •  • 


Wait  for  Sins  timer  timeout 


Remain  in  the 


Timer _Check 

0017  0201  novf  rtcc,  w 

0018  0743  btfss  status,  z 

0019  0A17  goto  Timer_Check 


OOIA  0C60 
OOIB  0021 


»  3 


OOie  02B9 
OOlO  0A21 


decfsz 
goto 


msTimer,  f 
l^date_Backplane 


OOIB  03BA 
OOIF  0A21 
0020  02AB 


incfsz  sTimerLow  . 
goto      x^^tftJBjic^lacw  fi^n,.!. 


PtuJatw  second  counter 


RAO  and  RAl  are  used  to  control  voltage  level  for  common  plane  0. 
'RA2  and  RA3  are  used  to  control  voltage  level  £or  ccomon  plane  1. 


There  are 

four  possible  states  wl^  ^Mt*^ 

follows: 

»  «-  '  • 

■ 

Seate  &  - 

cpO  =  +5v 

raO=l, 

ral=x 

cpl  =  +2.5V 

ra2=l. 

ra3=0 

state  1  - 

cpO  =  +2.Sv 

raO=l, 

ral=0 

ra2=l. 

ra3=x 

State  2  ' 

'.^[^  »  ^ 

raO=0 , 

ral=x 

■  t  ■  - 

eipl  »  «2.S» 

ra2s!l. 

ra3=0 

State  3  - 

CpO  =  +2.5v 

raO=l, 

ral=0 

<^1  =  Ov 

ra2=0. 

ra3=x 

.  :       Jilt  - 

1             .  <•  ' 

l^da  t  e_Backplane 


0021 

0004 

clrwdt 

0022 

00C8 

decf 

currentState, 

0023 

0E03 

andlw 

0x03 

0024 

0028 

movwf 

currents tate 

0035 

01B2 

addwf 

pc,  f 

0026 

OAAD 

goto 

States 

0027 

0A81 

gsitO' 

'Ooa« 

BASS 

ltes«|m8itia<aaB'  timer 

update  w  register 
Use  only  bitO/1 
Update  currentstate 


e.1  ■ 


State  0 


0029  03 8A 
002A  OBOF 
002B  0944 


StateO 

I^dateState        StateO,  SO_Table 

andlw  Oxf 

oall>    -  SO'.n^le 


*0trli 


!  Isolate  digit  S  (offset) 
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Using  PIC16C5X  Microcontrollers  as  LCD  Drivers 


002C 

002C 

uawt. 

d^ltSfi 

002D 

03AC 

swapf 

dlgit56,  f 

002E 

020A 

movf 

sTimerLow,  w 

002F 

OEOF 

andlw 

Oxf 

1 

Isolate  digit  6  (offset) 

0030 

0944 

call 

SO_Table 

0031 

ai2C 

lorwf 

dlgit56,  f 

0032 

03  SB 

swapf 

etimezSigh,  w 

0033 

OEOF 

andlw 

Oxf 

1 

Isolate  digit  5  (offset) 

0034 

0944 

call 

SO_Table 

0035 

002D 

movwf 

digits 4 

0036 

03AD 

smpf 

digit34,  f 

0037 

020B 

movf 

eTiamSi^,  w 

■  ^ 

0038 

OBOF 

andlw 

Oxf 

'' 

Isolate  digit  6  (offset) 

0039 

0944 

call 

S0_Table 

003A 

012D 

iorwf 

digit34,  f 

■.  '••Oil' 

003B 

020D 

movf 

digit34,  w 

; 

Diq^t^  digits  .3  4 

003C 

0027 

movwf 

portc 

003D 

02  OC 

movf 

digit56f  w 

003E 

0026 

movwf 

portb 

•■ 

Display  digits  5  £  6 

003F 

0C05 

movlw 

00000101b 

0040 

0025 

movwf 

porta 

■     -  . 

0041 

0C02 

movlw 

00000010b 

0042 

0005 

tris 

porta 

0043 

0800 

retlw 

0  1 

S0_Tabl« 

■' 

0044 

01E2 

addwf 

PC  f 

; 

Add  of  fo^  to  pB 

0045 

0804 

retlw 

0100b 

; 

.  i  I  ' 

0 

0046 

080C 

retlw 

llOQb 

f 

1                            -  ■- 

0047 

0802 

retlw 

0010b 

; 

2 

00i» 

osoo 

retlw 

0000b 

1 

3 

0049 

0808 

retlw 

1000b 

; 

4 

004A 

0801 

retlw 

0001b 

! 

5 

004B 

080P 

retlw 

1111b 

t 

6  .!■•■' 

004C 

0804 

retlw 

0100b 

1 

7  -1 

004D 

0800 

retlw 

0000b 

8 

004E 

0800 

0000b 

; 

9 

Q04F 

osoo 

ratlw 

OOOCBb 

a 

0050 

0809 

retlw 

lOOlb 

]3 

0051 

080B 

retlw 

1011b 

; 

c 

0052 

0808 

retlw 

1000b 

'  "f 

d 

0053 

0803 

retlw 

0011b 

e 

0054 

0803 

retlw 

0011b 

f                 ■     -     7,  1,-, 

;  State  1 

Statel 

T)^dateState 

Statel,  Sl_Table 

0055 

03 8A 

-  swapf 

sTlmesliOtlr,'  « 

OOSC 

OBOF 

andlw 

Oxf 

Isolate  digit  5  (offset) 

0BB7 

0970 

call 

Sl_Table 

002C 

movwf 

digit56 

0i05» 

03M: 

swapf 

dlgit56,  f 

OOSA 

020A 

movf 

sTimerLow,  w 

_>3       .  . 

005B 

OBOF 

andlw 

Oxf 

Isolate  'Mi^t  S^■l(os£fset) 

005C 

0970 

call 

Sl_Table 

- . '      -CI  > 

005D 

012C 

iorwf 

digitse,  f 

005E 

03SB 

sTiiaeBHljSt )  w 

^-141 


4isingjRflC^665X  Microcontr^l^sas  LCD  DriverX 


OOSt  OBOP 

;  Isolate  idtBte  5  ^oSfaet) 

00«0  0919 

eall 

0  M3.  oism 

movwf 

diglt34 

swapf 

digit34,  f 

0063  020B 

IDOVf 

sTimerHi^,  w 

0064  OEOF 

andlw 

Oxf 

;  Isolate  digit  6  (offset) 

00«S  0970 

e«U 

mS6  012D 

1  ■ 

0067  020D 

diglt34,  H 

0068  0027 

movwf 

portc 

0069  020C 

movf 

digit56,  w 

006A  0026 

movwf 

portb 

;  "Display  dtflta  5  £  6 

'^-|Tj»«lT»  !■--■/• 
1  y.  ^      ■» '  ' 

006B  0C05 

,  ■    •  '  t:  *'  ^ 

006C  0025 

pecta 

006D  0C08 

006E  0005 

porta 

006F  0800  araftUr  .^JO.. 


0070  01E2 

0071  0801 

0072  080F 

0073  0809 

0074  080D 

0075  0807 

0076  080S 

0077  080F 

0078  080F 

0079  0801 
007A  0805 
007B  0803 
007C  0801 
007D  0809 
007E  0809 
007F  0801 
O0tO  m93 


addwf 

retlw 
retlw 
cetlw 
ratlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 

retlw 
retlw 
retlw 
retlw 
retlw 


pc ,  r 

0001b 
1111b 
1001b 

Olllb 

OlDlb 
1111b 
1111b 
0001b 
OlOlb 

mi3i> 

000 lb 

1001b 
1001b 
0001b 
0011b 


'I  I 

c 

£ 


»  •, 

3  > 


^000  •'i  '  s  1 
rfOOOI  wUta-s 


il^iiitfeeState 


State2,  S2i^^e 


0081  038A 

swapf 

sTimerljOW,  tr 

0082  OEOF 

andlw 

Oxf 

Isolate  digit 

5  (offset) 

0083  099C 

call 

S2_Table 

0084  002C 

movwf 

digitSS 

0085  03Ae 

4igifeS$<  f 

•.•:-T  rs  .mtsz 

0086  020A 

movf 

sTlmerLow,  w 

0087  OEOF 

udlw 

Oxf 

Saotate  digit 

6  (offset) 

0088  099C 

call 

S2jrable 

iorwf 

digltse.  f 

0<m.  038B 

1. 

■i 

OOSB  KBSW 

a^ilw 

Oxf 

Isolate  digit 

S  (sffiiet) 

008C  099C 

call 

S2_Table 

w         . '        .  -  p 

008D  002O 

V  3 .  movwf 

digit34 

008B  03AD 

swapf 

digit34,  f 

008F  020B 

movf 

sTimerHighf  w 

0090  (mag 

aadlw 

Oxf 

■  Ifdt«lM«>digi!t 

fii'ntoCfset) 

0091  099C 

call 

S2_Table 

cilHilBwn>i»io 
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0092  012D  iorwf  digit34,  f 

0093  020D  movf  digit34,  w                        ;  Display  digits  3  &  4 

0094  0027  movwf  portc 

0095  020C  movf  digltSS,  w 

0096  0026  movwf  portb                              ;  Display  digits  5  &  6 


00000100b 

0098 

0025 

IROVWf 

porta 

0099 

CC02 

inovlw 

00000010b 

009A 

0005 

CflS 

porta 

009B 

0800 

0 

S2_!rable 

009C 

01E2 

addwf 

pc,  f 

009D 

OBOE 

retlw 

1011b 

0 

0098 

0803 

retlw 

0011b 

1 

009F 

080D 

retlw 

1101b 

2 

00  AO 

080F 

retlw 

1111b 

3 

OOAl 

0807 

retlw 

0111b 

4 

00A2 

OBOE 

retlw 

1110b 

5 

00  A3 

OBOE 

retlw 

lHOb 

6 

00A4 

080B 

retlw 

1011b 

7 

00A5 

OSOF 

retlw 

1111b 

8 

00A6 

080F 

retlw 

1111b 

9 

00A7 

oeoF 

retlw 

1111b 

a 

OOAS 

0806 

retlw 

oiin> 

b 

06A9 

0804 

retlw 

0100b 

c 

OOAA 

0807 

retlw 

0111b 

d 

OOAB 

OSOC 

retlw 

1100b 

e 

OOAC 

080c 

retlw 

llOOb 

f 

;  State  3 

State3 

Updates tate 

State3 , 

S3_Table 

00  AD 

03  8A 

swapf 

sTlmerLow,  w 

OOAB 

OBOP 

andlw 

Oxf 

;  Isolate  digit  5 

(offset) 

OOAF 

09C8 

call 

S3_$able 

oobo 

002C 

movwf 

di9it§6 

OOBl 

03  AC 

swapf 

digitSe, 

f 

00B2 

02  OA 

movf 

sTimerLow,  w 

O0B3 

OEOF 

andlw 

Oxf 

;  Isolate  digit  6 

(offset) 

call 

S3_Table 

GOBS 

012C 

loxwf 

digltS6, 

f 

0036 

038B 

swapf 

sTimerHigh,  w 

0OB7 

OEOF 

andlw 

Oxf 

;  Isolate  digit  S 

(offset) 

00B8 

09C8 

call 

S3_Table 

00B9 

002D 

movwf 

digit34 

OOBA 

03AD 

swapf 

digit34, 

f 

OOBB 

020B 

movf 

STimerHigh,  w 

OOBC 

OEOF 

andlw 

Oxf 

;  Isolate  digit  6 

(offset) 

OOBD 

09C8 

call 

S3_Table 

OOBE 

012D 

iorwf 

digit34, 

f 

OOBF 

020D 

movf 

digit34, 

w 

;  Display  digits  3 

&  4 

OOCO 

0027 

movwf 

portc 

OOCl 

02  OC 

movf 

digitSe, 

w 

00C2 

0026 

movwf 

portb 

;  Display  digits  5  £  6 

®      IMocliilp  Teetvwlosy  Inc. 
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00C6  0005 


porta 


00C7  0800 


OOCS  OlfeZ 


OOCB 
OOCC 
OOCD 
OOCE 
OOCF 


OODl 
00D2 
00D3 

00D4 
00D5 
00D6 

oim 


owe 

0806 
0802 
0808 
080A 
080E 

amo; 

OBOE 

080A 
080C 
080E 
0806 
0806 


addwf 

retlw 
retlw 
cetlw 
retlw 

retlw 
retlw 
retlw 
zetlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
eetlM 
£ei:lw 


PC,  £ 

1110b 
OOOOK 
01l6h 

ooiob 

1000b 
1010b 
1110b 
OOOOb 
1110b 
1010b 
1100b 
1110b 
0110b 
0110b 
lilOb 

iiosb 


0009  0900 


00D&  0917 

ooDB  omk 


OlFF  0AB9 


:StMft 

call 
eall 

org 
Sys  tem_Reset 


Initialize 
pieSS 


goto 


Errors 
Wariiings 


,  I.E.  .tit, 
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PLD  Replacement 


lINTMOiXICTiON 

The  PIC16C5X  microcontrollers  are  ideal  for  implement- 
ing low  cost  combinational  and  sequential  logic  circuits 
that  traditionally  have  been  implemented  using  either 
numerous  TIL  gates  or  using  pnogramrnabia  logic  ctiips 
■suehasPLAsor@»l|p8. '  i  '  ;  ij  I  !  '  i  '  I 

I PIG16CSX  is  a  fai^r  0^hjgH<*p9iiMijMince  8-bit  micro- 
'ecntrolteis  from  MteocMp  ? Ty;hre»lqgy.  It  employs 
{ HarviMd  an^ttei%As|tKM@k^^iWli 
land  a  progmm  bilN&  j[f2-tMtii^)'.  itf 
,  single  word  and  e9aKiiit»iri|(^Mile<«xbept  for  program 
branches.  TTieinsMidpi  e^lewneli&OO  ns  at  20  MHz 
^and  faster  veisions  «^  dock  frequency  of  20  MHz 
(instnidion  cycle  =!2pQns)  are  planned.  The  PIC16C5X 
microoontrotlers  are  ideal  for  PLO-typa  appfication  be- 
cause: 


*  Very  low  cost.  Extremely  cost  effective  to  replace  TTL 
gates  or  expensive  EPLD's. 

*  Fully  programmable.  PIC16C5X  microcontrollers  are 
offered  as  One  Time  Progiammable  (OTP)  EPROM 
devices. 

*  Available  off  the  shelf  from  distributors. 

*  PC  board  reai  estate  saving  can  be  substantial  when 
replacvtg  RiuttUiKle  of  TTL's  or  several  PLD's  with 

'  PtCI^SX  mioioeontrollers  wttich  are  packaged  in  18 
I  and  as  pfei  pacM^  (QtPi^^PtjSZ,  SOIC).  ,  ^ 

'*  Sdbs&Mal  powarWi^ca^btdtabMd  by  using  ^ 
PiC16(^sSl£BPm^^tajibinodetypi^ 
ooiiaitnpiion  of  PlCieS^^PIss  flian  luA. 

*  PiCiec^s  I/O  ports  are  i>felirecaonal  ami  s»Rwem 
ewtflgtiii^e  as  input  or  ou^.  The  user  mix  and 
iteteh  nuinbercf  il^ytsorotl^Mtfs  astongmthst^ 
does  not  exceed  20  (PtC16(^S^S7). 

*  PICieCSX's  output  pins  have  large  cun^t  source/ 
sink  capability.  They  can  directly  drive  LED's. 

*  Thespeedandefficiency  of  the  PIC16C5Xalk>wsitto 
perform  other  control,  timing,  and  compute  functtons 
in  additkin  to  implementing  a  PLA  function.  r 

IMPLEMENTING  A  PLA 

To  implement  a  generic  combinational  logic  function,  we 
can  simply  emulate  an  AND-OR  PLA  in  software.  This 
will  require  that  the  logic  outputs  be  described  as  sum  of 
products.  To  describe  our  algorithm ,  we  will  use  a  simple 
8-input,  8-bit  output  PLA  with  24  product  terms 
(Figure  1).  We  will  further  use  the  truth  table  in  Figure  2 
as  the  PLAfunction  fctejng  implemented.  In  this  example, 


only  four  inputs  (A3:  AO)  are  used  and  the  other  four 
inputs  (A7:  A4)  are  don't  care.  On  the  output  side,  seven 
output  pins  (VS:  YO)  are  used  and  Y7  is  unused.  To 
implement  this  PLA,  the  logic  inputs  A0,A1  ,...^7  can  be 
connected  to  port  RB  pins  RB0,RB1  RB7  respec- 
tively. The  logic  outputs  Y0,Y1  Y7  will  appear  on  port 

RC  pins  RCO.RCI  RC7  respectively.  Port  RB  is  con- 
figured as  input  and  port  RC  will  be  configured  as  output. 
To  evaluate  each  product  term  one  XOR  (exclusive  OR) 
and  one  AND  operation  will  be  required.  For  example,  to 
determineproducttermPS = A3.A2.A1  AO ,  the  expres- 
sion to  evaluate  is: 

(ASr^ls-.XCift.  )(360<ffl6l  1 B )  .AND.  00001 1 1 1 B). 

The  constant  with  which  XOR  is  done  will  be  referred  to 
as  P3_x  in  our  discussion.  P3_x  =  XXXX0011B  will 
ensure  that  if  A<3:0>  =  001 1 B,  the  least  significant  4  bits 
of  the  result  will  be  0000b.  The  AND  constant,  referred 
to  here  as  P3_a  (Product  temn  3,  AND  constant)  basi- 
cally eliminates  ttie  don't  care  inputs  (here  A<7:4>)  by 
masking  them.  Therefors,  |hfttie  result  of  the  XOR-AND 
operation  is  zero  then  P3  =  1  else  P3  =  0.  Once  the 
Product  temis  are  evaluated  they  are  stored  in  four 
product  registers  Preg_0  to  Preg_3.  To  determine  an 
output  term: 

Y0  =  P0+P2+P3+P5+P6  +  P7  +  P8  +  P9+P10  +  P12 
+  P13  +  P14 

weineed  to  evaluate  the  following  expresston: 

XPlSgua  MK).  OR_aO)  OR.  (Preg_b  .AND.  OR_b0) 
.Oft.  (Preg_c  .AND.  OR_cO) 

In  our  case  the  constant  values  to  implement  YO  are  as 
follows: 

OR_aO=    1110    1     10  1 
P7  P6  P5         P3    P2  PO 

OR_cO  =  00000000 

For  larger  number  of  inputs,  outputs  or  product  terms, 
the  evaluation  will  be  more  complex  but  following  the 
same  principle.  Appendix  A  shows  the  assembly  code  to 
implement  this  8  input  X  8  output  X  24  Product  PLA.  This 
example  optimizes  speed  as  well  as  program  memory 
requirement.  Appendix  B  shows  a  slightly  different  imple- 
mentation (only  EVAL_Y  MACRO  is  different)  that  opti- 
mizes program  memory  usage  over  speed.  Table  1 
shows  time  and  resources  required  to  implement  differ- 
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FIGURE  1  -  A  SIMPLE  PLA 


AND  Plane 


OR  Piano 


1 


P23 


P22 


P21 


P20 


P3 


P2 


P1 


PO 


J 


Y 


Y 
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FIGURE  2  -  BINARY  TO  7-SEGMENT  CONVERSION  EXAMPLE 


A3>- 
A2C>— 
A1  C>^ 
/«)>- 


BINARY 
INPUT 


7-SEG 
OUTPUT 


7-SEG  CONVERTER 
(C0MII«3N  CATHODE) 


->SEGO 
->a6G1 
->SEG2 
->SEQ3 
-C>  SEQ4 

*®  Si»  iiq  leatayi  aUi . 
-{>3it«         .Aur  net' 


■  .  '1,1  <  -(.,- 


Truth  Table: 


HEX 

A3 

m- 

.to 

YO 

Y1 

Y2 

Y3 

Y4  Y5 

Y6 

0 

0 

0 

0 

0 

1 

1 

1 

1 

1  1 

0 

PO  =»,AZ.AT,  AS 

1 

0 

0 

0 

0 

1 

1 

e.-. 

■  «»• 

0 

PI 

2 

0 

0 

1 

0 

1 

1 

P2 

•  c.^i'c  ii'!on 

3 

0 

1 

1 

1 

0  0 

1 

P3 

4 

0 

1 

1 

0 

0  1 

1 

P4 

S 

0 

0 

1 

1 

0  1 

1 

P5 

6 

0 

0 

1 

1 

1  1 

1 

P6 

-  '       *  i    '  1. 

7 

0 

1 

1 

0 

0  0 

0 

P7 

8 

0 

1 

1 

1 

1  1 

f 

■» 

.»(>>■•■  I'll' 

S 

0 

1 

1 

0 

0  1 

1  ■ 

A 

0 

1 

1 

0 

1  1 

1 

P^o 

B 

0 

0 

0 

1 

1  1 

1 

P11 

r  ■ 

C 

1 

0 

0 

1 

1  1 

0 

P12 

D 

1 

1 

1 

1 

1  0 

1 

P13 

E 

1 

0 

0 

1 

1  1 

1 

P14 

F 

1 

e 

0 

0 

1  1 

1 

Product  Tomis 
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^^meSPONSE  TIME 

I  Ti3i@^ei®i  ni^MmaUme  of  a  PLA  implemented  in 
I  IhlyfiisliloncanbacaleuWedasfqjiows.  Rrst,  wedeflne 

Die  worst  easiB  pregramteanchfe  am^takart.  th«l  the 
maximum  propagation  delay  time  from  input  change  to 
valid  output  =  2td.  This  is  t>ecause  if  an  hput  changes 
just  al^  the  pragiam  reads  fcipi£|XHt.  its  eAort 

i  shew^untllt^|pQigramoQn^Ma«tlia«iin^ 
tloR^i^,  ra-rMdstapiittaRcMaact^^  Tfiiste 

{ shfi^lQ  l%iriaJ1i^W»«li»^4i 

I  flmesMasaaMeinpu^ 

I  bagtajiligiathwthanexecMasttipraalo^ 

A  Table  Look-Up  Mdhbd  For  l^{H^I]»LA 
Implementation 

if  the  number  of  inputs  is  small  (8  or  less)  then  a  simple 

table  look-up  method  can  be  used  to  implementthe  PLA. 

This  will  Impiove  execution  time  to  around  5  \is 
'.  (OS  IMzinpwdock).  HwMiBWlng  code  implements 
'  ttia      to  T-sagmant  ooiwaMon  (Figure  2)  using  this 

technlqua. 


J 


begin 

movlw 

Offh 

tris 

6 

Port_b  =  input 

clrw 

tris 

7 

Por  t_c  -  ou  tpu t 

P©ri_^, w 

Read  input 

4 

andXw 

Ofh 

HasK  orr  Dies  /:« 

1 
1 

call 

op_tbl 

movwf 

Port_c 

Write  output 

goto 

pla88 

PC          ■ "' 

rCosputed  juBS»  foe 

table  look-up  1 

retlw 

b-OOllllll' 

retlw 

b'OOOOOllO' 

j 

reitlif 

b-01011011" 

1 

'  *A   W  JiW  w  ^  X  ^  A 

b'oiioono- 

b'OllOllOl' 

retlw 

b'OlllllOl' 

retlw 

b-00000111' 

retlw 

b'Olllllll" 

'b»^lti^ll- 

retlw 

K*ni 1 1 01 1 1  * 

'retlw 

b*t)iiiiot»o* 

retlw - 

retlw 

b-oiOiiiio* 

retlw 

b''01111O01- 

retlw 

b'OlllOOOl- 

TABLE  1  -  EXECUTION  TIME  AND  RESOURCES  NECESSARY  FOR  DIFFERENT  SIZE  PLA'S 


Number  of 

Inputs 
Including 
fdbk 

Numbef  of 
Outputs 
Including 

fdbk 
and  o/e 
Control 

Number  of 
Products 

Number  of 
RAM  Locations 
Required  NRAM 

f^kimberof 
Progroift  Memory 
LocMoiw  Itequlred 

Number  of 
Instruction 
Cyde  To 
Bcecute 
PLA  NCYC 

Real  Tim© 
e  20  MHz  to 
Execute  PLA 

'^'^ 

\ 

228 

-  228 

46.6)13 

Time  Efficient 

'A  222 

352 

70.4  ms 

Code  Efficient 

■  :■  nc>!  ■ 

a,  ■ 

8 

„  4B 

8 

447 

447 

89.4  ^s 

Time  Efficient 

13 

384 

5% 

107  ms 

Code  Efficient 

16  . 
.  ilewati-r- 

16 

64 

ii'liU  I.I 

12 

1042 

1042 

208.4  ms 

Time  Efficient 

22 

843 

1250 

250  ms 

Code  Efficient 

Z) 

A  .  .  .J 

at 

80 

16 

1661 

1661 

372.2  ms 

Time  Efficient 

« 

'  1468, 

444.2  ms 

Code  Efficient 

■   ti,K>  tf.iil-*  *1B  He''/  iti'+'v  )o    V                               '              1  '       '-  - 

>  N         Wfaafi  gyirite^'           rNl       llaa  NRAMaNIW  +  NOW  +  NPW:Tiiraefficiant 

MW        tllMiir JlKtmirrtn  tm     u                  NRAMaNIW  +  NOW  +  2NPW  +  2:Codseffi<aent                   '  1 

•  KHffiifSniA                    rN5l        NROM0  8  +  NPW  +  NOW  +  NPJ2  +  3NIW]4^>NPW>4:Tim*«llllcient 
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FIGURE  3  -  PLA  PROGRAM  FLOW 


Read  Inputs 


Evaluate  Product 
Terms 

.  Evaluate  Ouput 
.  Terms 

i.Taai  eas3  icMW  iw 
'•nfni  ry        ^^rs  >r"^'  ■ 


td 


Write  to  Output 
Ports 


Avery  fliBlftfbMwililRn^^ 


Input  _a 


lnpiit_b 


X 


Output  _x 


X 


X 


I  NewvaM 
>J  Output 


"tprop  -  2td~ 


More  complex  program  flow  can  be  used, 
such  as  this  one  to  reduce  tprop. 
In  this  example  td  <  t  prop  <  td  +  td3 


In  this  simple  implementation,  the  maximum 
delay  from  input  change  to  output  change  Is 


propragation 


'Hi«r&it»w:»jri ' 


I^URE  4  -  AN  ASYNCHRONOUS  STAtt 
MACHINE  i 


IMPLEMENTING  AN 
ASYNCHfK^Nit^lirAtl  

The  concept  can  be  easily  extended  to  implement  se- 
quential logic  i.e.  a  state  machine.  Figure  4  shows  a 
state  machine  with  n  inputs  (AO-An),  m  outputs  (YO-Ym) 
and  p  steites  that  f  eedliack  ^  inputs  to  the  PLA  (FO-Fp) . 
In  PIC16C5X  the  states  «M  be  storad  bits  in  RAM 
location.  Input  wHI  nowriisan  IWpai>Dm>portas  we^^ ' 
from  the  feedback  registers!  Figure  5  shows  an  «ampls  | 
PLA  with  eight  inputs  A0,A1  ,..,A7  that  are  conneibted  to ' 
.pDlLBBplnsBB(l^Bt.«jitlt7..Tliis  example  PlAhasA 
total  of  24  outputs  of  which  eight  are  actual  outputs, 
another  eight  are  output  enable  control  for  the  outpute. 
and  the  other  eigfM  are  feedbacks  (or  states) .  The  PLA ! 
.shown  here,  therefore,  in  essence  implements  ana^n- 
^Cltfonous  state  machine  (i.e.  there  Is  no  system  ckick). 
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This  example  shows  16  inputs  (including  feedback),  64  product  terms  and  24  outputs 
including  feedback  and  o/e  control.  This  example  demonstrates  that  o/e  control  is  easily 
Implementable  using  PIC16CSX's  bkjirectk>nal  potts  with  Tri-State™  control. 
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FIGURE  6  -  A  SYNCHRONOUS  STATE  MACHINE  IMPLEMENTATKW- 


Evaluate  PLA 
outputs 

i 


Output  YO  -  Yi 


Output 
FOm  -  Fpm 


Yas 


^ 
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Flowchart  for  implementing  synchronous 

state  machine.  Clock  is  Input  to  an  I/O  port. 
Fmaster  and  Fslave  are  RAM  locations  that 
store  state  variables  FOm,  ...Fpm  and  FOs, 
...  Fpe  rsspectively. 
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IMPLEMENTING  A  SYNCHRONOUS 
STATE  MACHINE 

In  a  synchronous  system  (see  Figure  6)  usually  all 
inputs  are  stable  at  the  falling  edge  (or  rising)  edge  of  the 
system  clock.  The  state  machine  samples  input  on  the 
felling  edge,  evaluates  slate  and  oidput  information. 
The  state  ou^Hits  are  latched  tiy  the  rising  edge  of  the 
clockl>ef6refeedingthembacktothe  Input  (sothedthey 
are  stable  at  the  falling  edge  of  the  ded^.  To  implement 
sueh  a  st^  machine,  the  system  clock  wHI  have  to  be 
ttoNed  by  an  input  phi.  When  a  falling  edge  is  detected, 
fte  PLA  waluatkm  procedui»  tiiil  |»  iMBlswi  teM- 
pOa  outputs  and  write  them  ti>  au^^iw.  1i»  MJk 


procedure  will  also  determine  the  new  state  variables, 

FOm,  F1m  Fpm  and  store  them  in  RAM.  The  program 

will  then  wait  until  a  rising  edge  on  the  clock  input  is 
defected  and  copy  the  "master"  state  variables 
(FOm,.., Fpm)  to  slave  state  variables  (F0s,F1s,..,Fps). 
This  step  emulates  the  fBedback  flip-fiops. 

SUMMARY 

in  conciuskm,  the  PIC16C5X  can  implement  a  generic 
PLAequaUonandprovkJequk;k,  bwcostsdlUliMllWm 
system  opentkm  speed  is  not  critical. 
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PLD  ReplaceiTieiit 

APPENDIX  A:  PLA  IMPLEMENTATION:  THM&En^CI^  APPROACH       ^  h 

MPASM  BO .  54  "  '    '  ^'-'^  '  '  •  nitS  1 

.  .  ,1      -       ;  '  E.     -  -I 


********************************************************************** 

plala.asm  : 

This  procedure  Is^lenenta  a  simple  AND-OR  PUl  with: 

8    inputs  i'  MuM  A2  Al  AO 

24  product  terras  :  =  P23  P2S2  . . .  V?'PO 

8    outputs  1=  Y7  Y6-1TS  Yt^m  Y2  Yl  YO  « 

■tj. 

eight  inputs  are  assumed  to  be  cormected  to  P^tT'*ldl  such  that 
RBO  =  AO,   RBI  =  Al,    ...    ,   RB7  =  A7 .  •  " 

The  outputs  are  programmed  to  appear  on  port  RC  su^  that 
RCO  =  YO,   RCl  =  Yl,    ...    ,   RC7  =  Y7. 

This  inpleniantatlon  c^ti^iSSS  'Woth  sfiBttd  &  program'mnory  usage 
******************* ft***********************************^^  ******** ******  ' 


define  RMI  locations  used: 


LIST 

'V  - 

O0OC 

input 

e<^ 

;RMi  location  12  holds  input 

OOOD 

T.jreB 

•«a 

d'13' 

; holds  output  result 

OOOB 

Preg_a 

equ 

d'14  ■ 

; Product  terms  PO  to  P7 .   Preg_a<0>  =  PO 

OOOF 

Preg_b 

equ 

d'15' 

; Product  terms  P8  to  P15 .   Preg_b<0>  =  PS 

0010 

Preg_c 

equ 

d'16' 

; Product  terms  P16  to  P23.  Preg_o<0>  = 

PI  6 

;  define  sos 

Bs  eeBstant4.'iilS^'flI#i4addrelHWs: 

r   r   ■  ■   

0000 

bitO  ' 

'  '  equ 

.■0-        -  .  u 

0001 

bitl 

equ 

1 

0002 

bit2 

equ 

2 

0003 

bits 

equ 

3  'J 

0004 

btt4 

•W 

HJ  <  .1- 

0005 

bits 

equ 

■  9'  . 

0006 

bit*    "V  ■  -■• 

-  '  equ 

6 

.t;i 

0007 

bit? 

equ 

7 

0003 

status 

equ 

3 

0006 

port_b 

equ 

6 

0007 

port_e 

equ 

'■■(.   ;!  f  A 

■  ■ 

;  define  Ule  iHS  plane 

progranming  varijridles: 

0000 

PO_x 

equ 

b' 00000000 ■ 

OOOF 

PO_a 

equ 

b'OOOOllll' 

0001 

Pl_x 

equ 

b'OOOOOOOl' 

OOOF 

Pl_a 

equ 

b'OOOOllll' 

0002 

P2_x 

equ 

b' 00000010' 

OOOF 

P2_a 

equ 

siiM'00<B«tKl ' 

{TV 

0003 

P3_3C 

equ 

b'OOOOOOll' 

OOOF 

P3_a 

eqa 

b'OOOOllll' 

0004 

P4jc 

•qu 

b'OOOOOlOO' 

OOOF 

P4_a 

equ 

b'OOOOllll' 

0005 

P5_x 

equ 

b'OOOOOlOl' 

OOOF 

P5_a 

equ 

b'OOOOllll' 

0006 

P6_x 

equ 

b' 00000110- 

ooor 

P6_a 

\*^^  ■- 

ufau' OOOOIUI^' 

0007 

P7jc 

equ 

b' 00000111- 

t 

0007 

P7_a 

equ 

b'OOtOlttl' 

0008 

P8_x 

equ 

b'OOOOlOOO ' 

OOOF 

P8_a 

equ 

b'OOOOllll' 

0009 

P9_x 

equ 

b' 00001001' 
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PLD  Replacement 


OOOF 

P9_a 

equ 

b'OOOOllll' 

■  ■ /■ 

OOOA 

P10_x 

equ 

b'OOOOlOlO' 

OOOF 

P10_a 

equ 

b'  00001111 ' 

OOOB 

P11_X 

b'OOOOlOll ' 

OOOF 

Pll  a 

eou 

b'OOOOllll ' 

DOOC 

e^ 

b'OOOOllOO' 

COOP          • *  > 

•  b'OOOOllll' 

GOOD 

P13_X 

ecpi 

b'OOOOllOl ' 

OOOF 

P13  a 

b'OOOOllll' 

OOOE 

P14  X 

b'  00001110 ' 

OOOF 

P14  a 

eau 

b'  00001111 ' 

OOOF 

P15  X 

equ 

b'OOOOllll ' 

OOOF 

PIS  a 

-  ■       ■  ■  •      — #  AMRI 

1/  i        '.1  ■ 

b'  00001111 ' 

0000 

P16_>: 

equ 

b'OOOOOOOO' 

0000                 - ^ 

P16  a 

Si/    vwWWWW.V    '    .  1: 

0000 

P17  X 

equ 

b'  00000000 ' 

0000 

P17  a 

equ 

b'  00000000 ' 

0000 

P18  X 

equ 

b'  00000000 ' 

'•m   .v»  *  Vv>M 

0000 

P18  a 

equ 

K'  nnnnnnnn ■ 

•  ~  iit'anannonn  ■ 

;  r  .  JB  WUUUWUUU 

g      f  yai  -IrtT 

0000 

P19  a 

ega 

h'OOOOOOQO ' 

0  WWwWWwUw 

0000 

P20„a 

equ 

b'OOOOOOOO' 

0000 

P21_x 

equ 

b'OOOOOOOO' 

0000 

P21_a 

equ 

b'OOOOOOOO' 

0000 

P22_x 

equ 

b-00000000' 

0000 

P22_a 

equ 

b' 00000000 ■ 

0000 

P23_x 

equ 

b'OOOOOOOO' 

0000 

P23_a 

equ 

b'OOOOOOOO' 

;   define       tj^MWotS^ograinming  variables 

X 

OR_a0 

equ 

b'lllOllOl' 

' 

£ojr  output  yo 

00D7 

OR_b0 

■  isequ 

b'llOlOlll'  .JJ 

0000 

OR_cO 

equ 

b'OOOOOOOO ' 

! 

009F 

OR_al 

equ 

b'lOOlllll' 

'* 

0027 

OR_bl 

equ 

b'OOlOOHl' 

* 

0000 

OR_cl 

b'OOOOOOOO' 

CO'.'; 

oofb 

0R_a2 

«cpi 

b'lllllOll' 

9 

rof) 

002F 

0R_b2 

equ 

b'OOlOllll ' 

0000 

0R_c2 

equ 

b'OOOOOOOO' 

006D 

0R_a3 

equ 

b'OllOllOl' 

£o3r  output  y3  

0079 

equ-. 

b' 01111001' 

'  ' 

0000 

0R_c3 

equ 

b'OOOOOOOO' 

0045 

0R_a4 

equ 

b'OlOOOlOl'  , 

cc 

0  OFD 

0R_b4 

equ 

b'llllllOl' 

d*'  ■ 

0000 

0R_c4 

equ 

b'OOOOOOOO ' 

■  ■' 

0071 

0R_a5 

equ 

b'OlllOOOl ' 

fox  output  x5 

OODF 

0R_b5 

V viequ 

b'llOlllll' 

0000 

0R_c5 

equ 

b'OOOOOOOO' 

007c 

0R_a6 

equ 

b'OlllllOO' 

fox  output  Y6 

OOEF 

0R_b6 

b'lllOllll' 

0000 

0R_c6 

aqu 

b'OOOOOOOO' 

0000 

equ 

b'OOOOOOOO' 

£o]r  outputs  y7iT 

0000 

ORJ>7 

equ 

b'OOOOOOOO' 

IT  if 

0000 

equ 

b'OOOOOOOO ' 

t 

1 

r 

>  .  . 

Mr  ^i^o 

begin 

■) 

.  -n 

org 

OOOb 

t 

0 

;  define  wteeco  to  evaluate  1  product  (AND)  tezm:  ^  i 

mmm02  main  csall       plaSS  ;^ 

aati  dfcoo  goto    ,  inftioi.  .  .^^  .,_£<i 

;  I    'k^liUOfro  -a        upe  c_s .  : 


PLD  Replacement 


la-  btfsc  stai:.us>bit2 

bsf  Preg_x,bit_n 
ENDM  .  -  '  .  .1  _ 


skip  if  z«r©  bit  B#b  sftst 
product  =  1 


0002  OCFF 

0003  0006 

0004  0206 

0005  002C 

0006  ooes 

0007  006F 

0008  0070 

0009  006O 


OOOA  020C 
OOOB  OFOO 
OOOC  OEOF 
OOOD  0643 
OOOE  050E 


OOOF  020C 

0010  OFOl 

0011  OEOF 

0012  0643 

0013  0S2E 


define  macro  -to  load  OR  terp  conabitebs: 


■WXIStiX  jWiSSO      OR_an,Ott_b<>, CS<^n,bitui.' 


SETBZT 


pla83 


LOCAL 

SETBIT 

movf 

Preg_a , W 

andlw 

OR_an 

btfss 

status, bit2 

goto 

SETBIT 

Pre&Js.W  r.j-t? 

«_bn 

«i^Ba».,ta.,e2!  ■.' . 

gefeo-  • 

movf 

Preg_c ,W 

andlw 

OR_cn 

3st€sa 

statua>bit2.  i"- 

bsf 

y_reg,bit_n 

ENDM 

PLA  evaluation  procedure 

movlw 

Offh 

:tr-i,s  - 

6 

port_b  =  iliptt 

movf 

port_b,W 

read  input 

movwf 

input 

store  input  in  a  register 

clrf 

Preg_a    '     ' :  : 

clear  Product  register  a 

clrf 

Preg_b 

clear  Product  register  b 

clrf 

Preg_c 

clear  Product  register  c 

clrf 

V_reg 

clear  output  register 

.EVAL_P  Preg_a,bitO,PO_3C,P®i,»-' 
jnovf      input ,  W 
.  .9to»lw     PO^x  • 
andlw  PO_a 
btfsc     status, bit2 
bsf  Preg_a,bitO 

.■m^^V  Preg_a,bitl,Pl_x,Pl_a 


skip  if  zero  bit  not  set 
product  term  =  1 


sec.-' 


AftiO 


laEirlw 
andlw 
btfsc 
bsf 


input, W 

iPl_x  • 
Pl_a 

status , bi t2 
Preg_a , bitl 


skip  if  zero  bit  not  set 
product  term  =  1 


EVAL_P  Preg_a,bit2,P2_x,P2_a 


0014  020C 

0015  0F02 

0016  OEOF 

0017  0643 
0013  054E 


movf 

andlw 
btfsc 
bsf 


input, W 

"92^ .  ' 
P2_a 

status, bit2 
Preg_a,blt2 


skip  if  zero  bit  not  set 
product  term  =  1 


EVAL_P  Preg_a,bit3,P3_x,P3_a 


0019  02ac 
OOIA  0P03 

OOIB  OEOF 
OOlC  0643 
OOlO  056E 


movf 
xorlw 

andlw 
btfsc 
bsf 


input , W 
*3_x  r. 
P3_a 

status, bit2 
Preg_a,bit3 


sicip  If  zero  bit 
p3:o#ietL  tetm  =  1 
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OOIB  a20C 

OOIF  0F04 

0020  OEOF 

0021  0643 


l«a  tier. 


BVAI^P  Freg_a.t>it4>M^,P4_a 
mavf       inimt.ir-'  • 

xorlw  P4_x 
andlw  P4_a 
btfsc      status, bit2 
:  baf  Freg_a,bit4 


skip  if  zero  bit  not  set 
^oduct  tezm  s  1 


0023  020C 

0024  0FO5 

0025  OEOF 
m3»  fflSAS 


0028  020C 

0029  0F0£ 
002A  OEOF 

'mim  mm 

'0036'  tfStM 


WTKUJ  Pj5«suafblt5,PSjt,P5_a 

•aAtlui:t#t!0B'<  HO  t-'»<-/. 
btfac  Btatns.bitS 
baf  .1  Pj«a-«t>^5 

EVM,_P  Preg_a,bit6,P6_x,P6_a 
movf        input, W 
;  xarlw  -« .  Si.  J&J  • 

aadtw     W_a  ris-.iz 
btfsc     status, bit2 
bsf         Preg_a,ldl:S  ' 


skip  if  zero  bit  not  set 

pi^bSti&t  telat  °  1 


skip  if  zero  bit  not  set 
{acmSttct  tezn  •  1 


002D  020C 
002E  0FO7 
002F  OEOF 
0030  «^ 
0031 


BVHt_P  Preg_a,bit7,P7_x,P7_a 
movf        input,  W 


xorlw 
iuidlw 
btfsc 
bsf 


P7_x 
P7_a 

statua.bjsfeS. 
PriBiaJr,b*e»  - 


if  zero  bit  not  set 
XWmfliict  term  ^  1 


0032  020C 

0033  0F08 

0034  OEOF 

0035  0643 
OaSfi  9$SF 


EVAl4_P  Preg_b,bitO,P8_x,P8_a 
movf  ii^utfW' 
xorlw  P8_x 
aadlw     P8_a  fin 
'  i-'-'r     btfsc     Status, bit2 
bsf  Preg_b,bitO 


;  «3ei9  if  zero  bit  not  set "  ''^ 
;  product  tersi  «  1 


0037  020C 

0038  OF09 

0039  OEOF 
0a3A  0643 
003B  as3w 


EVaL_P  Preg_b,bitl,P9_x,P9_a 


movf 

xorlw 

andlw 

btfsc 

bsf 


input , W 
P9_x 

status,bit2 

Preg_b,bitl 


skip  if  zero  bit  not  set 
^£@duct  term  »  1 


003C  020C 
003D  OFOA 
003E  OEOF 
003F  0643 
0040  0S4F 


EVAL_P  Preg_b,bit2,P10_x,P10_ 
movf        input , W 
xorlw  P10_x 

btfsc      status  ,bit2 

bsf  Preg_b,bit2 


skip  if  2«:e  bit  not  set 
i^Hbdnct  term  =  1 


0041  020C 

0042  OFOB 

0043  OEOF 

0044  0643 


0046  020C 

0047  OFOC 

0048  OEOF 

0049  0«43 
004%  fifiW 


004B  020C 
004C  OFOD 
004D  OEOF 
004S  0643 
004F  05AF 


X  • 


EVAL_P    Preg_b , bi  t3 , PI  l_x , Pll_a 
movf        input, W 
xorlw  Pll_?c 
-,     maSMm '  ■  ^S;^  '        ic  ' 
btfsc     status ,bit2 
bsf  Pres^MM£#° 

BVAL_P  Preg_b,bit4,P12jt,P12_ 
movf        input ,  W 
xorlw  P12_^ 
1  -     andlw  J  jajiiia  < 

btfsc     status, bit2 
bBj^:  Prea_b,bL|i^i'i 

EV»L_P  Preg_b,bit5,P13_x,P13_ 
movf        input , W 
xorlw  P13_x 
i'-^  andlw  P13_a 

btfsc  status, bit2 
bsf  Preg_b,bit5 


i  skip  if  zero  bit  not  set 
;  j^fioduct  term  >  1 


skip  if  zero  bit  not  set 
product  term  >  1 


skip  if  zero  bit  not  set 
product  term  =  1 


jia8BC|C»l»Gpl|piO 
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0050  020C 

0051  OFOE 

0052  OEOF 

0053  0643 

mm  mew 


0055  020C 

0056  OFOP 

0057  OEOF 

0058  0643 

«cs»'  mat 


Preg_b,bit6, P14_x, P14_a 
novf  ii^ut.W 
xorlw  P14_x 
andlw  P14_a 
btfsc  status,bit2 
b>f  '^■•|^feMl9i«»ei''<} 
♦rwii-:  •■-■J 

■  wm^  =>.■■.,- 

xorlw  P15_x 

andlw  P15_a 

btfsc  status, bit2 

haC  PregJs.bitV 


skip  if  zero  bit  not  set 
pcodact  taxm  1 


skip  if  zero  bit  not  set 


005A  020C 
005B  OFOO 
005C  OEOO 
005D  0643 
005E  0510 


B«MCl.P  Preg_c,bitO,PlS_jt,*t«^ 


movf 

xorlw 

andlw 

btfsc 

bsf 


input, W 

P16_x 

P16_a 

status , bit2 
Preg_c,bitO 


skip  if  zero  bit  not  set 
product  term  =  1 


O05F  020e 

0060  OFOO 

0061  OEOO 

0062  0643 

0063  0530 


EVJU^P  Preg_c,bitl,P17_x,P17_a 

xorlw  P17_x 

andlw  P17_a 

btfsc  status,bit2 

bsf  Preg_c,bitl 


skip  if  zero  bit  not  set 
product  term  =  1 


0064  02ac 

0065  OFOO 

0066  OEOO 

0067  0643 

0068  0550 


BWkl^P  Preg_o,bit2,P18_x,P18_a 
nearf       ^uBllAvW  ^ 
xerlw     PH3t=         ^  ■ 
andltt  i  P18_a 
btfsc      status,  bit2 
bsf  Preg_c,bit2 


skip  if  zero  bit  not  set 
product  term  ~  1 


0069  020C 
006A  OFOO 

006B  OEOO 
006C  0643 
006D  0570 


Preg_c ,  bi  t3 ,  P19_x ,  P 1 9_a 

anaiO."  Pl9_a 
btfsc      status, bit2 
bsf  Preg_c,bit3 


skip  if  zero  bit  not  set-' 
product  term  =  1 


006B  020C 
006F  OFOO 

0070  OEOO 

0071  0643 

0072  0590 


EVAL_P  Preg_c,bit4,P20_x,P20_a 
novf  inpue.lf 
xorlw  P20_se' 
andlw  P20_a 
btfsc      status, bit2 
bsf  Preg_c,bit4 


skip  if  zero  bit  not  set 
product  term  =  1 


0073  02 OC 

0074  OFOO 

0075  OEOO 

0076  0643 

0077  0SB9 


Preg_c ,  bi  t5 ,  P2  l_x ,  P2  l_a 

andlw  P21_a 
btfsc      status, bit2 

bsf  Preg_c,bit5 


skip  if  zero  bit  not  Mt 
product  term  1 


0078  020C 

0079  OFOO 
007A  OEOO 
007B  0643 
007C  01^ 


EVAL_P  Preg_c,bit6,P22_x,P22_a 
movf        input,  W 
xorlw  P22_x 
«Bdl«  F22_A 
.  ittCl^    status, bit2 
bsf  Preg_c,bit6 


aklp  If  Zjsrp  bit  net  aat 
product  term  =  1 


007D  020C 
007E  OFOO 

O  OIF  c»s« 
0080  crS43 


BVaii_P    Preg_o ,  bi  t7 ,  P2  3_x ,  P2  3_a 
movf        input,  W 
xorlw  P23_x 
andlw     ^i<jjk.  I  •  =^ 

btfsc      status,  blt2 


skip  if  zero  bit  not  set 


iW'iiPMinmiiiiii.  I'ji  Tiii|iiiii|i'iiii  - 


2-15S 


ami  9^  '.^.^mmmift^iiiTw^      ;  _pK>duct  term  -  1 


!or_Fl 

EVAIOf  OH_aO,OltJM,-CK_eO,Mt® 

LOCAL 

SETBIT 

0082 

020E 

movf 

Preg_a , W 

0083 

OEED 

andlw 

OR_aO  ; 

0084 

0743 

btfss 

status, bit2  ; 

0085 

0A8D 

goto 

SETBIT 

0086 

02  OF 

0087 

0ED7 

«Ubp  •:     vii.  ■  ; 

0088 

0743 

Btatii«i.%lt2"-  ; 

0089 

0A8D 

'  goto 

SETBIT 

J    »  Hi-. 

D08A 

0210 

movf 

Preg_c ,  W  ; 

008B 

OEOO 

andlw 

OR_cO  ; 

008C 

0743 

btfss 

status,bit2  ; 

lifHffiH'T'F 

:  bs£ 

X^caOi^itO   1  :  ; 

J  re 

EV3Ut.Y  0R_al,0R_bl,0R_cl^6i 

I  fen 

• 

'  LOCAL 

SETBIT                 •  'J 

008E 

020E 

movf 

Preg_a , W  ; 

andlw 

OR_al  ; 

0090 

0743 

btfss 

Status, bit2  ; 

0091 

0A99 

Soto 

SKKBIS.  ; 

0092 

020F 

movf 

Preg_b,W  ; 

0093 

0E27 

-4  7«a 

tia  o  - • 

andlw 

OR_bl  ; 

0094 

0743 

btfss 

status, bit2  ; 

0S9§: 

goto 

SETBIT  ; 

0096 

0210 

dnvf 

0097 

OEOO 

astalv 

QR^t           1 :  ■    <  ; 

OQ»e 

m*3 

btfss 

Status  ^lt2  ; 

bs£ 

Tssegibitl-  ; 

X  "  iro* 

BVaiOf    0R_a2 ,  0R_b2  ,  0R_c2 ,  bi  t2 

LOCAL 

SETBIT  ; 

009A 

020E 

ltt»as»i«     '>'■-  ; 

009B 

OBFB 

asSlm 

0O9C 

0743 

btfss 

status, bita  ; 

009O 

0A&5: 

•••  jye 

Jtrf  J; 

goto 

SB^ZT  ; 

009B 

03«F 

1  «  «»-■ 

movf 

Preg_b,W  ; 

009F 

emdlw 

0R_b2  J 

OOAO 

0743 

btfss 

stat(ia.>bit2L<   '  ; 

OOAl 

OAAS 

goto 

SESBIf'J      1*:  .  ; 

00A2 

0210 

movf 

_    ■  ;     1,  :i 

00  A3 

OEOO 

I  >  Bin 

andlw 

0R_c2 

00A4 

0743 

btfss 

status, bit2  ; 

00A5 

054D 

bsf 

Y_reg , bi  t2 

EVAL_Y  OR_a3,OR_b3,OR_c3,bit3 

LOCAL 

SBIBi^,                  i  ; 

00A6 

020E 

movf 

0OA7 

0E6D 

andli» 

i .  OR^  ,  ; 

00A8 

0743 

btfss 

status, bit2  ; 

00A9 

OABl 

goto 

SETBIT  ; 

OOAA 

02  OF 

movf 

Preg_b,W  ; 

OOAB 

0E79 

andlw 

Cme^iki.  '       V,  i:  -,  ,- 

OOAC 

0743 

.■  ■ .  .  ••  u  ■-  1 

btfss 

Status, bit%     -  ; 

00  AD 

OABl 

i   ■>  «c*-  ■ 

goto 

SETBIT             •    !  ; 

OOAE 

0210 

movf 

Preg_c , W  ; 

OOAF 

OEOO 

andlw 

0R_c3 

OOBO 

0743 

btfss 

status, bit2  ; 

OOBl 

056D 

SETBIT 

bsf 

yj:eg,bit3  • 

OS0e511(H9aS»12 


« t994  Mleroehip*T«eiafo^Me. 


PiB  Heplaeetnent 


00B2  020E 

■t  •      ■  ntovf 

Preg  a,W 

00B3  0E45 

0R_a4 

; 

00B4  0743 

^  V  btfss 

status,bit2 

; 

OOBS  <I»BD 

gptO 

SETBIT  0  • 

! 

00B6  020F 

inovf 

Preg_b,W 

0OB7  OSFD 

andXw 

0ILjb4 

AM.'  'tt$m 

ht.fB'B 

St.att(s,bit2 

goto 

SETBIT 

OOBA  0210 

movf 

Preg_c,W 

OOBB  OEOO 

andlw 

0R_c4 

ODBC  0743 

btfss 

status, bit2 

OOBD  058D 

SETBIT 

bsf 

■^_reg,bit4 

LOCAL      SEtBlT  ; 

movf       Preg_a,W  ; 

andlw      0R_a5  ; 

btfss  status, bit2  ; 
goto  SETBIT 


aindlw 

goto 

.J.  M  i. 

andlw 
befsa 


SMPBIT 

Preg_o,w 
0R_c5 

status, bit2 
■¥_xegibit5 


ii#*t.Y    0R_a6 ,  0R_b6  ,  0R_c6 ,  bi  t6 
LOCAL  SETBIT 


00D2  0210 
00D3  OEOO  ' 
OOlit'  074^^ 


OOSS  0202 
OOD?  OEOO 
OODS  0743 
00D9  OAEl 

OODA  020F 
OODB  OEOO 
OODC  0743 

ootai  OAEl 

OODE  0210 

OODF  OEOO 
OOEO  0743 
OOEl  05ED 


movf 

Preg_a , W 

andlw 

0R_a6 

btfss 

status,bit2 

movf 

Preg_b,W 

andlw 

0R_b6 

btfss 

status,blt2 

SETBIT  ' 

Preg:_o,W 

OR_e*  " 

status,  bit2 

'  bat 

y_re#,'bit6 

EVAL_Y     OR_a7,OR_b7, 01(37  ,MW'" 


LOCAL 
movf 

btfas 
goto 

movf 
andlw 
btfss- 
goto 

movf 

andlw 
btfss 
bsf 


SETBIT  •• 
Pres3L»f>'l^' 
OH_ai-  -  '^ 
sta^S/bit2 

Preg_b,# 
0R_b7  ' 
s«atus,blt2 
SEJTBJT 

(■ 

0R_c7 

status, bit2 
Y_reg,bit7 


2-1S7 


00E2  0040 
00E3  0007 
00E4  020D 
00E5  0027 
00B6  0800 


;  Y_reg  now  comtltiiia' ^  <^^^#'4R!d^WS': 
wr_out  clrw 


'  tris 
novf 
movwf 
retlw 

aop 


Y_reg,W 
port_e  - 
0 


port_c  =  output 
Y_resf  ->  port_c 


Errors 


APPENDIX  B:  PLA  IMPLEMENTATION:  CODE  EFFICIENT  APPROACH 

mtiSit  m.st  ,  ■  ■   <       .  .  page  i 


;  Utia  procedure  inplaaents  a  siiiple  AMD-OR  FIA  withi 
; 

f  8     Inputs  A7  AS  A5  A4  A3  A2  Al  AO 

;  24  product  terms  i=  P23  P22   PO 

;  8    outputs  >s  X7  Ye  Y5  Y4  X3  Y2  Yl  YO 

;  "Bm  altf^t  ii^Mbs  are  aiisiijBuA      be  cenoected  to  Btset  RB  such  that 

.  tm  =  AO,  RBI  =  Al,  ...  ,  B87  =  A7. 

■         outputs  are  j^rogranaed.  to  appear  on  port:  RC  such  that 

}  ftCO  =  YO,  RCl  =  Yl,   ...    ,  RC7  =  Y7. 


;  This  impleniffiitation  ^timizes  program  memory  usage  over 

;  speed  ,  . 

J  **************************** 

1  d^ine  RAM  locations  used: 
; 


LIST 

P=16C57 

oooc 

input 

equ 

d-12" 

RAM  location  12  holds  input 

OOOD 

Y_reo 

equ 

d"13" 

holds  output  result 

esos 

•qu 

d'14» 

Product  terms  PO  to  P7.  Preg_a<0>  =  PO 

OOOF 

Prea_b 

equ 

d'15- 

P|»duct  terms  P8  to  PIS.  Pregj><0>  =  PS 

0010 

Preg^c 

equ 

d-16" 

Product  terms  Pit  to  P23.  Pr«g_c<0>  =  P16 

0012 

Knjc 

equ 

d'18" 

0013 

Pn^a 

ecpi; 

d'19" 

0014 

cnu^ 

equ 

d-20" 

ooss 

QRJ^ 

equ 

d'21" 

eats 

«qu 

d'22" 

2  define  some  cemstants  andj|i^  a^itf^M^t 


0000 

bitO 

equ 

0  : 

pool 

bltl 

equ 

1 

0002 

Mt2 

equ 

2 

0003 

bit3 

equ 

3 

0004 

bit4 

equ 

4 

ooos 

bits 

equ 

5. 

OOt0« 

bite 

«qu 

6 

ami 

bit? 

•qu 

7 

0003 

stsatus 

equ 

3 

0006 

port_b 

equ 

e 

0007 

port_c 

equ 

7 

0  ISMMiccoctfUlft^friliMMjSliyifMb. 


PLD.  Replacement 


define  the  AND  plane  ptegetaoletl^  vari^^ss: 


0000 

PO_x 

equ 

b'OOOOOOOO" 

OOOF 

PO_a 

equ 

b-OOOOllll" 

0001 

Pl_x 

equ 

b-OOOOOOOl" 

OOOF 

Pl_a 

equ 

b-OOOOllll" 

amn 

e^'' 
ev'' 

i5»0.t60flll'" 

0003 

•qa 

b-OOOOOOll" 

OOOF 

P3_« 

equ 

b"00001111" 

0004 

P4_jc 

equ 

b'OOOOOlOO" 

OOOF 

P4_a 

equ 

b'OOOOllll" 

0005 

PSjt 

equ 

b-OOOOOlOl" 

ooor 

1  ?5j» 

equ 

b-OOOOllll" 

ooos 

equ 

b'00000116" 

oo«r 

•«» 

b'660mtV 

1.*- 

•«» 

b*e606»iiiii* 

OOOF 

P7_a 

equ 

b'OOOOllll" 

0008 

P8_x 

eqa 

b'OOOOlOOO" 

OOOF 

P8_a 

equ 

b'OOOOllll" 

0009 

P9_x 

equ 

b'OOOOlOOl" 

OOOF 

P9_a 

equ 

b'OOOOllll" 

6@A4k 

1  .W6jt 

b*Qf66m6' 

000? 

«M  -•-1-  P16_a  p'-  : 

b*eoo«iri" 

OOOB 

Pll_x 

b'OOOOlOll" 

OOOF 

PH_a 

e^ 

b'OOOOllll" 

OOOC 

P12_x 

equ 

b'OOOOllOO" 

OOOF 

P12_a 

equ 

b'OOOOllll" 

OOOD 

P13^ 

equ 

b'OOOOllOl" 

mm 

1  P13_j> 

equ 

b-OOOOllll" 

600E 

P14_x 

equ< 

b'OOOOlllO' 

OOOF 

P14_a 

b'OOOOllll" 

._Vi/J 

OOOF 

P15_x 

equ 

b'OOOOllll" 

OOOF 

P15_a 

equ 

b'OOOOllll" 

0000 

P16_x 

equ 

b'OOOOOOOO" 

0000 

P16_a 

equ 

b'OOOOOOOO" 

MOO' 

1  ;P17_;t 

equ 

b'OOOOOOOO" 

'  P17_a 

eqa 

b'OOOOOOOO" 

0000 

P18_x 

e«tt 

b'OOOOOOOO" 

0000 

P18_a 

eqa' 

b'OOOOOOOO" 

0000 

P19_x 

equ 

b'OOOOOOOO" 

0000 

P19_a 

equ 

b'OOOOOOOO" 

0000 

P20_x 

equ 

b'OOOOOOOO" 

6666 

P26_a 

equ 

b'OOOOOOOO" 

0066 

P21_3C 

equ 

b'OOOOOOOO" 

0000 

P21_a 

b'OOOOOOOO* 

0000 

P22_x 

equ 

b-60000000" 

0000 

P22_a 

equ 

b'OOOOOOOO" 

0000 

P23_x 

equ 

b-OOOOOOOO" 

0000 

P23_a 

equ 

b'OOOOOOOO" 

;  define  OR  plane  programming  variables; 

OOED 

ORL.a0 

equ 

b'lllOllOl" 

for  output  YO 

00D7 

J         OR_bO      -  ■ 

=  v  equ 

b'llOlOlll" 

0000 

OR_cO 

equ 

b-OOOOOOOO" 

009F 

OR_al 

equ 

b'lOOlllll" 

for  output  ¥1 

0027 

OR_bl 

equ 

b'OOlOOlll" 

0000 

OR_el 

equ 

b'OOOOOOOO" 

mm 

b'limeu" 

i '  J- 

for  ou^ut  ¥2 

662F 

^< . eqn 

b'oeioiiH" 

\  -s 

0600 

0ICe2  L^ii 

b'OOOOOOOO" 

006D 

0R_a3  TO 

'-eqa 

b'OllOllOl" 

»-f^<or  output  Y3 

0079 

0R_b3 

equ 

b-01111001" 

0000 

:t  0R_c3 

equ 

b'OOOOOOOO" 

0045 

»  0R_a4 

equ 

b'OlOOOlOl" 

for  output  Y4 

ooro 

0RJ»4 

9SSI 

b"iiiiiiei" 

0000 

0R_c4 

equ 

b'OOOOOOOO" 

0660 

OCftC 

OOEP 
0000 
0000 
0000 
0000 


mkJ>s 

0!L.e5 
0R_a6 

0R_b6 
0R_c6 
0R_a7 
0R_b7 
0R_c7 


equ 

.:%e^ . 
equ 
equ 
equ 
equ 
equ 
equ 
equ 


b'OlllOOOl" 
b'llOlllll" 
b'OOOOOOOO" 
b' 91111100" 

b"11101111" 
b-00000000" 

b'OOOOOOOO" 
b-00000000" 
b'OOOOOOOO" 


;  for  output  ITS 
f  for  output 
:  for  output  Y7 


OlFF  OAOO 


org 
goto 


Olffh 
main 


0000  090B 

0001  OAOO 


org  00 Oh 

;  define  macro  to  evaluate  1  product  (AND)  term: 
amI/a  call      plM8      's  t 

goto      'ItiSm  -t 

;  r-r..3i'  i-  , 


Wm>j  MACRO 
movf 
xorXw 
andlw 
btfsc 
bsf 


Preg_x ,  bi  ft_n ,  Pn_x ,  Pnji 
input, W 
Pn_x 
Pn_a 

status, bit2 


;  skip  if  zero  bit  not  sot 
>->product  term  =  1 


;  define  macro  to  load  OR  term  constants: 


EVAL_Y    MACRO  0R_an,OR_bn,OR_cn,bit_n 


msvlir 

MT'load  conatants 

I 

juuvwC 

J' 

aovlw 

movwf 

OR_b 

movlw 

OR_cn 

movwf 

OR_c 

call 

EVALl 

t^ss 

;status,bit2 

1  r 

bsf 

mat 

:Y_reg,bit_n 

-  _  ■ 

)■■ 
'J 

M^bae  procedure  to  evaluate  1  mitpatft^SL)  teim: 


0002 

020S 

movf 

Preg_a,W 

0003 

0174 

andwf 

OR_a,l 

0004 

020F 

movf 

Preg_b,W 

0005 

0175 

andwf 

OR_b,  1 

0006 

0210 

movf 

Preg_c,W 

0007 

0156 

andwf 

OR_o,W 

0008 

0114 

iorwf 

OR_a,w 

0009 

0115 

0»  IOJ3. 

iorwf 

OR_b,W 

retlw 

tii  .■  <.■  . 

-'!»-■  W  =  1  iiipli«8  ¥n  =  1 

;  now  the 

PLA  evaluation  procedure: 

OOOB 

OCFF 

plaSS 

movlw 

Offh 

OOOC 

0006 

«  J. 

tris 

6 

;  port_b  =  ir^ut 

OOOD 

0206 

movf 

por t_b, W 

.;  read  input 

OOOE 

002C 

"^IM**"'"''- 

'i;satora  ii^tiiii!<<a  register 

OOOF 

ooeE 

^'VfK'cIaaz  Pxodufe^  f%gister  a 

0010 

006F 

elrf 

Preg_b  > 

,•  clear  Product  register  b 

0011 

0070 

clrf 

Preg_c 

;  clear  Product  register  c 

0012 

006D 

elrf 

Y_reg 

;  clear  output  register 

.!  JO  i 

i-io : 
11(10'' 

"  -0". 

'.  '  u»  ) 

..[)., 


OilW>»MlewehlpTil(iaiHi#lffiL 


PLD  Replacement 


0013  020C 

0014  OFOO 

0015  OEOF 

0016  0643 

00^7  OSes 


T 


movf  input, 91        *  >  ^ 

xorlw  PO_x 

andlw  PO_a 

btfsc  status, bit2 


xorlw  Pl_x 

andlw  Pl_a 
J  J ,!  .  .  rji^    btfsc      Status, bit2 

1         r  t      1  -c'  lbs*   t  j  . ■;PJWa-*4»itl  :- 


skip  it  zero  bit  not  set 
rS  pxQduct  tezn  =  1 


skip  if  zero  bit  not  set 
pzoduet  tezni  •  1 


003B  02 OC 
003C  0F08 
003D  OBOF 
003E  0643 
003F  05QF 


0040  02DC 

0041  0F09 
9042  OEOF 

0043  0643 

0044  052F 


HVai^F»_^|tj«/l'it2,P2_x,^;^li  q 

«ienr£  ii^ut,W 

rxorlw  F2^ 

andlw  F2^ 

btfsc      status,  bit2 
3,,r ,        bsf  Preg_a,bit2 

BViai_P.  PEegji,bit3,P3_x,P3_a 


skip  if  zero  bit  not  set 
product  terra  s  1 


btfsc 
bsf 


input,  W 
F3 jiSE  £  ^  <^  us 

stattts,bit2 
Preg_a,bit3 


skip  if  zero  bit  not  set 
product  term  =  1 


EWULuP    Kcea_a ,  bi  t4 ,  P4_x ,  P4_a 
move       input, w 
.mmlw     F4jS5n.t  rfiLiin! 
.    ,1-.  JNu*«j^  ^liicS 

'cuoo:r|  .btfsc  '    statXMt«!Mt2  ^ncS  sfcip  if  zero  bit  not  set 
bef  Freg_a,Mt4 


j^educt  tern 


EWM^P  Preg_a,bit5,P5_x,P5_a 

movf        input,  W  ; 

i  -      ..I    :s,  it<  :q   btfse     i^^t^fbit2   •  rn  skip  if  zero  bit  not  set 
bsf         Frea_a,bitS        ;  product  tern  s  1 


BWM^P  Preg_a,bit6,P6_x,P6_a 

movf        input,  W  ; 

-•rt.--.    •    bsf  .  ■  '^|segL.arbtt6     ;  j 


sleip  if  zero  bit  not  set 
product  term  =  1 


BVAI^P    Preg_a ,  bi  t7 ,  P7_x ,  P7_a  q 


movf        input, W 
.xeglf  P7_3c 
.MMM  F7^a 
btfs^!;  i  j»t%^.i>it%, . 
bsf  ,<Pisesf_asbit7 


;  skip  if  zero  bit  not  set 
;  product  term  =  1 


EVAI,_P  Preg_b,bitO,P8_x,P8_ 

movf       input.W  ; 
xorlw     PSjx  ; 
g.M,  .mdlw  ;.*tu»«, 

•         btfsc      statua»bit2  If  zero  bit  not  set 

Preg_b,bitO        ;  i^educt  toas  «  1 
ytr'n 

bitl,P9_x,P9_a 
input, W 
P9_x 
P9_a 

status, bit2 

Preg_b,bitl 


bsf 

EVAL_P  Preg_b 
movf 
xorlw 
andlw 

btfsc 

bsf 


skip  if  zero  bit  not  set 

product  term  -  1 


2^161 


■a8eiii[igjimiW-'''iiJi"Hft- 


0045  020C 

0046  OFOA 

0047  OEOF 
QMS  0«43 


004A  020C 
004B  OFOB 
004C  OBOF 
00«>  0643 

004B  Biiir 


004F  020C 

0050  OFOC 

0051  OEOF 

0054  02 OC 

0055  OFOD 

0056  OEOF 

0057  0643 

o  fm  ma 


0059  020C 
005A  OFOE 
005B  OEOF 
005C  0643 

00^'  omr 


005E  020C 
005F  OFOF 

0060  OEOF 

0061  0643 

tmm  ■mat' 


JM  joa  Jiw. 


novf  ij^ev#  ^  ; 
xorlw  P10_x  ; 
andlw  P10_a 

btfsc     »tatuB/bit2       ;  skip  if  zero  bit  not  set 

:  '  jMif  '  * '^«b^^;i>it2    -■'^  product  tern  =  1 

BVM._P    Preg_b,bit3,Pll_x,Pll_a       '  - 
mov£        input,  W  ; 
xorlw     Vll^Sf-i-^  •■■ 

:Ti  btfs<^'  ''%<SiiW,1>lt2  '  •  1  skip  if  zero  bit  not  sot 
'    -  •  bsf   '  ;  *«»aJ*<feit3  product  term  =  1 


EVIOjJ    Pr  eg_b ,  bi  t4 ,  P 1 2_x./HKl_a 
iBovf        input, W        '<  -■■II. 

XOXhH       P12JC    '  -  t 

•maHn     P12JI  - ' 

;i»s  9«B  JW  f  u.-  ;i  7l<    t(tf*^^'q»«wa*SA»it»*-'i;  skip  if  zero  bit  not  set 
1  .  fln».i  :;^c<-i,  teaf  '''f%!#»gi58,'bit4  ^'-i!  product  term  =  1 
EWU^^F  Preg_b,bit5,P13_x,P13_a 

movf        input, W  ;       '  ' 

xorlw  P13_x  ; 
andlw      P13_a  ; 

btfsc      status, bit2        ;  skip  if  zero  bit  not  set 
3»m  MO  itd  o3»s  bsf  i  -  «*ia3iijteit5  "-^S-  product  term  =  1 

BVaU,_P  Preg_b,bit6,P14_x,P14_a 
mev#''      input, w  : 
xorlw  P14_x 
andlw  P14_a 
btfsc 


OlOh 


status,bit2 


los  iUt  o-t»s  11  'jiii-  ^£ 

SVai^F  Preg_b,bit7,P15jc,P15_a 
movf        input, W 


^ca  ate  ri'.> 
I  «  una 


xorlw 
andlw 
btfsc 
bsf 


P15_x 
P15_a 

status, bit2 
■Ii»Bai33,'bit7 


skip  if  zero  bit  not  set 
product  term  =  1 


skip  if  zero  bit  not  set 
product  term  =  1 


it  TO 


•JSC: 


0063  020C 

0064  OFOO 

0065  OEOO 

ooee  0643 

0067  0510 


0068  020C 

0069  OFOO 
006A  OEOO 
006B  0643 
006C  0S30 


3M 


1  E  all 


_P  Preg_c,bitO,*l«Jlcin#_a 

movf        input , W 

xorlw  P16_x 

andlw  P16_a 

l>t£se  -%<M«M«%it2«' 
•i   bsf        l-Seftaa^itO  ''•<^! 


if  zero  bit  not  set 
product  term  =  1 


BVKLJ  Preg_o,bitl,P17_x,Plt_a'- 

movf        input, W 

xorlw  P17_x 

andlw  P17_a 
-      '   •»  ''bt£s«-     status, bit2 
'  '  •'bsf  Preg_c,bitl 


skip  if  zero  bit  not  set 
product  t^SiL  s  1 


BWUt-P  Preg_c,bit2,P18_x,P18_a 


006D  020C 
006E  OFOO 
006F  OEOO 

0070  0643 

0071  0550 


0072  020C 

0073  OFOO 

0074  OEOO 

0075  0643 

0076  0570 


movf 

xorlw 

andlw 

btfsc 

bsf 

Preg_ 
movf 
xorlw 
andlw 
btfsc 
bsf 


input, W  ; 

P18_x 

P18_a 

status, bit2  ; 
Preg_c,bit2  ; 

,bit3,P19_x,i?1.9^« 
input, W  ; 
P19_x 

P19_a 

status, bit2  ; 
Preg_c,bit3  ; 


skip  if  zero  bit  not  set 
product  term  =  1 


skip  if  zero  bit  not  set 
product  term  =  1 


loao 


CiiO'. 

srtrc 


PLD  Hepiae^ent 


EVU<_P  ftreg_c,bit4,P20!jt,P20_a 


movf 

xorlw 

andlw 

btfsc 

bsf 


input, W 

P20_x 

P20_a 

status, bit2 
Preg_c,bit4 


Xm^J  I>regLC,bit5j»tjt,aiJaj» 
movf       input, Hb 
xorlw  P21_x 
andlw      P2  l_a 
btfsc      status, bit2 
bsf  Preg_c,bit5 


skip  if  zero  bit  not  aat 
product  term  =  1 


skip  if  zero  bit  not  set 
product  term  =  1 


EVai(_P  Preg_o,bit6,P22_x,P22_a 
-,Biov£       ii:MI:jM  t 
,  xorlv  P221.X 
andlw  P22_a 
btfsc      status, bit2 
bsf  Preg_c,bit6 


skip  if  zero  bit  not  aet 
product  term  -  1 


EVAL_P  Preg_o,bit7,P23_x,P23_a 

vnoo  bud  I     xorlw  P23l3e  ; 

andlw  P23_a  ; 

btfsc  status, bit2  ; 

bsf  Preg^cbit?  ; 


skip  if  zero  bit  not  Bet 
product  term  =  1 


or_pl  Emi^Y    OR_aO ,  ORJbO ,  m_cO ,  bifeO 

movlw  OlCaO  ;  load  OCTifitaBta 

movwf  OR_a  , ; 

movlw  OR_bO  ; 

movwf  OR_b  ;  iv 

.  i,T       -  ^ .-        .       movlw  OR_cO  ; 

movwf  OR_c  J 

call  EVALl  .; 

btfss  status, bit2  ; 

bsf  Y_reg,bitO  ; 


j  I  n 


EVaiijr  OR_al,OR_bl,OR_cl,bitl 


movlw 

OS^al 

load  constants 

movwf 

OR_a 

movlw 

OR_bl 

movwf  ■ 

ORJa  ; 

eatjsl  '  { 

movwf 

call 

btfsa 

•featais,blt2  ; 

bsf 

Y_reg,bitl  ; 

OR_a2 , 

0R_b2 ,  0R^c2 ,  bit2 

movlw  , 

load  constants 

movwf ' 

OT_a  -   .         ■  ( 

movlw 

0R_b2  ! 

movwf 

OR_b  ; 

movlw 

0R_c2    ^--jt;    n  i_,.Sr 

movwf 

OR_c                V  :  '  s 

call 

EVALl             a  .  )  .3 

0       w  i  ■  - 

''4 
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00A5 

054D 

ait,Jk^L,i._,.ji,,g-; 

bsf 

Y_reg,bit2  , 

EVAL_Y 

0R_a3  ,  0R_b3  ,  0R_c3  ,bit3 

00A6 

0C6O 

movlw 

0R_a3            J  "--a. 

load  constants 

00A7 

0034 

novwf 

OR_a             "      ^  , 

00A8 

0C79 

movlw 

0R_b3            •  fbCi, 

00A9 

0035 

movwf 

OR_b  '-^! 

OOAA 

OCOO 

movlw 

0R_c3  *'■■■, 

OOAB 

0036 

movwf 

OR_c 

00  AC 

0902 

call 

EVALl 

OOAD 

0743 

btfss 

ste<awtbit2  i  ; 

TO  ' 

OOAB 

05 6D 

bsf 

Tf_naffiM.t3 

:»"^  ■ 

J  oil 

EVAIOf 

0R_a4 ,  0R_b4 ,  0It.c4 ,1(1 1 4 

OOAF 

0C45 

C  •  ■ 

movlw 

0R_a4 

loau  constants 

OOBO 

0034 

movwf 

OR_a 

GOBI 

OCFD 

movlw 

0R_b4 

00B2 

0035 

movwf 

OR_b 

00B3 

OCOO 

movlw 

0R_c4 

;  ■  r 

00B4 

0036 

cmjB 

00B5 

0902 

e»ll  « ! 

00B« 

0743 

t  "  ir?.  :       ".  ;'*>o.: 

btfss 

status, bit2 

00B7 

OSSD 

bsf 

y_reg,bit4 

BWU:._Y 

0R_a5, 

OR_b5,OR_o5,bitS 

0OB8 

0C71 

movlw 

0R_a5 

load  constants 

00B9 

0034 

BOVWf 

®c*  ■ " 

.ISO 

OOBA 

OCOF 

-  ''i 

3<9« 

movlw  ' 

^_b5 

• 

oo» 

0035 

movwf 

OR_b  »    ■  ■'■ 

''  ■  vc 

ODBC 

OCOO 

movlw 

0R_o5 

OOBD 

0036 

movwf 

OR_c 

OOBE 

0902 

call 

EVAX.! 

OOBF 

0743 

btfss 

status,bit2 

aoco 

OSAD 

bsf 

Y_re«,Mt5 

^  ""'0 

rrni  ■ 

0R_a6 ,  0R_b6 ,  0R_c6  ,bit6 

OOCl 

0C7C 

movlw 

0R_a6 

load  constants 

00C2 

0034 

movwf 

OR_a 

00C3 

OCEF 

movlw 

0R_b6 

00C4 

0035 

movwf 

OR_b 

00C5 

OCOO 

iaqwlw  <- 

00C6 

0036 

mcnmf 

0R_o 

00C7 

0902 

call  ' 

EVALl  1 

00C8 

0743 

btfss 

stabu3,bit2' 

00C9 

05CD 

bsf 

Y_reg,bit6 

EVAL_Y 

0R^a7 ,  0R_b7 ,  0R_o7 ,  bi  t7 

OOCA 

OCOO 

emj^jfy 

load  constants 

OOCB 

0034 

meivwf 

OR_a                 V  -  :  . 

,1   '  0 

OOCC 

OCOO 

movlw 

0R_b7             '  -'n=! 

OOCD 

0035 

movwf 

OR_b                 ■  ' 

OOCE 

OCOO 

movlw 

0R_c7 

OOCF 

0036 

movwf 

OR_c 

OODO 

0902 

call 

EVALl 

OODl 

0743 

btfss 

status,bit2 

-'' 

00D2 

05SD 

bsf 

Y_reg,'bit7 

■  0 

■»At)  ' 

i             "ow  contains  8  output  valuam  '  -k' 

00D3 

0040 

clrw 

00D4 

0007 

tris 

7                   -'  '      ;  port_c  =  output 

00D5 

02  OD 

movf 

Y_reg,W          ■ '  ; 

.'0' 

00D6 

0027 

movwf 

port_c 

Y_reg  ->  port_c 

00D7 

0800 

retlw 

0  ; 

0^ 

ami 

nop 

Errors 
Warnings 
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§^rial  Port  Routines  Without  Using  the  RTCC 


INTRODUCTION 

The  PIC16C5X  has  one  8-bit  timer  (RTCC)  which  can 
use  an  8-bit  prescaler.  In  some  instances,  the  user 
would  like  to  use  this  timer  for  some  other  purposes  and 
yet  be  able  to  do  a  transmit  and  receive  using  the  serial 
port.  This  application  note  offers  routines  to  do  a  simple 
8-bit  transmit  and  receive  with  no  handshake,  at  baud 
latest rom  1 200 to  9600.  Please  note  ttiatlhese  routines 
use  atimed  loop  which  is  t»j^ff^alBikMt»  clock  which 
drives  the  PIC16CSX.  ThV^'an^linlhe  frequency 
and  baud  rate  desired.  Thi  eitistitated  viahie  in 
ttie  serial  routine  has  t6  be  alia-bttvatoeon^.  lttieviitie 
is  greater  than  8-bils,  ttie  frequency  and  baud  rate 
values  have  to  be  changed. 


CONCLUSION 

Simple  transmit  and  receive  routines  can  be  written 
without  using  RTCC  to  generate  the  baud  late. 


0  .  II 


Author  StanUSouza 

Lo0Bf%>du<asDivblon 
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Serial  Port  Routines  WKhoift 


^RTCC 


APPENDIX  A 


KPASM  00.00.66  Beta 


6-24-1994  7<4:48 


00P4  2toif  '  ^" 

2580 

003D  0900 


oo«s 

0010 
0011 
0011 
0012 
0013 
0010 
0011 
00^5 


0000  ooos 
OOOS  0002 


0001 
0002 
0003 
Oiffi6« 


ooos 

0006 
0007 
0008 

oeos 

mm. 

OOOB 

oooc 


OOOD 
OOOE 
OOOF 
0010 


bei2 

p013 
P014 


0001 
0002 
0003 
0004 
0005 
0006 
0007 

ooos 

0009 

0010 

coil 

0012 
:0®li3 


;  These  routines  were  written  to  work  on  the  PICDEfeXl 'likj^^are. 
;  The  frequency  of  the  clock  is  16  Hhz .  and  the  b^gtligure  uses  no 
;  handshake 

TX  ->  RA3 

RX  ->  RA2 

list  p=16c54,  f »ii!ihit8in 

clockrate  equ  .16000000 

baudrate  equ         . 9600 


fclk 


equ 


clockrate/ 4 


*     *  ******* 


*(5*-i* 


*********:*******;************ 


W14  ;i&e  vaXae  baudconst  nkst  tg.>it  .yKlue  c«ly 

0015  baudconst  equ         ( it^MMO^im^mM^.  e.,.. 

0016  ;**'**************** 


0017  count 

0018  txreg 

0019  rcreg 

0020  delay 

0021  teinpa 

0022  Isi 

0023  l9 

0024  spram 

0025  ; 


equ 
equ 
equ 
equ 
equ 

equ 

equ 


0x10 
0x11 
0x11 
03el2 
0x13 
0x10 
0x11 
0x15 


•  bMniiittei: 


/Slab'  oi-,B'. '.  ~ 
ftf'li  vii:0  ■■»»<!]' 
'  /-.'J  '..  if>  -..1 


inlrs 


■  fit 


002« 

aool 

19002 
0003 
0004 
OOOS 
0006 
0007 
0008 
0009 
0010 
0011 
0O12 
0O13 
0014 
0015 
0016 

m? 


include  •picSx.h* 
Shis  is  the  ccmnon  header  file  for  all  PIC16C5X  parts. 


CKACK  0x00 

_ind£, 
_porta. 


_rtcc,  _pcl, 
_portb 


_fsr 


0021 

0022 
0023 
0024 
0025 

0026 
0027 
0028 
0029 
0030 
0031 
0032 


ENDC 

Porta  Bits 
tdeflae 
tdefiae 
fdefine 
tdeflne 


:  Portb  bits 
tdefise 
iNteflae 
fdef ine 
*define 
fdefine 
#def ine 
fdefine 
fdefine 


_ra0 
_ral 
_ra2 
_ra3 


_rbO 
_rbl 

_rb2 
_rb3 
_rb4 
_rb5 
_rb6 
_rb7 


r  STATUS  Reg  Blt« 
fdefine 
fdefine 
fdefine 
fdefine 
fdefine 
fdefine 


-do 


0033.  .#4»fi»f  , 
0034  faefiitB 

-m9s~r 


_pd 
_to 

_sVi 


jgeata.,0 
_port&, 1 
_porta,2 
_porta,3 


_portb,0 
_p6rtb,  1 
_portb,2 
_portb,3 
_portb, 4 
_portb, 5 
_portb,  6 
_portb,7 


_status, 0 
^status , 0 
^status, 1 
_status,2 
_status,3 
_status,4 
.status  1 5 
_st«tus,6 
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0027 

>• 

eols 

0028 

_porta,3 

B016 

0029 

(define  _;ex 

_porta,2 

0030 

; 

0031 

org 

0 

0032 

start 

0000 

095A 

0033 

call 

wait 

0001 

OCOP 

0034 

novlw 

B'OOOOllll' 

0002 

0025 

0035 

snvwf 

_porta 

0003 

OC07 

0036 

novlw 

B'OOOOOlll' 

0004 

0005 

0037 

tris 

.porta 

0005 

ooee 

0038 

clrf 

_portb 

0006 

0040 

0039 

drw 

0007 

0006 

0040 

tris 

_portb 

0008 

OCAS 

0041 

movlw 

0xa5 

0009 

0195 

0042 

xorwf 

gpram,w 

OOOA 

0643 

0043 

btfac 

_z 

OOOB 

0964 

0044 

oall 

Ifelr 

oooe 

OCftS 

0045 

inovlw 

OxaS 

OO0B 

0(>3$ 

0046 

novwf 

gpram 

0047 

; 

0048 

; 

OOOE 

0C2F 

0049 

inovlw 

0x2  f 

OOOF 

0033 

0050 

movwf 

tens^'  .1' 

0010 

0C38 

0051 

ttovlw 

B'OOlllOOO' 

0002 

O052 

option 

0012 

006  i 

0053 

clrf 

_rtcc      ) ) ! 

0054 

Slc^eck 

0013 

0201 

0055 

novf 

_rtcc,w 

0014 

0643 

0056 

btfsc 

OOlS 

0A13 

0057 

goto 

Slc^eck 

0058 

; 

0059 

IW9Ct 

0016 

02B3 

OftSO 

incf 

tenpa 

0017 

06F3 

0061 

btfsc 

tempa ,  7 

0018 

0A61 

0062 

goto 

AilDone 

0019 

0213 

0063 

movf 

tempa , w 

OOIA 

0920 

0064 

call 

transmit 

OOIB 

0937 

0065 

call 

receive 

00  le 

0093 

OjO'66 

subwf 

teepa.w 

00  ID 

0643 

0.M7 

btfse 

Jt 

OOIB 

QA47 

#068 

goto 

fail 

■tmw 

0Ai6 

0063 

goto 

next 

0070 

; 

0071 

0072 

transmit 

0020 

0031 

0073 

novwf 

txreg 

0021 

0465 

0074 

bot 

_tx 

0022 

0C88 

0075 

novlw 

baudconst 

0023 

0032 

0076 

movwf 

delay 

0024 

oca9 

0077 

inovlw 

.9 

W3S 

0078 

movwf 

count 

0079 

txbaudwait 

0026 

02F2 

OftSO 

deefsz 

delay 

0027 

0A26 

OiOSl 

goto 

t3^«3ittit 

0028 

0C83 

ff082 

inovlw 

laaadeoast 

0029 

0032 

0083 

movwf 

delay 

002A 

02F0 

0084 

decf sz 

count 

002B 

0A30 

0085 

goto 

SendNextBit 

002C 

0C09 

0086 

inovlw 

.9 

002D 

0030 

0087 

MBWWf 

count 

002B 

0565 

mm 

hmt 

_tx 

002F 

0800 

0089 

0090 

SoKKextBlt 

0030 

0331 

0091 

rrf 

txreg 

0031 

0703 

0092 

btfss 

_c 

0032 

0A35 

0093 

goto 

Setlo 

0033 

0565 

0094 

bsf 

_tx 

0034 

0A2e 

0095 

goto 

txbaudwait 

; if  SI  pressed  then  skip 


;send  start  bit 


;send  stop  bit 


mm. 


0096 

S6tlo 

0033 

0465 

0097 

tx 

003# 

00^8 

goto 

tsdsaudwaxt 

0099 

* 

0'3>®0 

OlOl 

receive 

0037 

0645 

0102 

btf  sc 

rx  1 

0038 

0A37 

0103 

,      ,  goto 

ITGCGiVG  ' ' ' 

0104 

02P2 

0105 

decfsz 

d  la  i 

003A 

UAjy 

irxJDciuclwax  t 

003B 

0C88 

lOOVXW 

liDaudcoxist 

003c 

0032 

jnovwf 

nn?^ 

02F0 

0109 

£s  Z 

count 

UA4Z 

0110 

goto 

t:  ^  Vn^A       1 V 

nvovJtW 

.  9 

0040 

003  0 

niovwf 

^^^^^ 

0041 

0800 

0113 

retuxn 

0114 

1  1     llBllfflllBll  Til 

J 

0042 

0403 

0115 

l>c£ 

_C  -in 

0043 

0645 

0044 

0503 

0117 

bs£ 

_c 

0045 

0331 

0118 

rrf 

rcreg 

00'4i£ 

0119 

goto 

rscbaudwai  t 

0120 

0121 

fail 

0047 

0266 

0122 

ccmf 

portb 

0123 

call 

halfsec 

0049 

0K4  1 

0124 

goto 

fail 

0125 

faalf sec 

0  04a 

0070 

0126 

clr  f 

ni 

0  G4B 

0071 

pi27 

clrf 

lo 

04^^8 

bBlO£3^ 

004C 

0000 

0129 

nop 

004D 

0000 

0130 

nop 

004E 

0000 

0131 

nop 

004F 

0000 

0132 

nop 

0050 

0000 

0l33 

nop 

0051 

0000 

0134 

nop 

0052 

0000 

0135 

nop 

0053 

0000 

0136 

nop 

0054 

0000 

0137 

nop 

0055 

02  Fl 

0.138 

decf sz 

lo 

0056 

0A4C 

C!$39 

goto 

hsloop 

#1  Aft 

decf s  z 

hi 

0058 

0A4C 

0141 

goto 

hsloop 

xetuim 

0143 

wait 

00 5a 

nn*7A 
wu  /u 

ni 

005b 

0071 

tit  A£ 

clrf 

lo 

0147 

(31y 

005c 

02F1 

0148 

decf sz 

lo 

005D 

0A5C 

0149 

goto 

dly 

005E 

02F0 

wlSO 

decfsz 

h.i 

005F 

0A5C 

goto 

dly      '  - 

0060 

0800 

0152 

IfClt^XXl 

0153 

0154 

0155 

Al  IDons 

0061 

0C55 

0156 

movlw 

0x55  ''In 

0062 

0026 

0157 

portb         y : 

0063 

0A63 

0158 

goto 

$ 

0159 

oteo 

Hiclr 

0064 

0066 

0161 

Glrf 

_portb 

0065 

00S6 

0162 

decf 

_portb 

0066 

007S 

0163 

clrf 

gpram 

0164 

S3checlc 

;«ait  for  reoeiv« 


mm  Wortm^mm  Wmim^  using  the  RTCC 


0067  062S 

0165 

btfso 

_ral 

00€8  0A$7 

0166 

goto 

S3check 

0069  ooes 

0167 

clrf 

_portb 

0168 

goto 

$ 

0169  ; 

0170  ,- 

0171 

org 

Oxlff 

OlFF  O&OS 

0172 

goto 

start 

0173  ; 

0171 

end 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0000  : 
0040  : 


0180    :  ^  

OICO   !  X 

All  other  taesaenff  Mooks  uniised. 


Errors  i  0 
Warnings  :  0 
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MICROCHIF3 


S'  tiiS  8Uonoif1onY3A  ns  to  i  ;fif»m9lqr:. 


Implementation  of  an  Asynchronous  Serial  I/O 


INTRODUCTION 


I 


The  PIC16C5X  seriesfrom  Mteroohip  Technology  he., 
are  8-bit,  high-speed,  EPROM-based  microcontrollers. 
This  application  note  describes  the  implementation  of  an 
Asynchronous  serial  I/O  using  MicioGb|!%  PlClfi^X 
series  of  high-speed  8-bit  mi^!)pcor|H»liBC$.  The89 
EPROM  based  micreconlralora  can  6pofato  at  vi 
high  speeds  with  a  minirauin«f 200.iis  cycle  flnw  9  20 
MHz  Input  clod<.  Many  mlcrooontroller  applMons 
require  chlp-to-ch^  serial  data  communications.  Sine* 
pa  Piciecsxs^ta&hatammcbipi^rialMiSi  swM 
communlcs^n  \^  to  be  ^Hformed  in  ammre.  Pbr 
hwny  oost-sensiilve-high  volume  applications,  imple- 
fnentation  of  a  s«ial  IA3  through  software  provides  a 
more  cost  effective  solution  than  dedicated  logic.  This 
application  note  provides  code  for  PIC16C5X  to  simu- 
late a  serial  port  using  two  I/O  Pins  (one  as  input  for 
pai|ilteB«iBd  the  other  as  output  for  trjaaiijiBBion).  | 

IMPLEMENTATION  | 

Two  programs  are  provided  In  this  application  note.  One| 
program  simulates  a  full  duplex  RS-232  communication 
and  the  other  provides  implementation  of  half  duplex 
communication.  Using  Half-Duplex,  rates  up  to  19200 
baud  can  be  implemented  using  an  8  MHz  Input  clock. 
In  case  of  Full-Duplex,  the  software  can  handle  up  to 
9600  baud  at  8  MHz  and  19200  baud  at  20  MHz,  one  or 
two  stop  bits,  eight  or  seven  data  bits.  No  Parity  and  can 


Iransmit  orrecehm  wHi  aRherLSBfllst  ^wnmri  mode)  or 
MSB  first  (CODEC  ice  Mea?^.  It^m^^ri^lhalj 
|he  higher  the  inpittdodebfiBeHSame  ^^ilioh.  These! 
(^ons  should  be  143  during  assembly  time  and  not 
piring  run  time.  The  user  simply  has  to  change  the 
^«aiderflteforthe  rsquirad  communication  options.  The 
feitmn  does  not  provi^'any  handshaldng  protocols. 
IWHi  mhor  modMGadoi^,  the  uayr  may  Inoofpqmie, 

lwdiNmliamishaldn3,aiuddffiD^^  VO  Pinsi 
hssir  be  usedas  RTS  (ready  to  sencQ  and  CTS  (clekrto 
send)  lines. 

Figure  1  shows  a  flow  chart  for  serial  transmission  and 
Figure  2  shows  a  flow  chart  for  reception.  The  flowcharts 
show  cases  for  transmission/reception  with  LSB  first 
and  eight  data  bits.  For  reception,  the  data  receive  pin, 
DR,  is  polled  approximately  every  B/2  secorKis  (52  \is  in 
case  of  9600  baud)  to  detect  the  start  bit,  where  B  is  the 
timeduFationofonebit(B=1  /BaucQ.  If  a  start  bit  Is  found , 
Viantti^fiis^clelabitiseheclcecfitor^ar  1.2SB  seconds. 
t=rom  then  m,  the  othertlata  bits  ire  Checked  every  B 
seconds  (104ns  in  case  of  9600  baud). 

In  the  case  of  transmission,  first  a  start  bit  Is  sent  by 
setting  the  transmit  data  pin,  DX  to  zero  for  B  seconds, 
and  from  then  on  the  DX  pin  Is  set/cleared  correspond- 
ing to  the  data  bit  every  B  seconds.  Assembly  language 
code  con-esponding  to  the  following  ftowcharts  is  given 
jn  Figures  3  and  4. 
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implementation  of  an  Asyn^ronous  Serial  I/O 


FIGURE  1  -  TRANSMISSION  FluOW  CHART 


FIGURE  2  -  RECEPTION  FLOW  CHART 


~  Input     ^^^-^  -Lr_ir-^- 


Load  Xmt  Reg 

Set  X-Count  =  8 


Set  DX  Pin  =  0 


Delay 


Right  Shift  Xmt  Reg 


Set  DX  Pin  =  0 


Set  DX  Pin  =  1 


X-Count  =  X-Count  - 1 


Test  Pin  DR 


Start  Bit 
Detected 


Set  R-Count  =  8 


1.  ..:C3j»|£i<i  \. 


3! 


f-iJBoiiiTnm:, 


€lMrC«i^blt 


RtgMSMIRevReg. 


Test  Pin  DR 


NO 


S.  IsDF 

1  =  1?,/'  

YES 

Set  MSB  of  Rev  Reg 

R-Count  =  R-Count  - 1 

2^72 


atpiliiaftMtelPWtan  Asynchronous  Serial  I/O 


nOURES-TmilNSMITil 


^Y^COl^  |S^RESPONDING  t6  A^i^  1) 


>-.'  v),,'H.i .,1^..  ■_ — -  -     .     ..  Ii  ■  I' .  ,.T — IV' Vfa   .   Z   

^**f***%f*1'»!'P'at*ittMf-*.  ..tyWBll^m'i  l^hg-jf***************************** 

snD0;>rxrtM8MM!l^^titW«A«^B  '•<'  ^>  '  «  Assume  SntReg  contains  4ata  to  be  ^anted  ii 

j.rqiBsU  "irtJ.fiic^biTUl  >aMBan«SP«E«imt;i  V  •    -   ■?  8  data  4>SS»  <  , 

.  fi'-yi'     bfef-;  - 'v.'P^^bitollS  >!<'-'i)<r^  Si^S  Sfcart  Bit 
,!■    :.  ut.  .(  ...JfeiwaEtSLeiiil     I»lS^«rt»BiTi»ni'OS  Bei^ar  for  B/2  Seconds 

"cltwwfl'i^ttiiBo  v«Sllil!WI^Caa»»li<T  S®Bt  Ifh*  bit  to  be  transmitted 
bsf       Port_A,DX         ;  Bit  14  a  one 
btfss    STATUS,  CARRY  i 


bcf       Port_A, DX 
decfsz  Count 
goto  X_next 

X_Stop  call  Del^y'' 

bsf  Pott Jk.m 
X-Qvfflr  gstto'    X_Ovier       ,.,  <j.-f7' 
 ■  \  N<>--  -' 


Bit  is  zero  .; 
If  ceaat  =       Vkwa.  teriinsmit  a  stop  ^bit 
tremsitiit  next  bit 


Send  Stop  Bit 


FIGURE  4  -  RECEIVE  ASSEMBLY  CODE  (CORRESPONDING  TO  FIGURE  2) 


,****************        Receiver  ********************* 


'  btfsc 
goto 

movlw 
. movwf 


Port ^,DR 
Rcvr 

8 

RCount 
RcvReq  . 


Test  for  Start  Bit 
Start  Bit  not  Iround 
Start  Bit  Detected 
8  Data  Bits 
Receive  Uglta  Roister  ^ 
Delay 


Bit 


bcf 

rrf 

btfsc 

bsf 

call 


STATUS ,  CARRY 
RcvReg 
Port_A,DR 
RcvReg , MSB 
Delay       "■<  J  J'c^H 


I  r.r!T 

r  '■•I 


decfsz  RCount 
goto  R_next 
_Over  goto  R_Over 


B=Tij»ie  dorartps^j^ii^  J. 


Clear  CARRY  bit 

to  set  if  MSB  first  or  LSB_ first. 
Is  the  bit  a  zero 
Bit  is  a  one 


or  oaie.j? 


Reception  done 


the  software  is  organized  such  that  the  communication 
software  acts  as  a  Real  Time  Operating  System  (RTOS) 
which  gives  control  to  the  User  routine  for  a  certain  time 
interval.  Afterthiis  predetermined  time  slot,  the  usermust 
give  bade  the  control  to  the  Operating  System:- This  is 
ii»  cily  In  1h«  case  of  full^ 
Timinfl  considerations  are  such1! 
tralforappnBxjtntitely  hat  thetirneof  theMt  rate  and  ttw 
re^  ^  thehaH  tinw^  used  theOp«ating  Sy^tm 
(and  software  6elgefa)i  Please  refer  to  Tabi»|>ier,ttw 
delay  constants  ansl  th»  time  Mm  Usar  . gats  at  S  MHii 
inpot  dock.  0^tay«Qi^taiils  and  the  time  that  the  IMw 
gets  at  20  9nd4  MHz  input  clock  speeds  aramNn 
in  the  souice  code  listing  of  the  full  duplex  routkw.  At 
frequencies  other  than  4,  8.  or  20  Mfdlli^ilt 
tapnstants  and  the  time  the  user  gets  can  be  computed 
nbm  the  equations  given  In  Figure  6. 


FIGURE  5  -  FULL  DUPLEX  BLOCK  DIAGRAM 

 ,—  _  r- 


Xmtr 


Rcur 


RTOS 


'  •  ;;^jUlllUr»'- 

i' .".-"t.'uic -■  ■■•      '  .•: 


User 
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FIGURE  6  -  EQUATIONS  FOR 
CONSTANTS 


Baud_Cycles  =  Clkout/Baud ; 
Userjime  =  Baud_Cycles'  (float)  0.5 ; 
KO  =  (1.25'Baud  Cycles  -  2.0-User_tlme  -  89)/3.0    ;  IF  (KO  <  0) 
{ 

K0  =  0.0; 

Userjime  =  0.50*  (1.25*Baud_Cycles  -  89.0) ; 
1 

K1  =  (1.25*Baud_Cycles-18  -  Userjime  -  59.0  -  3.KO)/3.0 ; 
K2  =  (Baud.Cycles  -  Userjime  -  41 .0  -  3.K0)/3.0  ; 
K3  =  (Baud_Cycles  -  Userjime  -  61 .0  -  3.K0)/3.0  ; 
K4=  (Baud_Cycies- Userjime -55.0- 3.K0)/3.O;       '   ^  L.  3ih 
K5=  (Bau(L(^cles- Userjime -55.0.-aj<0)flJI*14l9  -  -airo- 
K6=  0.0;  u  J, 

K7=  (1.2S*Baii(LCycles-UserJIRM-».0-3.K^0: 


TABLE  1  -  DELAY  CONSTANTS  AT  t  MHz 
INPUT  CLOCK 


Constant 

19200 

9600 

4800 

2400 

1200 

KO 

0 

5 

39 

109 

K1 

39 

80 

150 

288 

K2 

27 

51 

86 

155 

K3 

21 

44 

80 

148 

K4 

23 

46 

82 

150 

K5 

24 

47 

83 

151 

K6 

0 

0 

0 

0 

K7 

45 

86 

156 

295 

User  Cycles 

86 

208 

416 

832 

Constant 

19200 

9600 

4800 

2400 

1200 

KO 

0 

13 

57 

143 

317 

K1 

49 

98 

184 

358 

705 

K2 

34 

60 

103 

191 

364 

K3 

27 

53 

96 

184 

357 

K4 

29 

55 

98 

186 

359 

K5 

30 

56 

99 

187 

360 

K6 

0 

0 

0 

0 

0 

K7 

56 

104 

190 

365 

712 

User  Cycles 

118 

260 

521 

1042 

2083 

For  example,  if  tfie  baud  rate  selected  is  9600  bps  (@  8 
MHz)  ,  tfien  tfie  total  time  frame  for  one  bit  is  approxi- 
mately 104  us.  Out  of  ttiis  104  jis,  61  (is  is  used  by  the 
Operating  System  and  the  other  4  ^^s  is  available  to  the 
User.  It  is  the  User's  responsibility  to  return  control  to  the 
Operating  System  exactly  after  the  time  specified  in 
Table  1 .  For  very  accurate  timing  (with  resolution  up  to 
one  clock  cycle)  the  User  may  set  up  the  RTCC  timer 
with  the  Prescaler  option  for  calculating  the  real  time. 
With  RTCC  set  to  increment  on  internal  CLKOUT 


TAU£  2  -  DELAY  CONSTANT^  iPif2Cf1§tt^' '  " 
INPUT  CLOCK 


(500  ns  @  8MHzCLKIN)andthe  prescaler  assigned  to 
it,  very  accurate  and  long  timing  delay  loops  may  be 
assigned.  This  method  of  attaining  accurate  delay  loops 
is  not  used  in  the  RS232  code  (RTOS),  so  that  the  RTCC 
is  available  to  the  User  for  other  important  functions.  If 
the  RTCC  is  not  used  for  other  functions,  the  User  may 
modify  the  code  to  replace  the  software  delay  loops,  by 
counting  the  RTCC.  For  an  example  of  using  this  method 
of  counting  exact  timing  delays,  refer  to  the  %laei^ 
routine  in  Full-Duplex  code  (Appendix  B). 

The  software  uses  minimal  processor  resources.  Only 
six  data  RAM  locations  (File  Registers)  are  used.  The 
RTOS  uses  one  level  of  stack,  but  it  is  freed  once  the 
control  is  given  back  to  the  user.  The  watchdog  timer 
and  RTCC  are  not  used.  The  user  should  clear  the 
watchdog  timer  at  reguleu-  intervals,  if  the  WDT  is  en-i 
abled.  I 

The  usage  offligfiKigiaBrtaEleseribetf  below.  The  user 
should  branch  to  location  *Qp_Sys*  exactly  after  the 
time  specified  in  Table  1  or  as  computed  from  Equattons 
in  Figure  6.  Whereas,  the  transmission  is  totally  under 
l^<bairitrot,  twRicQpHbn  is  under^je  cemtMiltrttie 
-  QpewMiH)  %"**'W-'A»lengMtheuaerdowile»»ii:»e 
■  XdHiS,  m^atf^s^  eeoiMs.-On  ^<eiim%miA 
Operating  System  s  constantly  looldngforaiMla 
the  usershouldnotmod'rfyelttierRjcioneflagorncvReg. 

TRANSMISSION 

Transmit  Data  isoutputonDXpin(BitOofPort_A).  In  the 
user  tmOmi^^i'eiK  sIKNjH  toad  the  data  to  be  trans- 
f$mm  to  M«>'M»eg'«Kd'  ««t^  xjlag  (bsf 
FtaglBUUNsd-  TMs  flag  gets  cleared  after  the  trans- 
'  iNisii(Mh#{9ifi^uld«A^ 
irtransmissieR%trJpriogr^.  Modifying  XmtReg  Mban 
X_flag  isibtMiaM»e#»Sri«ousdatatobetaansnnited] 

RECEPTION  K<i 

Data  is  received  on  pin  DR  (Bit  1  of  Port_A).  The  User 
stioukl  constantly  check  the  ''R_done"  flag  to  see  if 
reception  is  over.  If  the  reception  is  in  progress,  R_flag 
is  set.  If  the  receptkin  is  over,  "R_done"  flag  is  set  to  1 . 
The  "R.done"  flag  gets  reset  to  zero  when  a  next  start  bit 
is  detected.  The  usershould  constantly  check  the  R_dona 
flag,  and  if  SET,  then  the  received  word  is  in  Register 
"RcvReg".  This  register  getscleared  when  a  new  start  bit 
is  detected.  It  is  recommended  that  the  receive  register 
RcvReg  be  copied  to  another  register  after  the  R_done 
flag  Is  set.  The  R_done  flag  also  gets  cleared  when  th^ 
next  start  bit  is  detected. 

The  user  may  modify  the  code  to  implement  an  N  deep 
buffer  (limited  to  the  number  of  Data  RAM  locations 
available)  for  receive.  Also,  rf  receiving  at  high  speeds, 
and  if  the  N  deep  buffer  is  full,  an  XOFF  signal  (HEX  13) 
may  be  transmitted.  When  ready  to  receive  more  data, 
an  XON  signal  (HEX  1 1)  should  be  transmitted. 

SUMMARY 

PIC16C5X  family  of  microcontrollers  allbw  uSeis  ^ 

implement  half  or  full  duplex  RS-232  communicalion. 
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LOC    OBJECT  CODK 


ilS-232  Ccomunlcatlon  With  ttSSS^I 

Half  Duplex  Asynchronous  Communication 


mot 

0002 
0003 
0004 
0005 
0006 
0007 

ooo« 

0009 
0010 
0011 

0012 

0013 


This  program  has  been  tested  at  Bauds  from  1200  to  19200  Baud 

(  •  8,16,20  Hhz  axm  i 

Im  a  taat,  this  program  will  ache  back  the  data  that  has  been 
received. 


LIST 
INCLUDE 


P=16C54,  T=ON 

"PICREG.H" 


0001 

«»«*««    PIC16C5X  Header  »**»*»**•*«*«««••••**•*♦« 

OIPF 

0002 

PIC54 

equ 

IFFH 

;  Define  Reset  Vectors 

OlFF 

0003 

PIC55 

egu 

IFFH 

03FF 

0004 

PICS6 

3FFH 

07FF 

0005 
0006 

PICS7 
; 

egu 

7PPH 

0001 

0007 

RTCC 

equ 

1 

0002 

0008 

PC 

equ 

2 

0003 

0009 

STATUS 

equ 

3 

;  F3  Reg  is  STATUS  Reg. 

0004 

0010 

soil 

FSR 

; 

equ 

4 

0005 

0013 

Port_A 

equ 

5 

0006 

0013 

Port_B 

eiju 

6 

;  I/O  Port  Assignments 

0007 

0014 
0015 

Port_C 

equ 

7 

0016 

.*******•***************************************************************** 

0017 

0018 

;   STATUS  REG.  Bits 

0000 

0019 

CARRY 

equ 

0 

;  Carry  Bit  is  Bit.O  of  F3 

0000 

0020 

C 

equ 

0 

0001 

0021 

equ 

1 

0001 

0022 

DC 

equ 

1 

0002 

0023 

Z_bit 

equ 

2 

;  Bit  2  of  F3  is  Zero  Bit 

0002 

0024 

Z 

equ 

2 

0003 

0025 

P_DOWN 

equ 

3 

0003 

0026 

PD 

equ 

3 

0004 

0027 

T_OUT 

equ 

4 

0004 

0028 

TO 

equ 

4 

ooos 

0029 

equ 

5 

> 

TJ 
"D 

ni 
z 
o 

X 

> 
> 

0) 

(/> 


09 
|- 
< 

r- 
> 
Z 

a 
c 

m 
■n 
O 

3 


m 
X 


1^ 


0006 

0000  '  ■ 

0000 
0007 

0001 
0001 
0000 
0000 


0001 

0001 


0001 

0001    L  -  5 


mm  0^1}^ 


oo^s 

0006 


0000 
0001 


00«4 

mis 

0056 
0042 
0042 


0008  0001 


0030 
0031 

0034 
0035 
0036 
0037 
0038 
0039 

mm 
mm^ 
ms3 
mm 

0044 
0045 
0013 
0014 
0015 
0^16 
0017 
0018 
0019 
0020 
0021 
0022 

a&m 
em 
mm 
mwe 

0027 
0028 
0029 
0030 
0031 

oe3s 
mm 

0034 
0035 

0036 
0037 
0038 
0039 
0040 

mm 


PAl 
FA2 


LSB 
MSB 

TRUE 
YBS 
TKLSE 
190 


equ 

8ia- 

equ 
equ 

equ 
eqii  1  ^^ 
equ 


6 

7, 

lit  ,.  =  1-1 

0 
7 

1 
1 

0 


.*********#******************** 


********************* 


****************** 


,•**•*****«»*••***    eaWBiiinication  parameters  ************************** 


S_%9Be  equ 

R_MODE  equ 

X_Nbit  equ 
R_Nbit 


;  If  {  Xjmp^i)  9m,  t3:mm0X  USS  £Sjrat 

if  (  x_MSBE==0)  Then  trajiaiitt  MSB  flret  (  codec  like  ) 

;   If  (  R_M0DE==1)  Then  receive  LSB  first 

if  (  X_MODE==0)  Then  receive  MSB  first  {  CODEC  like  ) 

;  if  (X_Jlbit==l)  #  of  data  bits  (  Transmission  )  is  8  else  7 

;  if  (EJIbtt==J))  t-rOf  ^^ta^toita .  (  Kee^tsisai  )  Is  8  else  7 


t 


ta,"«u~  »'if  Sbit2  =  0  then  1  Stop  Bit  el«e  2  Stop  Bits 
z  mat 


X_f  lag 

R_flag  equ 


DX 
DR 


equ 
equ 


EAl 


Bia3D_3  -.»4''' 

BA0D_4  equ  . 86 

BAUD_X  equ  .66 

BAUD_Y  equ  .66 


!  Bit  5  of  F3   (  PAO  ) 

!  Bit  6  of  F3   (  PAl  ) 

;  Transmit  Pin  (  Bit  0  of  Port  A  ) 

t  Reoiive  Pin  (  Bit  1  of  Port  A  ) 


;  3*3%  <=  CI,KOaT/BaUd 
if  ■  e*3X,=  GLKODT/Baud 
;  3*3X  =  0.5*CLKOUT/Baud 
;   3+3X  =  1.25*CLKOUT/Baud 
;   11+3X  =  CLKOUT/Baud 
;   9  +3X  =  CLKOUT/Baud 


*********i(*****j|j********    Data  RAM  Assignments  ********************** 
1  ;  Data  received 


0009 

0001 

0045 

XmtReg 

RES 

1 

;  Data  to  be  transmitted 

OOOA 

0001 

0046 

Count 

RES 

1 

;  Counter  for  #of  Bits  Transmitted 

OOOB 

0001 

0047 

DlyCnt 

RBS 

1 

0048 

. ****** 

ii*m**itit*ii^*%it*ii****#iimHk*^itik*1lt**********************  ******* 

0049 

J 

ooso 

ORO 

0  vmcm 

v*ir  vw»  -CuiiMiifrg                            , .  # 

0051 

t 

0000 

0068 

0052 

Talk 

clrf 

RcvReg 

;  Clear  all  bits  of  RcvReg 

0001 

0625 

0053 

btfsc 

Port_A,DR 

;  check  for  a  Start  Bit 

0002 

0A30 

0054 

goto 

User 

;  delay  for  104/2  us 

0003 

0923 

0055 

call 

Delay4 

;  delay  for  104+104/4 

OVfi 

00S< 

*^^****»«f2*******C#)f|Nfc4^*t*ft*********  ***************** 

oof* 

0OS7 

oost 

0059 

OOCO 

IF 

Rjn»it  .. 

0001 

ocos 

ooei 

movlw 

8 

;'8iJI>ttta  ?^tts             '  ' 

00S2 

ELSE 

0063 

movlw 

7 

;  7  datahbttt 

O0C4 

ENDIF 

oots 

t  - 

0005 

002A 

OOfS 

movwf 

Count 

0006 

0403 

0067 

bcf 

STATUS, CARRY  " 

0068 

IF 

R_MODE 

0007 

0328 

0069 

rrf 

RcvReg, Same 

;  to  set  if  MSB  first  or  LSB  first 

0030 

ELSE 

OOTl 

rlf 

RcvReg,  Same 

0072 

■  "  "-r 

ENDIF 

0008 

0625 

0073 

btfsc 

PortJV.DR 

0074 

J 

1             ■■    •>  ( 

<  *i      - ,     .  -    % '    i'j"    r  ■'■  ; ' '  ' 

0075 

IF 

0076 

IP 

0009 

05B8 

0077 

bsf 

RcvReg,  MSB 

1  Condi  tl<»ial  Assembly 

0078 

ELSE 

0079 

bsf 

RcvRegiHSBfl 

008& 

ENDIF 

0081 

0082 

i-.V.  s 

BiC 

RevRag.SSB 

0083 

t 

r 

0084 

OOOA 

091F 

0085 

call 

DelayY 

OOOB 

02EA 

0086 

decf sz 

Count, Same 

OOOC 

0A06 

0087 

goto 

R_next 

0088 

************************ 

********************** 

OOOD 

0208 

0089 

R_over 

movf 

RcvReg,  0 

;  Send  back  What  is  Just  Received 

0029 

SntReg 

y  ******#»*»***********************«****************** 

MSnamlbter 

0OS3 


3 


0A9i 

If 

XJ»le 

OOOF  0C08 

0096 

movlw 

8 

0097 

ELSE 

0098 

movlw 

7 

0099 

ENDIF 

0010  002A 

0100 

movwf 

Count 

mm,  f 

Hit 

XJmm 

0$09 

-  -OCT*  

—  IF 

Kja>it 

0105 

ELSE 

0106 

rlf 

XmtReg,  Same 

0107 

ENDIF 

0108 

E^IF 

0109  ; 

Ol  M  -  - 

mf" 

tor  tuft,  BX 

0012  0925 

6111 

call 

Delayl 

0013  0403 

0112  X_next 

net 

STATUS,  CARRY 

0113  ! 

0114 

IF 

0014  0329 

0115 

rrf 

]&ii^teg,Same 

0116 

ELSE 

0117 

rlf 

XmtReg, Sane 

0118 

ENDIF 

0119  ; 

0015  0603 

BltO 

btfjJC 

STATOS.CJWRY 

0016  0505 

0121 

bsf 

0017  0703 

0122 

btfss 

STATUS,  CARRY 

0018  0405 

0123 

bcf 

Port_A,DX 

0019  0921 

0124 

call 

DelayX 

OOIA  02EA 

0125 

decfsz 

Count , Same 

OOIB  0At3 

om 

sroto 

X_next 

OOie  0505 

Hit 

bttf 

Port^,DX 

OOID  0925 

diss 

call 

Delayl 

0129  ; 

0130 

IF 

Sbit2 

0131 

bsf 

Port_A,DX 

0132 

call 

Delayl 

0133 

ENDIF 

0134  ; 

eolB  OAOO 

Bits 

^ote 

Talk 

OIS«  ; 

0137  ;  End 

of  Transmission 

0138  ; 

OOIF  oe42 

0139  DelayY 

movlw 

BAHD_Y 

0020  0A28 

014i3 

goto 

save 

;  Send  Start  Bit 


;  Conditional  Assembly 

;  to  set  if  HSB  first  or  LSB  first 


Send  Stop  Bit 


Back  To  Reception  &  Transmision 


0021 

0C42 

0141 

DelayX 

movlw 

BAUD_X 

0022 

0A28 

0142 

goto 

save 

0023 

0C56 

0143 

Del ay 4 

movlw 

BAUD_4 

0024 

0A28 

0144 

goto 

save 

0025 

0C44 

SiiS 

Dalayl 

movlw 

BAUD.!" 

0026 

0A28 

ms 

goto 

save 

'S<SM 

Delay2 

movlw 

BAUD_2 

O'SSt 

002B 

0148 

save 

movwf 

DlyCnt 

0029 

02EB 

0149 

redo_l 

decf sz 

DlyCntfSame 

002 A 

0A29 

DISC 

goto 

redo_l 

002B 

0800 

0151 

retlw 

0 

0152 

; 

002C 

OCOE 

0153 

main 

movlw 

OEH 

002D 

0005 

0154 

tris 

Port_A 

002E 

0525 

diss 

bsf 

Port_A,DR 

0156 

; 

002P 

OAOO 

0157 

goto  ■ 

Talk 

0158 

0159 

0030 

0C22 

0160 

User 

movlw 

BAUD_3 

0031 

002B 

0161 

movwf 

DlyCnt 

0032 

02EB 

0162 

redo_2 

decfsz 

DlyCnt,  Same 

0033 

0ft32 

goto 

xeda_2 

0034 

OAOO 

Talk 

0165 

ois^ 

; 

0167 

cm 

PieS4 

OIPP 

0%2C 

0168 

goto 

nain 

0169 

0170 

0171 

104  US  for  9600  baud 


Bit  0  of  Port  A  is  Output 
Set  Port^.O  as  output  (  OX  ) 


Loop  until  Start  Bit  Pound 


MEMORY  QSACE  MAP  CX'  =  Used, 


Unused) 


OOOO 
0040 


xxxxxxxxxxxxxxxx  xxxxx- 


0180 
OICO 


All  other  mesnory  blocks  unused. 
Errors      :  0 
Warnings  :  0 


MPASM  01.0Q.02  Alpha    GrVAI'-HOTESV      6-24-1994    9:Si43  BftgB  1 

RS232  CQBntuaieatioii  tr&Uf  Piei8C54 

£Q@    OBiTECT  CODE         Btiffi.  S#ttcE 

«}QOa  0C^O^   .^^AMf'*****************************  ******  ************************************ 


9#02  TITLE      »RS232  CQHimunication  Using  PIC16C54' 

6003  ;  ' 

0004  ;       Ccamneiiise  *  • 

0005  ;  (1)  Pull  Duplex 

0006  ;  (2)   Tested  from  1200  to  9600  Baud(  9  8  Mhz  ) 

0007  ;  (3)   Tested  from  1200  to  19200  Baud(9  16  S  20  Mhz) 

0008  ; 

0009  ;  The  User  gets  a  total  time  as  specified  by  the  User  Cycles 
OO'lO  ;  in  the  table  (  or  from  e^atlons  ). .  The  usex  routine  has  to 

0011  ;  exactly  liee  up  this  wount  a£  time.  Af  ter  this  time  the  User 

0012  ;  routine  has  to  give  up  the  control  to  the  Operating  System. 

0013  ;  If  less  than  52  uS  is  used,  then  the  user  should  wait  in  a 

0014  ;  delay  loop,  until  exa6tiy'^  uS'. 

0015  ; 

0016  ;  Transmission  : 

0017  !  Transmit  Data  is  output  on  DX  pin  (Bit  DX  of  Port_A) . 
0W18  ;  In  the  user  routine,  the  user  should  load  the 

ff019  ,-  data  to  be  tranauitted  in  the  ItmtReg  and  Set  the 

OOSa  t  jLflog  (  bs£  FlagRX,X_f lag  )  .  This  flag  gets  cleared 

0021  ;  af  ter  tim  tr«nsmi«sion. 

0022  ; 

0023  ;  Reception  : 

0024  ;  Data  is  received  on  pin  DR  (  bit  DR  of  Port_A  ) . 

0025  ;  The  User  should  constantly  check  the  "R_done"  flag 

0026  ;  to  see  if  reception  is  over.  If  the  reception  is 
002?  ;  in  progress,  R_flag  is  set  to  1. 

002^  ;  If  the  reception  is  over,  "R_done'  flag  is  set  to  1. 

0029  ;  The  *R_done''  flag  gets  reset  to  zero  when  a  next  start 

0030  ;  '             bit  is  detected.  So,   the  user  should  constantly  check 

0031  ;  the  R_done  flag,  and  if  SET,   then  the  received  word 

0032  ;  is  in  Register  "RcvReg" .  This  register  gets  cleared 

0033  ;  when  a  new  start  bit  is  detected. 

0034  ; 

0035  ;       ProgrMi  Mefflory  : 

0036  ;  Total  Progfram  Memory  Locatloajs  Ua*d  (  eiceept  initialization. 

0037  ;  in  "main'  S  User  routine  )  =  132  locations. 

0038  ; 

0039  ;        Data  Memory  : 

0040  ;  T&tal  Data  memory  locations   (file  registers  used)  =  6 

0041  ;  2  File  registers  to  hold  Xmt  Data  &  Rev  Data 

0042  ;  1  File  registers  for  ant/Rcv  flag  test  bits 


0043 

1 

3  File  registers  for  delay  count  &  scratch  pad 

0044 

0045 

1        Stack  I 

mie 

t 

Only  one  level  of  stfttdc  is  uaBd  ln  tbe  C^aratlnff -Systan/SS232 

■  toutlne 

.  But  this  is  freed  as  soon  aa  the  program  returns  to 

bd4« 

; 

user  routine. 

0ft4$ 

; 

Not  Used                                                        ■ '  ■  ■ 

OOSfi 

■;        RTQB  r 

6651 

;  M 

mot  Used 

0052 

; 

ods's 

LIST 

P=16C54,  T=ON 

mi 

liirciiaDE 

•PICREG.H' 

0001 

. ****** 

******** 

************    PXC16C5X  Headsr  ********************* 

0002 

PIC54 

equ 

IFPH      ;  Jfettae  IKeBot  ^et^s-'  '" 

0003 

PIC55 

equ 

IFFH                    "             ■  ^' 

0004 

PIC56 

equ 

3FFH 

OOOS 

PIC57 

equ 

7FFH 

> 

imsc 

«S» 

PC 

f  •■- 

0009 

STATUS 

i  '          j  F3  Reg  is  STATOS  Reg. 

0010 

FSR 

equ 

4 

0011 

0012 

Port_A 

equ 

5       ■          "   -                              '["'.'   '''     ''^  " 

0013 

Port_B 

equ 

6        '  )  I/O  Port  Assignments 

0014 

Port_C 

equ 

7  ■ 

0015 

01016 

. *******V«***«* 

****************************************************** 

0017 

; 

edis 

;  STATUS  REG.  Bits 

0019 

CARRY 

equ 

0            ;  Carry  Bit  is  Bit.O  of  F3  ' 

0920 

C 

equ 

0  - 

0021 

DCARRY 

equ 

1                             "           ■              '  ■ 

0022 

DC 

equ 

1-                 .  T 

0023 

ZJsit 

equ 

2             ;  Bit  2  'Si  ti  WzaSeh  Bit' 

0024 

Z 

equ 

2 

0025 

P_DOWN 

equ 

3'  ■■ 

0026 

PD 

equ 

3  ■ 

0027 

T_OUT 

equ 

4 

0028 

TO 

equ 

4 

0029 

PAD 

equ 

5 

0030 

PAl 

equ 

6 

0031 

PA2 

equ 

7 

0032 

0033 

Same 

eqii 

1 

0034 

W 

equ 

0 

0035 

; 

003^  tSB 

equ 

0 

0601 

0001 
0000 
0006 


iff 

0040 
0041 
0042 
0043 
0044 

a6l5 
dos4 
9isi 
sOoi 


MSB  equ 

TKOE  ^qu 

YES  equ 

FALSE  equ 

NO  equ 


0 

9 

s« 

.;  J 

********* 


,  INCLUDE 


"RS232.fi» 


,  ******************** 


0002 

0003 

0004 

0061 

0005 
0006 

gqu 

-  1 

■;  if M' xJ«6de==1)  Then  transmit  LSB  first 

if   (  X_MODE==0)  Then  transmit  MSB  first   (  CODEC  like  ) 

0061 

1 

;  If   (  R_M0DE==1)  Then  receive  LSB  first 

0#f 

I 

if  (  R_MODE==0)  Then  receive  MSB  first  {  CODEC  like  ) 

6001 

KJUbit 

1 

!  if.|  K_^1&^?1)  #  e£^i3ata  bl^«  (  Transmission  )  is  8  else 
;  if"'(  R_I»lt==l)  #  ot,'da'ea  tojfc^  (  Reception  )  is  8  else  7 

6661 

ooio 

RJ»>it 

1 

0011 

0060 

0012 
0013 

SB2 

fqu 

0 

;   if  SB2  =  0  then  1  Stt^  Bit 
;   if  SB2  =  1  then  2  Stop  Bit 

0014 

. ************ 

************************************************* 

0015 

Transmit  &  Receive  Test  Bit  Assignments 

Oqi6 

0060 

001^ 

X_fiag 

equ 

6 

;  Bit  0  of  FlagRX                     .  ^„ 

0002 

0018 

R_flag 

-  ;  Bit  1  of  FlagRX  ^  '  ' 

0003 

0019 

S_£lag 

equ 

3 

;  Bit  2  of  FlagRX 

0004 

0020 

BitXsb 

equ 

4 

;  Bit  3  of  FlagRX 

0005 

0021 

A_flag 

equ 

5 

0006 

0022 
6023 

S_blt 

equ 

6 

;  Xmt  Stop  Bit  Flag(  for  2/1  Stop  bits  ) 

0601 

6024 

R_done 

equ 

1 

;  When  Reception  complete,  this  bit  is  SET 

0006 

0,62S 
0026 

J 

ffft 

X_f  lag ' 

;  Hhen.. 3&nission  co^lete,  this  b^t  is  Cleared 

0660 

0027 

DX 

'sm 

0 

•  Tranwnlt  Pin  ,(  Bit  h^^t  Soit  i.  j 

0061 

0028 
0029 

DR 

equ 

1 

;  Reciive  Pin  (  Bit  1  #f  Part  K  1i 

0030 

.************************    Da^a  RAM  A^eigmoents  **^******************** 

0631 

00?2 

am  - 

Dumy  -Ori^fia  -        '               -  — 

6033 

0008 

0661 

6034 

RcvSeg^ 

1 

{  Data.receivecU..       ,  . 

06e» 

0001 

6035 

XmfeReg 

RES 

1  --- 

}  Bata  to  be-isiikarai^te(l  -    —  ' —  — 

OflflA 

9061 

0036 

1 

{  Cojinterj-fpr  iDf  B^ts  .Jransmittg^.  - 
!  Counter  for  jlpf  Sits,  to  be  Received 

666B 

6001 

0Oij 

RCOUiQt 

RES 

1 

3 

(D 

3 

(D 
3 

Qi 
I-* 

o' 

3 


3 

> 

fO 
»< 
3 
O 


O 

c 

(0 

(/) 


N) 


OOOC  0001 


n002 

OflOf 

uoe- 


0038 
0039 
0040 

If 
0044 
0045 
6046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
QQSS 

mi 

f|6S7 
0058 
0059 
0060 
0061 
0062 
0063 
0^64 

om 

oe6« 

Q0$7 

im 

607q 
6671 
bd7i 

0073 
0074 
0075 
0076 
0077 
0078 
0079 

doso 
mi 

0082 
0083 
0084 


DlyCnt  RES 
FlagRX  RES 


;  Counter  for  Delay  constant 

;  Transmit  &  Receive  test  flag  hold  reglstar 


Constants 

19200 

9600 

4800 

2400 

1200 

t     \  «  20  »hz  ) 

KO 

0 

13 

57 

143 

317* 

Kl 

49 

98 

184 

358* 

705* 

K2 

34 

60 

103 

181 

364* 

K3 

27 

.-53. 

,  .  f«. 

1«4 

357* 

t  ^' 

29  , 

.55 

98 

186 

359* 

K5 

30 

■  56 

99 

187 

360* 

,.  0 

0 

0 

0 

K7 

56 

,  HO 

3fi5* 

71?*. 

_ 

User  (^^IttB 

118 

521 

1942 

?0S3  .  ^ 

***************ilkjl*#**«*  ******  A**  ********** 

Constanta  . 

19200 

:  9600 

2400 

1200 

(  8  8  Hhz  )  ' 

KO 

0 

5 

39 

109 

Kl 

39 

80 

150 

288*' 

1^ 

27 

51 

86 

155 

K3 

21 

44 

80 

148 

5* 

23 

46 

32 

150 

»n 

24 

47 

83 

151 

K6 

0 

0 

0 

0 

.  KT 

45 

86 

156 

295* 

I  User_Cycles 

"86 

208 

416 

832 

***********************  ****** 

Constants 

19200 

9600 

4800 

2400 

1200 

(  »  4  Mhz  ) 

KO 

0 

5 

39 

Kl 

39 

SO 

150 

27  ■ 

51  ■" 

8« 

21 

44 

80 

23 

46 

82 

24 

47 

83 

Ke 

0 

0 

0 

K7 

45 

86 

156 

3 
■o 

(D 

3 

(D 
3 

fi) 

o 

3 

O 
— ♦» 

0) 
3 

> 

0) 
"< 
3 

s< 

O 
3 
O 

c 

CO 
(0 

o 

3. 


0000 
0027 
OOIB 
0015 

mm  ^• 

002D 


SB 


0000  OCOl 

0001  002C 

0002  02EC 

0003  0A02 

«tis  «m 

0006  02EC 

0S07  eim 
0008  aums 


0009 
OOOA 

OOOD 

OOOE 
OOOF 
0010 

mil 


002C 
02EC 


0625 
0A17 
042D 
054D 


0086 

0087 
0088 
0089 
0090 
0091 
0092 
0093 

«m 

0096 
0097 
0098 
0099 
0100 

MM 


I       User_Cycles  -  -  8i        198  fii 

.       1  II  1  I  ^         M  II  nimiiljirj  *     ii  I  I  It  i>  ifc  iM  M  III  'I  I II » ii  n  i  1'  M  >  II  ■  * »  m  i  11 1»  i>  w  I'  I  'M 

.  The  constanCs  marked  •  *  *  are  >255.  To  implement  these  constants 
;  in  delay  loops,  the  delay  loop  should  be  broken  into  2  or  more  loops. 
;  For  example,  357  =  255+102.  So  2  d«}t^  elm  l^tb  StSS  ami 

!  the  other  with  102  nay  be  used. 

^  i>iil>*i>***>*»**«**iw  O'llilltttJ*  "jjjlil  *'**IH>|' I*  n*********** 

)  Set  Delay  Coiut^H^  liC  MS  i«>d  •  ■  <  IBis 


9101 

0105 
0106 
0107 
0055 
0056 


KO 
Kl 
K2 
K3 
K4 
K5 
K6 
K7 


EQU 
EQU 
EQU 

Egu 


.'•■at 


.0 
.39 
.27 
.21 

.0 
.45 


0059 
0060 
0061 
0062 
0063 
0064 
«065 

esse 

0068 
0069 
0070 
0071 
0072 

msa 


.  *********** ************************ 

.  *********%i*******jt*lMi%********  **********************************  ********* 


Delay     movlw  KO+1 

movwf  DlyCnt 

redo        decfsz  DlyCnt, 

goto  redo 

retlw  lU--*"- '  c  '  w 

-L  ST-  til! 

Belayl   itei&wf  Sli^eKt  '  ;V:v- 

redo_l    decfsz  DlyCnt, Same 

goto  redo_l 

goto  User  • '  - 

Delay2    movwf  DlyCnt 

redo_2    decfsz  DlyCnt,  Same 

goto  redo_2 

■Sfeitoi  User_l 


Total  Delay  =  3X^6 


;  Delay  =      =  260  Cycles 


B^strt  btfae  PortJl.DR 
goto  ShellY 
bef 


;  clsmStP  feiTtt  start  Bit 

;  delay  for  104/2  uS 
FlagRX, R_done      ;  Reset  Receive  done  flag 


3 
■o 

(D 

3 

<D 

3 
1^ 
0) 

5" 

3 


Q) 
3 

> 


o 

3 
O 

c 

0) 

c/> 

0 


0)099 


bsf         FlagRX,  R_f lag      ;  Set  flag  for  Reception  in  Progress 


0012 

05AD 

0081 

baf 

FlagRX.A^flag 

;  A_£lag  is  for  start  bit  det*otad  in 

0013 

0068 

0082 

clrf 

;  Clear  all  bits  of  Rcn^leg 

0083 

IP 

R_Nbit 

0014 

0C08 

0084 

movlw 

6 

;   8  Data  bits 

0085 

ELSE 

0086 

movlw 

1 

/    1  oaca  Dxcs 

0015 

OOzB 

ittvi  • 

BNDIF 

0016 

0A78 

0089 

Cfoto 

Sholl 

7  oniiifty  sor  xwv!f«V'«/^' 

0090  ; 

0017 

078D 

n  A  A 1    f  I.  —  1  1  V 

uu?i  sneiii 

btf  ss 

0018 

0A78 

0092 

goto 

shell 

0019 

054D 

0093 

bsf 

r  X«||Ra  r  K_r  lag 

MfM 

0094 

05'''' 

0095  ; 

OCX'  - 

IF 

OOlC 

0098 

rrf 

RcvReg,  Same 

7  to  a0C  IX  USB  first  or  i^b  xirat 

0099 

ELSE 

0100 

rl£ 

RcvReg,  Sane 

0101 

ENDIF 

OOlD 

0625 

0102 

btf  sc 

Port_A*  DR 

IF 

H_JMODB 

IF 

OOIB 

05B8 

^£ 

RcvRttg,MSB 

;  cmoitinoAl  AflSflBibiy 

0106 

ELSE 

0107 

bsf 

0108 

ENDIF 

0109 

ELSE 

0110 

bsf 

0111 

ENDIF 

O'OIP 

02SB 

0i^2 

RTOUntiSune 

0A78 

Oll'l  ' 

044O 

0114 

bo£ 

FIdBRX,IL.£lag 

05  €D 

0115 

ba# 

Fl4KrRX(  S_eiag 

aS2D 

0116 

m4 

Q&78 

0117 

0118  ; 

0119  ; 

R«ception  Don* 

0120  ; 

0025 

0405 

bcf  ■ 

f  S«nd  start  Bit- 

om 

IF*  • 

0026 

0C08 

0123 

inovlw 

8 

0124 

ELSE 

0125 

movlw 

7 

0126 

ENDIF 

0027 

002A 

0127 

movwf 

Xcount 

SI38 

•IF 

0029  0403 
^p2A  0329 


002B  0603 
002C  0505 
002D  0703 
t02B  040S 

lit  M 

0031  040D 

0032  0C09 

0033  002A 

0034  0505 

0035  0A60 


esss 

0037  04CD 

0038  0A60 


0039  P76D 

m^.  90, 

dim  (>c4f 
0036  bjies 


003F  0900 

0040  0C28 

0041  002C 

db42  0C08 


0129 
0130 
0131 
6*12 
0133 
0134 
0135 
0136 
P13f 

bi38 

0139 
0140 
0)41 
$tii 
0143 

iUS 

0146 

6147 
Bl48 
Pi*9 
0150 

eisi 

0182 

eisi 
eisi 

BlS5 
0156 
6157 
OlSl 
0159 
0160 
0161 
0182 
bli3 

m 

0166 
0167 
0166 
0169 
0170 
0171 
0172 
0173 
0174 
S175 
0176 


X_next 


X_SB_1 


ELSE 

IF 
&LSE 

rlf 

XmtBag.Saiie 

-  •  r-v»p 

bcf 

STATUS , 

If 

X_MODE 

m: 

XmtReg,  Same 

rlf 

XmtReg ,  Same 

ENDIF 

btfsc 

STATUS ,  CARRY 

bsf 

Port_A,DX 

btfss 

STATUS,  CARRY 

bef 

PortJ^,DX 

^^'^ 

Xcount,  Satak' 

bcf 

FlagRX,X_flag 

movlw 

9 

movwf 

Xcount 

bsf 

Port_A,DX 

goto 

X_Stop 

bsf 

PortJV.DX 

bcf 

PlagRX,S_bit 

goto 

X_Stop 

End  of^^fiDOBilliSn 
R0_3C0 


RlJtO 


btfss 
goto 

goto' 


call 
movlw 
movwf 
IF 

movlw 


FlagRX,S_flag 
User 
IJ^JE.Mlag 


Delay 

Kl+1 

DlyCnt 

R_Nbit 

8 


to  set  If  MSB  first  or  LSB  first 


;  Xmt  flag  s  0  —  tranamlBsion  over 


;  Send  St<9  Bit 


delay  for  1st  bit  is  104+104/4 


;  8  Data  bits 
;  7  data  bits 


0177 

ENDIF 

Im 

0043  018B 

017| 

xorwf 

Rcount.W 

0044  0643 

btfsc 

STATUS,  Z_bit 

■o 

0045  0A06 

mo. 

goto 

redo_l 

0046  OCIC 

movlw 

K2  +  1 

(D 

2842  mi 

0182 

0133  ; 

Delsyl 

3 

rfl^»  ^%!^^^ 

.  -t 

enl 

0184  R1_X1 

7  same  as  R0_X1 

0048  0C09 

01?5  R0_3tl 

IBOVlW 

9 

0049  008A 

subwf 

Xcount,W 

[at 

004A  0643 

o  o 

00  CO 
CO  -J 

btfsc 

STATUS,  Z_blt 

604B  0A25 

goto 

X_8trt 

ion 

004C  022A 

01S9 

movf 

Xcount ,  Same         ;  to  check  if  All  data  bits  ^ted 

004D  0743 

0190 

btfss 

STATUS,  Z_bit 

004E  0A29 

0191 

goto 

X_next 

of 

01S2  ' 

IF 

SB2 

S193 

btfsc 

FlagRX,  S_bit 

an 

01*4  • 

goto 

X_SB_2 

0193 

bsf 

FlagRX, S_bit 

0196 

goto 

X_SB_1 

Async 

0197 

ELSE 

6G4F  0A31 

0198 

goto 

X_SB_1 

■     •     -  w 

0199 

0200  ; 

0201  ; 

0050  0A51 

0202  X_SB 

goto 

cycle4 

0203  C3^1e4 

0204  ; 

'ZfvZ y    f  v^v^                                       '  •          -  ' 

ro 

0052  06AD 

0205  X_Data 

btfsc 

FlagRX, A_flag 

0053  0A59 

0206 

goto 

SbDly 

o 

0054  068D 

0^07 

btfsc 

FlagRX, BitXsb 

c 

0055  0A5D 

0208 

goto 

ABC 

(0 

0056  0900 

0209 

call 

Delay 

0^7 

6210 

movlw 

K3+1 

(/) 

0211 

goto 

Delay2 

(D 

0212  ; 

0059  04«3 

0213  SbDly 

bcf 

iaI 

005A  0900 

0214 

call 

Delay 

005B  0C18 

0215 

movlw 

K4+1 

I/O 

005C  0A09 

0216 

goto 

Del  ay  2 

0217  ; 

005D  048D 

0218  ABC 

bcf 

FlagRX, BitXsb 

o  oss  mm 

0219 

call 

Delay 

ai22  X_Stap 

goto 

User_l 

0060  06AD 

flMlUCA^flag 

0061  0A59 

0224 

gotd 

SbDly 

0062  oesD 

0225 

btfsc 

FlagRX,BitXsb 

0063  0A5D 

t!22jS 

jgoto 

ABC 

0064  0900 

d023^ 

#»11 

Ddlfty 

0065  0C19 

MSB 

jnoviw 

0066  0A09 

^oto 

Delay2 

0067  064D 

<h ' ' ' 
Uaffl:_l 

btfsc 

FlagRX , R_£lag 

0068  0A77 

0233 

goto 

Sync  1 

■  Reception  alrea<^  in  pirogxesB 

0069  066D 

0233 

btfsc 

FlagRX,  S_^^4qjf 

006A  0A74 

#234 

goto 

Sync_3 

006B  0625 

{0235 

btfsc 

Port  A,DR 

•  check  foir  a  Staxt  Bit 

006C  0A77 

:03i3'.£ 

goto 

Sync__2 

;  Ho  Start  Bit  -  goto  User  £G11tlixe 

006D  042D 

■  Raaet  Reoeiw  dt^e  flag 

006G  044O 

4338 

be<' 

O06F  056D 

02^9 

bsf 

FlaaRX  BileXab 

■  Set  flag  fosr  Reception  in  Progress 

00,70  aQ£a 

0240 

clrf 

RcvRsg 

•   CIaai"  alT  bits  of  SfSVilaa 

IF 

RJJbit 

0071  OCOS 

0242 

movlw 

8 

;  8  Data  bits 

0243 

ELSE 

0244 

mavkni 

7 

;  7  datsa  hita 

0345 

i.e.    ,1         tP.    -    '."i  :  ■■                           1  '  , 

0072  002B 

0246 

Rspuptt  . 

0073  OABD 

0247 

goto 

Hser  -,  o 

0248 

0074  046D 

9249 

6ync_3 

bcf 

FlagRX,  SJlaa  >, 

0075  OCOl 

0250 

movlw 

K6+1 

0076  OAOS 

0251 

goto 

0252 

02E3 

Sync_l 

0077  0A8D 

0264 

Syno_2 

0OtO!- 

Osez 

02S5 

025S 

.  11***  Itiiltt********  **********************************  II******  *******  ********* 

1 

0078  06«D 

b2S8 

Shell 

btfsc 

FlagRX, R_f lag 

0079  0A7D 

D^S$ 

goto 

Chek_X 

007A  060D 

0260 

btfsc 

FlagRX, K_f lag 

007B  0A48 

0261 

goto 

ROJU 

a07C 

0262 

;  Case  for  ROJCO 

0263 

Chek_X 

rlag«RX,:L.flag 

007E  0A48 

0264 

goto 

007F  0A3F 

02  6S 

goto 

RIJCO 

-» 

0266 

02  $-7 

is  -  -■ 

0368 

- ************************************************************************* 

02  f9 

»  

(^7p 

f    Hba  Osar  routins  after  tine 

=  B/2t  should  brancb  Bare 

OOio  074D 

0271 

; 

0^73 

op_sys 

btfss 

PlagRX.R^flag 

0081  OAQD 

0273 

0082  OAIB 

0274 

0275 

0276 

0083  OCOB 

0084  0005 

0280 

0085  0505 

0281 

0086  0C09 

^82 

0087  002A 

<^S3 

0088  006D 

02M 

031$ 

pis 

0089  d4cb 

^2|i 

0289 

008A  OCIF 

0290 

0D8B  oq.s| 

0291 

008C  OASO 

0333 

0394 

0395 

0296 

0297 

0298 

0299 

0300 

0030 

^303 

Q3t^ 

008D  0C30 

008E  0021 

^05 

008F  062D 

eios 

0090  0A97 

0387. 

0091  060D 

0308 

0092  0A9C 

0309 

mi  mi 

0^10 

0311 

0(^5  OSes 

0312 

0096  0A9C 

0313 

03i% 

0097  0C5A 

03:t«< 

0098  0188 

0099  0643 

031^ 

mm 

0330 

goto 
goto 


R_strt 
R  next 


11******^1^^*1111*  tiUli******  ******************************************  ******* 


wsnrlm 

;  Bit  0  of  Port  A  is  Output 

> 

i«e>i*Ji 

;  Set  Port_A.O  as  output  (  DX  ) 
&  Port_A.l  Is  input  (  DR  ) 

bsf 

PortJl.DX 

movlw 

9 

movwf 

Xcount 

;  If  Xcount  »  9,  fhaa  senct  etsrt  bit 

glrf 

FlagRX 

;  Clear  All  flag  bits. 

;  Set  Xmt  Stop  bit  flag(2  Stop  Bits) 

'  bn  f 

ELSE 

il"'  \  .    .  - ■ 

bcf 

Flac^a.SJbit 

1  Clear  Xat  Stop  bit  flag 

ENDIF 

movlw 

IFH 

;   Prescaler  =  4 

OPTION 

;  Set  RTCC  increment  on  internal  Clock 

goto 

<*>_sys 

J  ********,********,*_*,*^****************** 


*********** 


***************** 


************* 


^*    User  Routine  *************** 
The  User  routine  should  use  up  time  exactly  =  User  time  as  given 
in  the  Constants  Table  {  or  by  Equations  for  constants  ) . 
At  9600,   this  86  Clock  Cycles.  RTCC  timer  is  used  here  to  count 
upto  86  cycles  (  From  128-86  To  0  )  by  examining  Bit  7  of  RTCC. 


miser  e^ 

t 

User  movlw 
movwf 
bttsc 
goto 

SetXmt  btfsc 
goto 
ncwlw 
movwf 
bsf 
goto 

BrrChk 

movlw 
xorwf 
btfsc 

error 


.128+. 6-. 86 

K„user 
RTCC 

FlagRX,R_dQne 
ErrChk 

FlagRX,XL:f,laa 

op   .  . 

JEWtBeg 

ElagR^.XLtla® 


RcvReg.W 
STATUS, Z_bit 
^itXnt 
er«9C ' 


Enable  Xmission 


I  Received  word  is  not  "Z 


009C  07E1 
009D  0A9C 
009E  0A80 


OlFP  0A83 


0321  ; 

0322  Op 
0323 

0324  Oflow 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 


QOtO  Op 

goto  Op_Sys 


,•  Tost  for  RSSSe  Ml  f 

I  If  Set,  Then  RTCS  has  Incranmtod 

:   to  128. 


*********************** 


********* 


ORG 
goto 


PIC54 
main 


MEMORY  USAGE  MAP   ('X'   =  Used, 


Unused) 


cm  I  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 

0044  I 


0080  I 

ooco  I 


xxjocxxxxxxxxxxx- 


0180  : 
OICO  ! 


All  othar  nenozy  blocks  unused. 


Brrors  i  0 
Warnings  :  0 


Implementation  of  an  Asynchronous  Serial  I/O 
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Using  a  PIC16C5X  as  a  Smart  PC™  Peripheral 


The  PIC16C5X  microcontiollers  from  Microchip  are 
ideally  suited  for  use  as  smart  peripheral  devices  under 
the  control  of  the  main  processors  In  systemsdue  to  their 
low  cost  and  high  speed.  They  are  capable  of  perfomiing 
tasks  which  would  simply  overload  a  conventional  mi- 
croprocessor, or  require  considerable  logic  circuitry,  ata 
cost  competitive  with  lower  mid-range  PLDs.  To  mini- 
mize the  engineering  overhead  of  adding  multiple  con- 
trollers to  a  product,  it  is  convenient  for  the  auxillaty 
controllers  to  emulate  standard  I/O  peripherals. 

A  common  interface  fdOHif  in  odsttigiModii^llslte  ^ 
bus.  Itiis  efficient,  two-wire,  bi-directional  intette^sl- 
lows  the  designer  to  connect  multiple  devices  togtM", 
with  the  microprocessor  able  to  send  data  to  and  rec^Ve 
data  from  any  device  on  the  bus.  This  interface  Is  found 
on  a  variety  of  components,  such  as  PLLs,  DACs,  video 
controllers,  and  EEPROMs.  If  a  product  already  con- 
tains one  or  more  1^  devices,  it  ,is  simple  to  add  a 
PlCt«Ei3t  «aiiilallrifl4a  eawpSHWe  ^^p^nt.  , 

ll^ippltcation  note  describes  the  implenwi^iton  ^'a 
sanaifd  slave  device  with  multiple,  bi-draot^rHd  iB$is- 
ters.  A  subset  of  the  fuH  PC  afiBcificc«ia»  is  aippofl^i, 
which  can  be  controlled  by  1ht«« 
would  tak  to  a  tf^s^Mp  ^Kt^p^lppiS  EEMbM. 


iional  Inc. 


THE  PC  BUS 


The  PC  bus  is  a  master-slave  two-wire  interface,  c0jl- 
sisting  of  a  clocic  line  (SCL)  and  a  data  line  (SOA).  fl- 
directional  communication  (and  in  a  full,  multi-master 
system,  collision  detection  and  clock  synchronization)  is 
facilitated  through  tjje  of  a  wire-and  (ie.  active-iow, 
passive  high)  cefiMeBpir -I] 

The  standard-mode  I^C  bus  supports  SCL  djbck  ^ 
quency  14)  to  100  KIHz.  The  newly  released  faftfnd4e 

tkm  nttfe  wIR  ititpfm  kHz  tstHniifert^rnoclb)  ao&( 
rate. 

Each  device  has  a  unique  seven  bit  address,  whk:h  the 
master  uses  to  access  each  individual  slave  device. 

During  normal  communication,  SDA  is  only  pemiitted  to 
change  while  SCL  is  low,  thus  providing  two  violatkvi 
conditbns  (see  Figure  1 )  which  are  used  to  signal  a  start 
condition  (SDA  drops  while  SCL  is  high)  and  a  stop 
condition  (SOA  rises  while  SCL  is  high),  which  frame  a 


FIGtiRE  I  -  PC  TIMING 


start  Data  Bit  More  Bits  Stop 


SOA 


110    1111  R/W 


SCL 


TimjumjiJiJiJiiULr 


Each  byte  of  a  transfer  is  9-bits  long  (see  timing  chart  in 
the  program  listing).  The  talker  sends  8  data  bits  fol- 
lowed by  a  "1 "  bit.  The  listener  acknowledges  the  receipt 
of  the  byte  and  permission  to  send  the  next  byte  by 
inserting  a  "0"  bit  over  the  trailing  "1".  The  listener  may 
indicate  "not  ready  data"  by  leaving  theaeknevfledgs 
bit  as  a  "1". 

The  clock  is  generated  by  the  master  only.  The  slave 
device  must  respond  to  the  master  within  the  timing 
specifications  of  the  I^C  definition  otherwise  the  master 
would  be  required  to  operate  in  slow  mode,  which  most 
software  implementations  of  I^C  masters  do  not  actually 
support.  The  specified  (standard-mode)  tCL  is  4.7  jis, 
and  tCH  is  only  4  us,  so  it  would  be  extremely  difficult  to 
achieve  the  timing  of  a  hardware  slave  device  with  a 
conventional  rtiiaoeontroller. 

MENAGE  FORMAT 

A  message  is  always  initiated  by  the  master,  artd  begins 
with  a  start  condition,  followed  by  a  slave  address  (7 
M^S)  and  directton  bit  (LSB  =  1  for  READ,  0  for 
IfWlTE).  The  addressed  slave  must  acknowledge  this 
byte  if  It  is  ready  to  communk:ate  any  data.  If  the  slave 
fails  to  respond,  the  master  should  send  a  stop  and  retry. 

It  the  direction  bit  is  "0"  the  next  byte  is  considered  the 
sub-address  (this  is  an  extension  to  I^C  used  by  most 
multi-register  devices).  The  sub-address  selects  which 
"register"  or  function  subsequent  read  or  write  opera- 
tions will  affect.  Any  additional  bytes  will  be  received  and 
stored  in  consecutive  locations  until  a  stop  is  sent.  If  the 
slave  is  unable  to  process  more  data,  it  could  tetminate 
transfer  by  not  acknowledging  the  last  byte. 
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If  the  direction  bit  is  '1 ' ,  the  slave  will  transfer  successive 
bytes  to  the  master  (while  the  master  holds  the  line  at  '1 '), 
while  the  master  acknowledges  each  byte  with  a  "0"  in 
fie  ninth  bit.  The  master  can  terminate  the  transfer  by 
.nQtaeknqwIadging  the  last  byte,  while  the  slave  can  stop 
ttia  transfer  by  generating  a  stop  condition. 

The  start  address  of  a  read  operation  is  set  by  sandrig 
awiita  request  with  a  sub-address  only  (no  data  bytes). 
For  a  detailed  set  of  timing  diagrams  and  different 
communication  modes,  consult  £viy  of  Vne  Mictochip 
24LCXX  EEPROM  specifications.  This  program  com- 
municates using  the  same  formats. 

IMPLEMENTATION    -  — 

The  chip  will  respond  to  slave  eui^esss 
i  '0B/IC€JVDDRESS-,\i^i(^t>ydifniltlsl|]6,^ 
read).  This  address  was  chosen  beciHisajlisliefourtl^ 
optional  address  of  a  Philips  PCI%7S|p{«^)^itandero|r 
a  TDA8443  tipple  video  switcl1'  (unllmy  fl^  a  (Hodudt 
would  contain  four  of  these).  "  ' 


FIGURE  3  - 1%  DEVICE  FLOWCi; 


FIGURE  2 


SCHEMATIC  OF  PC 
CONNECTIONS 

'-    n  ri  r, 


+5V 


rspA>- 


+5V  U1 


RA2 

RA1 

RA3 

RAO 

RTCC 

OSC1 

MCLR 

0SC2 

Vss 

Vdd 

RBO 

RB7 

RB1 

RB6 

RB2 

RB5 

RB3 

RB4 

PIC16C5X 


*  fi^  mf^f    paadsd  If  net 


15pF=p 


X1 
20  MHz 


=T=15pF 


The  connections  to  the  device  are  shown  in  Rgure  2. 
The  use  of  RAO  for  data  in  is  required.  Data  is  shifted 
directly  out  of  the  port.  The  code  could  bemodified  to 
mato  It  port  independent,  but  the  loss  of  efflelencqrinay 
hinder  some  real-time  applications. 

This  application  emulates  an  K  device  with  8  registers, 
accessed  as  sut>-addresses  1  through  8  (modulo  7), 
plusadata  channel  (0).  The  example  code  returns  an  ID 
^string  when  the  data  channel  is  accessed.  When  bytes 
are  written  to  sub-addresses  other  than  0,  they  are 
stored  in  I2CR0-I2CR7  (I2CR0  gets  data  wijiieiilOiiHb' 
i8). 


Intid  1%  Potts 


5 


nen(l*CPIaow 


\Do^telnUs9fTask\ 


\  GetSubrAddtess  \ 


\  (Prooe««|Me8«a9e)  \  " 
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Whan  the  Initial  std>-address  is  0,  f»  i«o  Btffi}  is  ttH, 
This  ts  used  to  indicate  access  to  a  t^acisri  eMuMi:  in 
this  case,  the  data  diinnel  is  used  to  rrtain  an  ID 
message,  or  output  data  to  port  6,  however  the  nameal 
extension  would  be  to  use  this  as  a  data  I/O  channel. 

To  make  the  basic  device  routines  easily  adaptable  to  a 
variety  of  uses,  macros  are  used  to  implement  the 
application  specific  code.  This  allows  the  developer  the 
option  of  using  subroutine  calls,  or  in-line  code  to  avoid 
the  4  dock  cycle  overhead  and  use  of  the  precious  stacl<. 


Macro  User  code  function 

USER_MAIN  Code  to  execute  in  the  main  loop  while 
not  in  a  message.  If  this  code  tal<es  too 
long,  tSH  of  4(j.s  will  be  violated  (see 
Fig.  1).  The  slave  will  simply  miss  the 
address,  not  acloiowledge,  and  the 
master  will  retry. 

USER_Q  This  would  be  quick  user  code  to  imple- 
ment real-time  processes.  In  most  ap- 
plications, this  macro  wouU  be  empty. 
If  used,  this  routine  should  be  kept 
under  4{is  if  possible. 

USER_MSG  This  would  be  user  Code  to  process  a 
message.  It  is  inserted  altera  message 
is  successfully  received. 

US&tiM^&V  This  would  be  user  code  to  process  a 
received  byte.  It  allows  the  user  to  add 
extra  code  to  implement  special  pur- 
pose sutvaddresses  such  as  FIFOs. 

Mf^a^iNf  This  woukl  be  user  code  to  prepare  an 
output  byte.  In  the  deteuit  routine,  it 
traps  sub-address ^0  and  calls  the  iO 
string  function. 
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FC  Bus  Specification,  Phillips  Components,  December 
1988. 
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Fenger,  Carl,  'The  tntar-lntegrated  Circuit  (120)  Serial 
Bus:  Theory  and  Practical  Consideration",  Application 
Note  168,  Philips  Components,  December  1988. 
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APPENDIX  A: 


HPASH  BO.  54 


If    3"  Ji.f.     ■  1  ■ 


PAGE  1 


ii  S4S1.' 


•  it  ,ae»..'  :r 

'1  ,»rw..<foi" 


0000 


LIST        P=16C54,   C=80,  N=0,  R=DEC 


CPU  EQU  1654 

SIM  EQU  0 


C";  Change  tining  constants  for  sijmilator 


OIPF 


JffmwS  EQU         OlFFH  ;iec54  start  address 


ENDIF 


IF  CPU==1656 
_RESVEC  EQU  03FFH 
ENDIF 


;16C56  start  address 


IP  CPO==16S7 
_RESVEC  EQU  07PFH 

ENDIF 


;I^S7  start  address 


.***  Reset  Vector  ****************************************!'' 

,        ■!'    b^i  jf.c       ii.  :c-.l    -  i!)   .t'.'i  . 


OlFF  OAOB 


,***************** 


A*********************************** 


********************************************************** 

*  Macros  to  set/clear/branch/skip  on  bits 

*  These  macros  define  and  use  synthetic  "bit  labels' 

*  Bit  labels  contain  the  address  and  bit  of,  a  location 


Usage 


Description 


^3H 


BIT 
SEB 
CLB 


SKBC 

BBS 

BBC 

CBS 

CBC 


label, bit, file 

label 

label 

label 

label 

label, address 
label , address 
label , address 
label ,  address 


Define  a  bit  label 

set  bit  using  bit  label 

clear  bit  using  bit  label 

SKIP  on  bit  set 

SKIP  on  bit  clear 
BRANCH  on  bit  set 
BRANCH  on  bit  clear 
CALL  on  bit  set 
CALL  on  bit  clear 


i  ************************************  It*  1t******1c***1ctr  11**11*11* 


SIT  MACRO  label, bit,  file  ;DefiiM  a  bit  label 
IMsel     BQO  file«8|bit 


MACRO      label  ;Set  bit 

BSF         labal»8 ,  label«7 ;  (nacro ) 
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CLB 

MACRO 

BCF 

ENDH 

label            ^  ir 
label»B,laiM>l«7  r  ^ 

;  Clear  bit 
;  (mtcro) 

BTFSS 
EHEM 

label»8, labels?  .: 

;  Slcip  on  bit  set 
;  .^uicro) 

i  ^C9C 

^  ,  MACRO 
BTFSC 

label 

label»8 ,  lal>el&7 

;Skip  on  bit  clear 
;  <iiiacro) 

^Bs 

BTFSC 

GOTO 
ENDH 

label»8 ,  1<^1&7 
address 

sffUneh  on  bit  set 
!  («wero) 
; (macro) 

BBC 

MACRO 
BTFSS 
60*0 

label , address 
address 

;  Branch  oii:bit  clear 
1  (nacro) 

'-St-' 

u  •it*.... 

-  f  Jfjr,it^ 

sirai 

l<d^^addre*B 

.]j<d£^>8',  lalaalS? 

;C«],]i  on  bit  set 
;  (maero) 

HACRO 

CALL 

msTW 

label ,  address 
lcibel»8 ,  label&7 

,-Call  on  bit  clear 
; (macro) 

0000 
0000 

mi 

;For  taaend^ar  portability 
W              EQU  0 

w         Eqp  0 

P           B!S»        1                  -1  - 
f  1 

;For  file.W 
;Por  file.W 
;Fov  file.F 
;For  file.F 

.*«*********««*******«jk  ****** ****************************** 


OSS 

0 

0000 

0001 

ind 

RES 

1 

0001 

0001 

RTCC 

BES 

1 

0002 

eooi. 

FC 

RES 

1 

0003 

0001 

STATUS 

RES.,-. 

1 

;*  Sfattus  re9 

bits 

BIT 

B_C,0, STATUS 

0300 

■  'Wea 

SXATDS«8|0 

■3  : 

a*' -JOS 

.1              ..  <^t,f 

imm 


BIT 


BJX.l.STATDS 
H  1 


;0RO  for  register  declaration 

; O=pseudo-reg  0  for  indirect 

4J.sreal  tiae  counter 
;2=PC 

;3'stati>s  xpg 
; Carry 
;Bal£  carry 


0303 


9JS 


BIT  B_Z,  2,  STATUS 
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0303  BJD         •aSi  STATOS'>«*I3  ""'^ 

"■  BIT  B_TO,  4,  STATUS       ;  Timeout 

i*«iBj;iJ  :  c  ig^:  BJ»0, 5, STATUS    ;*&S|fe=  aalSot  i 56/57  ohly) 

03^  » JAO    '  StATOS«8|5 

ji<i  tin  i.  B_PA1 , 6 ,  STATUS     ;t>H0ft  Belei^  (56/57  Only) 

0306  B_Wkl''     EQU  STATUS«8|6  --^  ' 

BIT  B_PA2, 7,  STATUS     ;GP  flag 

eSff  atlggg-  STATUS«8|7 


0004 

0001 

FSR 

RES 

1 

;43=flle  select  reg  0-4=indirect 

OOOS 

0001 

PORTA 

RES 

1                 '  ■-  ■ 

;5^{ii^t  A  I/O  register  (4  bits) 

OOOC 

mm 

PORTS 

RES 

1  ' 

'  f<S<#^  B  I/e  register 

IF 

(CPU==1655) 1 1 (CPU==1657) 

BBS 

1 

;  7=1/0  port  C  on  16CSi/S6  only 

EHBir 

;  registers  used  Isy  this  code 

0007 

0001 

RES 

1 

;— i2c  flags  

BIT 

B.JtD,0,I2CFLa 

;Flag:  l=read 

mm 

BJIb» 

I2CELG«8  1  0 

if,  •  = 

J  Mil- 

;?laig:'  V=res9!lng  unit  address 

0701 

ago 

I3£SI^<8|1 

BIT 

B_SA,3,I3CFL6 

;  Flag  I  l=xeading  su]»Bbress 

0703 

B_SA 

EQU 

I2elIiS«8  1 2 

(1  .->* 

BIT 

B_ID,3,I2CFLG 

;Flag:  threading  id 

0703 

B_ID 

EQU 

I2CFL6«8  1 3 

OOOS  0001 
0009  0001 
OOOA  0001 


i%esm  -  iaes  ■  i 

I2CSDBA  RES  1 
I2CBITS  RES  1 


I2C  I/O  regtSier^ 
Subaddress 

I2C  TotA.'i.  Mt  ecnmter 


. **********************************************  ************  i> 
;  *  8  Pseuds  Eagtaters  accessed  by  sub-addresses  1-8 
;*  (address  0  aoeessas  the  lO  string) 
;  *L  tbese  aire  read-write  ragleters' 

^.***************************«*ie«<*»«if4tv*****«4******ik<*#*****  0' 


OOOB 

OOOB  0001 


OOOC 


:PCR0  BQtr 

BBS 

I2CR1  EQtJ 


;  Sub-address  8 
;8  pseudo  registe 

;  Sub-address  1 
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odoc 

0001 

TJ/r    5-/ J  I..;- 

I2CR2 

EQU 

$ 

■  Sub~Adici3res8  2 

0001 

RES 

1 

I2CR3 

9 

J  Sii]>-&dc2]r6ss  3 

OOOE 

0001 

t    ■              •  -  • 

O'OOF 

I2CR4 

EQU 

$ 

.  rTfil8.>AJIfclirj-tn  n  A 

OOOF 

0001 

RES 

1 

I2CR5 

EQU 

5 

0001 

RES 

1 

i2CRe 

$ 

;  Su3»^^-a^3dres8  6 

0011 

0001 

RES 

1 

0012 

I2CR7 

EQU 

$• 

0012 

0001 

RES 

1 

;Constants  used  by  program 

00D6  DEVICE.JUDDRESS  EQU  0D6H        ;I2C  device  address 

.,  :  la     0  J*u.^  .  .  J. 

■    ,vj  si.  ',**********************************«#********************** 

3./  ,         3 J  PORTA  DEFINITIONS  ' 

;**  I2C  Interface  uses  PORTA 
;      note  SDA  goes  to  AO  for  code  efficiency 
I  ** 

. ********************************************************** 


00P7 
00V6 
OOP? 

0500 


TAREAD  EQU 

TAWRITE  EQU 

'A-  : 

TAINIT  BQU 

BIT 

B_SnA  EQU 


B'llllOlll' 
B'llllOllO' 
TAREAD 

B_SDA,0,  PORTA 
PORTA«8  I  0 


;TRISA  register  for  SDA  rea 

;TRISA  register  for  SDA  wri 

;  Initial  TRISa^^  VKltte 

;I2C  SDA  (data)  This  must  be  bit  01 


BIS- 


;I2C  SCL  (clo<E%) 


; spare 


B_???,2,P0I^  ;not  used 
B_>r?  ,  y,1K3SSA    •  J  hot  usfed 


^ ***************************************** ***************** 
■  t  trmii*-*  Port  B  dBeinitloS  {Parallel  out)      '       •  J' 

,  **  - 

. **********************************************  ************ 


0000 
OOFF 


TBINIT  EQU 
PBINIT-*  BQO  - 


B' 00000000' 
Baillll'il' 


;Port  B  tris  (all  output) 
YV&tt.  B  iait 


J  ********************************************************** 

;*  Macros  to  contain  user  POLL  loop  code. 

;*  These  are  iicplimented  as  macros  to  allow  ease  of  modification, 
I*  e^ecially  in  real-time  «^^lications.  The  functions  could  be  coded  ft 
;*  in-line  code  or  as  subroutines  d^ending  on  Rcai/time  tradeoffs.  ' 
'  * 

I  *  USERjaiNi      Decision  or  code  to  perforai  at  idle  time 
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.*  USBR_Qi 


'Quick'  code  for  ase  during  tsamafer  -  max 
I'C  Spec.  More  than  4  fis         result  in  I'C 

full  spec  speed. 


;*  trSEEOiSG:  Code  to  execute  at  receipt  of  I'C  CQmnand. 
t***  Ibis  would  be  naer  cede  for  idle  loop 


n'- 


USER_I3  MACRO 

;***  This  would  be  quick  user  code 


msBo 

.**»  This  %f9uld  be  user  code  to  process  a  mssaage 

ENDM 


i  f 

.UOl  IJ.' 


USER_RECV  MACRO 

;***  This  would  be  user  code  to  process  a  received  byte 
;***  example  code  sends  sub-address  0  to  port  b 

BBC         B^ID,Jtiai_notid  ;  Channel  01  Bit  sat  if 


MOVFW  I2CREG 
MOVWF  PORTS 
GOTO  IN_CCajT 


'  '<;i|et  received  byte 
r>nd  write  It  on  portb 


_J>XI_notid 


ENDM 


xjsmjaar  h&cro 

;***  Tbis  would  be  user  code  to  prepare  an  output  byte 

;*#*  wcample  code  sends  id  string  to  output 

BBC  B_ID,_NXO_notid        -  .-Channel  0!  Bit  set  if 


CALL  GETID 
QOTO  00T_CONT 


;get  next  byte  from  ID 
;and  send  it 


_jnco_noitid 


******************************************** 


I  seisa  OF  eoDS 

J  ********************************************************** 

.  ********  *********************^int*************.*******p.*i^**** 

; *  Device  ID  Table   (must  be  at  start) 

;*  TABLE  FOR  UNIT  ID  returns  next  char  in  W 

,  *******************,*****  ***********^*************^********* 


0000  02O9 

0001  OS07 

0002  01B2 


AMDLW  07H  , 
ADDHF  PC,P 


;W=I2CSUBft 

;Lijiiit  to  8  locations 


,********************************************************** 

S*  IMviee  IP  text:  ve^d  BtaxtiMa  4£  9ub-adA:«ss  0 
.**********«*********************************************** 


0003 

0850 

RETLW 

>p. 

'               zitiuu   .".  ,  .  1 

0004 

0849 

RETLW 

■I' 

0005 

0843 

RETLW 

>C' 

■  -i;.  •       >  .'.  iLf 

0006 

0S49 

RETLW 

'I' 

0007 

0832 

RETLW 

'2' 

0008 

0843 

1  SM&M 

■c 

0009 

0800 

RBTLW 

0 

nWWtifilMMIMf 
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«St        .S«viea : EQUtines  f 

;*  - 

^onbiA  BDMft BKH,  ^se  stats  en<M  to  t 
;*  wette  is  t»  ne,  r«ad  Ik^^aa.lMC-  j 


first  byte  /  aj|il»eqiuuit  write 


;*  SDA      -I  X— X--r*T-X-^tT-*a— X— tX- 

;*  |-X — — X — ^X — ^X — ^X — ^X — ^X- 

;*   (bit)       s        7  6  5  4  3  2 

SCL  _|  i-i  i-i  i-i  H  |*h.4-|  ..H  I 
>*  H   I-!   W  -..Iw-l  :jaH  I- 


a.l  232323232  "3. 23232 
>  :<ss=sa^=^^^«a  ffiibsequant  reads  ^ 


;  *  -X— X— X — — ^X— X— Jf— X— X 
■3?  ;*  ;(bit)ack      7  6  5  4  3  2  1 

;*  SCL    -I     I-I     I-I     I-I     1-1     I-I     I-I     I-I  I-I 
1-1     I-I     I-I     I-I     I-I     I-I     1-1     I-I  I 


;*  STATE:     7     8     7     8  7 
:f>^{n  ■4-.  s» .         _   -  1.  . 


7878787878 


7  8 


Final  RSU}  ss#^#===== 

»— x-*9r 

-X — X — X — ^X — ^X — ^X — ^X — ^X — X 
(bit)ack      7  6  5  4  3  2  1 

SCL    -I      I-I      I-I      I-I      I-I      I-I      I-I      I-I  I-I 

I-I   1-1    1-1    1-1    I-I    I-I   M   1-1  I 


!*  SXWnSi    7    8    7    8    7    8    7    Demztt    1 '^9^  7 
^  ..  •        ..-  .,iiB»  •  •  - 

;*  STATE  B  is  an  ignore  bit  stati«:£ste  aon-addressed  bits 

;  *  STATE  C  indicates  last  sampla'lttwt-aiSR  low 

J*  on  rising  edge  of  ENA,  DATA  LOW  mrJL^  voltage,  DATA&CLOC 

.  ********************* 

;12C  interface  uses  PORTA 

saefee  SBDV  anst  be  on  smiZ&.'.O  fo«vco^««f£lei«ney 

J *********************************************************** 

; **  INIT   :  . 

;**  Hardware  reset  emtry  .toii^  '  .■.i  ;  _ 

.  *  *  -fi, 

.  **  ***********  **************************4;*^^*^^|^^***«***** 

INIT        ;  Power-on  entry 

J  **J'^*/^#**fj^j»#t******************«**f  ********************* 


software  reset  entry  point 


.********************************************************** 


RESET 


;Soft  reset 
-! ;  Inir  ports 


OOOB  0CF7  OVLW     TABRT  :  • 

oooc  0005  IRIS     Biitm  <  j 

OOOD  OCOO  qo;«  "  tttili<-imMKK»'-^'^BB!ST  'v 
oooE  0006  Ttas      VOBm  ' 

ooop  oc^  wsrnM  PBiNiT 

Mi%  0826  wmm  PORTS 

.  *  ******^^4|-**************  ***************************  *** 

Hain  walt  loop>  ahile  iiUe.  FOLL  loop  shAiU  Vk'tsnlled  here 
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OOIA  0625 


OOIB  060S 

{Kiic  mil 


OOID  0605 
OOIB  OAll 

0021  0004 

0022  OCOl 

0023  0028 


0011 

0004 

cwias 

;  Clear  watchdog  timer 

;riite  «tat^  flags 

0012 

0427 

BCF 

B_nA»8 ,  B_UA47 

CLE 

E_SA 

'  i'f  mit  B^te  Idgs 

0013 

0447 

BCF 

B_SA»8,B_SA47 

CLE 

E_RD 

;lnit  seats  :f  lags 

0014 

0407 

BCF 

B_RD»8,B_RD47 

XoapX 

0015 

0004 

.-Clear  watchdog  timer 

;Call  user  code  while  in 

;***  This  would  be  user  code  fos  idle 

loop 

SSBC 

;Wait  for  sr>A&SCL=H 

wm 

BTFSC 

loop2       S  i 

1   ii^a  , 

B_SCL                          1  . 

J)  -  1     ' —    ^.   -   •  ■ 

0017 

0725 

l -\  *^ss'- 

-B_SCL»8,B_SCL47  1 

0018 

0A15 

GOTO 

lo^l 

;  No  longer  valid  to  mit 

0019 

0004 

J   £    i  cERwiPr 

>'  ;ei4aS  wCeatao^:  timer 

USER_HAIN  ;Call  user  ood^  .iAiile  in  idle  state 

a»«e-y*#*-f5iis  would  be  user  tto^'  fe^  i^e-loop 
}»*  wait  for  start  ** 

SKBC      B_SCL  ;  Clock  has-dt^o^ed 

BTFSC      B_SCL»8 ,  B_SCLi7 
0         I        SKBC      ajmk  •  -i        ;Bataxdeoeped. . .  Startl 

'  Bomc  «ij^a^M.Sdsa)»ib7'l  '-i 
-«m!T*-|  ip«^  !  -I     Hi-  l-l 

;**  START  RBCBl?^!  -  wait  t&t  first  Mtl 
loop3  ^ 

BBS        B_SDA, I2CWAIT  ;Data  raised  before  clock  dropped  - 

BTFSC  B_SnA»8,B_SnA&7 

SOTO  I2CHilIT 

BBS        B_9Sr^«e«i^^  X— X -X  tmM  for  ^ocle  low 

BTFac   B..,s«ai»>a»j«^etfr'».  -r  -  t-v  ,.. 

•         i       GOTO  ?Lo^S  t         ?         d         >  Id..* 
JfttXISTTE  '      I  ' 

CLRWDT  ; Clear  watchdog  timer 

MOVLW  1  ;  Init  receive  byte  so  bit  f 

8   ^ .  ■-'      mmim   tasmat   \-    •    <    s    ■    ►    v  j.^Tt 

;**  Shift  bits!  -  external  poll  nay  be  executed  during: low 
;*  ENABLE  line  Is  checked  for  loss  of  enable  ONLY  daring  HI 
;***  CLOCK  IS  LOW  -  DATA  MAY  CHANGE  HERE 
•  ••*  We  have  at  least  4  fis  before  any  change  can  occur 

••••1l©e#4   

USER_0 

}•*•  nilaHmald  bei^lck  oser.ieod*  n-  r.  ■•    s.i  ■ 

'  ' •       ■  -  ■■  ■  ■ 


BBC 

B.SCL  1  loQp4A 

;Wait  fo£  sloele  hi;^ 

0024 

0725 

BTFSS 

B_SCL»S ,  BJ3CIA7' 

0025 

0A24 

GOTO 

loop4A 

•*••}••*■  CLOCK  IS  HIGH  -  SHIFT  BIT  - 

then  watch  for  change 

0026 

0305 

RRF 

PORTA,  W 

;Move  RAO  into  C 

0027 

0368 

•«••••-        -  'fgtg'»'  ■ 

-I2CSB3,7 

;  Shift  in  bit 

0028 

0603 

SKfMC 

;Skip  if  not  done 

0029 

0A36 

GOTO 

ACK_I2C     Tfi'Ai  y. 

002A 

0608 

BTPSC 

I2CRBO,0 

;Skip  if  data- bit  was  0 

002B 

0A31 

•  -    ■  >    •  GOTO 

ii_l 

;This  bit  was  set 

il_o 

SBC 

B_SCL, loop4 

;Wait  for  clock  low 

002C 

0725 

B^FSS  . 

B_SCL»8 ,  B_5C167 

002D 

0A24 

GOTO 

loqp4 

SKBS 

'i'^nra?;BMt«.  lew-high  stop 

002B 

0705 

BTFSS 

B_Sl3fc>>S ,  B_SI»S7 

002r 

0A2C 

GOTO 

ii_0 

I2CST0P 

TJSBRJISO 

jprocess  completed  mesaa 

mait  brtff^Sbt*  «ouid-be  user  code -GbiprMess  a  message 

0030 

OAll 

GOTO 

I2CWAIT 

;back  to  main  loop 
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0031  0705 

0032  OAll 

0033  0725 

0034  0A24 

0035  0A31 


OQSS  $727 
0<m  0A8B 


0038  0647 

0039  0A97 


•  aWSffl"  'B!S8S*»*,B!ja»*7 

GOTO  I2CWAIT 

BBC  B_SCL,loop4 

BTPSS  B_SCL»8 ,  B_SCLi7 

GOTO  loop4 

GOTO  ii_l 
ACH_I2C  'if 

BBC  B_ia,ACIL.m 

GCWO'  -ilKEjaipfr'        t  .  J. 

BBS  B_SA,ACK_fflli 

BTFSC  B_SA»8 ,  B_aUi7 

GOTO  ACK_SA 


'  B'&ltML  htgh-low  -=  start 


(«&it  for  clock  low 


,-Ktot  adStiSecNa 


check  unit  address 


;  Reading  secondary  address 


;**  i3o  what  iRust  be  done  with  new  data  bytes  here  (before  A 
Don't  aek'tf  byte  can't  be' pitetNaiK&d!  ' 


003*  0767 
003B  0A3F 
003C  0208 
003D  0026 

003E  0A47 

Oa3F  0C07 

0040  0169 

0041  OCOB 

0042  01C9 

0043  02A9 

0044  0024 

0045  0208 

0046  0020 


0047  0625 

0048  0A47 

0049  0405 
004A  0CF6 
004B  0005 

004C  ms 


00^  0725 


004F  0625 

0050  0A4F 

0051  OCF? 

eesz  ooos 

0053  0707 

0054  0A21 


USER_RECV 

;***  This  would  be  user  code  to  process  a  received  byte 
--  exanple  code  sends  sub-address  0  to  port  b 


Brrss 
memo 

■  ■  ■mmiF'' 

GOTO 
_NXI_notid 

MOVLW 


B_ID»8 ,  B_IDS7 

jrei_notid 
i2mma 

PORTS 

IN_C0I1T 

07H 


MOVLW 

ADDHF 

INCF 

MOVWF 

MOVFW 
MOVWF 


DI_.C0I9T 
AGKlocp 


B^SC 

GOTO 

CLB 

BCF 

TRIS 

CUB 

BCF 


ACKloop2 


I2CSDBA,W 
I2CSUBA 

FSR  ■>  .  : 

I2CREG 

ind 

B^.^Qi/ACKlo^ 
B_SCi.»8 ,  B_SCLS7 

ACKloop 
B_SDA 

B_SnA»8 ,  B_SDA47 

TAWRITS 

PORTA 

M^SBti"---  ■■ 
B_snR»8 ,  B_SI»£7 


;9Mt  rwealved  byte 
;aaA  %t3^te  it  on  portb 


; Register  count 
iliinit  register  count 
. Pseudo-  regi  s  ter  8 
y^fset  imoBi  buffer  start 
;HegiE£  «<d>«ji3&ess 
iXs/Sitm^  address 
'y-  'I.. 

sPaZ  ^ta  into  register 

; continue  point  for  interce 

;IMi£tcXor  clock  low 


USER_Q 

;***  This  would  be  quick  user  code 

BBC  B_SCL,  ACKloop2 

BTFSS  B_SCL»8,B_SCLS7 

OOTO  ACKlo<¥2 

OSER_Q 

J***  Ibis  would  be  quick  user  code 

BBS  B_SCL,ACKloop3 

BTFSC  B_SCL»8 ,  B_SCLS7 

GOTO  ACKloop3 

TOIS"  ■  PORTA  r'-e  ."f 

BBC  B_RD,NGXTByTE  l 

BTFSS  B_RD»8 ,  B_RDS7 

GOTO  NEXTBYTE 


;iSet  ACK  (juSt  in  case  docs  are  wrong) 


;Hait  for  eloiSk  hl£^ 


;Wait-  for  clock  low 


;Bnd  ACK 


Skii^  if  read  (we  were  acking  adtteess  oi 


******************* 


I2C  Readback  (I2C  read  request) 

J^licatiOB'%pecif  ic  code  to  g/tt  Igytes  ea*  jMod  may  be  add 


OSeBSffCipesll 
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i  3».'       ;  This  routine  gets  data  from  location  pointed  to  by  ISCSUB 

;  sends  it  to  I2C.  Subsequent  reads  get  sequential  addresse  ^ 
;  AND's  the  register  t  with  7  to  Itmit  to  8  registers  (for 
tci  s-icoold  be  nodSpfied  to  do  a  ean^arlacpi  to  an  aljlolute  nunbe 

J  ************* 

NEXTODT  J'.  . 

;•**  «<  PUT  NEXT  BYTE  IMTO  12CREG  HB^  IjOifl  >»••** 

USER_XMIT  rir 

.*•*  Ibis  would  be  aiMr  <Stde  to  prepare  an  ea^ut  byte  '   Vu  ti 

;*•*  example  code  Midis  id  string  to  output.  Tc 


0055 

0767 

It.ia»»«,B_IDS7 

0056 

aA59 

GOTO 

_>IXO_notid 

I'l 

omi 

0$00 

CALL 

GETID 

,-get  n^t  byte  from  ID  cban 

0^ 

msv 

GOTO 
_IlXO_notid 

0DT_C011T 

;and  send  it'  ' 

0059 

0C07 

MOVLW 

07H 

/Register  count 

0a5A 

0169 

ANDWF 

I2CSaBA, f 

f'Limit  register  count 

OOSB 

OCOB 

MQVLW 

I2CR0 

;  Pseudo-res^st€srs 

005C 

01C9 

ADDHF 

i2csaBA,w 

.•Offset  from  buffer  start 

ooso 

02A9 

INCF 

I2CSUBA 

;Next  sub-address 

OOSB 

0024 

.  MOVWF 

FSR           :  •  . 

/Indirect  address 

005P 

0200 

MOVFW 

OOT_CQNT 

ind 

;Get  data  from  register 

0060 

0028 

MOVWF 

I2CREG 

«!e  to  Init  l2CRBG^^mm^^J^a■^amla»rl  DC-.' 

0061 

0C08 

■—'iC  l  rro  ^.MOmM' 

.  8 

--  ;Bit  eounter  ■ 

mnvmt 

.«•  aat  bits! 

—  external  poll  may  be  executed  during  low  c 

J  may  also  be  executed  during  high  cycle  if 

^ttm^-  ;*  ENABLE  line  is  checked  for  loss  of  enable  ONLY  during  HI 
.***  CLOCK  IS  LOW  -  CHANGE  DATA  HERE  FIRST 1 

^•znJ»  •     ;***  loop  1:  data  was  1  . 

iiOUT_loop_l  .      f.  ■  I 


0063 

0368 

DLF 

I2CREG,P 

; Shift  idata  out,  MSB  flrat    >  )*■ 

0064 

0603 

SKFNC 

;1-W8'ti' t^iange  i.k 

0065 

0A79 

-    ikt  ipl  .  GOTO 

iiOUT_l 

;Oabea^  tmotiier  11 

aifc;  f :  joi   ; '  -  ■  ;  CLB 

B_SDA 

;  Output  tt  r. 

0066 

040S 

BCF 

B_sr)A»8 ,  B_SDAi7 

0067 

0CP6 

Mi,  insmm' 

.  TAmtlTS            ^  < 

0068 

0005 

TRIS 

CLB 

B_snA 

;Set  dKta  (just  In  case  docs  a£e 

0069 

0405 

BCF 

B_SI»»8 ,  B_SI»t7 

i  iouT_0 

m* 

CLRHDT 

jOmm  ma.t<±iaog  timer 

USER_Q 

.  ■  1 

i.c«:^             This  would 

be  quick  user  code 

110UT_loop_02 

BBC 

B_sa. ,  iiOOT_lo^_02 

;Walt  for  clock  hlj^ 

006B 

0725 

BTFSS 

B_SCt»8 ,  B_SCLS7 

906C 

0««B 

GOTO 

i  i  0UT_1  oop_02 

t  USER_Q 

;***  This  would 

be  quick  user  code 

liOOT_loop_03 

BBS 

B_SCL,  iiOOT_loop_03 

;Wait  for  clock  low 

006D 

0625 

BTFSC 

B_SCI<»!8 ,  B.JSCI*7 

006E 

0A6D 

GOTO 

iiOOT_loopi:Ot.  t^^  ,p 

006F 

02EA 

wet  ■<■-  DECFSZ 

I2CB1TS         . t -A .  - 

; Count  bits 

0070 

0A74 

GOTO 

iiOUT_loop_flt  - 

;Loop  for  last  bit  0 

0071 

0CF7 

MOVLW 

TAREAD 

;Done  with  last  bit  0...  Se 

0072 

0005 

TRIS 

PORTA 

0073 

0A80 

GOTO 

iiOUT_ack 

;Get  ACK 

0074 

0368 

SUM 

I2ClaSQ,F--a'.,  •   ^.  - 

,  i^^T^tM  out,  MSB  first     '  j  .-' 

0075 

0703 

SKPC 

1  ;  0->lSf  shange 

0076 

0A6A 

»••••.  GOTO 

iiOOT_0  

•  •iOii^Qt  another  0 1 

0077 

0CF7 

»:<      -  MOVLW 

TAREAD 

1   jSet  to  1 

0078 

0005 

TRIS 

PORTA 
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iiOOT_l 


0079 

0004 

CLRWDT 

;  Clear  watchdog  timer 

USER_Q 

.**«  This  would 

be  quick  user  code 

iioOT_lo<^_12 

BBC 

B_SCii,  iiODT_lo<^_12 

;Wait  for  clock  his^ 

075!f 

BTFSS  B_SCI.»8,B_SCLS7 

GOTO 

iiOOT_loop_12 

USER_Q 

;***  This  would 

be  quick  user  code 

i  iOUT_loop_l  3 

BBS 

B_SCL,  iiOUT_loop_13 

;Walt  for  clock  low 

007C 

0625 

BTFSC 

B_SCL»8 ,  B_SCLS7 

GOTO 

iiODT_loC5>_13 

0078 

02BA 

DECPSZ 

I2CBITS 

; Count  bits 

007P 

0A63 

GOTO 

ii0UT_loop_l 

•Loop  for  last  bit  1 

iiOOT_ack 

;Get  acknowledge 

0080 

02A9 

INCF 

I2CSUBA 

:  Next  sub-address 

iiOUT_lo<^_a2 

BBC 

B_SCL,  iiOUT_loop_a2 

;Wait  for  clock  hi^ 

OOSl 

072S 

BTFSS 

9^^CL»8 ,  B_SCL&7 

0082 

OMl 

SOTO 

iiOS^_lo^_a2 

BBS 

S^sm,  I2CMAIT 

;IIo  ACK  —  wait  for  restart! 

0OS3 

06OS 

BTFSC 

9_,sm»9 ,  B_SnA&7 

00S4 

OAll 

GOTO 

I2Ct^T 

;—  prepare  next 

character  here  J 

iiot3T_loop_a3 

BBC 

B_SCL,NEXTOUT 

;Wait  for  clock  low  -  output  nextl 

0085 

0725 

BTFSS 

B_SCL»8 ,  B_SCLi7 

0086 

0A55 

BBS 

B_SOIk,  iiOOT_loop_a3 

;Watch  out  for  new  start  condition! 

0087 

0605 

BTFSC 

B_SDA»8 ,  B_SD&fi7 

0088 

OAS  5 

GOTO 

iiOUT_loop_a3 

0089 

OAll 

GOTO 

I2CWAIT 

;  stop  received! 

OOSA 

OAll 

GOTO 

.***************#*«*******«.******«*****«***************«*** 

;*  lAilt  adirsBB  ceewivsd  -  cbecSk  for  valid  address 
.  * 

.  1i1t4i*1r  ******************  If  *1r*1iii  It  11  *************  *  *******  ****** 

ACK_UA 

SEB 

B_UA 

;Flag  unit  address  received 

008B 

0S27 

BSF 

B_nA»8,B_nAs7 

OOSC 

0608 

BTF9C 

i2ci)EQ,a 

;Skip  if  data  coming  in 

&SB 

BJ© 

;Flag  -  reading  frcn  slave 

008D 

0507 

BSF 

BJRD»8,B_1IDS7 

008E 

0208 

MOVF 

12CREG,W 

;Get  address 

008F 

OEFE 

ANDLW 

OFEH 

,-Mask  direction  flage  before  ccnpare 

0090 

0FD6 

XORLW 

DEVICE_ADDRESS 

; Device  address 

0091 

0743 

BNZ 

I2CWAIT 

;Not  for  meJ    {skip  rest  of  message) 

0092 

OAll 

BBS 

B_RD,ACKloop 

;Read  -  no  secondary  address 

0093 

9«07 

BTFSC 

B_RD»8  ,  B.JiI>£7 

sm* 

a&47 

GOTO 

ACKloc^ 

SEB 

B_SA 

;Next  is  secondary  address 

0095 

0547 

BSF 

B_SA»8,B_SAS7 

0096 

0A47 

GOTO 

ACKloop 

;Yes!  ACK  address  and  continue 

********  irlr***  *****************  *t******-k**ilil**** 

*  Secondary  address  received  -  stow  it I 

*  SA  -  0  is  c<»iverted  to  128  to  facilitate  ID  read 
********************************************************** 


(3M 

B_SA 

;Flag  second  address  received 

0097 

0447 

BCF 

CLB 

B_SA»8 ,  B_ 
B_ID 

_SAii7 

0098 

0467 

BCF 

B_ID»8 ,  B. 

.ID47 

0099 

0208 

metmti 

I2CREG 

;Get  subaddress 

009A 

0643 

SEB 

B_1D 

;IIot  0 

;Flag  -  id  area  selected 

0098 

0S67 

BSF 

B_ID»8 ,  B. 

.IDS7 

imm*1f>p»ga  13 
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PIC16C54A  EMI  Results 


INTRODUCTION  ;      v  n,i 

This  paperdiscusses  the  ^1  resultsof  thePIC16C54A'; 
TRMtt  meBBurementS  we(imiHn4ilr  an  Mepen«MfM 
c6n«»ilMg  f  li<m  that  spaciataitfiftWtetromapatiet^ 
teig!  These  m&ul«sarefofttkp»M$^;stMt^i^^ 
dfesign  will  ha/e  its  own  P^te.'  -"  slo-»»'pe>t 

DEVICES  USED 

These  tests  were  done  on  a  random  PIC1 6C54A  device, 
and  should  t>e  considered  as  typical  results.  MHal  tsel- 
ing  was  done  on  three  tx>ards  /  devices.  TMe  devtoe; 
frequency  of  the  boards  were,  respectively,  32  lOHz,  4 
MHz,  and  20  MHz.  As  would  be  expepted  ttiere  was  a 
sub^p^  cU^renoe  (decrease)  at|^  loff  fieqU&nc/ 
as  cornered  to  the  higher  frequencies.  The  dlference 
between  the  4  MHz  operation  and  the  20  MHz  operation 
was  marginal.  The  final  testing  of  tfie  device  was  done 
at  4  MHa  and  uras  aocording  to  the  FCC  measurement 


SYSTEM  USED 

The  PIC16C54A  device  was  tested  in  the  Microciiip 
OHMMETER  board.  This  board  is  a  three  layer  board, 
with  a  ground  plane.  Power  and  ground  planes  greatly 
help  in  the  compliance  of  designs  to  the  FCC  part  1 5 
subpart  Btesting.  This  board  had  minimal  other  external 
components,  so thatthe  electromagnetic  measurements 
could  mostly  be  attributed  to  the  device  and  design  of  the 
system.  To  reduce  the  noise  that  comes  from  a  power 
supply,  a  10  nF  bypass  capacitor  was  attached  to  the 
power  /  ground  of  the  input  jacit.  —  . 


EMI  TESTING 

The  testing  of  electromagnetic  noise  (EM)  on  a  system 
has  two  types  of  commonly  used  testing  environments, 
an  internal  and  external  environment.  The  internal  test  is 
done  is  a  screen  room  to  reduce  the  amount  of  stray  EMI . 
The  indoor  tests  is  useful  in  determining  the  source  of 
EMI  radiation.  The  extemtii  ioA  is  done  outdowpj|^ 
places  the  equipment  under  test  in  an  erwirorment  1o 
measure  radiated  emissions  (EMI).  The  FCC  only  re- 
quires 9ie  outdoor  testing  of  devices.  The  equipment 
under  tM  (EUT)  w«s  positlbhed  f9  tfiaiMizeHl^inis- 


sions.-  -  ■  - 

INTERNAL  TESTS 


^e  equipment  uildwtMt  wee  performed  on  a  wooden 
test  bench,  inside  a  screen  room,  0.8m  above  the  earth 
ground  plane  (see  Figure  1).  The  EUT  was  powered 
through  the  Line  Impedance  Stabilization  Network  (LISN) 
bonded  to  the  ground  plane.  The  LISN  power  was 
filtered  and  the  filter  was  bonded  to  the  ground  plane. 
The  EUT  was  positioned  on  the  table  with  the  minimum 
distance  from  any  conductive  surface,  as  specified  in 
MP-4.  The  excess  power  cord  was  wrapped  in  a 
flgure-8  pattern  to  form  a  bundle  approximately  8  cm  in 
length.  The  EUT  configuration  was  set  for  the  highest 
emission  frequency,  and  data  was  collected  under  the 
program  control  of  the  host  computer.  Ttie  spectnjm 
analyzer  collected  the  maximum  peak  readings  over 
each  spectrum.  The  six  highest  emission  levels  and 
corresponding  frequencies  were  sorted  and  are  listed  in 


I 


TABLE  1:  CONDUCTED  EMISSIONS  RESULTS 


Frequency  (MHz) 

Emission  Level  dBuV 

Emission  Level  uV 

Specification  Limit  uV 

0.5345 

33.2 

46 

250 

7.085 

33.1 

45 

250 

10.08 

33.1 

45 

250 

10.42 

33.3 

46 

250 

11.62 

33.4 

47 

250 

nm 

^.8 

49 

250 

mm 


0im 


^mSSBW^fsgel 
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While  in  the  screen  room  additional  analyses  on  the 
device  was  done.  First  a  local  probe  was  used  to  test  the 
emission  levels  around  the  board  and  device.  Tbmm 
were  no  measurable  emissions  at  the  I/O  pins  or  their 
corresponding  trace  lines.  Emissions  were  measured  at 
the  jack  to  the  power  supply.  The  power  supply  and  coid 
were  the  greatest  source  of  emissions  for  the  EUT.  TTils 
is  due  to  the  power  cord  being  an  antenna  which  emitted 
the  r«oise  from  the  power  supply.  Designers  should 
attempt  to  minimize  antennas,  which  emit  EMI.  Anteffi 
nas  could  be  the  power  supply  cord,  as  well  as  traces  on 
the  system  board. 

Second  the  PIC16C54A  was  monitored  for  susceptibil- 
ity, following  the  lEC  801-3  specification.  This  test  was 
measured  from  27  MHz  to  500  MHz  in  1 0  KHz  steps.  The 
device  did  not  display  any  signs  of  susceptibility  (see 


TABLE  2:  RADIATED  SUSCEPTIBILrTY 


EXTERNAL  TESTS 


The  open  field  site  used  for  radiated  emission  tesj^ 
was  setup  according  to  tIfiA  KX:  buHatIrt  d&T"^. 

EUT  was  mounted  on  a  tumteble.  The  posiKon  of  the 
turntable  is  remote  controlled  to  detemiine  the  highest 
emissipri  levels.  Initial  testing  was  done  with  a  broad 
baMlieuFitMloftttie  antennamast  distance  of  3  meters. 
RirttMr  kwestigalion  was  done  to  determine  the  EUT 
positions  that  produced  the  maximum  level  of  emis- 
sions. The  receiving  antenna  w«e  mounted  on  the 
antenna  riiest.  The  antenot^^ONI.Vi(i»Mi|i(id  to  fM 
higtwst  level  of  mdiataid«iMei^  aMaiii  frequency. 

AsqueneiM  w«»  sorted  0»d  am  liSIlM  in  Table  3. 
Rgures  3  and  4  show  the  dBuV  vs.  MHz  graphs. 


Frequency 
(MHz) 

SPEC 
V/M 

Threshold 
V/M 

Modulation 

Comments 

27.0  -  500.0 1 

3.0 

1                            -■  'it.ri,l 

>3.0  "s-S. 

t  Frequency  incremmenled  mMi^i^lM)im><  ao  U'M 

■-  ijBi''  *erl  '•neli  urrjoit 
.■b<9Wi»  .  ■«J«>ri>.''<Hj(ni»: 


■ii^.i-  ecu '  V)»w«e>rl 
■fT  i50ipT*m  w». 


tABLE  3:  RADIATED  EMISSIONS  RESULTS 


Frequency 

Meter 
Reading 
(dBuV) 

Antenna 
Factor 
dB 

Effective 
Gain 
dB 

Distribution 
Factor 
dB 

Corr.  Rdg 
dBuV/m 

Corr.  Rdg. 
uV/m 

Spec  Limit 
uV/m 

36.01 

53.1 

11.8 

34.0 

0 

30.9 

35 

100 

40.04 

53.0 

11.3 

34.2 

0 

30.1 

32 

100 

44.04 

56.1 

11.1 

34.0 

0 

■ ''-iMra  ■ 

46 

100 

48.04 

55.1 

11.0 

33.7 

0 

32.4 

42 

100 

64.05 

55.2 

9.0 

33.9 

0 

30.3 

33 

100 

11i05 

56.0 

10.6 

33.4 

0 

33.2 

46 

wo 
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f  

1000 
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CONCLUSION 

The  PIC16C54A  device  can  be  implemented  into  sys- 
tem designs  that  are  required  to  be  certified  to  the  FCC 
Class  B  specification  limits  as  defined  by  the  FCC  Title  i 
47,  Part  1 5  Subpart  B  and  lEC  801  -3  susceptibility.  ' 

APPENDIX  A:  TEST  SETUPS 


FIGURE  3:  CONDUCTED  EMISSIONS  TEST  SETUP  FOR  SITE  "A" 


I  Screen  Room  Wall 


EUT  80  cm  away  from  the  LISNs. 
ilVor ii^ from  wall. 


Wooden  T^  Bench  (1  x  1 .5  m) 


Accessoiy  LISN 


EUT 


Accessory  Power 

80  cm 

_L 


J  L 


EUT  LISN 


To  Spectrum  Analyzer 


mm 


Pl€1 6C54A  ei/Nftesutts 


'  Non-ConducUva 


Conductive  Oround 
Plane  Boundary 
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Using  the  PortB  Interrupt  on  Change  as  an  External  tnternipt 


INTRODUCTION 

The  PIC1 6/1 7  family  of  RISC-like  microcontrollefs  has 
been  designed  to  provide  advanced  petf  onnance  and  a 
cost-effective  solution  for  a  variety  of  applications.  To 
address  these  applieotionsr,  there  is  the  PIG16CXX 
microcontfoller  fam^  dtf  products.  This  lamtty  has 
mnssiiQtis  pMipiMiit  and  spedal  features  to  better 


One  feature  is  the  interrupt  on  change  of  the  PORTB 
pins.  This  'interrupt  on  change"  is  caused  when  any  of 
the  RB<7:4>  pin,  configured  as  input,  changes  levels. 
When  used  in  conjunction  with  the  software  program^ 
mable  weak  internal  puH-ups,  a  tfred  intartace  to  a 
keypad  Is  possible.  Tlite  \a  strnm  ki  applScalSan  note 
AN552  (Implementkig  Wake-up  on  Key  Stroke).  An- 
other way  to  use  the  Corrupt  on  change' featuramdukl 
NllBadditk)nalexte(rari  lntemjpt  sources.  Thisalkjws 
flfe  PIC16CXX  devices  to  support  BMIiple  external 
interrupts,  in  addition  to  the  INT  |^."ia.ibri' 

This  application  note  will  discuss  some  of  the  issues  in 
using  PortB  as  additional  external  interrupt  pins,  and  will 
show  some  examples.  These  examples  can  be  easily 
RioilWeci  to  soil  )«ucipaitKubur  needs. 


USING  A  PORTB  INPUT  FOR  AN 
EXTERNAL  INTERRUPT 

The  intemjpt  source(s)  cannot  simply  be  directly  con- 
nected to  the  PortB  pins,  and  expect  the  internjpt  to 
function  the  same  as  the  interrupt  (I  NT)  pin .  The  charac- 
teristic of  the  interrupt  signal  must  also  be  known  to 
devak>p  the  mksrocontrollers  hardware/software.  After 
we  know  this,  we  can  determine  the  best  way  to  stmcture 
the  program  to  handle  this  signal.  These  characteristtes 
include: 

1 .  Trigger  intenupt  on  rising,  falling,  or  b^  ec^ws 

2.  WhEttisthepulsewklthoftheiiterri4>t(hlghtii|i9yk>w 
time) 

It  is  eeey  to  understand  the  need  of  knowing  which  edge 
triggers  the  external  interrupt  service  routine.  This  al- 
k>ws  one  to  ensure  that  the  Interrupt  service  routine  is 
only  entered  for  the  desired  edge,  with  all  other  edges 
|)ijll|tet  so  clear  is  pul$e  wfcltt)  of  the  interrupt.  This 
rmnes  ttie  amount  of  isddiUonal  overtiead  that  the 
softwani  routine  may  need. 
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Using  the  PortB  Interrttpt  on  Change  as  an  External  Interrupt 


Figure  1  shows  the  two  cases  for  the  Menupt  signal 
verses  the  time  to  complets  the  fritemipt  sen^e  rouHne. 
The  first  wavefotm  is  whenfte  signal  makes  the  low^o- 
high-to-low  transitions  btfdre  the  intenxipt  service  rou- 
tine has  completed  (intenupt  flag  cleared).  When  the 
interrupt  flag  has  been  cleared  the  Interrupt  signal  has 
already  returned  to  the  Inactive  level.  The  next  treinsition 
of  the  signal  is  due  to  another  interrupt  request.  An 
interrupt  signal  with  this  cfiaracteristic  will  be  called  a 
small  pulse  width  signal.  The  second  waveform  is  when 
the  signal  only  makes  the  Ipw^l 
Ihe  intemjpt  senrtee  loiiHhe  I 
flag  cleared).  The  next  transition  (hlgh-to-k)w)  will  return 
the  Interrupt  signal  to  the  Inactive  level.  This  will  gener- 
ate a  "false"  intermpt,  that  will  need  to  be  cleared.  Then 
the  folk>wftig  transitton  (bw-to-high)  will  be  a  true' 
intemjpt.  An  interrupt  signal  with  this  characteristk:  will 
be  called  a  wide  pulse  width  signal. 


An  Mamqpt  pulse  with  a  small  pulse  vi^^^^ins  less 
oveitiead  than  a  wkleputse  width.  A  Mie^P^vMi 
signal  must  be  less tien the tninnium  execution  fvi^Qt 
the  Herrupl  servioe  routbMrMtlle  a  wide  pulse  vmNK 
must  be  greater  then  the  maximum  time  through  ttie 
intemjpt  service  routine. 

Example  1  shows  a  single  interrupt  source  on  PortB 
(RB7),  which  executes  the  interrupt  service  routine  on  a 
rising  edge.  The  interrupt  source  has  a  small  pulse 
width.  In  this  case  since  the  interrupt  pulse  width  is  small, 
the  pulse  has  gone  high  and  then  low  again  before  PortB 
is  read  to  end  the  mismatch  condition.  So  when  PortB  is 
read  it  will  read  a  low  signal  and  ^ill  agSdn  beinniriSiigtor 
the  rising  edge  transition. 


FIGURE  1  -  INTERRUPT  STEPS  FOR  SMMLL  AND  WIDE  PULSE  WIDTHS 


•  1  in'i  'r^,"-r ' 


RBx 


Rising  Edge 
Tiiggeis  (ntenupt 


J 


Large  PuNreWM 


Rising  Edge 


J 


PottB  Interrupt  Service  Routine  is  compMK. 

PortB  Interrupt  Frlag  te  deared,  and  mismatch  is  ended. 

Walt  for  next  llttmpt  edge. 

Sl^ittUietums  Id 'tnacHw  State' 


PortB  Interiupt  Service  Routine  is  complete. 
PoitB  Intanupt  Rag  is  cleared,  and  mismalch  is 
Wait  for  next  Interrupt  edge. 

Falling  Edge 

Triggers  'False'  Intemjpt 


PbitB  IMenupt  Seroiee  Routine  is  c 
PortB  IMsnupt  Hi^  Is  eteansd,  and  mramatEh  i»  ended. 
Walt  for  'false*  intenupt  edge. 


Its 


1>mm^  with  a  Small  Pulse  Width 

BTFSS      INTCON,  RBIP 
GOTO  OTHER_INT 


Mom 


i,  1 

HJTCQN,  RBIP 


OTHER_IIlT 


PortB  Int^rn^t? 

Other  interrupt 

Do  task  for  INT  on  RB7 

R»d  Ports  (to  itself)  to  end 
mismatch  condition 

clear  the  RB  interrupt  flag. 
Ret:urn  from  interrupt 
Do  what  you  need  to  here 

Return  from  interrupt 


DsamsniAipitg 
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Using  the  PortB  Interrupt  on  Change  as  an  External  Interrupt 


Example  2  shows  a  single  interrupt  source  on  PortB 
(RB7),  wtiich  executes  the  inten'upt  service  routine  on  a 
rising  edge.  The  interrupt  source  has  a  wide  pulse  width. 
In  this  case  since  the  interrupt  pulse  width  is  large,  the 
pulse  is  still  high  before  PortB  is  read  to  end  the  mis- 
match condition.  So  when  PortB  is  read  it  will  read  a  high 
signal  and  will  generate  an  interrupt  on  the  next  f  allirtg 
edge  triuisition  (which  should  be  i^red). 


Examples  shows  a  intenupt  on  change  with  the  intermpt 
source  on  PortB  (RB7).  This  executes  the  interrupt 
service  routine  on  a  both  edges.  The  interrupt  source 
must  have  a  minimum  pulse  width  to  ensure  that  both 
edges  can  be  "seen".  The  minimum  pulse  width  is  the 
maximum  time  from  the  inten'upt  edge  to  the  reaW^of 
PortB  and  clearing  the  interrupt  flag. 


E»Mfito2:  SingtoliilmuplMlhaWlcleRulMW^ 


OTHER^INT 


wvess,  mm 

GOTO  OTSSRJ^ 
BTFSC     MHtTk,  'tt^T 
GOTO  CULSBINTP 


MOVF       BQKm,  1 


RETPIE 


I  Other  interrtq^t 

;  Check  for  rising  edge 

i  Vailing 'eage/elear  PortB  int 
flag 

f  Oo  task  fei£i7ji)T  onrRB? 

;  (lead  SortV  (to  itself)  to  end 

;  mfniatcli  condition 

;  Clear  the  RB  interrupt  flag. 

;  Return  from  interrupt 

;  Do  what  you  need  to  here 


;  Retiirn  from  interrupt 


nMgpl»«;  iMtMTiipt  on  Change 


BTFSS      INTCON,  RBIF 
GOTO  OTHKR_ItlT 
IK3VF        P6RTB,  1 


BCF 


niTCON,  RBIF 


OnttSiJCHT 


PortB  interrupt? 

Other  interrupt 

Read  PortB   (to  itself)   to  end 

mismatch  condition 

Clear  t^e  RB  Interrupt  flag. 

Do  task  for  INT  on  RB7 

Return  from  interrupt 
Do  what  you  need  to  here 

Return  from  interrupt 


1         r*v-(  .'  » 


Using  the^^i^liifiBtrtiptonClidnge  «8>a 


Using  PortB  Inputs  for  Multiple  Interrupts 

The  prew)us  exaniples  have  been  1^M^^0dVi9smii> 
internjptonPORTB.  ThiscanbeexUwi^ipailosufiio^^, 
to  4  external  interrupts.  To  do  this  requires  adUiticniiit 
softwareeverhead,  todefenninej«t)icho<the,PMtB{^h 
(RB<7:4>)  caused  theflHspj^  6«>9r<^»^EMMMW 
in  the  software  to  ensuretN^ho  interrupts  are  lost. 

In  this  example,  the  interrupt  sources  on  RB7,  RB5,  and 
RB4  have  a  small  pulse  width,  while  the  interrupt  source 
on  pin  RB6  is  wide should  cause  a  trigger  on  the 
rising  edge. 


The  Ports  interrupt  on  change  feature  is  both  a  very 
convenient  method  for  direct  interfacing  to  an  external 
keypad,  with  no  additional  components,  but  is  also.' 
versatile  in  its  uses.  The  ability  to  add  up  to  four  addi" 
lignidelteinal  intenupt.  Of  course  hybrid  solutions  are 
ateo  pQS^e.  That  is,  for  example,  using  PORTB<6:1> 
as  a  aadJwypad,  with  P0RTB7  as  an  egdemal  intenupt 
and  POR]po  as  a  general  purpose  I/O.  The  flaMbmy  of 

S^I«^^^m^^\^serto  implementab 
rteiapplicanbn. 


Example  4: 


MuUpl».lnt«Tupls  wi^  'mhtmkm*^  wmm 


GOTO 


0THER_1NT 


Porta  interrupt? 

Other  interrupt 


PortB  change  interrupt  has  occurred, 
interrupt  and  do  appropriate  action, 
or  clear  flags  due  to  other  edge. 

•^1*1.  c  

HOW       POttTB,  0 


CK_RB7 
CK_J!B6 

RB7_CHG 
IiB6_CH0 


MOVWF 
XORWF 

BTFSC 

CAIX 

BTFSC 

CALL 

BTFSC 

CALL 

BTFSC 

GOTO 

-0«i 


TEMP 

LASTPB,  1 
LASTPB,  RB7 

RB7_cas 

LASTPB, 

RB6_CHG 
LASTPB, 
HB5_CHG 
LASTPB, 
RB4_CHG 


RB6 


RB5 


RB4 


Must  determine  vdiich  pin  caused 
That  is  service  tlte  internet. 


Move  PortB  value  to  the  W  register 

^is  ends  mismatch  conditions 
Need  to  save  the  PortB  reading. 
XOR  last  PortB  value  with  the  new 

PortB  value. 
Did  pin  RB7  change 

RB7  changed  and  caused  the  interrupt 
Did  pin  RB€  change 

RB6  changed  and  caused  the  interrupt 
Did  pin  RB5  change 

RB5  changed  and  caused  the  interrupt 
Did  pin  RB4  change 

RB4  changed  and  caused  the  interrupt 


RETURN 

BTFSC      PORTB,.  RB6 


Do  task  for  tui  on  iS87 


Check  for  rising  edge 
Falling  edge,  Ignore 
Do  task  for  INT  on  RB6 


RE'l'lUtH 


;  Do  task  for  INT  cm  RB5 


Bdr         :^COH,  RBIF 


po  task  for  INT  on  RB4 

Move  the  PortB  read  value  to  the 

register  LASTPB 
Clear  the  RB  interrupt  flag. 
Return  from  interrupt 


OTHJfliOENT 


Do  what  you  need  to  here 
Return  from  interrupt 


Author:  Mark  Palmer,  Logic  Products  Division 
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Implementing  Wake-up  on  Key  Stroke 


INTRODUCTION 

Microchip's  PIC16CXX  family  of  microcontrollers  are 
ideally  suited  to  directly  interface  to  a  keypad.  The  high 
4-bits  of  Ports  (RB4  -  RB7)  hajve  internal  pull-ups  and 
can  trigger  a  "change  on  port  state"  interrupt.  This 
interrupt,  if  enabled,  will  wake  the  microcontroller  front 
sleep.  In  most  battery  powered  applications,  a 
microcontroller  is  exercised  when  a  key  is  pressed,  e.g. 
in  a  remote  keyless  entry  system.  The  life  of  the  battery 
can  be  extended  by  using  PIC16CXX  microcontrollers. 
This  can  be  done  by  putting  the  PIC16CXX 
microcontroller  into  sleep  mode  for  most  of  the  timeum^-. , 
wake-up  only  when  a  key  is  pressed. 

IMPLEMENTATION 

Figure  1  depicts  an  application  where  four  keys  are 
connected  to  RB4  -  RB7.  Internal  pull-ups  are  used  to 
maintain  a  high  level  on  these  inputs.  In  this  example, 
LEDs  are  connected  to  RBO  -  RB3.  When  SW1  is 
pressed,  LED1  is  turned  on  and  when  SW2  is  pressed, 
LED2  is  turned  on  and  so  on.  The  PIC16CXX  is  nonnally 
in  sleep  mode  with  the  "change  on  port  state"  interrupt 
enabled.  When  SW1  is  pressed,  RB4  goes  low  and 
triggers  an  inten-upt.  Since  the  PIC16CXX  is  in  sleep,  it 
first  wakes  up  and  starts  executing  code  at  the  interrupt 
vector.  Note  that  if  the  global  interrupt  is  enabled,  the 
program  execution  after  an  interrupt  is  at  the  Intermpt 
vector,  if  the  global  interrupt  is  not  enabled,  the  program 
starts  executing  right  after  the  sleep  instruction. 

After  waking  up,  a  20  -  40  msec,  de-bounce  delay  is 
executed  which  checks  the  port  for  a  key  hit  and, 
depending  on  which  key  is  hit,  its  associated  LED  is 
tumed  on.  The  LEDs  are  used  purely  fordemonstration 
purposes.  In  a  remote  keyless  entry  application,  the 
remote  coda!lMMiW|M»MiM«^rmtM|poprt8^  ' 
key  is  hit.  ''"  ' "  '' 

Figure2depictsa4x4  keypad  interface  to  the  PIC16CXX. 
When  using  the  PIC16CXX  in  a  keypad  application,  the 
internal  pull-ups  on  RB4  -  RB7  can  be  enabled  eliminat- 
ing the  need  for  extemal  pull-up  resistors.  The  series 
100£2  resistors  are  used  for  ESD  protection,  and  are 
recomrmnded  in  keypad  interface  applications. 


SUMMARY 

The  PIC1 6CXX  is  ideally  suited  to  interface  directly  to  a 
Keypad  applicatk)!^^,  Suift  in  pull-up  resistors  and  very 
low  sleep  current  nffafce^J  a  very  good  candidate  for 
battery  pow«nKl  rtfMe  O^rations  and  applicatk>ns. 


■.if. 


Performance:     ^-  i;-    r  ; 

Code  Size:  64  words 

RAM  Locations  Used:      0  bytes 

ffWl  1  -  4  KEY  INTERFACE  TO  PVDIit^ 


4x1 00  £1 


FIGURE  2  -  4X4  KEYPAD  INTERFACETO 
PIC16CXX 


Author  Stan  D^§^ma,  Lo^  Products  Division 
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RBO 
RBI 
RB2 
RB3 
RB4 
RB5 
RB6 
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PAGE  1 


^i^PPd^^C^pB  ^  4  '^IHB  SOURCE  TEST 


intenial 
iiVttt 

to 

peated.  -.^^ 


aoar 

0010 


0000  2805 


0004  2808 


0005  2024 


0006  0000 

0007'"^i0<" 


0008  180B 

0009  280D 
OOOA  128B 
OOOB  llOB 
OOOC  0008 


OOOO  118B 
OOOE  0906 

OOOF  lOOB 

0010  2035 

0011  0906 

0012  39F0 

0013  0090 


0001  ;This  program  demonstrates  the  wake-up  on  Keystroke  feature  of  the 

0002  ;PIC16C71.  Port  B  pins  RB4  -  RB7  can  be  configured  as  inputs  with 

0003  ;pull  up  resistors,  also  the  interrupt  associated  with  the  change  on 

0d04  ;on  RB4  -  RB7  can  be  set  up  to  wake  the  chip  from  sle^.  If  the  > 

0005  ;global  interrupt  is  enabled  just  before  sleep,  the  program  will  vector 

0006  ; the  interrupt  vector   (0004).  If  not  the  chip  will  continue  execution 

0007  ;just  after  the  next  instruction  following  sleep. 

0008  ;In  this  exaniple  code,  the  port  B  is  initalized  to  input  4  push-buttons 

0009  ;RB4  -  887.  SSO  -  ItB3  axe  emftgored  to '^ive  USDs  ddrresponding  tp 

{(013  maiA  jcM^s.to  tbe  Intwr^ij^.  vi^taqg,-!^^  coyg««g9B4a!B%^jBy(li%).n.,,gi 
'(R)13  ifcaznad  oer'knd  after  the  key  jL«^.^f  the,  Hboi^  ^"^^jV^^WSIr  .;• , 

H   ....  .  ,   ,'.      r,        -i  nan  la'  ' 


LIST  P=16C71,  F=INHX8M 


0014 
0015 

0018  RBPU        equ  7 

0019  temp        equ  lOh 

0020  OptionReg  ecju  Ih 
0021 
0083 
0084 
0021 
0022 
0023 
0024 
0025 


include  l^piezasl.eqit* 


1^  -r  iqab  r  err  :r 

it  ^  O!  bF;,. 

>'fii '  .7M<  B  niatn-oii 


org 

goto 


0 

start 


0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 

003t 
0037 
0038 
0039 
0040 
0041 
0042 
0043" 
0044 
0045 
0046 
0047 

0049 

0050 

0051 
0052 
0053 
0054 
0055 


org  4 

goto  ^  Sn^celnterrupt 


InitPortB 


loop 


sleep 


jinitalize  port  B 
; sleep  till  key  is  hit 


.1411  ffiiDtevi  -leltA 

•1%  1.  ,/'hr,i-'"i- 


; change  on  rb  int? 
;yes  then  service 
;  clear  RTCC  int  mask 
;eleac  flag 


Servicelnterrupt 

btfsc  INTCON.RBIF 
goto  ServiceWakup 
bcf  INTCON.RTIE 
^  fccf  j  mtfXK.STIf 

fetuia      !  N  ■ 

J       1      j      j  *f;i,i-h-ile;XlqDiF.l>,ivo.iiBrii,v.-    .'I  Till  «fi)  etteu  iilWIu 

;mtf  r«3(itine  lAiBdm  which  kea^-'fta!  hi«  «^  llgbtturii^  the  -iUfC!  larnM  1 
.•corresponding  LED  associated  with  it.  eg.  RBO's  LED  when  ^  „- 

;RB4's  key  is  pressed.   Finally  it  waits  till  all  keys  have  ^. 
;been  released  before  returning  form  the  service  routine. 

bcf  INTCON,RBIE  ;  clear  mask 

comf   -•  'i*Mp_J8,w    I  tmamA  BQBi^jB-     

bcf  INTCON.RBIF  ; clear  flag 

call  delayl6  ;do  de-bounce  for  16inSecs 

comf  PORT_B,w  ;read  port  B  again 

andlw  B' 11110000'  ;mask  outputs 

movwf  temp  ;  save  in  temp 


84 


e  l98«<MicRMt#>-1^MW«Md#lne. 


0014 

OBIO 

0036 

tenp,w 

fswitcb  low  {nsd  high 

0015 

00B6 

00S7 

PORT_B 

^Kiitea  as  outiitd. 

oots 

sets 

0058 

K^^9l,eeMS« 

;  check  for  key  release 

0059 

0060 

0061 

;This 

sub-routine,  waits  till  all  key  have  been  released 

0062 

;  In  order  to  save  power«  the  chip  is  in  sleep  mode  till 

0063 

;all  keys  are  released. 

0064 

KeyRelease 

tm* 

3<63S 

006S 

call 

d«Iayl6 

•  ^  debouace 

0019 

0906 

0O66 

cotnf 

PORT_B,W 

!  read  PtS^!  fi 

OOIA 

lOOB 

0067 

bcf 

11ITC0N,RB1F 

;  clear  flag 

OOIB 

158B 

0068 

bsf 

INTCON.RBIE 

;  enable  naslc 

OOlC 

39F0 

0069 

andlw 

B'llllOOOO' 

*  cl ear  ou tpu t s 

OOID 

1903 

0070 

btfsc 

STILTBS.z 

r key  still  pressed? 

OOIE 

0008 

0071 

return 

* no  then  return 

OOIF 

0063 

0072 

sleep 

!  else  save  power 

0020 

118B 

0073 

bcf 

INTC(»I,RBIE 

0021 

0906 

0074 

PMITJB.W 

0032 

lOOB 

0075 

bof 

HJTOai.RBIF 

J clear  flag 

0033 

ZClfl 

0076 

goto 

KeySelease 

; try  again 

0077 

0078 

0079 

;This 

sub-routine,  initializes 

Ports. 

0080 

InitPortB 

0024 

1683 

00«1 

bsf 

;  select  bazuc  1 

0025 

3003 

0082 

BIGrvlw 

B'OOOOOOll' 

;Fort_^  digital  x/o 

0026 

0088 

0083 

novwf 

ADCONl 

/ 

0027 

3000 

0084 

movlw 

0 

0028 

0085 

0085 

movwf 

PORT_A 

;set  port  a  as  outputs 

0029 

30F0 

0086 

movlw 

B'llllOOOO' 

; RB0-RB3  outputs 

002A 

0086 

0087 

movwf 

PORT_B 

;  Kd4 -Ho  I  II^UCS 

002B 

1381 

0098 

bef 

OptioBSeg,  KBfO 

;<ywl^l<  pull 

002C 

1283 

0089 

bcf 

STATt^.ItPO 

;  select  pacfe  0 

002D 

0186 

0090 

clrf 

PORT_B 

;i.nit  poirt  B 

002E 

0185 

0091 

clrf 

PORT_A 

;niei}ce  port  a  all  low 

002F 

1405 

0092 

bsf 

PORT_A, 0 

;make  first  bit  high 

0030 

118B 

0093 

bcf 

INTCON,RBIE 

i  disabls  inas}c 

0031 

0806 

0094 

xnovf 

PORT_B,w 

;read  port 

0032 

100» 

0095 

bef 

0033 

158  a 

0096 

bsf 

INTCca»,RBIB 

@f?4 

W0» 

0097 
0098 

retf ie 

0099 

;delayl6  waits 

for  approx  16.4e 

nSecs  using  RTvC  jiXVCjOTTupt^ 

0100 

;  f  osc 

speed  is 

4Hhz. 

0101 

delayie 

0035 

1683 

0102 

bsf 

•  select  pftsie  i. 

0036 

3007 

0103 

movlw 

B'OOOOOlll- 

0037 

0081 

0104 

wtrmt 

OpticHiBeg 

*  / 

0038 

1283 

0105 

bcf 

STATUS,  RPO 

( select  ps0e  0 

0039 

0181 

0106 

clrf 

RTCC 

003A 

HOB 

0107 

bof 

INTCON.RTIF 

; cx@ar  rla^ 

003B 

168B 

0108 

bsf 

INTCON.RTIE 

J  6xia}Dl6  inas)c 

0109 

CheckAgain 

003C 

IDOB 

0110 

btfas 

INTCONjRTIF 

(  L-jmiBX  u vex  X  xowed  1 

003D 

283C 

01:11 

goto 

;so  (^ck  again 

003E 

12  8B 

0112 

bcsf 

;«lae  clear  mask 

tlOB 

0113 

bcf 

INTCC»(,RTIF 

; clear  flag 

0114 

return 

0115 

0116 

end 

0117 

0118 

0119 

0120 

0121 

0122 

0123 

0124 

HBiORY  nSAOB  HftF  ( 'X'  =  Use4. 


=  Unused) 


All  other  memory  blocks  unused. 


Errors  i 
Itamliigs  : 


■'J\-  X»fi 


f be 


11         Ivr-  innf  i' 


«t«9M>M)nBcNpTaMliM«iil»L 


3-8 


^ICROCHIf3 


AN579 


Using  the  8-Bit  Parallel  Slave  Port 


INTRODUCTION  ° 

The  PIC16C64/C74  microconttollers  from  Microchip 
Technology  Inc.,  can  be  interfaced  In  a  rnuQi-microp>p- 
cessor  environment  with  ease  using  the  bufR'in  PtttttM 
Slave  Port.  With  their  very  high  operating  speeds^i^t 
times  as  low  as  200ns  with  a  clock  rate  of  20MI-lzj,  evKi 
an  arr^  ot  afe^i^^ilteals;  they  make  ideeirSMift'' 
IntMlfeS^'""'"" 


IMPLEMENTATION 


PortD  operates  f@  anrS-blt  wkle  paraj^l  sjg^  port,  wWi 

(TRISE<4>)  is  set.  In  paraflj^^lMti^inodB,  PortO  ts 
asynchronously  readable  and  writaiile  by  the  external 
world  through  the  CS  (RE2/CS),  RD  (REO/RD),  and  WR' 
,(RE1/WR)  control  Inputs. 

|ln  order  to  use  the  parallel  slave  port,  the  data  direction 
jbits  In  theTRISE  register  correspondlngto  RD,  WR,  and 
CE(TRISE<2:0>)mustbeconfiguredas Inputs  (set=1). 

The  port  pins  are  connected  to  two  8-blt  latches,  one  for 
data  output  (from  the  PIC1 6CXX)  and  one  for  data  Input. 
lllinsiii^Mwiniiiala  by  writing  to  the  o^  tatch, 


aM  r^iv^  ^da  by  reading  the  Input  latch  (nota that 
tie  tnpjt  arid  ou^tlatGhesareatth»sanTift^  Ini 
ttiis  tie  T^ISP  register  is  ignoroct  smee  tie' 
ea^MM  eMsid  esnn^ed  to  the  slave  port  controls  the 
direction  of  data  flow. 

When  the  external  device  performs  either  a  read  or  a 
write  operation  to  the  PIC16CXX,  the  interrupt  flag, 
PSPIF  (PIR1<7>),  will  be  set  and  the  processor  inter- 
rupted if  PSPIE  (PIE1<7>)  is  set  and  interrupts  are 
enabled  (G I E  and  P  El  E,  (INTCON<7:6>)  set).  When  the 
interrupt  is  serviced,  PSPIF  must  be  cleared  by  soft- 
ware. 

The  read-only  status  flag  IBF,  Input  Buffer  Full 
(TRISE<7>),  is  set  if  a  received  word  is  waiting  to  be 
read.  IBF  is  cleared  upon  read  of  the  input  buffer  latch. 
If  another  word  is  received  prior  to  the  first  being  read, 
status  flag  IBOV  (TRISE<5>)  Is  set.  IBOV  can  bei 
cleared  by  software. 

Th^OutputMi^FUllstatasbit,  OSF  (TRISE«l6>)i  isset 
if  a  word  wriff  en  to  PortO  iatch  is  waiting  to  be  read  by  thei 
external  bus. 

When  not  in  PSPMODE  the  IBF  and  OBF  bits  are 
cleared.  If  the  IBOV  flag  was  previously  set,  however,  it 
must  be  cleared  by  software. 


FIGURE  1:  SUMMARY  OF  PARALLEL  SLAVE  PORT  REGISTERS 


Register  Name 

Function 

Address 

Power-On  Reset  Value 

PORTD 

Pepiel  dam  port  R^dMie  Data 

08h 

xxxx  xxxx 

TRISD 

PortD  data  direction  register 

88h 

1111  1111 

PORTE 

Parallel  slave  port  Read/Write/Chip 
Select  signals 

09h 

 XXX 

TRISE 

Control  bits  for  PortD  slave  port 

89h 

0  0  0  0    - 1  1  1 

INTCON 

Global  Interrupt  Enable 

mh 

0000  O0OX 

Pi* 

iMompt  ragctM-  (PSPIF  bit) 

0  000    000  0 

Interrupt  Er^le  repster  (PSPIE  bit) 

8Ch 

0000  0000 

Using  the  8-Bit  Parattei  ilav#  Port 


FIGURE  2:  PORT  E  FUNCTIOIfS 


u  u  u  u  u 

RAN 

R/W 

R/W 

REI/WR'ANe 

RB0/RD/Ar45 

RE0/RO/AN5  -  Input/output  port  pin.  Read 
control  input  in  pwaNel  slave  port  mode,  or 
analog  input. 

RD 

1  =  Not  a  read  operation 

0  =  Read  operation.  The  system  reads 

the  PiC16CXX  PortD  register  (if  chip 
selected) 

'  Input/output  port  pin,  Write 
cbiiltrol  fpit  In  paiallel  slave  port  mode,  or 
analog  input. 

WR 

1  =  Not  a  write  operation 

0=  Write  operation.  The  system  writes  to 
the  PIC16CXX  Porto  r9gisler(if  chip 
selected) 

RE2/CS/AN7  -  Input/output  pott  pin.  Chip 
select  control  input  in  parallel  slave  port 
mode,  or  analog  Input 

CS 

1=  Pevice  Is  not  selected 
O  e  ISevice  seisGted 


f-.  .  .J 


OOOJ  0000 
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FK3URE  3:  TRISE  RBafiSmH 


R/W 


U     R/W      R/W  R/W 


IBF  OBF  IBOV  PSPMODE 


TRISE2  TRISE1  TRISEO 


TiUSEOe^lFeeSen  Gontwl  bit  for  pert  pin  REO 
1  =  Input 
0=  Output 

TRISE1:  Direction  control  bit  for  port  pin  RE1 

1  =  Input 
0=  Output 

TRISE2:DiFection  control  bit  for  port  pin  RE2 
1  s  Input 

0=  ou^  ^-^i;; 
'  UnlmpMrnwilwilvraadss^ 

'  PSPMODE:  Selects  parallel  slave  port  mode  for 
PorlD  and  PortE 

1  =  Parallel  slave  port  mode  a.  . 

0  =  General  purpose  I/O. 

—IBOV:  Input  buffer -overflow  in  microproeassor 
mode. 

1  =  A  write  oecuirad  before  the  previous  Input 

word  wu  read. 
N»«vernew  IMS  occurred. 

-  OBF:  Output  buffer  full. 

1  =  The  output  buffer  still  holds  a  previously 

written  werd. 
0=  Output  buffer  has  been  read. 

-  IBF:  Input  buffer  full, 

1  =  A  word  has  been  received  and  is  waiting  to 

be  read  by  the  CPU. 
0  =  No  word  lias  been  received. 
 -^>-^la^^a«t«r'^^-.  ,  


.4l<)V)iein'  b  &i..'.r<= 


mm 


FIGURE  4:  PIE1  REGISTER 


R/W     R/W    R/W    R/W  R,/W 

R/W 

R/W 

RAV 

R/W 

— 1 


'  PSPlE:  Parallel  slave  port  interrupt  enable  bH. 

1  =  Enables  PSPIF  interrupt.  j 

0=  Disables  PSPIF  inten-upt        I  I 


'lit'tmfimjuiH — >'r .  .Mia  .nmm 


FIGURES:  PIR1  REGISTER 


R/W     R/W    R/W    R/W    RAW  R/W 


R/W  R/W 


PSPIF 


RAW 


» poUread/wiM  intenypt  flag.. 

1s  AtiaadQrwitta  epafationhastel»n0tbe«.  i 
Must  be  claarad  by  software.  !  | 

0-  No  read  or  write  >ias  occurred.  , 


FIGURE  6:  INTCON  REGISTER 


R/W  R/W    R/W    R/W   R/W    R/W    R/W  R/W 

 1  1  n  *'"TTT  1 — ■■  ■  .J  .1  .    ■    '■■  '  .  I 

GIE  PEIElRTtE  INTE  RBIE  RTIF  INTF  RBIF 


PEIE:  Periplieral  interrupt  enable  bit. 

1  =  Enables  all  un-masked  peripheral  inteinipts 

0  =  Disables  all  peripheral  interrupts. 

GIE:  Global  Interrupt  Enable. 

1  =  Enables  all  un-masked  interrupts. 
0  =  Disables  all  interrupts. 


AUTHOR:  Scott  Fink,  Logic  ProduOs  Division 
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,************************************************************************* 

;*  i.fei4#l!i  'Parallel  Slave  port 

;*  This  program  demonstrates  the  Parallel  Slave  Port  function  of 

;*  n  .       ^     the  PIC16C64/74.     The  program  is  interrupt  driven,  when  the  PIC16CXX 

;*  is  «ither  read  from  or  written  to,  an  interrupt  is  generated.     If  the 

;*  $0mexv^  vm  caused  1^  a  x&A,  ..mj0eg$m&mctfim  meciBwnlsadi  and 

;«  the  new  count  Is  pliao#4»#ar'Sfl''<3sti^<tk-#tW!M.    If  the  lnfeerri;^t  was 

;*  caused  by  a  write,  the  dafcax-i.di=put,^i^e  Port  B  pizis 

list  p=16c64, f=inhx8m 

include  "c:\16C74, inc' 


,- Register  definitions 

IimKraU.-<itl:  ,  equ  22h 
GOISt^  equ  23h 


;Bit  definitions  for  flag  register 


equ 


OOh 

eih 

02fa 


ojsg 


OOOOh 
Start 


goto 


OOOSh 

Sejry:iBej.I»t 


elrf 

clrf 

bsf 

movlw 


movlw 
movwf 
movlw 


OUTDATA 
INDATA 
STATUS, RPO 
b'OOOlOlll' 
■^W^  I- 
OWSh  ■ 
TRIS_B 
b' 10000000:' 
•PIEl 

STAniS.RPO 


■J^W'S^f 


PORTJI 

b'llOOOOOO' 

INTCON 


i-Flsg  bit  register 
;  Output  data 
; Input  data 

; Count  of  times  output  xoQiatBX  read. 


; Error  flag  bit 
c»eutt^lS'.(Mtta  rea^  flag 
.>f  PSKft£r!#ita  received  flas 


I'Samtb:  Vector 


; Interrupt  Vector 


; Clear  data  registers 

; Select  register  page  1 
;Set  RD,  WR,   and  CS  as 
.  t  i«g^6e,  EmSulM  .PasaMel  slave  por  t 

1     .  ^: '  - 

'.,r:Stot;Sjsr6^  to  all'MUI^ias 

T-  : 

;EM*le  la»abyi«aitSlS«iw  ■'Biftt  Interrupt 
;  Select  register  page  0 

;Set  output  Data  lA  FiCSC® 

;S»t  GZE,  PEIE  (enajsle  Interrupts) 


btfsc 

FLAGREG,  INFULL 

; Check  if  input  data  received 

gOt« 

Ghec^^t 

;No  data  ready,   check  output 

bef 

HiAGREG  ,  INFULL 

; Clear  input  data  ready  flag 

Indata.W 

;Get  Input  data 

ittovwf 

PORT_B 

; Output  Input  data  to  Port_B 

btfsc 

FLAGREG,OBTRDY 

; Check  if  data  output  already 

goto 

Loop 

;Not  output  yet,  loop 

incf 

COUNT 

; Increment  output  data 

movf 

COUNT, W 

;Get  output  data 

OUTDATA 

;Put  data  in  oatpat  !^eu« 

FIAE^EG,  OUTBOS 

;Set  flag  foe  Interrupt  routine 

Loop 
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***^*****.**************  **  *  *****  ************************************************#'  .•4..*i;,  ■- 

•interrupt  Service  Routine  :-■    1'  \.';''Ji'." 

*  Inputs;         FLAGREG  -  Flag  register  to/from  the  main  routine: 

*  Bit  1:  OUTRDY  -  To  Service_Int,  indicates  data 

*  ready  in  output  queue 
i>a»    snmit'<S'^  Qti^stfe! -data  queue 

mmi  »';irt^8l,i      ;  "     .  »a*ftterrupt  flag  registe*  ■ 

-  •  -'?-'ft»r»ll«l  slave.'&»r*(.flag.'a^i«te« 
• '  WRXjy  •  ■  ■ '  '■'  Il^t •  dkta '  f  *oifl ■  tli««"Si6* t '  ' '  ' 


**************** 


PORT_D  -  Output  data  to  slave  port 

INDATA  -  Input  data  queue 

FLAGREG  -  Flag  register  to/from  the  main  routine: 

i  j     .        ,»4t  ,08 -'.BamOR  -  FasBm- Serwt«e_lat;,  iniit«afees  ix0tf&'>^ 
buffer  ovefElow  •'  *JiC  i 

Bit  2:   INFtJLL-  From  Service_Int,   indicates  data  *  ' 
received  and  in  INDATA  ^- 
h******************************************************** 


Service_Int 


btfsa 

goto 

bef 

bsf 

btfss 

goto 

bcf 

ba£ 

btfsc 

^to 

bcf 

btfss 

goto 

inovf 

mexft 

b»e 

btfso 
goto 

bef  t*lv~ 
rebfie 

bcf 
bsf 
retfie 


PIRl.PSPIP 
STATUS, RPO 
TRIS_E,IBP 
Notinput 
STATUS,  RPO 
F&AOREG,  XNFUU. 
P(aCT_D,W 

TRIS_E,OBF 
Intout 
STATUS ,  RPO 


Intout 
PORT_D 

FLAGREG,  OUTRDY 

STATUS,  RPO 
TRIS_E,IBOV  • 
In terror 

'  '  S!iiftTas  ,M!9! ' 


STATUS ,  RPO 
FLAGREG,  ERROR 


;'fea'tS'-for  P^l^iieEal'  ijaO^in^t 
.^ofe^'jS'lPerieheEal  l^terr^^,  exit 
;Clea£  PaxS^ikmeaX  iatecnqit 
-y:Seli«is€  ■  Page  1 
; Check  i  f  input  data  ready 
;No  input,  check  output 
; Input  ready,  select  Page  0 
;Set  flag  for  stain  routine 
;Get  input  d^ta 
;Sut  tsyts  in  ti^t  i^eus 

; Check  if  output  data.aEei8&* 

;Not  read,   exit  "AT- 
; Select  Page  0 

;  Check  if  data  in  output  ^eue 
;  Output  not  read,  fflcit  ' 
'f@e;t'  Alta  CEf»-  esasas       ■  •  ' 
;Put  data  in  outcast'' »ttWr- 
; Clear  flag  for  main  roiifcime 

; Select  Page  1 

jCheck  input  buffer  overflow  flag 

;If  not  clear,  error 

/Selee<t  Page  0 

;  Re-enable  GTE  and  return" 

; Select  Page  0 

;  Set  error  flag  for  main  ix>utine 
;  Re-enable  GIE  and  return 


end 
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A  PC-Based  E^y^ppment  Programmer  for  the  PIC16C84 


Author:  Robert  Spur  •  Analog  Design  Specialist,  Inc. 


PROGRAMMING  THE  PIC16C84 


This  application  noti  dis&ribes  the  conistruction  of  a  loir 
cbst  serial  programmer  for  tiie  f^lC1 6C84  mIcrocoHtfbf' 
lerwtiich  is  controlled  using  a  PC  witfi  a  pamltel(6@MrMe 
printer)  port.  This  programmer  has  the  'i^^btllty'^ 
progcamming  the  PIC16C84  microcontroller,  and  read- 
ing back  internal  data  without  removing  the  device  form 
the  target  circuit. 

Thisfeature  is  very  useful  In  applications  where  changes 
in  program  code  or  constants  are  necessary  to  compen- 
sate for  other  system  features.  For  example,  an  embed- 
ded control  system  may  have  to  compensate  for  vari- 
ances in  a  mechanical  actuator  performance  or  loading. 
The  basic  program  can  be  programmed  and  tested  in 
design.  The  final  program  and  control  constants  can  be 
easily  added  later  in  the  production  phase  without  re-  ..^ 
moving  the  microcontroller  from  the  circuit. 

Automatic  software  and  performance  upgrades  can  also 
be  implemented  with  an  in-system.  Upon  receiving  new 
system  software  via  disk  or  modem,  a  control  processor 
with  the  included  programming  code  could  perform  an  in 
circuit  reproMMlIf  If  ^^r  microcontrollers  in  ttie 
system. 

This  programmer  can  load  program  csdi^  part  configu- 
I  ration,  and  SEPOOM  data  into  the  PICt604  part.  Iq,.  1 
iMi  1^1^  iiH^^  verify  all  verify  all       entries. "  ' 

The  PIC16C84  microcontroller  is  put  into  programming 
mode  by  forcing  a  low  logic  level  on  the  RB7  (pin  1 3)  and 
RB6  (pin  12)  while  the  MCLR  (pin  4)  is  first  brought  low 
to  reset  the  part,  and  then  brought  to  the  program/verify 
voltage  of  12  to  14  volts.  The  MCLR  pin  remains  at  the 
I  program/verify  voltage  forthe  remainderoftheprogram- 


After  entering  programming  mode,  RB7  is  used  to  seri- 
ally enter  programming  nrodes  and  data  into  tlie  p9rt.,A 
high  to  low  transition  on  RB6,  the  clock  input,  qualifies 
Aadi'tittnaf  iOi«(dalta^a|p|MtBd.on  IIB7.<Thai'iiKrtal  com- 
fl«M<Kiltf^ofthatrls  spaeiNed  in  F^fii»!rs2^^3  of  the 
Mkm^^^^t&tSGM  l>fegrammieig 'S|9(beiftE!tttion 
i^^S30488l^TtoM<6^1&ini1he  conMihtHi^,  and 
tftoitest^$ib^4eitm  the  dat«4tetd.  Natfbe  that  the  data 
fi&tdi«  compos  df «ne  2eira  staffing  tttt;  1 4  actual  data 
bits,  and  onertzKo  stop  trit.'<Th)i.iincrement',adclress 
command,  shdwrtlnl  PigtWa  1 .2.1 .5  (se^PKiiecsit'DSte 
Sheet,  DS30189D),  is  comprised  of  only  the  command 
field.  Table  1.2.1.1  (see  DS30189D)  summarizes  the 
available  commands  and  command  codes  for  serial 
programming  mode. 

The  recKl:iiMI»%AHar^^ 
exceptiCfiWM  m&^tte&m  of  WfEs  mmmsaimr 
the  67bit  Gorfifflahd  to  allow  requested  (Ma  to  be 
ptufned  to  the  programmer.  Figure  1.2.1.4  |«ee 
E^£tM^  Jtass  this  sequence  which  s^e^  tff  shtt- 
tig  4-l9it'.iBimtn^  into  the  part.  Atter  Hie  resd 
command  iS'^ued,  the  programmer  tri-sMastlsiutfer 
to  j|l^)^,thlB  part  to  serially  shift  its  internal^*  tSK^  to 
pMSlBhimer.  The  rising  edge  of  R86,  ttiededetipt|t, 
contmis  thefdata  flow  by  sequentially  shifting  prevlisu^ 
programmed  or  data  bits  f  lom  ttte  part.  The  programmer 
qualifies  this  data  on  theMirtg  edge  of  R66.  Notice  that 
16  clocic  cycles  are  necessary  to  shift  out  14  data  bits. 

Accidental  in  circuit  reprogramming  Is  prevented  during 
noraia)  operation  the  MCl^  voltage  which  should 
never  exceed  the  maximum  circuit  supply  voltage  of  6V 
DC  and  the  logic  levels  of  port  bits  RB7  and  RB8. 

After  program/verification  the  MCLR  pin  is  brought  low  to 
reset  the  target  microcontroller  and  electrlcally^eased. 
The  target  circultlsthen  free  to  activate  the  MCLR  signal. 
In  the  event  MCLR  is  not  forced  by  the  target  circuit,  R4 
(a  2K  Ohm  pull  up  resistor  in  the  programmer)  provides 
a  high  logic  level  on  the  target  microcontroller  which 
enables  execution  of  its  program  independent  of  the 
programmer  connection.  Provisions  should  be  made  to 
prevent  the  target  circuit  from  resetting  the  target  micro- 
controller with  MCLR  or  effecting  the  RB6  and  RB6 
during  the  programming  process.  In  most  cases  this  can 
to.  dons  without  jumpers. 
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DETAILED  CIRCUIT  DESCRIPTION 

A  logic  high  on  PC  parallel  interface  latch  bit  04  turns 
on  Q3  causing  the  MCLR  pin  to  go  low  wtiich  places  the 
target  part  in  reset  mode.  The  reset  condition  is  then 
removed  and  the  progranWerify  voltage  is  applied  by 
placing  a  logic  high  on  D3  and  a  logic  low  on  04  which 
turns  off  Q3  and  turns  on  Q2  and  Q1 .  Circuit  protection 
of  Q1  and  Q3  is  obtained  from  connecting  the  emitler  of 
Q2  to  latch  bit  04  which  prevents  a  simultaneous  reset 
and  program/verify  voltage  mode.  Q2,  a  2rsl3904,  has  a 
reverse  emitter  base  break  down  voltage  of  6  voKs 
which  will  not  be  exceeded  when  5  volt  logic  Is  used  on 
the  parallel  hterface. 

The  resistors  R1 ,  R2,  R3,  and  the  diode  01  provide  a 
logic  level  interface  to  the  analog  circuitry.  R4  provides 
a  MGLR  (master  cleai)  pull  up  function  during  target 
circuit  runmode.  The  progranmhg  voltage  iswippM 
and  adjusted  by  an  external  \ab  supp^.*niB!fiiiiRpitV 
should  hove  a  cumant  Jmltin  Ihe  tflO  tmmiftBm>  SitHHi 
for  U2,(LS244)  is  locally  rasiVl«MMni|aingR^^ 
supp^  voKaga  t)y  Ul.  ^&v»mmitmi^f!»mm 
fHKted  to  the  regulator  output  to  lnsui«»|aaiiK#<l((i 
regulation  when  Ihe  13.5  volt  progiain8t<giw(lii»te 
applied  through  the  pull  up  resistor  R4nn  '-^:i  "><: 

torr,  ii  <:y  ., 

FIGURE  1:  PROGRAMMER  SCHEMATIC 


Oata  and  clock  are  connected  to  the  part  via  a  tri-state 
buffer  U2.  PC  parallel  port  Interface  bit  DO  is  used  for 
data  and  port  bit  D1  is  used  for  clock.  Ouring  program- 
ming mode  both  clock  and  data  buffers  are  enabled  by 
port  bits  02  and  05.  During  read  mode,  the  data  buffer 
is  tri-stated  via  02  and  the  printer  data  acknowledge 
signal  line  is  used  to  receive  verificatkm  data  from  the 
part. 

After  progranWerification  mode  both  the  data  and  clock 
lines  are  tri-stated  via  D2  and  05  allowing  the  these  lines 
to  be  used  by  the  target  circuit.  This  allows  the  program- 
mer to  remain  physically,  but  not  ejectrically  connected 
to  fie  target  system.      '  "! "  \  '  'IDI,'' 

An  optnnal  5  volt  line  was  included  in  theS-foot  program- 
ming interconnect  cable  forconvince.  Short  intercocfnec- 
^pp  leads  and  good  grounding  are  always  good  con- 
H^nictksn  practice. 

1^  meet  the  programming  verifbation  specificatk>n,  the 
target  part's  supply  voltage  should  be  first  set  to  the 
maximum  specified  supply  voltage  and  a  program/data 
read  back  sfK)uld  be  preformed.  This  process  is  then 
repeated  at  the  k>west  specified  supply  voltage. 


V|»(»£V)> 


>LS24tpin20 


Q1 

2N3906 


R4i  R5  i 
2Kf  750? 


Z±Z  C2 


10V 


os>S- 


INTERFACE 


R2. 

f                1N4148  . 

1  ^  1 

R3,2K  K 

-^MpLR(plh4) 


03 

2N3904 


SNOy 


,.t.  .iiK  mcMfGm  i.  ■  -I--  '-- 

->eMDAilnS) 


02  >i- 
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BUSY>-^ 
P6>!2- 
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A  PC-Based  Development  Prbgraminer  for  the  PIC16C84 


SOFTWARE  DESCRIPTION 

The  listed  code  provides  a  hardware-software  interface 
to  a  standard  PC  parailel  (Centronix)  interface  pott.  The 
code  can  be  adapted  to  a  microprocessor  paralMMW- 
face  port  by  substituting  an  oiiiput  command  for  the 
'biosprint"  command.  .  , 

Control  software  can  transfer  the  PIC16C84  program, 
configuration  bits,  and  EEPROM  data  from  a  standard 
PROM  interface  file  into  the  target  system  by  reading  the 
file  and  calling  the  function  in  Figure  2  using  the  appro- 
priate command  name  in  the  definition  table,  and  the 
data  to  be  programmed.  The  command  names  are 
repeated  here  for  reference.      '  '  "        *»'.yr,v?  t,-.  « 

-Juan  tcaq  •■!v  5  itiBj 
LOAD_GOMIFlii        §e^  PmSOSi  ma  pckmto 


BEGIN_PROG 

PARALLEL_MODE 

LOmjieCTAJM . 
READ_DATA_DM 


Programs  data  at  current 
pointer  location. 

Puts  PIC16C84  into  parallel 
mode,  (not  used) 

Load&  EEPRQM,dala. 

Bmis  EEPROM  data. 


Loads,  but  dQe$.  pel  fr^rafn, 
data. 

Reads  data  tiiMnt  p'Sftttei^ 
location.   

iMaRieiiis  PI&teC84:«iElta 
ip^fter. 


Function  "int  ser_plc16c84(<command>,<data  [orO]>) 
is  called  to  prefomi  command.  Function  returns  interrial 
data  after  read  commands. 

Do  not  forget  to  initiate  the  programming  mode  before 
programming,  lncrfiiHnttheaddre$s^^giu|ach  byte 
is  programmed,  and  put  the  prngmtarm  in  mn  mode 
after  programmili9i  SI  i    .  3r.r 

Designed  by:  ^'''  Analog  Design  Specialist  Inc. 
,    ^  J>.0,  Box  26-0846  ^  . 

IJttieton,  CO  80126 


EXAMPLE  1 :    PUT  TARQ^  SYSHSM  WQ^PlC^flMIS  MODI. 

..  program  code.. 

ser  j>icl6®*4tlROGEait_MODl,  0)  ; 


MiNMPLE2:    READ  DATA  FfiOM  THE  TARGET  SYSTEM 

. .  program  code. . 

data  =  ser_picl6c84  (READ_DATA,  0) ;   //  read  data 

///  taK^tiilBISS  i^fca  from  target  part  to  variable  "data' . 

ttlMMPLE  3:  PROGftAM  DATA  INTaTME  TARG^i^^EM  '  ^^ 

.  .  program  code. . 

ser_picl6c84(LOAD_DATA,data) ;        //  load  data  into  target 
.ijjfe_34i®i4^j|jfi^IIl_PHOG,0)  ,•  //  program  loaded  data 

ser_picl6c84(INC_ADDR,0) ;  //  increment  to  next  address 

//  transfers  data  from  program  variable  "data'  to  target 

iBPiflPLE  4:  PUT  TARGET  SWEM IIOTO  RUN  MOTE 

..  program  codfe". "      '  ■  ■  "J- 

aer_piol6c84(Sini,0)  ; 
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y y ******* *******************  FIGRJRE  #2  ******************************** 
//**  ** 
//**       SERIAL  PROGRAMMING  ROUTINE  FOR  THE  PIC16C84  MICROCONTROLLER  ** 

//**  Analog  Design  Specialists  ** 

y  y********d^*'*W*^*M***«i£f^***MiS^^  t 

.    -       J?    -^Ki      MCATAC  OAa/i 
//rtmenan  PROTOTYPB:  Int  ser_plcr6c84(Iht  oaa,  Int  data) 

//  dnd:  LOAD_CONFIG  ->  part  configuration  bits 

//  LOAD_DATA  ->  program  data,  write 

//  READ_DATA  ->  program  data,  read 

//  INC_ADDR  ->  increment  to  the  next  address  (routine  does  not  auto  increment) 

//         BEGIN_PR0G  ->  program  a  previously  loaded  program  code  or  d«ta     ~.         ^.      _  ;o  i  ij.;,, 

//         I.OAD_DATA_DiI  ->  load  EBI«(»(  dalta  regeaters  (BEGIN_PROG  mast  folow) 

//       iiB»D_pfcTiu«  ->"j*«i«'t«««*i'HaM!*-»^  j  ,..»■■■    ;c 'o:  i 

//  datai  1)  14  bits  of  prograar  datWior : 

//  2)     8  bits  of  EEPROM  data  (least  significant  S^'Mts  of  ' 

II  Additional  prOytM^lAeif  coigAainds  (not  part  of  FIClSC8^^4j;;^;e(p:wpi(ig«codai^}.  , 
//  emd:  RESET  fiTOwidM  1  ns  smat  pulse  t«  titcgiit  aystera 

//  PROSlAHJCOraB    ->  initializes  PlC16e«4  for  prograa»(ilnt  "IGtTA. " 

//  RUN  ->  disconnects  programmer  from  target  system 

// 

//  function  returns:  1)  14  or  8  bits  read  back  data  for  read  commands 

//  2)   zero  for  write  data  commands 

//  3)  PIC_PROG_EROR  =  -1  for  progranming  function  errors 


tinduda  <blos.]^ 


#def ine 

LOAD_CONFIG 

0 

#def ine 

LOAD_DATA 

2 

tdsfina 

READ_pit.TA 

4 

tdefina 

IMC.JU3DR 

6 

tdef ine 

BEGIN_PROG 

8 

tdef  ine 

PARALLEL_MODE 

10 

// 

tdef ine 

LOAD_DATA_DM 

3 

fdef ine 

READ_DATA_DM 

5 

tdef ine 

MAX_PIC_CMD 

63 

// 

tdef ine 

RESET 

64 

// 

fdefln* 

PR06RAIUI0QB 

65 

// 

«d<i£in« 

RDM 

66 

// 

##Bf  ine 

PIC_PROG_EROR 

-1 

tdafine 

PROC3IR_ERR0R 

-2 

tdefine 

PTR 

0 

// 

//  not  used 


//  division  between  pic  and  programmer  commands 


II  parallel  port  bits 

//  dO:  data  output  to  part  to  be  programmed 

//  dl :  programming  clock 

//  d2:  data  dirrection,  0=  enaliel  tri  state  buf  ->  send  data  to  part 

//  d3:  Vpp  control  1=  turn  on  Vt)p  ■ 

//  d4:  ~MCLR  =0,  1  =  reset  device  with  MCLR  line 

//  dS:  clock  line  tri  state  control,  0  =  eoable  clock  line 

-!Os'>r.i  i •' ■  !  or*--  ■  ■  ■v-.':  '  .:^ 

int  ser_picl6c84(int  cmd,  int  data)  //  castom  interface  for  pic  16c|^ 


int 


a_cmd; 


if  {omd  <=MAX_PIC_CMD) 

{ 

biospr int  (0,8,  FIX)  ; 


//  all  programming  modes  -f   r;  :- 

//  set  bits  001000,  output  mode,  clock  &  data  low 
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s_aad  •  mtiSil  .  c 

for  (i"s»j«*Bri*»)-T- 

{ 

biosprint(0,  (s_c3nd&0xl)  +2  +  8,PTR); 
biosprint(0,  (s_cmd£Oxl)  +8,PTR); 
s_c««a  , 
) 

if  (  (cmd  ~IHC.JUXn)  |  j  (end  ~FAItAU>BL,_|IOI») 

return  0; 

else  if  (and  ==BEGIN_PROG) 
delay (10)!  ,,  . 


//  ratain  coonaad  *and* 

//  output  6  bits  of  Ganmand 

//  set  bits  001010,  clock  hi 

//  set  bits  001000,  clock  low 


//  coomand  only,  no  data  cycle 

//  program  command  only,  no  data  cycle 
//  10  ms  PIC  programming  time 


data 


else  tit  (end  "^jOmjaan)  1 1  (caod  '•hCaD_J)kTKJM)  I  I  (cmd  <=LaM3_C0NPIG) )  //  output  14  bits  of 


( 

for    (i=200;i;i-)  ; 
biosprint (0,2+8, PTR) ; 
biosprint ( 0 ,     8 , PTR) ; 

for  ti«0;i<14!i++) 
{ 

blosprint(0,  (data&Oxl)  +2+8, PTR); 
biosprint(0,  (data&Oxl)      +8, PTR)  ; 
data  »s3.; 
1 

ff  *»**M*K»««*»<«*«i>    Analog  Deaign  Specialiata 


//  delay  between  command  &  data 

//  set  bits  001010,  clock  hi;  leading  bit 

//  set  bits  001000,  clock  low 

//  14  data  bits,  Isb  first 

//  set  bits  001010,     clock  hi  ' 

//  set  bits  001000,     clock  low 


//  set  bits  001010,  clock  hi;  trailing  bit 


****************** 


Of 


//  set  bits  001000,  clock  low 


else  ttttmi'  «MHQlPM-A)  |  |  (end  ==READ_DATAjaf) )  //read  14  bits  frcm  part,  lab  first 


for  (i=200;l;l»-i)  t 
biosprint  ( 0 ,  2<«4.»e,?TS) ; 
biosprint  (0,  4N>8,FTR); 


//  set  bits  001100,  clock  low,  tri  state  data 
buffer 

//  delay  between  cooanand  fi  data 

//  set  bits  OOlllO,  clock  hi,  leading  bit 

//  set  bits  001100,  clock  low 


data  =0; 

for  (t3>a;i«lM;l-44) 
{ 

data  »=1; 

biosprint(0, 2+4+8, PTR) ; 
blosprii^tO;  4+8,  rai) ; 
i  f ( 1 (biosprint (2,0,0) &0x40 ) ) 

} 

biosprint ( 0 , 2+4+8 , PTR) ; 
biosprint ( 0 ,     4+8 , PTR) ; 
return  data; 
> 

else  rvtttcn  FIC_PItOG_BR0R; 


//  ii^ut  14  bits  of  data,  Isb  first 

//  shift  data  for  next  input  bit 
//  set  bits  001110,    cloc^  hi 
//  set  bits  001100,    clock  low 
data  +=  Oi^OOO;  //use  printer  ac!)cnowledge  line  for  input, 
data  Isb  first 

//  set  bits  001110,  clock  hi,  trailing  bit 
//  set  bits  001100,  clock  low 


//  programner  error 


else  LSmeM^  I^^) 
t 

bta^.t^iO^'9i«ltfi«4,PTR) ; 


II  reset  device 

//  set  bits  110100,  waje.  m  low  (reset 

PIC1SCS4) ,  programtier  not  coneeted 


rilffi-iim'-i 
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delay(l); 
biosprint  ( 0 
return  0; 
} 


oX  Jfsv.fo    ,  ''C  slid  Htf     >  ' 

else  if  tiSsS  s^MiMiUHODE) 


biosprint  (QV'^jA#*l,:FTS) ; 
delay(lO) ; 


retur<rW 


//  1ms  delay 

//  set  bits  100100,  MCLR  =  hleffl';' 


//  enter  program  mode 


//  sete  fetse  110100,  ym  off,  mclr  =  low 

II  1,0  ms,  allow  programming  voltage  to 
stabelize 


//  set  bits  001000,  Vpp  on  ,  MCLR  =  13.5 
volts,  clock  &  data  connected 

//  10  ms,  allow  programing  voltag^- i^" 
stablize 


else  if(cmd  ==RUN) 
{  "  - 

biosprint  ( 0 , 32+r,-p«t) ;  ■  ' 
return  0; 

J  •  o-ii  ....... 

eljis  sSisSMJai  PR0GMR_ERROR; 


//  disooneots  progranmer  from  device 
//  set  bits  100100  ' 

//  CQBimand  error 


.rt  xnc:- 
,4wiBl  wa  «nil  o'-.fc  _ 


■Uiiei  \\ 
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Using  the  CCP  Modules 


This  application  note  discusses  the  operation  of  a 
Capture  Compare  and  PWM  (CCP)  module,  and  the 
Meraction  ,qS  r^tiiiiPA^Pif^iM^ul^  with>  ftie 
resources.   ,r..  ■  ,v., 

The  Capture  Cornpar*  and  PWM  (CCP)  modu»'1^ 
software  programmable  to  opensitftionei  dHMee  m^M: 

1.  A  Capture  input  ■  .  ,  :„-)oohc,i.'  .  if  t-, 

2.  A  Gomp^ii-e  oUtpiil  •  j  "  (-» 

A  Pulse  Width  Modulation  (PWM)  output 

For  the  CCP  module  to  function,  Timer  resources  murt 
be  used  in  conjunction  with  the  CCP  n^ule.  The 
desired  CCP  mode  of  operation  determines  which  timer 
resources  are  required.  Table  1  shows  the  CCP  mode 
with  the  corresponding  timer  resource  required.  Both  the 
Capture  and  Compare  modes  require  that  Timer  1  be 
operating  in  timer  mode  or  synchronized  counter  mode. 


Note  Capliirf  nri'J  Conp.iip  modess  m«iy  not  oper- 
ate li  Timen  IS  operated  in  asynchronous 


TABLE  1:  CCP  MODE  -  TIMER  RESOURCE 


CCP  Mode 

Timer  Resource 

Capture 

Compare 

PWM 

Timer  1 

Timer  1 
Timer  2 

T 


FIGURE  1:  PWM  OUTPUT 


CCP  OPERATION 

Thef  olldwing  three  sections  discuss  the  operation  of  the 
CCPTTtodute  in  each  of  its  modes  of  operation.  There  is 
a  simple  example  program  for  each  mode  of  opei^ion. 
The  software  fsatiiplii  for  the  captMS^^po^^l^^es 
a  second  (X:Pm^^fmmmmm^i^»9V^^lSI^ 
signal  to  capture.  ,H  fc..lia^  :       ,      txij  .'d:- 

PWM  Mode 

A  Pulse  Width  Modulation  output  (shown  in  Figure  1)  is 
»s^^MtU^  %ttti&m»^STtod()  and  aime  tfisfthe 
0(MtMs^(^|ii^ep^v1^«i  period  iste^^ 

wh)(^  tte  PWI^  tfskm  ectee  t^eeHs  is^^  The 
resdtutloti  of  the  P^bikm  S%b  graiWl^^ 
which  the  duty  cycle  can  be  varied.  The  frequency  of  a 
PWM  is  simply  the  Inverse  of  the  period  (1  /  period). 

FIGUHtit  PWKX  M6Di  6LOCK  DIAGRAM 


Duty  cycle  registers 
CCPRxL       \  ^ 


-  CCPxCON<5:4> 


Comparator 


TMRZ  (Notel) 


Conparator 


RCy/OCPx 


TRISC<y> 


PR2 


.Mot^  1 .  8-t)itllraer  is  concantenated  with  2Tbit  Internal  Q  clock 
or  2  bits  of  the  prescaler  to  create  10-bit  time  base. 


 L.  "^^^^ 


Period 


SH>* 


PWM 


c 


tMR2  =  PR2 


I  '  I  I 
I  ij  I 

I         ,       .1  TMB2  =  PR2 

;  TMm^ccmH  - 


PWM  frequency  =  1/ period 
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Each  CCP  module  can  support  one  Pulse  WicRh  Modu- 
lation (PWM)  output  signal,  with  minimal  software  over- 
hfad.  This  PVVNI  sigNil  can  attain  a  resolution  of  up  to 
fO^iite,  frd^  the  64i  titter  2  module.  This  gives  1024 
steps  of  variance  from  an  B-bit  overflow  counter.  This 
gives  a  maximum  accuracy  of  Tosc  (50  ns,  when  the 
device  is  operated  at  20  MHz).  Figure  2  shows  a  l>locl< 
diagram  of  the  CCP  module  in  PWM  mode.  When  the 
Timer  2  overflows  (timers  Period  Registei),  the  value  In 
the  duty  cyde  registers  (CCPRxL:CCPRxCON<5.4>)  is 
latched  into  the  1 0-blt  slave  latch .  A  new  duty  cycle  value 
can  t>e  loaded  into  the  duty  cycle  register(s)  at  any  time, 

but  only  latchefl  into  the  ^g.h^  whWLllilPn^lj' 
Tmwr 2  Peitod^gister {0^^    ,    -      .  .f^.g ,; 

The  period  of  Tknef  2  (and  PWM)  is  determined  by  the 
frequency  of  the  device,  the  Timer  2  prescaler  value  (1 , 
4  or  16),  and  the  Timer  2  Period  Register.  Equation  1 
shows  the  calculation  of  the  PWM  period,  duty  cycle, 
and  the  minimum  and  nraximum  frequncies. 

EQUATION  1 :  PWM  PERIOD,  DUTY  CYCLE, 
AND  FREQUNCIES 

PWMPerlod   =    [(PR2)  + i)*4Taa. 

•  (T ^mer  2  prescale  value) 
PWM  Duty  Cycle    =  ICCPftd_-CCPIfb<CON<5:4>l»4To„ 

PWM  maxknuni  frequency   

(High  Reaolution  mode)  =  4/(PR2'T„) 
(Low  RewAiHcx)  mode)  =  1/(PR2«T„) 

PWM  minlmufn  frequency 
(High  Resolution  mode) 
(Low  Resolution  mode) 


4/(PR2'16«T„) 
1/(PR2-16.T„) 


Table  2  shows  the  minimum  and  maximum  PWM  fre- 
quency for  different  device  frequencies.  The  Timer2 
prescaler  will  be  selected  to  give  either  the  minimum  or 
maximum  frequencies  as  sfiown. 


ApfWKiK  A  i>  a  program  which  generates  up  to  a  1 0-bH 
PWM  oullHit.  ihB  Pmi  period  and  duty  cycle  are 
upditad  allerlhe  ovsrtlow  of  Thnerl .  Upon  the  overflow 
orTfenerl,  ports  A.  B  and  S^iHaad.  Thft40-lit  du^ 
cycle  is  spe<»fiedby1hnBiHMRd^finiBi!^llSiMte 
whilethe  period  isspacifiedbythevahieonP0lCFD.  By 
seWng  tf^  <^nciional  assemble  n^j  picHaster  to 
9^^ilMMSKWineMKWtf  .IRIHK^^  registais 
wMch  fUB  dummy  reglstarsforthe  ports  Q3UMMY_Px). 
lh)|^^tfiMi>^jKi««t»t9toverified^w^ 
^afiliWM  and  extemal  stimulus. 

Sinde  the  PWM  duty  cycle  is  double  buffered,  the  duty 
cycle  registers  are  only  loaded  when  there  is  sufficient 
time  to  complete  the  update  the  1 0-blt  value  before  the 
Timer2  =  PR2  match  occurs.  After  the  duty  cycle  has 
been  updated  and  the  Timer2  =  PR2  match  has  oc- 
curred, the  period  (stored  in  the  PR2  register)  is  updated. 
The  operation  of  the  CCP  module  in  PWM  mode  is 
similar  to  the  PiC17C42's  PWM.  Additional  concepts  of 
PWM  operation  can  be  found  in  Application  fMotes  AN5G4 
M#AN83S.  :  ■  .-.o-^.j;.-.., 

■■!.  ■    ^-i-'iF         .  •>..>)i'in  nt  IctKi 

it   .1;      ■     -■   ,  ■     :  , 


TAfilse^  'filiniriMQUENCY  for  different  device  FREQUENCIES 


PWM  Resolution 


20  MHz 
Min  Max 


10  MHz 
Min  Max 


2  MHz 
Min  Max 


10-bit 

9-  Bit 

10-  bit 

9-  Bit 

10-  bit 

9-  Bit 

10-  bit 
9-Bit 


1.22 
1.22 


1.22 
1.22 
1.22 


19.53 
39.06 
19.53 

mm 

19.S3 
39.06 

19.53 
39.06 


0.613 
0.613 
0.613 

0.613  ; 

0.613  ' 
0.613 

0.613 
0.613 


0.123 
0.123 


1.96 
3.92 
1.96 
3.92 
1.96 
3.92 
1.96 
3.92 


KHz 
KHz 
KHz 
KHz 
KHz 
KHz 
KHz 
KHz 
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Compare  Mode 

In  compare  mode,  the  16-bit  value  of  Timerl  is  com- 
pared to  the  CCPRxH:CCPRxL  registers.  When  these 
registers  match,  the  S/W  configured  event  occurs  on  the 
CCPx  pjn.  The  events  tMfl  < 

•  Clear  CCPx  pin  on  match 

•  Set  CCPx  pin  on  match 

•  Trigger  special  event  (CCPx  pin  unchanged) 

-  CCP1  clears  Timerl 

-  CCP2  clears  Tinterl  and  sets  the  A/D's  GO  bit 

The  CCPxM<3.0>  control  bits,  in  register  CCPxCON, 
configures  the  operation  of  the  CCP  nxxlule.  The  conoi- 
pare  function  must  have  the  data  direction  of  the  CCPx 
pin  configured  as  an  output,  if  the  compare  event  is  to 
control  the  state  of  the  CCPx  pin. 

FIGURE  3:  COMPARE  MODE  BLOCK 
DIAGRAM 


RCy/CCPx 


'SetCCPxIF 

interrupt 

« 

1 

PtR<b> 

■i 

3 
u 

£. 

1 

Output 
Logic 

match  L 

TRISC<y> 


T 


ICCPRxH  CCPRxL 

A 


CC{'CONx<3Kl> 


Cmnparator 
TMR1H  TMR1L 


When  theCCP  module  is  in  the  OFFstate(CCPxM<3:0> 
=  Oh),  the  CCPx  output  latch  is  forced  to  a  low  level, 
though  the  level  on  the  CCPx  pin  will  be  detennined  by 
the  value  in  the  data  latch  of  the  port .  Figure  3  shows  the 
block  diagram  of  the  CCP  module  in  Compare  mode. 

Appendix  B  is  a  program  which  uses  the  CCP  module  to 
transmit  a  pulse  train  dependent  on  the  data  byte. 
Timerl  is  used  as  a  free  running  timer,  with  each  "new" 
compare  value  beingan  offset  addedtothe  present  CCP 
compare  latch  value.  The  data  is  transmitted  every  600 
|is.  Each  data  bit  has  a  sync  pulse  (High  level)  of  8.8  (is. 
Then  the  data  is  transmitted  as  a  low  pulse.  The  time 
duration  of  the  low  pulse  determines  the  value  of  the 
data  bit.  A  '0'  bit  is  low  for  18.8  ^^s  while  a  '1 '  bit  is  low  for 
37.6  ^s.  After  the  last  data  bit  has  been  transmitted, 
another  sync  pulse  is  transmitted  and  the  output  re- 
mains low  (idl^  time)  until  the  600  |is  data  periixj  hse 
completed.  Ah  example  of  the  pulse  train  for  the  a  data 
byte  of  CAh  is  shown  In  Figure  4,  and  has  an  idle  time  of 
224  (is.  These  pulse  tifnas  are  b^ed  off  the  device 
opeiaional  fr«|uency.  TI)||jg|M>j^^  header  file, 
COMtPiB  j  eiteuWes  the  vallies  to  ibaaed  Into  the  eom- 

fpiiir^stoestmi  tfte  specified  Device Jreq.  The  data 
to  be  tiansmMed  Is  read  from  PORTB,  during  the  idle 
time.  BysettingthecondWofiaiessenibiailBg  PiCMaster 
to  TRUE,  these  ^lues  are'md  from  itttemal  registers 

,  wiM^-ero  AjBaBiy  registers  for  the  ports  (DUMMY_Px). 

j  This  attewsVwwftware  to  be  verified  without  the  use  of 
haniwaie'ttfRiwteinal  stimulus. 


FIGURE  4:  TRANSMrT  PULSE  TRAIN  (DATA  =  OXOCA) 
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tiding  the  CCP  Modules 


Capture  Mode 

In  capture  mode,  the  16-bit  value  of  Timerl  is  latched 
Into  the  CCPRxH:CCPRxL  registers,  when  the  S/W 
configured  merX  occurs  on  the  CCPx  pin.  The  events 
that  can  cause  a  capture  are: 

•  Every  falling  edge 

•  Every  rising  edge 

•  Every  4th  rising  edge 

•  Every  16th  rising  edge 

Ttie  CCPxM<3:0>  control  bits,  in  register  CCPxCON, 
configures  the  operation  of  the  CCP  module.  The  cap- 
ture function  wor1<s  regardless  of  the  data  direction  of  the 
CCPx  pin  (input  or  output).  With  the  CCPx  pin  is  config- 
ured as  an  output,  a  write  to  the  CCPx  pin  (In  PORTC) 
will  cause  a  capture  when  the  capture  V^cjuifsrheht 
met.  .  " 

FIGURE  5:  CAPTURE  MODE  BLOCK  ' 


Prescaler 
1 .4.16 


RCy/CCPx 


SetCCPxIF 
interrupt 
PIR<b> 


CCPRxH  CCPRxL 


J  and  \ 
edge  detect 


Capture 


Enable 


TMRIH  I  TMB1L  I 


a»  ccPCONx<»a> 


The  changing  of  the  capture  mode,  via  the  CCPxM<3fl> 
bits,  may  cause  the  CCPxIF  bit  to  be  set.  This  false" 
interrupt  should  be  cleared  (ignored)  after  changing 
between  capture  modes.  The  CCP  prescaler  Is  only 
I  the  CCP  iTKXIule  into  the  OFF 
'  =  Oh).  Figure  5  straws  the  block 
diagram  of  the  m«M6  in  Capture  mode.  The 
utilization  of  the  CCP  modaje  in  capture  mode  Is  sim  liar 
to  the  PIC1 7042*8 capture.  Additional  cona^^  of  cap- 
tur#<^l»t8f^<edri  be  found  m  Apt>iibaiilonWKm^S. 

Appendix  C  is  a  program  which  iiTiMMtf^if '16-btt 
capture  from  a  free  running  timer  (TMRiy.'flw  capture 
event  Is  configure  as  each  rising  edge.  The  16-bit 
capture  value  isthe*new"  1 6-bit  capture  value  minus  the 
"old"  16-bit  capture  value.  If  the  time  between  captures 
is  greater  than  2  ^'  Timer!  Increments,  an  invalid  result 
HUSt'omUioltM  frivalid  result  is  not  indicated  by  the 
softvtare.  After  the  capture  period  result  is  calculated, 
the  "new"  capture  value  is  loaded  into  the  "old"  register. 

The  waveform  that  is  captured  is  generated  from  a 
second  CCP  module  in  compare  mode.  The  value  that 
is  loaded  in  to  the  CCPR2H:CCPR2L  is  read  from  the 
PORTS  and  PORTD  registers.  By  setting  the  condi- 
tional assemble  flag  PICMaster  to  TRUE,  these  values 
are  read  from  intemal  registers  which  are  dummy  regis- 
ters forthe  ports  (DUMMY_Px).  This  allows  the  software 
to  be  verified  without  the  use  of  hardware  and  external 
stimulus.  Figure  6  shows  an  input  into  the  CCPx  pin,  and 
I  ~ttfft«a|iliiM«wasuremBnl''^i3t&  ■>  i.r 


FIGURE  6:  EXAMPLE  CAPTURE  WAVE  FORM 
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Using  the  CCP  Modules 


mmm0&iim  op  ccp  modules 

Dis  «» the  modularity  ^  Hm^^^ps^  pertph^als. 
Mm  devices  with  two  or  tmrODP'Tnoduies  on  a" 
device  are  possible.  Bae^  CCP  modtrie  operates  inde- 
perxlentiy  from  the  others,  though  ttieir  interaction  wRh 

ttie  timer  resources  must  be  talten  Into  account. 

Wtien  two  or  more  CCP  modules  exist  on  a  device,  ttiere 
can  be  an  Interaction  between  the  CCP  modules.  This 
Interaction  Is  shown  in  Table  3.  These  Interactions  do 
NOT  Include  any  Interaction  (SA/V)  caused  by  the  main 
program  nor  the  Interrupt  service  routines  of  the  CCP 
sources. 

Interaction  of  Two  Capture  Modes 

When  two  CCP  modules  are  in  a  Capture  mode,  Timerl 
is  the  timebase  for  both  captures.  This  means  that  they 
will  have  the  same  capture  resolution,  as  determined  by 
the  TMR1  prescaler  and  frequency  of  the  timer/counter 
clock.  This  clock  can  come  from  an  external  source  (on 
the  RC0/T1  OSOmC^:pl^^>i9iltrni^lM  synchronized 
to  the  device,  ;,  ,  ^ 


Interaction  of  One  Capture  Mode  and 
One  Compare  Mode 

Vtfhih  one  CCP  module  is  in  a  Capture  mode  and  a 
second  CCP  module  is  in  Compare  mode,  Timert  is  the 
Gmebase  for  twth  the  captures  and  the  compare.  This 
means  thial  the  capture  and  the  compare  will  have  the 
same  resolution,  as  determined  by  the  TMR1  prescaler 
and  frequency  of  the  timer/counter  clock.  This  ckx^k  can 
come  from  an  external  source  (on  the  RCO/TIOSQ/ 
T1 CKI  pin),  but  must  be  synchronized  to  the  processor 
clock.  Also,  care  must  be  taken  in  that  the  compare  can 
be  configured  to  clear  TMR1  (when  in  special  Trigger 
mode).  Care  must  be  taken  In  system  design  to  ensure 
that  this  clearing  of  the  TMR1  does  not  have  any 
negative  impact  on  the  capture  function. 

Interaction  Of  Two  Compare  Modes 

When  two  CCP  modules  are  in  a  Compare  nwde, 
Timerl  Is  the  timet)ase  tor  both  compares.  This  means 
^at  t^w  wilt  have  the  same  compare  resolution,  as 
(ietetmmed  1^  the  TMRI  prescaler  and  frequency  of  the 
ttn#)yunter  dodt.  This  clocic  can  come  from  an  ^eter- 
nal source  (onttw  RC0/T1OSCyriCKlpin),  bttf  rnustbe 
^fr^RxwEed  to  the  processor  clocic  Since  the  compare 
Mbml^  can  be  configured  to  clear  TMR1  (wlien  in 
speciBl:  Trigger  mode),  care  must  be  taken  in  system 
design  to  ensure  ttiat  ttiis  clearing  of  the  TMR1  does  r>ot 
have  any  negative  impact  on  the  compare  function.  If 
both  compares  are  configured  with  a  special  trigger, 
which  clears  the  TMR1 ,  then  the  compare  register  that 
is  closest  to  (but  greater  than)  the  TlvlRI  value  Is  the 
compare  value  that  will  reset  TMR1 .  Example  1  shows 
ar 


TABLES:  INTERACTION  OF  TWO  CCP  MODULES 


•f .  .  -Iti  ' 
vitt)  l!  •  \ 


CCPxMode 

CCPyMode 

InteiiMiioii 

Capture 

Capture 

Same  TMR1  timebase. 

Capture 

Compare 

The  compare  could  be  configured  for  trigger  special  event,  which  clears  TMR1 . 

Compare 

Compare 

The  compare^)  could  be  configured  for  trigger  specteri  event,  whidi  clears  TMR1 . 

PWM 

PWM 

The  PWMs  wilt  have  the  same  frequency,  and  update  rate  (TMR2  intermpt). 

PWM 

Capture 

None 

PWM 

Compare 

None 

ta^OSMA  piigo  S 


Using  the 


ACTION 


CCPICON  =  0^;^  I 


TIMEft  1  STATE 


CCPR2H:CCPR2L 


Ox01€5' 


:0N  =  Ox?B 


6x77?? 


0x0232 


0x0333 
0x0334 


0x0465 


0x0000 


9 

1  sti '-:.<• 
•t.i 


S'tll  I 

QxOOOO 


,  I     .  to  1C>.',oM»3C'  ■  - 

=  _  rtopdill:,-,  ,  -  ,  1 

.    .  -.J.,  .  i        MttKO  :"V-, 

■      .(,'  .f-tf-'i  .1.  e 
.  ,,Mi        .  ,,.1'  'IV. 

Interaction  of  TWo  PWM  Mcxies 


When  two  CCP  modules  are  in  a  PWM  mode,  Timer2  is 
the  timebase  for  both  PWM  outputs.  This  means  that 
they  will  have  the  same  PWM  frequency  and  update 
rates,  as  detemiined  by  the  TMR2  prescaler  and  fre- 
quency of  the  device.  The  resolution  of  the  two  PWMs 
may  be  different,  since  each  CCP  module  has  its  own 
CCPxX:CCPxY  bits  forhigh  resolution  mode.  TlMsebHf 
are  found  in  the  CCPxCON<5:4>  register. 


CCPl  in  Compare  -  Special 
Trigger  Mode 


CCP2  in  Compare  -  Special 
Trigger  Mode 

CCPl  resets  TMRl  and  CCPl  - 
Special  Trigger  function  occurs 

CCWZ  reflets  TI@1  send  CCP2  - 
Special  Trigger  functicAi  occurs 

CCP2  resets  THRl  and  - 
Special  Trigger  function  occurs 


CONCLUSION 

The  Capture  /  Compare  /  PWM  modules  offer  enormous 
flexibility  in  the  use  of  the  device  timer  resources.  As  with 
all  resources,  care  must  be  fallen  to  ensure  that  no 
adverse  system  complications  can  occur  with  the  inter- 
action between  multiple  CCP  modules.  The  programs 
for  simple  operation  of  the  various  CCP  modes  should 
be  a  good  foundation  fef  ModifiariiMS  to  sulttt  your 
particular  needs. 


.jKyrwUfij  aBWTj  t».> 


WiUen  by:  Mark  Palmer  -  Sr.  ApplicaUon  En^aear 
Logic  Products  Division 
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> 
•D 

m 


LOC  OBJECT 

OOTS  '.til 


0001 
0001 
0001. 


oods 

0006 
0007 
0008 

0009 
0010 
0011 
0012 
0013 
0014 

oois 

0016 
0/517 
0P18 
.0|i9 
(l'02O 
0021 
J0922 
00^3 
0024 
0025 
0ll26 
0027 
0028 
0O29 
0030 
0247 

o#o 

0031 
0047 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 


SOOSCB  TEXT 


LISf..      P  K^14p7^^.fj^>i 

t  r      -  ,-.'••-"] 

,*il**ii*'*i*1r*itlt****ii**jk***********ii**  ***********************************  ******** 

I  >-  .  .  . 

I  '  :i ; 

This  pros^i^ eufe^f^  #•  1^  «it^l  on  the  C€P1  pin.  The  duty  cycle  and  period 
of  the  ICJ^  is  read  evexy  tiine  THRl  overflows. 
PERIOD.         =  POHp 

DIOT  CYCLE  =  PORTD  and  PORTE<llO> 

The  prescaler  of  TMR2  is  selected  by  the  state  of  PORT&<l!0>  after  reset 

RAliRAO  Prescaler  multiplies  Tcyc  by 

0  0  1 

0  1  4 

1  Jt.  16 


Program  =  PWM_1.ASM 
Revision  Date:  7-13-94 


************* 


HAKDMMlB^jSBTOP 
PORTA<lld> 

PORTS 
PORTD 

PORTE<ll0> 


**************************************** 


Prescaler  to  THR2,  read  only  after  reset 

Period  of  PWM 

Duty  Cycle  high  of  PWM  (8-bits) 
Duty  Cycle  low  of  PWM  (2-bit8) 


lilCUB>B  <e74_reg.h> 


INCLUDE  <PWIt.h> 


PICMaster  EQU  TRUE 

Debug  EQU  TRUE 

Debug_PU  EQU  TRUE 

; 

;  Reset  address.  Determine  type  of  RESET 


A  Debugging  Flag 
A  Debugging  Flag 
A. Debugging  Flag 


■0 


CO 


0000  1683 

0001  188E 

0002  2832 

0003  285C 


ffOM  1283 
0005  180c 
OOOS  280D 

0007  1505 

0008  1105 

0009  2807 


OOOA  1S45 
OOOB  1185 
OOOC  280A 


OOOD  lOOC 
OOOE  0853 


OOOF  00D5 
0010  0854 


0011  00D6 

0012  0851 


0013  1683 

0014  OOAO 

0015  llffi- 


org  RESET_V 

BSF  STATUS,  RP6 

BTFSC       PCON,  POR 
GOTO  START 
GOTO  OTHERJRESET 


0039  ;  . 
0040 

0041  BESET 
0042 
0043 
0044 

0045  ; 

0046  ;  This  1#  Utes  Farlperal  Interrupt  routine.  Need  to  dsteimlne  the  type 
^tH^'  e£  immm^0,         omiamA,.  The  followlag  interrupts  are  enabledi 

0049  ; 

0051  org  ISR_V 

0052  PER_INT_V         .  ^  ,  ^ 

sraSas,  rpo 

PIRl,  1»R1IF 


RESET  vector  location 
Bank  1 

Power-up  reset? 
YES 

NO,  a  WDT  or  MCLR  reset 


Interrupt  vector  location 


005.3  Bcr 
oo^i .  mtse 

0056  X^ROSlj^-,.. 
0057 
0058  . 

0059 

0060  ; 

0061  ERR0R2 
0^62 
0063 

odif ' 

O^SS'; 
0064  VlOVFL 


BSF 
BCF 
GOTO 


PORTA,  2 
PORTA,  2 
ERRORl 


;  Bode  0 

;  TMRl  Overflow  Interrupt  ooeured? 
;  YES,  Service  the  1»R1  Interrupt 
;  NO,  Error  Condition  -  Unknown  Interrupt 
;  Toggle  a  FORT  pin 


fmOA,  3 


;  NO,  Error  Condition 
.Toggle  a  PORT  gin 


Unknown  Interrupt 


PIRl, 


TMRIIF 

jet),  w 


w 


BCF 

0d|8  if  ^J>ICMaster  ) 

0069  MOVF 

0070  else 

0071  MOVF 

0072  endif  . 

0073  MOVWF  DC_H1 

0074  if  (PICHaster  ) 

0075  -        MOVF  DUMMY_PE 

0076  else 

OO'J?  MOVF        PORTE,  W 

Oaji'^  «»di£ 

0074  TUcmF  Dcj:,o 

O08O  if  (PICHaster  ) 

008,1  MOVF     aaigfi^,  -,m 

Obsi  else 

0083  :    MOVF        PORTB,  W 

0084  «idlf 

0085  BSF  STATUS,  RPO 

0086  _       MOyWF  T2_PERI0D 
■%OSf"^^'-^'       '    •    ^B^S' StXtIK^  RPO 


Clear  Tl  Overflow  Interrupt  Flag 


I 


Bank  1 
Aank  0 


0016  0811 

0017  0212 

0018  390F 

0019  1903 
OOIA  2816 
OOIB  0855 
OOlC  0095 
OOID  300F 
OOIE  0597 
OOIF  18D6 

0020  1697 

0021  1856 

0022  1617 

0023  108C 


0024  1C8C 

0025  2824 

0026  1683 

0027  300P 

0028  0092 

0029  30F0 
002A  0520 
002B  1903 
002C  2830 

002D  300F 
002E  0220 
002F  0792 


0030  1283 
9931  9099 


0088 
0089 
0090 


MftiTJDC 


0032  1283 

0033  018F 

0034  OlSB 


MOVF 


0093 
0094 
0095 
0096 
0097 

00d9 

0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 

im 

0109 

Olio 

0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
bl34 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
Oi|3 

9m 
^3is 


WMT_PR 


PR_0FF3BT 


NOOFPSBT 


AlinUf 

BTFSC 

GOTO 

MOVF 

MOVWF 

HOVLW 

KHCm 

mm: 

BTPSC 
BSF 

^BCF 


BTFSS 
OOTO 

BSF 

MOVLW 

MOVWF 

MOVLW 

ANDWF 

BTfSC 

ddw 
sObwf 

ADDWF 


BCF 


THEt2,  W 
FR2.  M 
OxOF 

STATUS,  Z 
WAIT_DC 
DC_HI,  W 
CCPRIL 
OxOF 

cc^icssa,  F 
bc^,  1 

CClPlCON,  CCPIX 
DCJE^.  0 

dcpicxM,  GCPiy 
piia,.fM8?iF 


PIRl,  THR2IF 
MA1T_PR 

STATUS,.^© 

OxOP 

PR2 

OxFO 

T2_PERI0D,  W 
STATps,  Z 
HOJfFSET 

OxOF 

T2_PERI0D,  W 
PR2,  F 


STATUS,  RPO 


Read  present  TID(2  regietex  value 
How  close  is  the  timer  to  rolling 
Does  this  make  it  zero? 

1£  Z  is  set,  near  rollover 
loop  until  rolled  over 
else  load  the  duty  cycle  values 
Load  DC  high 

Set  the  DC  low  bits 


^  Claa;  the^TOE PBg  flag 


LOOP  waiting  for  TRM2  =  PR2 
Heed  to  wait  until  TIIR2  =  PR2  so  that 
Duty  Cycle  is  latched 


with  mininam  value  Fh 

Determine  if  period  needs  to  be  greater 

NO^  Period  is  the  minimum 
;  Yes,  calculate  additional  offset 
;  ADD  Period  offset 


;  Bank  0 

)  mtuni  /  Biable  Qloba],  Ipternvts. 


*****  Start  program,  here,  Power-On  Reset  occurred. 

************** ******************************** ******* 


BCF  STATUS,  RPO 

CLRF  TMRIB 
CERP  WRIL 


MCULJIESET 


POWER_ON  Reset  (Beginning  of  program) 

Bank  0 


;  A  Master  Clear  .Di^fe 


CO 


0035  0183 

0036  018B 

0037  018C 

0038  1683 

0039  3080 
003A  0081 
003B  018C 
003C  30FF 
0030  009F 


CLRP 

CLRF 

CLRF 

BSF 

MOVLW 

MOVWF 

CLRF 

HOVLW 

M0\7WP 


INTCON 
PIRl 

STATUS,  RPO 
0x80 

OPTION_R 
PIEl 
OxFF 
ADCOKl 


;  Do  inltlallzstipn  (Bank  0) 


;  Bank  1 


)  DlsiSle  all  paxtj^ecal  intefxupts 


;  Fort  A  is  IlliglCal. 


003E  1283 
003F  0185 

0040  0186 

0041  0187 

0042  0188 

0043  0189 

0044  1683 

0045  30FF 

0046  0085 

0047  0086 

0048  0187 

0049  0088 
004A  0089 
004B  0092 
OHQ.  140C 

004E  300C 
004F  0097 


0050  018C 

oqsi  0190 
offsi  i85.ff 


0054  1412 


Ui9 

OlSO 

01S,3 
0154 

mi 

mi 

0160 

mt 
mi 
mi 

QiSS 
01«6 
0167 
0168 
0169 
0X70 

bi7i 

0172 
0173 

0175 
0176 
Cfl77 
0178 
017* 

mi 

0181 

m 


BCF 

STATUS,  RPO 

;  Bank  0 

CLRP 

PORTA 

;  ALL  FORT  output  should 

CLRF 

PORTB 

^  j 

CLRF 

PORTC 

CLRP 

PORTD 

CUtF 

PORTB. 

m 

iSTATDS,  RPO  ' 

;  Select  Bank  1 

tlOVLW 

OxFF 

MOVWF 

TRISA 

;   RA5  -     0  inputs 

MOVWF 

TRISB 

;  RB7  -  0  inputs 

CLRF 

TRISC 

;  RC  Port  are  outputs 

MOVWF 

TRISD 

;  RD  Port  are  inputs 

MOVWF 

TRISB 

;  RE  Fort  are  inputs 

MOVWF 

PR2 

;  Default  PWM  period 

BSF 

W|i,  TupllB 

;  Enable  THRl  Intercut 

BCF 

svimiB,  RPO 

I  Select  Bank  0 

MOVLW 

OXOC 

;  CCP  module  is  in 

MOVWF 

CCPICON 

;  PWM  output  mode 

;  Initialize  the  Special  Function  Registers  (SFR)  interrupts 


CLRP  FIRl 

CLRF  TICON 

CLRF  T2C0N 
if  (FICMaster  ) 

BTFSC  DtnB«_t'A, 

else 

BTFSC  PORTA.  0 
endil 

BSF  T2C0N,  0 


if  (PICMast^A  „ 

BTFS^  ^^PCJ^j 

else 

BTFSC      PORTA,  1 


1*  rp*  r-if^-f 


0185 

0056 

1492 

0186 

0187 

0057 

170B 

0188 

0058 

178B 

0189 

0059 

1410 

0190 

&^ 

tS13 

0191 

0192 

005B 

285B 

0193 

0194 

0195 

0196 

OOSC 

1B03 

0197 

OOSD 

2807 

0198 

0199 

005E 

2832 

0200 

0201 

0102 

0203 

6294 

0205 

005F 

0000 

0206 

0207 

0208 

0209 

0210 

07FF 

2807 

0211 

0212 

0213 

0214 

0215 

endif 

F         T2CMI,  1  t 

Enable  Peripheral  Interrupts 
Enable  all  Interrupts. 
Turn  Timer  1  ON 
ftavn  Tinwr  g  igH^ 

Izz  goto       Izz  ;  Loop  waiting  for  TMRl  Interrupt 

''  \ 

Hera  is  vAiere  you  do  things  depending  on  the  typB:  ot  tpSES  (I^t  a  Fomr-On  Reset) 


B8F 

T2CMI, 

1  ! 

BSF 

njTCOM, 

PEIE 

BSF 

nncoN, 

GIE 

BSF 

TlCCiH. 

m 

mmm. 

goto 

Izz 

1 

OTHER_RESET       BTFSS     STATUS,  TO 
WDT_TIMEOUT       GOTO  ERRORl 
if   {  Debug_PU  ) 
goto  START 

else 

SOTO  tfCLR_RESET 
<odl£ 

I 

it  (Debug  ) 

END_START  NOP 
endif 


PMEM_END 
OOTO 


;  WDT  Tina-out?  >  u> 

;  YBS,  This  la  (eueof  cofidltion 

;  MCLR  reset,  [^jOoto  STJ^T 

;  MCLR  reset,  06t&  BCLRJIESET 


;  END  lable  for  debug 


;  End  of  Program  Memory 

;  If  you  get  here  your  program  was  lost 


MEMORY  USAGE  HAP  (*X'  =  Used,     ■-'  =  Uhused)  ~ 

0000   :   XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX 

0040   !   XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX   :  


0780  : 
07CO  I 


All  Other  memory  blocks  unused.  ^,  _  -  ^'f  rS '  .  -) 

<  "  .  -   *  "  r  J  1." 

%  "    .'»  '-.    •      I  ^ ;    'i? 'S  ^  =; 

Errors      i        0  i  jj  j 

Warnings  i      17  ■ 


CO 


WirigLllieCSCi^lilcslutii 


nolist 

******************************************* ******* 

I 

t    9lis  Is  th«  custsnt  Batider  File  for  the  real  time  clodc  i^licatlon  note 
;  FHOSitMis  CLOCK.  H 

;  KancA-aBi  7-13-94 

,************************************************************ ****************** 
;  This  is  used  for  the  ASSEMBLER  to  recalculate  certain  frequency 
;  dependant  variables.  The  valoe  of  Sw^reg  nust  be  ^aag«d  to 
;  reflect  the  frequency  that  tlie  ^s^ice  actually  operates  at. 

Dev_Freq  Sgd  D' 10000000'  ;  Device  Prequ««^  is  4  MHz 

FUr^S^TIMB  BQ?         ((  Dev^req  /  D<4000'   )  *  D'188'  /  D'lOOOO'  ) 


TJ>ELAY  BQU 


OUTHR_CNTR 


TIOSO 


Ego 

WHO 

sou 

■Q0 


(HIGH  (  ( (  Dev_Freq  /  4  ) 
(HICT  (((  Dev_Freq  /  4  )  *  D'46' 
40 

41  I 


*  1  /  D'lOOO'   )   /  3  )   )  +  1 
/  D'lOOOO-  )  /  3  )   )  +  1 
^  RAH  Loeatien  . 

!  t'JlUUi'  Leeacim  i 

It-' 

,  J  &e  8Ce»  /  TlOSO  /  TlfeKI 


RESET_V 


ECU 
EQU 


0x0000 
0x0004 
0X07PF 
0x0400r 


Address  of 
Address  of 


RESET  Vector 
Interrupt  Vector 


^ast^ad&»^  in  Psegraa  Itigt^cy 
Myites  vfaare  Jto  ataxtn^iH&tSt 


0x021 


XMIT_DATA 
DATA^CNT 
ONBS_CNT 
CCP1_INT_CIJT 

CCPREG_HI 

CCPREG_LO 

DUMMY_PA 

DUMMY_PB 

DUMM5f_PC 

DUMMy_PE 

DC_HI 
DC_LO 
T2_PERI0D 
I 

list 


EQU 

EQU 

EQU 

EQU  ' 

EQU 

EQU 

EQU 

EQU 

EQU 

BQD  ' 

EQU 

EQU 

EQU 

EQU 


0x30 
0x31 
0x32 
0x33 
0x40 
0x41 
0x50 
0x51 
0x52 
0x53 
0x54 
0x55 
0x56 
OxAO 


r\i  V  l<% 


I  I 


as 


>  <o  *  1 

(IJ  •»  fV 

n  \-    C  J 


«  ^iB««lleiBdl»Tiit»imy  Me. 


]^i&W.01  Released 


LOC  OBJECT 

uu  ■  :Tc>: 


CODE 


0001 
0001 
0001 


{i|NE  SOURCE  TEXT 


LIST**  P  =  "^^i'lNHXSH,  a".'^**"'  ■' 


***************************************************************************** 

This  program  outputs  a  pulse  tra'M'^  Wd'aSfff  WA'**' W^*r<S4"^'*He  * " 

values  in  the  CCPR1H:CCPR1L. 


^1  I- 


I  I 


< —  1  — >  <-  0  -> 


OffOl 

0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013  ; 
0014 
0015 

6mi' 

0018 
0019 
0020 
0021 
0022 

dlj26' 
0027 
0028 
0247 
0028 
0029 

0030  ; 

0031  PICMaster 

0032  Debug 

0033  Debug jm 

0034  ; 

0035  ; 

0036  ;  Reset  address.  Determine  type  of  RESET 
org      "  RESE?JlV  ;  RESET  vector  location 


> 
"0 
■0 

m 
z 
□ 

X 

W 

o 
o 
s 

TJ 


I      I      I  I 

I     T_ON^BIT     I  T_ZERO_BIT 


PrograM'=  coiiP_l,ASI| 
Revision  Datei  "7-13-94 


HMtSNARB  S  BTOF 

PORTS  -    Data  to  serial  transmit  on  COP  pin 


lilCLlJDE  <cf4_reg.h> 


INCLUDE  <COMP.h> 


EQU 
EQU 
EQU 


TRUE 
TRUE 
TRUE 


A  Debugging  Flag 
A  Debugging  Flag 
A  Oebugj^Ing  Plag 


0SS7  ; 
Mi 


CO 


0000  1683 

0001  188E 

0002  287C 

0003  28BA 


0004  1405 

0005  1283 

0006  1»0C 

0007  280B 

0008  1505 

0009  1105 
OOOA  2808 


BSF  STATUS,  RPO 

BTFSC  PCON,  POR 

GOTO  START 

GOTO  OTHER  RESET 


Bank  1 

Power-up  reset? 
YES 

NO,  a  WDT  or  MCLR  reset 


This  is  the  Feriperal  Interrupt  routine.  Need  to  determine  the  type 
of  interrupt  that  occurred.  The  following  interrupts  are  emblodi 
1.    CCP  Gesture  Occured 


org 
PEH_IHT_V 


ERRORl 


/  Interrupt  vmeMz  location 


if  (  BtSsOfS 

) 

b*f  ' 

PORTA,  0 

;  Turn  on  strobe 

endif 

BCF 

STATUS,  RPO 

;  Bank  0 

PlRl,  CCniF 

;  Genera  Int«sztsit  eee»re4T 

GOTO 

CCP1_1NT 

;  fSS,  Service  the  WBl  teterriqpt 

;  HO,  Error  Condi^tion  -  unknown  Interrupt 
(■  Toggle  a  PORT'plW 

BSF 

PORTA,  2 

BCF 

PORTA,  2 

GOTO 

ERRORl 

oeoe  1185 


; 

.  *  **  * 


BSF  PORTA,  3 

BCF  PORTA,  y 


************** 


NO,  Error  Condition 
Toggle  a  PORT  pin 


k  ******  * 


;  In  the  CCP  interrupt. 

;  Since  timerl  is  not  cleared  on  a  CCP  match,  the  value  in  the 

;  CCPRIH : CCPRIL  register  pair  must  be  updated,  thia  la  dooe  with 

;  a  16-bit  add.  Also  after  the  1st  CCPl  matt^  (GCPl  pin  goes  falgh) 

;  t^^.^^t  BiAtch  will  force  it  low.  Unending,  on  the  value  of  the  data  bit 

;  ji^fcjarminea  the  value  add  to  the  CCPRlRiCCPRlL  register  pair. 

;  After  the  data  has  been  transmitted,  the  pin  will  have  a  sync  pulse  and 

;  then  remain  low  for  300  us.  ^  , 


OOOE  HOC 
OOOF  0AB3 
0010  1C33 
soil  3«33 

0'^l2  03B1 


CCP1_II1T  . 


DATA^PULSE 


BCF 

INCF 

BTFSS 

mm 


PIRl,  CCPIIF 
CCP1_INT_CNT 
CCP1_INT_CNT,  0 
S1QIC_Etn.SE 


clear  CCPl  Interrupt  Flag 


;  Becrenieht  the  Count  of  data  bits 


0013 

1903 

0088 

BTFSC 

STATUS ,  Z 

0014 

2827 

0089 

CpOTO 

P&RXOD_DELTA 

0015 

ODBO 

0090 

lOiF 

XM1T_J>ATA,  P 

1803 

0091 

BTFSC 

STATUS ,  C 

rim  "7 

281F 

GOTO 

uni!i_iJAi  A 

0093  ZERO_^ATA 

0018 

302F 

0094 

HOVLW 

LOW  (  T  ZERO  BIT 

0019 

0795 

0095 

ADDWF 

CCPRIL,  F 

OOIA 

1803 

0096 

BTFSC 

STATUS ,  C 

OOIB 

0A96 

0097 

INCF 

CCPRIH,  F 

OOlC 

3000 

0098 

MOVLW 

HIGH  (T  ZERO  BIT 

OOID 

0796" 

0099 

ADDWF 

GDIS 

287A 

aim 

GOTO 

0102  ONBJMkTA 

305^ 

0103 

MOVLW 

0020 

0795 

0104 

ADDWF 

CCPRIL  F 

0105 

BTFSC 

0022 

0A96 

0106 

INCF 

/^l^DDlU  IT 

oXvR  \  T_OHo_aiT 

CCnllH,  F 

0025 

0AB2 

INCF 

ONES_CNT 

0026 

287A 

GOTO 

RET_P1E 

0111  ; 

0112  PERIOD^BLTA 

0027 

0832 

0113 

MOVF 

OMP  C    PUT  U 

0114 

ANDLW 

0029 

0782 

0115 

ADDHF 

PCL  F 

mt0 

'  l' 

0118 

GOTO 

TWO  1 

002D 

2850 

0119 

GOTO 

THREE  1 

002E 

2857 

0120 

GOTO 

F0UR_1 

002F 

285E 

0121 

GOTO 

FIVE_1 

0030 

2865 

0122 

GOTO 

SIX_1 

003  If 

2^(S 

SEVEN_1 

EIGHT_1 

aize  s«Hc_puLSE 

0033 

302P 

0127 

MOVLW 

LOW  {  PULSE_TIMB 

0034 

0795 

0128 

ADDWF 

CCPRIL,  F 

0035 

1803 

0129 

BTFSC 

STATUS,  C 

0036 

0A96 

0130 

INCF 

CCPRIH,  F 

0037 

3000 

0131 

MOVLW 

HIGH  (  PULSE_TIME 

0038 

079€ 

013t2 

AEA)HF 

CCPRIH,  P 

0039 

1417 

6133 

iar 

CCPICON,  0 

003A 

6^<i9 

Oi'it 

0135  ; 


Have  we  transmitted  all  the  Data  Bits? 

YES,  Delay  to  300  us 

NO,  get  next  bit  to  trainamit  ' " 

Is  the  bit  to  transmit  a  '1'? 

YES,  Stay  low  for  17.6  us 

NO,  Stay  low  for  8.8  us 

t^idate  Conqpare  register  pair  latch 


Stay  low  for  17.6  us 

Update  Conpare  register  pair  latch 


Increment  the  number  of  '!'»  in  the  byte 


Only  want  9  states  (0  Is  to  8  Is) 

There  was  0  ones  in  the  data  byte 
■*^#e  T!**'t'W  fe-the  data  IJ/te 
There  was  2  ones  in  the  data  byte 
There  was  3  ones  in  the  data  byte 
There  was  4  ones  in  the  data  byte 
There  was  5  ones  in  the  data  byte 
There  was  6  ones  in  the  data  byte 
There  was  7  ones  in  the  data  byte 
There  was  8  ones  in  the  data  byte 


l%}date  Compare  register  pair  latch 


On  Conpare  match,  CCPl  pin  =  L 


CO 


013  6  ZBROul 


003B 

30EC 

MOVLW 

LOW   {   ZERO  IS  ) 

003C 

0795 

ADDWF 

CCPRIL,  F 

003D 

1803 

BTFSC 

STATUS ,  C 

003B 

0A96 

B9CF 

CCRllH,  F 

003F 

3002 

MeWf 

HIGH  (  ZERO_M 'J* 

0040 

0796 

0041 

287A 

0144  ; 

0145  ONE  1 

0042 

30BD 

T  AM    /    OMIT    1  C  \ 

0043 

0795 

WSJ 

ADDWF 

CCPRIL,  F 

0044 

1803 

BTPSC 

STATUS ,  C 

0045 

0ft96 

0046 

3002 

'bi^so 

^rilaf  I  aHB  IS  ) 

0047 

0796 

0151 

iffiUiF 

0048 

287A 

Wss 

SOTO 

^15^  TW0_1 

0049 

308E 

MOVLW 

LOW  (  TWO  is  ) 

004A 

0795 

01*^ 

ADDHF 

CCPRIL f  P 

004B 

1803 

0157 

BTPSC 

STATira,  c 

'00>C6 

0158 

0159 

004E 

0796 

0160 

ADDWF 

ccniiH#  p 

004F 

287A 

GOTO 

RET  FIE 

'bl  6~^  THR^B  1 

0050 

305F 

0164 

MOVLW 

LOW  {  THREE  IS  ) 

0051 

0795 

016$ 

JU3DHF 

CCPRIL ,  F 

0052 

1883 

OlGi 

BOTSC 

STATUS,  C 

0053 

0A96 

!CHCF 

CCI^IH,  F 

0054 

3002 

0168 

MKJVLW 

KIGtt  {  THREE_1S  ) 

0055 

0796 

6169 

CCPRIH,  P 

0056 

287A 

0170 

GOTO 

RET_FIB 

6171  J 

0172  F00R_1 

0057 

3030 

0173 

MOVLW 

LOW  {  F0UR_1S  ) 

o«s« 

ms 

IM74 

im 

0175 

005A 

0A96 

0176 

niCF 

CCPRIH,  F 

005B 

3002 

0177 

liOVLW 

HIGH  (  F0UR_1S  ) 

005C 

0796 

0178 

ADDWF 

CCPRIH,  F 

005D 

287A 

0179 

GOTO 

RBT_PIE 

0180  ; 

^81  PIV^l 

005E 

3001 

uta 

MOVLW 

LOW  (  FIVE_1S  ) 

005F 

0995 

M83 

jmDWF 

ec^iL,  p  - 

Update  Ccoipare  register  pair  latch 


i;^date  Con^are  register  pair  latch 


t^date  Con^are  register  pair  latch 


X^date  Con^are  register  pair  latch 


Update  ConiEiare  register  pair  latch 


l^date  Compare  register  pair  latch 


0060 

1803 

0184 

BTFSC 

STATUS ,  C 

0061 

0A96 

0185 

INCF 

t_LFKin,  r 

0062 

3002 

0186 

MOVLW 

HIGH   (  FIVE_1S  ) 

0063 

0796 

0187 

ADLMF 

UU04 

287A 

di«e 

00^0 

y.  -  '  "- 

Kl5T_pXBr 

•    '  T 

Mis  six_i 

.MM 

006S 

30t)2 

0191 

MOVLW 

LOW   (  SIX_1S  ) 

Update  Conipare  register  pair  latch 

0066 

0795 

0192 

ADDWF 

CCPRIL,  F 

0067 

1803 

0193 

STATUS,  C 

0068 

0A96 

0194 

CCPRIH,  F 

nA^  f 

3001 

0195 

uraFT  w 

HIGH  (  SIX_1S  ) 

OOdA 

0796 

oiiis 

[:;■:  .      -    ■  ■ 

VBvB 

oii? 

ei§8 

( 

0199  SEVEN_1 

006C 

30  A3 

0200 

MOVLW 

LOW  (  SEVEN_1S  ) 

Update  Compare  register  pair  latch 

006D 

0795 

0201 

ADDWF 

CCPRIL,  P 

006E 

1803 

0202 

BTFSC 

STATUS,  C 

006F 

0A96 

0203 

INCF 

CCPRIH,  F 

0070 

3001 

0204 

MOVLW 

HIGH   (  SEVE1I_1S  ) 

81*6 

0105 

ACBWF 

CCPRIH,   F  " 

im 

mk 

0407 

9288  B10HT_1 

.  r      !i  1 

0073 

3074 

0209 

MOVLW 

LOW  (  EIGHT_1S  ) 

Update  cW>al;e  register  pair  latch 

0074 

0795 

0210 

ADDWF 

CCPRIL,  F 

0075 

1803 

0211 

BTFSC 

STATUS,  C 

0076 

0A96 

0212 

INCF 

CCPRIH,  F 

0077 

3001 

0213 

MOVLW 

HIGH   (  EIGHT_1S  ) 

0078 

0796 

0214 

ADDWF 

CCPRIH,  F                  (                        .           -  - 

9215 
0216 

GOTO 

RE*iPIE 

0217  RET_FIB 

007A 

1017 

0218 

BCF 

CCPICON,  0 

On  Compare  match,  CCPl  pin  =  H 

0219 
0220 

RBTFIB 

0222 
0223 

0224 

***** 

Start  program  here,  Fower-On  Reset  occurred. 

0225 

****************'********************* 

0226 

0227  START 

POWER_ON  Reset  (Beginning  of  program) 

007C 

1283 

0228 

BCF 

STATUS,   RPO  ; 

Bank  0 

0O7D 

018F 

0229 

ftjRF 

007E 

018E 

0230 

CU)F 

Siii  HCLI^JtESET 

A  iBiiiiit'ttUt  Re^if 

CO 


007F 

1283 

0233 

BCF 

STATOS,  RPO 

;  Bank  0 

0080 

0183 

0234 

CLRF 

STATUS 

0081 

018B 

0235 

CLRF 

INTCON 

0082 

018C 

mn 

CLRF 

PIRl 

0083 

1683 

em 

BSF 

STATUS,  RPO 

;  Bank  1 

0084 

3080 

^1 

MOVLW 

0x80 

;  Disable  PORTB  weak  pull-ups 

0085 

0081 

mi 

MOVWF 

OPTION_R 

; 

0086 

018C 

mi% 

CLRF 

PIEl 

;  Disable  all  peripheral  interrupts 

0087 

3  OFF 

0241 

iievi.H' 

OxFP 

0088 

009F 

0242 
M43 
eS44 

1S6«M»1' 

;  fort  A  is' Dtgitsl. • 

0089 

1283 

BCF 

STATUS,  RPO 

;  Bank  0 

008A 

0185 

@34« 

CLRF 

PORTA 

008B 

0186 

024? 

CLRF 

PORTB 

008C 

0187 

0246 

CLRF 

PORTC 

008D 

0188 

024$ 

CLRF 

PORTD 

008G 

0189 

&250 

CLRF 

PORTE 

008F 

1010 

mi 
^2 

BCF 

TICON,  TMRIOK 

;  Timer  1  is  NOT  incranentlng. 

0090 

1683 

eisi 

BSF 

STATUS,  RPO 

;   Select  Bank  1 

0091 

0185 

0254 

CLRF 

TRISA 

;   RA5  -     0  outputs 

0092 

3  OFF 

0255 

MOVLW 

OxFF 

0093 

0086 

0256 

MOVWF 

TRISB 

;  RB  Port  are  inputs  * 

0094 

0187 

0257 

Cli^ 

•Base 

;  RC  Bott  are  outputs 

0095 

0188 

esse 

CL8F 

;  RO  Wott  axe  outputs 

0096 

0189 

82S» 

CLRF 

TRISB 

;  KB  teatt  •£«  Otttputs 

0097 

150C 

6266 

BSF 

PIEl,  CCPIIE 

;  Enable  CCFl  Interrupt 

0098 

1283 

0261 
0262 
0264 
0265 

BCF 

STATUS,  RPO 

;  Select  Baak  0 

'"'^ 

0266 

;  Initialize  the  Special  Function  Registers  (SFR)  interrupts 

WAD  / 

)■ 

009$ 

018C 

02^8 

CLRF 

PISl 

009A 

0190 

0269 

CLRF 

TICON 

•  Tignr  mode 

009B 

170B 

oiib 

BSF 

DJTCON,  PEIE 

;  Enable  Peripheral  Interrupts 

009C 

178B 

0271 
0272 

BSF 

INTCON,  GIE 

;  Enable  all  Interrupts 

0273 

;  Set-up 

timer  and 

compare  latches 

and  then  turn  timerl  on. 

0274 

009D 

1010 

S27S 

BCF 

TICON,  TMRION 

;  Turn  OFF  timerl 

009E 

3041 

9m 

■    IS  ' 

wmM 

CCPRBG_HI 

;  TMRl  ■  CCPRlHlCCPRlL  -  1 

009F 

008F 

Sifi 

MOVWF 

THRIH 

; 

OOAO 

3042 

tm 

MOVLW 

CCPRBO_LO 

I  , 

OOAl 

008B 

m$i 

MOVWF 

THRIL 

0OA2 

038B 

6m 

vmt 

00A3 

1803 

1281 

00A4 

038F 

0282 

DECF 

TMRIH 

00A5 

3008 

0383 

MOVLW 

0x08 

;  On  nafec^  CCPl  =  H  level 

00A6 

0097 

0284 

MOVWF 

CCPICON 

00A7 

3009 

0285 

MOVLW 

0x09 

00A8 

OOBl 

0286 

MOVWF 

DATA^CNT 

;  8-bits  to  transfer 

0^10 

Otis 

0287 

;  Result  aftMT  m^t  holds  the  nunOser  of  1 

D'WH 

0288 

■mmm 

mm 

OOflS 

00S3 

0289 

CCW_IliT_CHT 

OOAC 

1410 

0290 
0291 
0292 

TlCfflH,  TMRlOH 

0293 

;  This  code  segment 

is  an  infinite 

loop  that  will  always  transoilt  the  data 

0294 

;  contained  in  the  XMITJ3&TA  register.  Aftier  each  layta  ia  Ccananitteid  a  naw 

0295 

;  byte  is  read.  It  i 

IS  lag  FICMAST^ 

(in  stand  aloas  «ode)  ,  tJhls  is  r«&d  frem 

0296 

;  a  register  tbat  is  updated  after 

a  break  (at  NOP) .  If  in  a  system,  FOtTB 

0297 

;  is  read.  All  other  variables  are 

rslnitalized  after  each  byte. 

0298 
1^9 

0300 

OOAD 

0831 

0301 

WAIT  MOVF 

DATA_CNT ,  w 

00«B 

1D03 

0302 

BTFSS 

STATUS,  Z 

;   Is  DATA^CNT  =  0  ? 

OOAF 

28AD 

0303 

GOTO 

WAIT 

;  NO,  must  wait  until  YBS 

OOBO 

0000 

0304 

K0» 

-it  (  .Debug  ),     -     .  . 

OOBl 

1005 

0306 
0307 
0308 

bef 
endif 

POSTA,  0 

;  Turn  off  strobe 

■!/:■  . 

0309 

if  (  FICMaster  ) 

0310, 

.  =•  MOVF 

DtniHK_FB,  W 

1 

0311 

else 

0312 

MOVF 

P(»tTB,  W 

0313 

endif 

00B3 

OOBO 

0314 

MOVWF 

XMIT_DATA 

1  tiai  data  to  transmit 

0OB4 

30FF 

0315 

MOVLW 

OxFF 

00B5 

00B3 

0316 

MOVWF 

CCP1_11JT_CNT 

00B6 

3009 

0317 

MOVLW 

0x09 

00B7 

OOBl 

0318 

MOVWF 

DATA^CNT 

; 

0QB8 

01B2 

0319 

am 

ONSS_CNT 

00B9 

28AO 

0320 
0321 
0322 

GOTO 

NBXTJYTE 

0323 

t  Here  is  where  you 

do  things  depending  on  the  type  of  RBSET  (Not  a  Power-On 

0324 

OOBA 

1E03 

0325 

OTHER_RESET  BTFSS 

STATUS,  TO 

;  WDT  Time-out? 

ooas 

2»08 

0326 

WDT_TIMEOUT  GOTO 

ERRORl 

;  iVES,  This  is  error  condition 

0327 

if  (  Debug_PU  ) 

OOBC 

287C 

0328 

goto  START 

;  MCLR  reset.  Goto  START 

0329 

else 

CO 


0330  aom  mmjESfsx 

0391  endlf 
0333  I 

0393  if  (DeBnig 

OOBD  0000  #334  B^_S7WB!IUL     tBOb  Sbb 

0335  -  -    «iatf  ••      -    -    ..  .  . 

0336  ; 

0337  ; 

0338  org  PMEM_END 
07FF  2808                        0339  GOTO  ERRORl 

0340 

i0:3^  end 

mm 

....  :  mi 
«3«4 


0000  :  xxxjiHaaxxxxncp;  ;![xxxxxxxmxxxxx 
0040  :  XSXXXXXXXXXXXKCK  xxjcxxxxxxioaxxxx 

0080  :  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 

OOCO   :  :  

; .1 

0780  ;!  rrrr,  -r^ 

All  other  memory  bloc^tungi^. 

'":a8  ■ 


Errors  ;  0 
Warnings  :  10 


;  msA  iimm,  moo  hcuuibsbt 


I  End  of  Program  Memory 

f  Xf  ]f«a  gaife         your  piogr<m>  was  lost 


nolist 

^  *^f*i^*m**^*******it**it*************************************************  ********** 

» 

;     This  is  the  custom  Header  File  for  the  real  tine  elsek  aq^li^tlon  t>Of» 

;  PROGRAM:  CLOCK. H  ,  -  .  ,j 

Revision:  7-13-94 


tp******ii*ji******** 


*********** 


t  This  is  used  for  the  ASSEMBLER  to  recalculate  certain  frequency 
;  dependant  variables.  The  value  of  Dev_Freq  must  be  changed  to 
;  rafleet  the  frequent ,  kh«tt;^|*r4p9f49<>  actually.  <q^ats« 


Pev_Freq 
PULSE_TIME 
T^ZBRO_BIT 
T«.QN1SJBIT 

TI10_1S 
TRRSl;_13 

F0UR_1S 

FIVE_1S 

SIX_1S 

SEVEN_1S 

EIGHTIS 


EQU 
EQU 
EQU 
EQIT 

EQU 
EQU 
BQD 

BQU 

EQU 
EQU 
EQU 
EQU 
EQU 


D'lOOOOOOO' 
((  Dev_Freq  /  D'4000' 
41  Dey_preq  /  D'4000' 
„4- D«WjJl>5«J  /  D'4000', 


( { (  Dev_Freq 
(  (  Dev_Freq 
DwJFteq 
(  (  Dev_Freq 

(  (  Dev_Preq 
(  (  Dev__Freq 
(  (  Dev_FrGq 
{  {  Dev_Freq 
(   (  Dev_Freq 


D'4000' 

D'4000' 
□'4000' 
D'4000' 
D'4000' 
D'4000' 


;  Device  Frequency  is  4  VRz 

*  D'188'    /  D'lOOOO'  ) 

•  D'188'  /  D'lOOOO'   )         ,  . 
D'375"  /  D'lOOOO'   )  ^ 


D'4000'  ) 
D'4000'  ) 


*  (D'6000'  -  {D'16'  *  D'188')))  /  D'1O0OO'  ) 

»  (D'6000'  -  (3  *  D'let'  +  0'14'  *  &«188'))  /  D'lTOOO') 

^jjp'jj^OO'  -  (6  *  D'18«*  +  D*12'  *  D'leS'J)  /  O'lOOOO') 

*  (D'6000'  -  (D'9'  *  D'188'  +  D'lO'  *  D'lSS'))   /  D'lOOOO') 

*  (D'6000'   -  (D'12'   *  D'188'   +  8  *  D'188'))    /  D'lOOOO') 

*  (D'6000'   -  (D'15'    *  D'188'   +  6  •  D'188'))    /  D'lOOOO') 

*  (D'6000'   -  (D'18'    *  D'188'    +  4  *  D'188'))    /  D'lOOOO') 

*  (D'6OO0'   -  (D'21'    *  D'188'   +  2  *  D'188'))    /  D'lOOOO') 


(D'6000'   -  (D'24' 


D'188')    )    /  D'lOOOO'  ) 


I^L^IJBXTS         BQO  j^<M  ( ( (  DevJ'roq  /  4 

USDjm'lJim^  Bga  inVSH  ( ( (  Dev_Freq  /  4 

tia)SIt_CIITR         BQO  40 

OUTER_CNTR          EQU  41 


)  *  1  /  D'AOOO'  )  /  3  )  )  +  1 
)  *  D'4S'  /  D'ldOOO'  )  /  3  )  ) 
;  RAM  Location 

;  RAM  Location 


+  1 


EQU 


;   The  RCO  /  TIOSO  /  TICKI 


RESET_V 
ISRJV 


TAB]t*_^DR 


EQU 
EQU 
BQ0 

EQU 


OxOOOO 
0x0004 
dx07FF 

0x0400 


;  Address  of  RESET  Vector 
,ri  Address  of  Internet  Vector 
;  Last  address  in  Program  Hccnory 
;  Address  tdiere  to  start  Tables 


COUNTER 


EQU 


0x021 


XMlT_nATA  EQU  0x30 

DATAJSIT  EQU  0x31 

(msjsn  BQU  0x32 

DGHnrjPB  BQD  0x40 

CCPRB3_|II  BQET  0x41 

CCPRBG_IiO  EQU  0x42 


list 


CO 


liOC  OBJECT 


COOB 


7-19-1994  10i54ilS 


0001 
0001 
0001 


0000  1683 

0001  1S8B 

0002  2821 

0003  2Sfil 


#****,************************************************* 
t 

This  program  ig^laMaaei  k  £<MiI  time  clock  using  the  THRl  module  of  the 
PICieCxx  family.  u -  ~ 

Program  =  CAPT_2.ASM 
Revision  Date:  7-19-94 

**************************>*************************************************** 


HARDWARE  SETUP 


LINB  SOURCE  TEXT 

0001  mwe     f  •  twej*,  w  •  W^tt,  n  =  66 

0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0249 

0021  ^.  ,, 

0022  s 

0022  -,  ■ 

0023  ; 

0024  ; 
m^!^m^  ...  unw  W 

0027  I>aibug_HT  BQU  TRUE 

0028  ; 

0029  ; 

0030  ;  Resat ^^I4|ress.  P0t«xminSr$^t  9f  KESET 

0031  ! 

0032  org  RESET_V 

0033  RESET  BSF  STATUS,  RPO 

0034  BTFSC      PCOm,  FOR 

0035  GOTO  STRRT 

0036  GOTO  OTHER_RESET 

0037  ; 

0038  ;  This  is  the  Perlperal  Interrupt  routine.  Need  to  determine  the  type 
0039, (  9f  Interrijpt  that  occurred.  The  following  interrupts  are  enabledt 


CCP2  Compare  Output 
CCPl  Capture  Input 
CCP2    ->  CCPl 


If. 


:00'' 


,-)  A  Debugging  Flag 
•  A  Dttbugging  Flag 
;  A  Debugging  Flag 


RESET  vector  location 
Bank  1 

Power-up  reset? 
YES 

NO,  a  WDT  or  MCLR  reset 


> 
■0 

m 
z 
o 
>< 
p 

o 
> 


0040 

1.    CCPl  Capture  Occured 

0041 

;      2 .    CCP2  Compare  Occtored                  ■•Jy  t 

0042 

0044 

org  ISR 

_v 

Interrupt  vector  location 

0045 

PER_I1JT_V 

0004 

128^3 

0005 

190C 

.■CCI*1f~VT?^*  BTFSC 

PIRl,  CCPli*          y  (t  iei*  Inibi^ci**  occured?  (Capture) 

0006 

281D 

!  GOTO 

CAPTURE 

YES,  Service  the  CCPl  Interrupt 

0007 

180D 

BTFSC 

P1R2,   CCP2I*  : 

CCP2  Interrupt  occured?  (Compare) 

0008 

2811 

0050 

GOTO 

COMPARE 

YES,  Service  the  CCP2  Interrupt 

0009 

180C 

0051 

BTFSC 

PIRl,  TMRllF 

NO,  Timer  1  Overflow? 

00  OA 

282D 

0052 

GOTO 

TIOVFL 

YES, 

0053 

ERRORl 

NO,  Error  Condition  -  Unlcnown  Interrupt 

OOOB 

00'54 

BSF 

PORTD,  1 

Toggle  a  PORT  pin 

OOOC 

1088 

COS'S 

f&m>,  A  f.^ 

OOOD 

280b 

p05:$ 

GOTO 

ERRORl          , , .  . 

005^7 

; 

00^8 

ERR0R2 

NO,  Error  Condition  -  Unjcnown  Interrupt 

OOOE 

1508 

0059 

BSF 

PORTD,   2  ; 

Toggle  a  PORT  pin 

OOOF 

1108 

0060 

BCF 

PORTD,  2 

0010 

280E 

0061 

GOTO 

ERR0R2 

1 

)  Tbe  Ceinpar*  genmrafess  a  Square  wave  based  on  the  value  on  PORTS  (in  IX)HMY_PB) 

0064 

1  and  on  fOteSSUii^  I3(]IOiy_FD)  .  PORTE  is  loaded  into  low  compare  latch  and  PORTD 

Oj065 

■fi  Ift  -SiMtiia  into  earn  high  compare  latch. 

It  the  value  of  the  ports  is  not  changed. 

1006:6 

;  a  capture  overflow  condition  will  occur  »*en  PORTDs PORTS  >  7Fh.  This  overflow 

(0ffl67 

;  is  only  Indicated  by  the  time  betwtooa  <eapttir«n  belngi  nuoh  los^  then  axpected. 

0068 

; 

0011 

lOOD 

007l0 

BCF 

PIR2,  CCP2IF 

Clear  CCP2  Interrupt  Flag 

0071 

if  (.^SIGMastec  ) 

00:12 

i0851 

0072 

else 

B074 

HOW 

«075 

endif 

0013 

079B 

mis 

ADDWF 

CCPR2L,  F 

Ojpdate  Coipare  register  pair  latch 

0014 

18:03 

0077 

BTFSC 

STATUS,  C 

OOTS 

JNCF 

0079 

if  (  gJCMaat^  J 

col's 

{>853 

0080 

0081 

else 

0082 

MOVF 

PORTD,  W 

0083 

endif 

0017 

079C 

0084 

ADDWF 

CCPR2H,  F 

0018 

0AB3 

.0085 

INCF 

CCP2_1NT_CNT 

0019 

141D 

jb0S6 

BSF 

CCP2C0N,  0 

On  Conpare  match,  CCF2  pin  =  L 

OOIA 

1C33 

0087 

wswsa 

cemjarijmt,  o 

OOIB 

ICfcip 

0088 

CCP2C0II,  0 

On  Coapane  mate!}}  CCP2  pin  •  H 

CO 


0089  END_COMPARE 

OOlC  0009  0090  RETFIE  ;  Return  /  Enable  Global  Interrupts 

0091 

0092  ;  _ 

a093  ;  The  result  of  the  new  capture  jnlniHi  ^        ««e6w»  i»  Stored  in  tfaa  &ew  capture 

0094  ;  registers  (CAPT_NE*OJiCAPT_|»EW_Ji) 

0095  ; 

0096  CAFTDRE 


OOID  HOC 

Qi097 

BCF 

PlRl,  CCPIIF 

Clear  CCPl  Interrupt  Flag 

OOIE  0815 

0i«9« 

MOVF 

CCPRIL,  W 

New  captuxa            (low  byte) 

UvJ.17  UUk.X 

nwwr 

CAPT_NEW_L 

0020  UolD 

MOVF 

CCPRIH,  W 

Hew  capture  value  thlgn  tyce) 

VM,^X  \JSJ\tM 

MOVWF 

CAPT_fJEW_Jl 

Hl.l.'-': 

;  •-;bi'»t«  -'^            - '-' '      .L  .  *■ 

0103 

MOVF 

cAPT_au)jt.,  w 

0023  02C1 

0104 

SUBWF 

CAPT_NEW_L,  F 

Subtract  the  low  bytes  of  the  2  captures 

0024  1C03 

0105 

BTFSS 

STATUS,  C 

Did  a  borrow  occur? 

UUZD  UJv,U 

0106 

DECF 

CAPT_NEW_H,  F 

YES,   Decrement  old  capture  {high  byte) 

0026  0842 

0107 

MOVF 

CAPT_OLD_H,  W 

New  capture  value   (low  byte) 

SUBWF 

CAPT_NEW_H,  F 

Subtract  the  low  bytes  of  the  2  captures 

nnoB  nsi R 

MOVF 

CCPRIL,  W 

New  capture  value  (low  byte) 

At  1  A' 

U'lXU. 

MOVWF 

CAPT_OLD_L 

an9&  AQ1 fi 

ceraiH,  w  -  f 

4Iew  caqfieose  valaM  (bii^  Iqtte)  ^      'X.',  -t 

0'112 

0113 

END_CAPTDRB 

002C  0009 

0114 
0115 
0116 

RETFIE 

0117 

TIOVFL 

Cleu:  Tl  Overflow  la^sx^t  Flag 

ooas  0009 

0119 

0120 
0121 

Return  /  Enable  Gle^l  Interrupts 

0122 

****************** 

****************** 

***************************************** 

0123 

***** 

start  program  here.  Power 

-On  Reset  occurred. 

0124 

***************************************************************************** 

0125 

0126 

START 

POWBR_ON  Reset  (Beginning  of  program) 

Oi^l^  ]<283 

0127 

wcm- 

Bank)  0 

003iO  93;«S^ 

0128 

0<^3i,  018B 

0129 
0130 

0131 

MCLR_RESET 

A  Master  Clear  Reset                   ■-.i  -t  > 

0032  1283 

0132 

BCF 

STATUS,  RPO 

Bsink  0 

0033  0183 

0133 

CLRF 

STATUS 

Do  initialization  (Bank  0) 

0034  018B 

0134 

CLRF  ' 

0035  018C 

GLRF 

PISl 

0036  1683 

mm 

■««»-■  - 

ST»Xa8  >  KPO 

Baidc  1 

0037 

3000 

0137 

UrNt  111 

MOVliW 

0x00 

TVi6  LCD  modul©  doss  not  li.}c€  to  worJc 

0038 

0081 

0138 

MOVWF 

0039 

018c 

ux 

003a 

oisd 

0140 

CLRF 

PZE2 

UU  JJS 

30F1P 

nuvun 

OxFF 

009S^ 

nwVWHT 

wX«J  * 

0144  t 

1283 

AUK 

STATUS,  RPO 

Bank  0 

003E 

A1  AlC 

CLRF 

PORTA 

ALL  FORT  output  should  output  Low. 

003F 

0186 

ni  A7 

CUIF 

PORTB 

0040 

0187 

0148 

CLRF 

PORTC 

UX4  V 

PCStTD 

Aii  o  o 

wX9U 

0151 

BCF 

TICSH,  TMRION 

Timer  1  is  NOT  incrementing 

■-tj 

AlftA  ■ 
U«Da  ; 

•■.H(WT 

0044 

1683 

A4'C1 

BSF 

STATUS,  RPO 

Selaat  Bank  1 

0045 

0185 

OiL&<l 

CLRF 

TRISA 

RA5  -    0  outputs 

0046 

3  OFF 

ulSo 

MOVLW 

OxFF 

0047 

0086 

A4  e£ 

vise 

MOVWF 

TRISB 

RB7  -  0  inputs 

0048 

0187 

0157 

■  CLRF 

TRISC 

RC  Port  are  outputs 

0049 

1S07 

0158 

. 

•mLSC,  2 

CCPl  Is  an  B^DT 

004A 

0088 

0159 

HSVHf 

TRiro                  i  SD  Pott  tan  lopttte 

OMI 

0189 

0160 

TRISB 

RE  Port  axe  outputs 

004C 

tsoc 

0161 

Enablk  CCPl^ Iftterstapt-     -  ' 

004D 

1400 

0162 

-BSF 

PIE2,  CCP2IB 

Enable  CCP2  Interrupt 

is  83 

0163 

ftCF 

STAroS,  RPO 

Select'  Sank'  S' 

0164  ; 

0165  ; 

T  r  ■; 

0166  ; 

Initialize  the  Special  Function  Registers  (SFRl  interrupts 

0167  ; 

004P 

018C 

0X68 

fit's  etRF 

PlRl  ' 

0050 

018D 

CLRF 

PIR2 

0051 

0190 

0170 

CLRF 

TICON 

Timer  mode 

0052 

170B 

0171 

BSF 

INTCON,  PEIE 

Enable  Peripheral  Interrupts 

0053 

178B 

0172 

BSF 

nncoN,  OIE 

Enable  all  Interrupts 

0173  ; 

0174  ; 

Set-up  timer  emd 

ccnpare  latches  and  then  turn  tinerl  on. 

0175  ; 

0054 

1010 

0176 

BCF 

Tieearv  drioh 

;  Turn  OFF  timerl 

0177 

if  (  FXCtbistAr  ) 

0055 

085X 

0178 

MOVF 

DOMMY_PB,  w 

0179 

else 

0180 

MOVF 

PORTB,  W 

0181 

endif 

0056 

079B 

0182 

ADDWF 

CCPR2L,  F 

;  Update  Conpare  register  pair  latch 

0057 

1803 

0183 

,  BTFSC 

9TAX9S,  C 

00S8 

Ojk9C 

0184 

INCF 

CCPRSa,  F 

I 
I 

m 
m 


CO 


0059  0SO3 


005A  079C 
005B  3008 
005C  009D 
005D  3005 
OOSB  0097 
OOSF  1410 


0060  2860 


0061  1B03 

0062  280B 


0063  2S2F 


0064  0000 

iv:  3;i.  e 

07FF  280B 


0185 
0186 
0187 

0188 
0189 
0190 
0191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 
0200 
0201 
0202 
0203 
0204 
0205 
0206 
0207 
0208 
WS9 

m* 

mi 

0213 
0214 
0215 
0216 
0217 

oai* 

0219 
0220 
0221 
0222 


If  (  Picaiaster  ) 


Izz 


MOVF 

else 

MOVF 

endif 

ADDWF 
MOVLW 
MOVWF 

{  MSVLW 
MOVWF 


goto 


PORTD,  W 

CCPR2H,  F 
0x08 
CCP2C0M 
0x05 

eevicam  - 

71CaH,  TMRION 


On 


;  Capture  on  every  rising 
;  Turn  ON  tinerl 


I  Loop  waiting  for  interrupts  (for  use  with  PICMASTER) 


;  Here  is  where  you  do  things  depending  on  the  type  of  RESET  (NBt  a  Power-On  Reset) . 


OTHER_RESET      BTFSS     STATUS,  TO" 
WDT_TIMEOm'      GOTO  ERRORl 
if  (  Debug_PU  ) 
goto  START 

else 

Se*0     M€£IUtBSB«'  > 
ewditiT''-       •'^■i'  - 
,  y  wj-i. 

if  (fittug  )  .tsiii'"  r 

END_STaRT        l-H^S  i>.-d... 

endif  '  ■«  ■  '^^ 


PMEM_END  J12 
GOTO  ERRORl 


!  WDT  Time-out? 

I  YBS,  This  is  error  condition 
I  MCLR  reset,  Ogto  START 

;  imMMemf^a^yB  hci.rj(bset 


!  '®SD  lable  for  debug 


End  of  Program  Memory 

If  you  get  here  your  program  was  lost 


end 


•  J  t» 


:  JEXJQSX-   - — ».  


0780  : 
07C0  : 


All  other  memory  blocks  unused. 


Errors  :  0 
Warnings  :  13 


^  -    o  o 


********************** 

This  is  the  custom  Header  File  for  the  real  tine  clock  i^llcation  note 
PROGRAM:  CLOCK.  H 

$l0ir4»U>at  7-19-94 


*********************** 


***************** 


******************* 


This  is  used  for  the  ASSEMBLER  to  recalculate  certain  frequency 
dependant  variables.  The  value  of  Oev_Freq  must  be  changed  to 
ref l«iit  aw  fyiu^umeit  that  the  device  actually  operate^  at. 


Dey_Freq 

D' 4000000 

;  Denriee  FreiiiMincy  is  4  VBz 

r^tt  ITT"  Bvnm 
□B_HX  sXTfi 

(RZOH  ((( 

Dev_Freq  /  4 

J         i   /   U  J.UHV      t    /SI    1    ♦  i 

LCD_INIT_DBUUf 

(Bxm  ((( 

Dev_preq  /  4 

)  *  B'ie<  /  D'lOOOO'   )  /  3  )  )  + 

INNER_CNTR 

40 

;  RAH  Location 

0UTER^OIK5R 

fiwU 

41 

;    KAM  LiOCaClOXl 

TIOSO 

EQU 

0 

;   The  RCO  /  TIOSO  /  TICKI 

RESET_V 

EQU 

0x0000 

;  Address  of  RESET  Vector 

ISR^V 

SQQ 

0x0004 

;  AdiireeB  o£  Interrupt  V«etor 

PMEM_END 

0x07FF 

;  Lttst  address  in  Program  Weaexy 

TABLE_ADDR 

EQU 

0x0400 

;  Address  «Aiere  to  start:  Tables 

COONTER 

EQU 

0x021 

aaa 

0x33 

;  DUMHnr_ro:DOMIK_PB 

contain 

the  value  to  be  loaded  iato  Ute 

CC^  conpare  registers  ^ 

;  (CCK12H:CCPR2I.) 

DtJMMY_PA 

EQU 

0x50 

DUMMY_PB 

EQU 

0x51 

DUMMY_PC 

EQU 

0x52 

Daioa_PD 

BQcr 

0x53 

DUIWY_PB 

EQU 

0x54 

+  1 


CAPT_NEW_H:CAPT_NEW_L  stores  the  NEW  captured  value  and  the  result  of  the 
subtraction  between  this  capture  and  the  previous. 

CAPT_>JEW_H:CAPT_NEW_L     =     CAPT_JIEW_HiCAPT_NEWJ,  -  CAPT_OLD_H :  CAPT_OLD_L 

After  all  confutations  the  new  capture  value  is  warns,  to  the  CAPT_0IXLJliCAPT_0LDJ[i 
in  preperation  for  the  next  capture  value. 


CAPT_flBWJI 
CAPT_JIEWJ, 
Cy|LpT_aLD_H 


EQU 
EQU 
EQU 


0x040 
0x041 
0x042 
0x043 


&  1994  Microchip  Technology  Inc. 


,0- 


II  .-r  I       II.  -p  "r 


Microchip 


.•1'.,.:  Q0.<  >■'" 


AN587 


Interfacing  to  an  LCD  Module 


INTRODUCTION 

iDiis  application  note  interfaces  a  fflWECXX  device  to 
the  Hitachi  t^032L  LCD  character  display  module.  This 
module  Is  a  two  line  by  twenty  character  display.  LCD 
modules  are  useful  for  displaying  text  information  from 
a  system.  In  large  volume  appNcalions,  the  use  of 
custom  LCD  displays  become  economical.  These  rou- 
tines should  be  a  good  starting  point  for  users  whose 
application  Implement  a  custom  LCD.  This  source  code 
should  be  compatible  with  the  PIC16C5X  devices,  after 
nyxlifjpatiops  for  <hia|  fipecial  function  register  jnitializa- 
114  MliBtMitiHMi  vi^^ 

operation  "'    ^^"^  .  .s^M  HO^H.  . 

The  HitachP  LM032L  LCD  charactorcHaplay  module  can 
operate  in  one  of  two  modes.  The  first  (and  default) 
mode  Is  the  4-bit  data  interface  mode.  The  second  is  the 
8-bit  data  interface  mode.  When  operating  in  4-bit  mode, 
two  transfers  per  character  /  command  are  required. 
8-bit  mode,  though  easier  to  implement  (less  program 
memory)  requires  four  additional  I/O  lines.  The  use  of 
8-bit  mode  is  strictly  a  program  memory  size  /  I/O  trade- 
off. The  three  most  common  data  interfaces  from  the 
microcontroller  awe:  : 

1.  An  8-bit  IntmtMi.  <        '  .  ' 

2.  A  4-bit  intettace,  with  data  transfers  on  ttie  high 
nibble  of  the  port.  "  " 

3.  A4-bltinteifaMrtMM<telatransfersonthelownibble 

of  the  port. 

The  LCD  module  also  has  three  control  Signal,  Enable 
(E),  Read  /  Write  (R^W),  and  Register  Select  (RS). 
These  fuhcnSIH  W WBsfr'  control  signals  are  show  in 
Table  1.   


TABLE  1:  COfn-RCN.  fSHSNALIPfieTIONS 


Control 

Signal 

Function 

E 

Causes  data  /  control  state  to  be 
latched 

Rising  Edge  =  Latches  control  state 

(RS  and  R_W) 
Falling  Edge  =  Latches  data 

RS 

Register  Select  Control 

0  =  LCD  in  command  mode 

1  =  LCD  in  data  mode 

Fl_W 

Read  /  Write  control           ,  ^ 

0  =  LCD  to  read  data  ^ 

1  =  LCD  to  write  data 

A  singia  souica  f fle,  with  condWonal  assembia  isiised  to 
generate  these  fliree  opHans.  Th<S  i^Mi|s  two  flags. 
The  flags  and  their  results  are  ^owh  m  Ti^ible  2. 

TABLE  2:  CONDITIONAL  ASSEMBLY  FLAGS 


Flags 
Four_bK  1  Data_HI 

RmuR 

1 

0 

4-bit  mode.  Data  transferred 
on  the  low  nibble  of  ttie  port. 

1 

1 

4-bltmode.  Data  transferred 
on  the  high  nS)ble  of  tlie  port 

0 

-  X 

8*itmode. 

■for)  r  n  ^ 


(I 


am 
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Interfacing  tm  m  LCD  M^ule 


Rgure  1A  through  Figure  1C  show  the  block  diagrams 
for  the  three  different  dafa  interfaces.  The  LCD_CNTL 
and  LOO^QATA  lines  definable  to  their  port 


ass^nmant.  TMs  w  aoeonipltehed  with  EQUate  state- 
ments ki  4w  source  code.  See  Appendices  B  -  D. 


fmnE  1  A:  8-Brr  data  rm-ERFACE 


piqiecxx 


Port 


Port 
■«;7:0> 


LCD  CNTL 


LCD_DATA 


LM032L 

Vcc(2) 

RS  (4J  .,  >  V  Vo(3) 
R_W(5) 

E(6)  Vss(1) 


R1  (10l«l) 

■  ■■  .i  <■■■'  H  etudx 

i  .OJrinj)»a, 


D  ON  tm  NIGH  NIBBLE  OF  THE  POi^^ 


Port 
<f7!4> 


LCD_CNTL 


LCD_DATA 


+  


r 


RS(4) 
a.W(5) 
E(6) 


Vo(3) 


Vq|5(1) 

DB7(14)-DB4(11) 
DB3(10)-DB0  (7) 


R1  (lOKil) 
R2  (330n) 


FIGURE  1C:  4-BIT  MODE.  DATA  TRANSFERRED  ON  THE  LOW  NIBBLE  OF  THE  PORT 


'...I -A, 

•lOO.  s''' 


9m. 


Port 
<3:0> 


LCD_CNTL 


LCD  DATA 


LM032L 


RS(4) 
R_W  (5) 

Vss{1) 

DB7(14)-DB4(11) 
DBS  (10)-DB0  (7) 


R1  (lOKfl) 
:R2(330a) 


C'lS>9«MtewehlprfBBbMili8»lr» 
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Interfacing  to  an  LCD  Mdclule 


lj|SD^'<driiisr^iiMi4ripw-<imi^  eaiipwfd^: 
iwlbwit!wUiullBisnCawrtii«t  betaken  fmmlutiMitesM^ 
munication  occurto  quickly.  The  timing  requirements  of 
the  LM032L  are  sliown  in  Appendix  A.  It  is  recom- 
mended that  the  complete  specif  nations  of  the  LM032L 
be  acquired  from  Hitachi  or  an  Hitachi  distributor.  The 
literature  numbsr  Is  CE-E613ai,a|y^  M24TQJ^  for  th9 
dteplay  driver.'  ' 

When  the  module  powers  up,  the  defat||l|nbf  ^mflsr 
mode  Is  8-blt.  The  Initialization  sequence  only  requires 
commands  that  are  4-blt  in  length.  The  last  initialization 
command  then  needs  to  be  sent  to  the  display  to  specify 
the  data  transfer  width  (4-  or  8-bit).  Then  a  delay  of 


4ATOiniistlwaK«etiledl)0ferethftU:OinB(liit0canbe 
initialized.  Some  ofthe  LCD  modale  oentnanteare: 

•  1  or  2  lines  of  characters 

•  Display  on  /off 

•  Clear  display  "    'A' "7     -  3P' 

•  Increment  /  do  not  increment^^aiaracter  address 
j   pointer  after  each  character 

•  Load^i^iiacler  address  pointer.   I'i 

The  Initlalizatkxi.flpw  (or  the  mo(|ij|^its  ehcftni  in 
Figure  2.  , 


mmn  t:  INmAUZATION  FLOW  t=OR  LCD  MODULE 


2)  When  inteMace  is  i  bus  long: 


|ltiiifcltlfc«.IB4JV 


(  Powc 

>rON  ) 

Walt  more 

thanljSns 

flAarVoOr 

BMt04SV 

RS  FVW  DB7  DBa  OBl  DB<  DBS  OBz  DBl  OBo 
,0     ^^O.-  -.ft,  — — V  .».■- jc     X    M,  - 


RS  Fl/W  DB7  DSa  DBS 
0    .0      0  0 


Bs  D6<  I  r[ 


kaUOIongj  J 


RS  RW  0B7  DBS  DBS  DB4  DBS  DB2  DBl  Effio 
00001      ixxx  s 


Wait  mors  than  100  ms 


lnfeailiitfion«nda 


Wii(mantt)an4.1  n 


R8  RW  0B7  DBS  DBe  DB4 
0     0      0     0      1  1 

r|BFo«miotb«eliecl»db«lci»<lifcln<niaioii!l 


1 


-■t^: 


Wait  more  than  100  \ta 


\mWm  W»  DBS  DBS  0B4  DBS  OBb  DBl  DBO 

If      0     )9     0      1       1      X      X      X  K 

R8  Pm  DBr  DBS  DBS  [»4  1 
0      0     0    9  11 

RS  FVW  DB7  DBS  DBS  [»4 

0      0      0     0      1  0 

BS  FVW  DB7  DBe  DBS  DB«  DBs  DB2  DBl  DBo 
0000      1      IN  Fxx 

0      0      0     0      1  0 
0      0      N     F     X  X 

000     a      001  000 

0      0      0     0      0  0 
0      0       1      0      0  0 

0000000001 

0      0      0     0      0  0 
0      0      0      1       0  1 

00      00000  1VDS 

0      0      0     0      0  0 
0      0      0     1     1/D  S 

FuiMtiQii  «•(  onMifMe  i»9  ^  bog) 

■  ■t-.-'-V.^-u-  .  -iU.::  %:-  ■ 


,  .;FiiBotions»l  (intwfaoe  ia  8  bits  long) 


Function  set  (set  inMriacftlob^4bil8lqng).  MsrfHBbabfls.tMi^ 


Function  Set 
Display  OFF 
Display  ON 
Enny  Mods  Set 


fKSS^Jj  I'm^^'Jf    1  Tie  number  ol  display  lines 

andchaiaoterfoniVnrBt 
I  gsplaylinesandohaiaotej  bechanaadatlaiwams. 


lolfSiffiNSi 


After  initialization,  each  character  address  is  individually 
addressable.  Figure  3  shows  the  structure  of  the  com- 


FtCaiRE  3:    CHARACTER  ADDRESS 
CCMIMAND  FORMAT 


DB7  DBO 


1 

LINE 

i 

i 

^  V  ' 

Addresst 

-  UMe  Clumber  0  =  line  1 

1  =  line  2 

.  St^  OP  Address 

- 1  Nete:  Not  aH  ciddressasare  usablei 


ifia  Hatachi  Display  Drive  (HD44780A)  has  80  bytes  of 
RAM.  The  LM032L  modules  only  use  40  bytes  of  the 
available  RAM  (2  x  20  characters).  It  is  possible  to  use 
the  namiining  RAM  locations  for  storage  of  other  infor- 


Figure  4  shows  the  display  data  positions  supported  by 
the  display  driver  as  well  as  the  characters  actually 
displayed  by  the  module  (the  shaded  addresses). 

The  program  example  implemented  here  uses  the  auto 
character  increment  feature.  This  automatically  incre- 
ments th9  character  address  pointer  after  each  charac- 
ter is         to  #i^b  la^liy. 

CONCLUSION 

The  Hitachi  LM032L  character  display  module  is  useful 
for  the  display  of  information.  The  selection  of  4-bit  or  8- 
bit  data  transfer  mode  is  strictly  a  program  memory  size 
/  I/O  resource  trade-off .  The  supplied  code  is  easily  used 
in  one  of  three  common  data  interfaces.  The  source  is 
easily  modifiable  to  the  designers  specific  application 
needs.  Other  display  modules  /  drivers  maybe  imple- 
mented with  the  appropriate  modifications.  Table  4 
shows  the  resource  requirements  for  the  three  subrou- 
tines SEND_CHAR,  SEND_COMMAND,  and 
BUSY::.CHECX  in  the  various  data  interface  nwdaa; — 


i 

....  I 


TABLE  4:  RESOURCE  REQUIREMENTS 


Mode 

Program 
Memory 

CSila 
Memory 

Verified  On 

8-bit 

32 

3 

PICDEM-2* 

4-bit,  Data  transferred  on  the  high  nibble 
of  the  port                    -  — ^— — — 

53 

3 

PICDEM-2* 

4-btt,  Dfda  trarMleiSiNI  <m  the  high  nibble 
of  the  port 

53 

3 

Low  Power  ' Real  Time 
Ciocfc§owd(A|spS2) 

FIGURE  4:  DISPLAY  DRIVER  (DD)  RAM  LOCATIONS 


digit     1   2  3  4  5  6  7  e  910111213141516171819  20  21    33  34  35  36  37  38  39  40 

1-line 


00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

OA 

OB 

OC 

OD 

OE 

OF 

10 

11 

12 

13 

14 

20 

21 

22 

23 

24 

25 

26 

27 

40 

41 

42 

43 

■ 

44 

45 

46 

47 

48 

49 

4A 

4B 

4C 

40 

4E 

4F 

SO 

51 

52 

S3 

54 

60 

61 

62 

63 

64 

S5 

66 

67 

•4-r  DD  tWM  «M;ia 
(Heiradeeitral)) 


Note:  Shaded  locations  are  displsyed  on  the  IJIOS^kfelilaytneciule. 
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APPENDIX  A:  LM032L  TUiHIG  REQUIREMENTS 

TIMING  CHARACTERISTICS 


Pann# 

Symbol 

Characterisitics 

Min. 

Tvp. 

 7r  

Max. 

Unit 

1 

tcyc 

^T.©  

US 

2 

PWeh 

Enable  pulse  width 

450 

ns 

3 

lEr,  tEf 

Enable  rise  /  fall  time 

25 

ns 

4 

tAS 

RS,  R/W  set  up  time 

140 

ns 

5 

tDDR 

Data  dela^tlme 

320 

ns 

6 

tosw 

1  195  -TH 

( — 

ns 

7 

tH 

1  OCJ;  Mold  time 

1  20 

ns 

ITIMiNG- 


0.6V. 


tiMi  01  sooholnt  mat  tmt- 
DB0-DB7 


:)if j  ft  lebni)  lawMt  iNWh  tK<^ ; .  :  j<> 


2.2V 
0.8V. 


''2.2V 
v0.6V 


( r 


DATA  READ  INTERFACE  TIMING 


3-53 


1  isim:li.^|}tftid^l€l 


LM032L  PIN  CONNECTION 


Pin  No. 

Symbol 

Level 

Function 

1 

Vss 

OV 

2 

Vdd 

— 

+5V 

Power  Supply 

3 

Vo 

— 

-,4 

RS 

L:  Instruction  Cqi^  lrjttiit                 |  t 
H:  Data  Input  ------ 

5 

R/W 

H/L 

H:  Data  Read  (LCD  module->MPU) 
L:  Data  Write  (LCD  iT»dul»(-MPU) 

6 

E 

H.H->L 

Enable  Signal      ,.    _    ,               ^-^  -  „ 

7 

DBO 

H/L 

'  '  DataBusUne 
Note  (1),  (2) 

8 

DB1 

H/L 

9 

DB2 

H/L 

10 

DBS 

WL 

11 

DB4 

m 

12 

DBS 

H/L 

13 

DB6 

H/L 

14 

DB7 

H/L 

^lolest 


In  the  HD44780,  the  data  can  be  sent  in  either  a  4-bit  2-operation  or  a  8-bit  l-opeRSrieti,  so  ttiat  It  can  interface  to  b@t 
4- and  8-bit  MRUs.  .   — 

(1)  When  interfece  data  is  4-bits  long,  data  is  ttansfett^^M>g^ft^^f8|l8  trf  D>~DS7and  DBo>^t^«w  net  usmIj 
Data  transfer  between  the  HD44780  and  the  MPU  completes  wMm  4-liK^tl|  tiaiiif erred  twice.  Data  of  the  ht^inr 
order  4  bits  (contents  of  DB4  ~  DB7  when  Interface  data  is  8-bBB  lon{fl|  fe  twniljfred  f  list  and  than  bwer  order  4  Mta 
(contents  of  DB4~DB7  when  interface  data  is  8-bits  long). 

(2)  When  Irteittce  data  is  8-bits  long,  mSWmmmM  \im§MW&lm^Wtm^^r 


 w  I 


»199«Miereoh|)>'MmMp(»  liSK. 


ApPEr|DIXB:  INTERFACE  LISTING 

,;vu.  .'jj  oosi  Bu      swan*'  »(<      '•  e''-"»'  • 

■      •-•)  -tc  cm  tsta 

mitSK  a&.00.68  intermediate       immSiJStlf'    4-lMltlt(    »«S3i47  PAGE  1 

'  crei  amne 

I,OG    OBJECT  Cacm         'IMfE  30UKCB  XEXT 

W&l  LIST  P=16C«4,  F=IiraX8M 

■  M'og  .  .-.ow 

0«03  ;  This  pxogxK^  lafee^S^  «e  a  Hitadbi  (U(032ii)  2  line  by  20  c^iaracter  dlaplay 
0004  ;  module.  Thi§"|)r6grA'lSKfleBl>ie8  tot  either  4-bit  or  8-bit  data  interface,  depending 

'■'  0005  ;  on  the  value  of  the  4bit  flag.  LCD_DATA  is  the  port  which  supplies  the  data  to 

0006  ;   the  IJ1032L,  while  LCD_CNTL  is  the  port  that  has  the  control  lines   (  E,  RS,  R_W  )  . 

0007  ;  In  4-bit  mode  the  data  is  transfer  on  the  high  nibble  of  the  port  (  PORT<7i4>  ). 

0008  ; 

0009  ;  Program  =  LM032L.ASM       •         ^^i.  *-  llic  .  ■  .1.., 
WOU  9            Ssvialon  Satei  S-10-94 

0M2  ;  " 

0013  include  <C74_reg.h> 
0233 

0013 

0014  include  <lm0321.h> 

0014  ■ 

0015  ; 

0@eO  eOlfi  FourJ>it         'I    E/^a-       false  r'^UiataVd^^'^t^Btt  attta-trUMCees 

M03.  OM?  MaUHI  BgT        TRUE  ;  SC'i--H«  «iriifiS£«!aiv'ffil  ^T'Sow  aima  of  PORT 

-■  ;  ^-  --■  ■ 

0019  ; 

0020  if  (  Four_bit        !Data_HI  ) 

0021  ; 

0022  LCD_DATA  EQU  PORTB 

0023  LCDJOATAJTRIS        EQU  TRISB 

0024  ; 

0025  else 

0026  ; 

0008  0027  LCDJIATA  EQU  PORTD 

0088  0028  LCD_PftTA_TRIS        BQa  TRISD 

0029  ; 

0030  endif 

0031  ; 


0005 


0003 
0002 


0030 


0000  2808 


0004  1283 

0005  1407 

0006  1007 

0007  2804 


0008  0183 

0009  018B 
OOOA  018C 
OOOB  1683 
OOOC  3000 


LCD  Display  Commands  and  Control  #lpn}, 
if  (  Four_bit  it  IDataJKI  ) 


0032 
0033 
0034 

003B 

0036 
0037 
0038 

0039  ; 

0040  E 

0B«i  HJS  " 

e«4s  fts- 

6693  i 

66it  else 

0045  ; 

0046  E 

0047  R_W 

0048  RS 

0049  ; 

OeSO  endif 
SOS  l'  ; 
00S2  ; 
0«SS  TEMPI 

0054  ; 

0055 

0056  RESET 

0057  ; 

0058  ;  This 

■ 

0062  PER_INT_V 

0063  ERRORl 
0064 

0065 
0066 
0««7  ; 
0068  ; 


'SQU 

BQcr 


EQU 
EQU 
EQff 


EQU 


0 

-;<'.}. 


LCD  Enable  control  line 

LCD  Read/Write  con««i»l 

LCD  Register  Select  cioDtxol  line 


LCD  Enable  control  line 
LCD  Read/Write  control  line 
LCD  '{teglsCer  Selecit  coiitrol  -Had 


0x030 


org 


RESET_V 
GOTO  START 


RBSBT  vector  location 


is  the  Periperal  Interrupt  routine.  Should  NOT  get  here 


00.0I)^( 


3" 


0070  START 

0071 

0072' 

0073 

0074 

0075 

007« 


BCF 
BSF 
BCF 
GOTO 


CLRF 

CLRF 

CLRF 

BSF 

MOVLW 


STATUS , 
PORTC, 
PORTC , 
ERRORl 


RPO 

0 

0    •  ' 


Bank  0 


STATUS 

INTCON 

PIRl 

STATUS, 

0x00 


RPO 


POHBCQf  Reset  (Beginning  of  program) 
Do  Initialization  (Bank  0) 


Bank  1 

The  LCD  module  does  not  like  to  work  w/  weak  pull-ups 


OOOE 

018C 

0077 

CLRF 

PIEl 

OOOF 

30PK 

0078 

HOVLW 

OxFF  ; 

0010 

009F 

0079 

HWWF 

ADCONl                  (  Port  A  Is  Digital. 

0080  ; 

U  '^'V  I. 

oeitt  ; 

0011 

1283 

StlL'WS,  RPO 

0012 

0185 

-  CLRF 

PORTA 

ALL  Pmv  owl^ut  sliQul<i  output  Low. 

0013 

0186 

ms 

CLRF 

PORTS 

0014 

0187 

0085 

CLRF 

PORTC 

0015 

0188 

0086 

'   '■  CLRF 

PORTD 

"  9  ^  .  r=  'oi       .  "      -p'  r        iH     -    '  - 

0016 

0189 

0087 

CLRF 

PORTE 

O017 

1010 

0088 
0089  ; 

BE*' 

tieoM,  jURioN 

Timer  1  is  MOT  incrementing 

tfoit 

Uts 

0090 

S*leot  mxik  i  '■  '  " 

0019 

0185 

O'OSl 

CLRF 

TRISA 

RA5  -    0  outputs 

OOIA 

30F0 

0092 

*'  '  MOVLW 

OxFO 

OOIB 

0086 

0093 

HOVWF 

TRISS 

RB7  -  4  inputs,  RB3  -  0  outputs 

OOlC 

0187 

0094 

'  CLRF 

TRISC 

RC  Port  are  outputs 

OOID 

1407 

0095 

BSF 

TRISC,  TIOSO 

RCO  needs  to  be  input  for  the  oscillator 

OOIE 

0188 

0096 

CLRF 

TRISD 

RD  Port  are  outputs 

00  IP 

0189 

IIB>Vere'are  outputs 

0020 

140C 

mm 

FIEl,  7«R1IE 

Enable  TMRl  Interrupt 

0021 

1781 

BSF 

ffl^lOtCR,  RBPU 

r  Ellsiible  PORTS  pttll>t^ 

0022 

1283 

mm 

0101  ; 

0103  ; 

BCF 

STATUS,  RPO 

Select  Bank  0 

0104  ; 

Initilize  the  LCD  Display  Module 

0105  ; 

0023 

0185 

0106 
0107 

CLRF 

LCD_CNTL 

ALL  PORT  output  should  output  Low. 

0109 

if  (  !!'oui_bit 

&£  lData_HI  ) 

0110 

0x02 

Command  for  4 -bit  interface  low  nibble 

0111 

endif 

0112  ; 

0113 

if  (  Four_bit 

&&  Data_HI  ) 

0114 

03t020 

Coomand  for  t-lsit  interface 'higH' nibble' 

0115 

endif 

0116  ! 

0117 

1£'(  lPe.i<Slt  ) 

0024 

3038 

0118 
0119 
0120  ; 

MOVLW 

endif 

6x038 

Command  for  8 -bit  interface 

0025 

0088 

0121 

MOVWF 

LCD_DATA 

0026 

1585 

0122 

BSF 

LCD_CNTL ,  E 

0027  1185 


0028  3006 
0039  O0B3 
002A  01B4 

002B  0BB4 
002C  282B 
002D  0BB3 

002E  282B 


002F  3038 


0030  0088 

0031  1585 

0032  1185 


.11  J 1 1) 

*     ■  T  ■ 


0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
4131 

MS2 

0133 
0134 
0135 
0136 
0137 
0138 
0139 

ii40 

6i4l 
0142 
0143 
0144 
0145 
0146 

0149 
0150 
0151 
0152 
0153 
0154 
DISS 

0158 
0159 
0160 
0161 
0162 
0163 
«1«4 

im 

mm 


BCF 


LCD_eNTL,  E 


;  This  routine  takes  the  calculated  times  that  the  delay  loop  needs  to 

;  be  executed,  baaed  on  the  LCO_INIT_pEI>Ay  EQDate  that  lnclu4es  the 

;  frequency  of  optsxtkWSS  9tkWB  uses  rByf£eMia<|eiHM^'<3ilF3B^^9la()ad  to 

:  store  the  time.  ' 


LCDJ3ELAY      MOVLW  LCD_INIT_DELAY 

CLftiP"  'L'Sb  ' 

L00P2  DECFSZ  LSD 

GOTO  L00P2 

DECFSZ  MSD 
ENDJEilSEL,SfelIiAy 

GOTO  L00P2 


! 

I  Delay  time  =  MSD  •  ( (3  *  256)  +  3)  ♦  Toy 
; 

I 


;  Command  sequence  for  2  lines  of  5x7  characters 

;  _  .  .     ,  - , 

Clli)_SKQ 


if  (  Four_bit  ) 

if   (   !Data_HI  ) 


MOVLW 

else 

mum' 

endif'  ■■ 


'0S«9i>'W  » 
-tjrr'  ..I--. 


else 
endlf 


MOVWF 
BSF 


LCD_DATA 
LCD_CNTL,  E 


if  (  Four_bit  ) 

if   (    IData_HI  ) 
MOVLW  0x08 

else 

MOVLW  0x080 
endif 

MOVt^  LCD_DATA 


4i-blt  hl9h  nifiiifttfcfw: 


#>blt  mode 


This- fcod*  for  both  4-bit  and  8-bit  modes 

This  code  for  only  4-bit  mode  (2nd  xfer) 

4-bit  low  nibble  xfer 
4 -bit  high  nibble  xfer 


0167  andif 
JDlSiB  ; 

93M>'  ;  Busy  Flag  '^uld  HK^MM.'  tiiSims  Ms  pcglnt 


'Qf9^^o 

0033 

300C 

0171 

MOVLW 

DISP_ON 

ji"-- ,       **  - 

0034 

206A 

0172 

CALL 

SEND_CMD 

t 

0035 

3001 

0173 

MOVLW 

CLR_D1SP 

' 

0036 

206A 

0174 

CALL 

SEND_CMD 

0037 

3006 

0175 

MOVLW 

ENTRy_INC 

0038  20«A 

03^7j6 

SEND_CMD 

0039 

3080 

DD_RAM.JU)DR 

003A 

206A 

iyLf9 

0181 

SS8D_C11D 

0182 

•Send  a 

message  the  hard  way 

003B 

304D 

0183 

movlw 

'M' 

003C 

2061 

0184 

call 

SEND_CHAR 

003D 

3069 

0185 

movlw 

'i' 

003B 

2061 

0U6 

call 

sam.CKAR 

003P 

3063 

0187 

movlw 

0040 

2061 

0188 

call 

SEin5_CHAR 

0041 

3072 

0189 

movlw 

'r' 

0042 

2061 

0190 

call 

SEND_CHAR 

0043 

306P 

0191 

movlw 

*o' 

0044 

2061 

0192 

call 

SEt)D_CHAR 

0045 

3063 

Oi»3 

<e' 

0046 

2061 

OiSA 

call 

0047 

3W8 

0048 

2061 

•  odie 

-  -.i^i 

9&t«}_CiaR 

0049 

3069 

0197 

'  i ' 

004A 

2061 

0198 

call 

SEND_CHAR 

004B 

3070 

0199 

movlw 

"P' 

004C 

2061 

0200 

asm_cmR 

0201 

mm  stoco 

mmim 

S'4tl9QIE>ilfiO' 

;  Address  QDRantt  first  charaetss,  •second 

mnt  ^mt 

03103 

'a2;0>4 

0205 

;Daiionstratlan  of 

the  use  of  a 

table  to  output  a  message 

004P 

3000 

0206 

0207 

dispmsg 

movlw 

0 

; Table  address  of  start  of  message 

0050 

OOBO 

0208 

movwf 

TEMPI 

; TEMPI  holds  start  of  message  address 

0051 

2085 

0209 

call 

Table 

0052 

39FF 

0210 

andlw 

OFFh 

;Chec}c  if  at  end  of  message  (zero 

00S3 

1903 

0211 

bttBO 

; returned  at  end) 

0054 

2859 

0212 

goto 

out 

oQss  -imi 

im$ 

; Display  character 

0066 

0«30 

0214 

movf 

TEMPI,  w 

;  Point  to  next  character 

(D 
—I 
—ft 

Q) 

O 

3 
(O 

o 

3 
|- 

o 

o 
a 
c 

® 


CO 


0057  3E01 

0058  2850 


0059  2am 
'>-»o  eoBO 

005A  300C 
005B  20eA 
OOSe  3001 
OSSB* 

005E  3006 
005F  206A 

0060  0008 


,vv.- 


0215 
OZM 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 


out 
loop 


gota 


INIT_DISPLAY 


0227 
0228 
0229 
0230 
0232 
0233 


MOVLW 
CALL 

mmi 
ami 

MOVLW 

CALL 

RBTURN 


DISP_ON 
SEND_CMD 


SEND_aiD 


;  Display  On,  Cursor  On 

;  Send  This  command  to  the  Display  Module 

1  s«ul  Ale  eemuHia  te        Di^la^  Module 

F  Sat  itota^  flada  Inai.'/i'HO>"«hiCfe^  . 

;  Send  Thia  conmand  to  the  Display  Module 


(Q36 
0237 
0238 
0239 
0240 
0241 


******************************** A********************************** 

*  1b«  LCS  Mbdule  Subri^tines  * 
«**********^^*i^***i^^  ************************************  ********* 


if  (  Four_bit  ) 


;  4-bit  Data  transfers? 


0243 
0244 
0245 

0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260; 
0261- 


if  (  Data_HI  )       !  4-bit  transfers  on  the  high  nibble  of  the  PORT 

.  ****** ******u>  j^jtj^***<tft»*»****************************************** 

;*SandC3)at  -  ^imtS^iSei^ta  LCD  * 

;*'nila  routina-'tq^ita cbmracter  into  the  upper  and  lower  * 
; 'nibbles  and  «ands  tbaB>  ts««tte  LCD,  upper  nibble  first.  * 
.  ******************************************************************** 


3 

O 

03 
O 

3 
(Q 

o 

0) 
3 

|- 

O 

o 

o 
a 
c 


SEND_CHAR 


MOVHF 

CALL 

MOVF 

KHam 

BSF 

BSP 
BCF 
SWAPF 
ANDLW 
MOVWF 
-  BfBf-'  i 
BGF 


CHAR 

BUSY_CHECK 
CHAR,  w 
asS'O  ,,i 

I£D_Cm,  R_H 

IjCD_CtnTj,  RS 

LCD_CNTL,  E 

LCD_CNTL,  B 
CHAR,  w 
OxFO 

LCD_DATA 

-I  iSGEyCMEI',  s 

IiCD_cmL,  E 


.•character  to  be  sent  is  in  W 
;Wait  for  LCD  to  be  ready 

;'Get  upper  nibble 
;Send  data  to  LCD 
•Set  LCD  to  read 
;Set  LCD  to  data  node 
■  toggle  E  for  LCD 


;Get  lower  nibble 
;Send  data  to  LCD 
'';to^liei.E  for  LCD 


!»62  tfi^pm  ' 

0263  ;  ...... 

0264  iel»e^  ;  i'bit  t3:am%iietitmiJ0*%i0I.BiiA>la  oi  Vtm  fQl^ 
026.5  1 

0266  *  ************* titi'***^**,it*^.*%********ii**f  If ^r***,^*ifi>if****************** 

0267  ;  *  SEND_CHAR  -  Sends  character  to  LCD  ^  * 

0268  ;*  This  routine  splits  the  character  into  the  upper  and  lowor  * 

0269  ;*  nibbles  and  sends  them  to  the  LCD,  upper  nibble  flx^t;.  * 

0270  ;  *  The  data  is  transmitted  on  the  PORT<3!0>  pins        ,  ,, .  i 

0271  ' ******************************************************************* 

0272  ] 


027,1 

SEND_CHAR 

0274 

MOVWF 

CHAR 

;  C^i^acter  to  be  sent  is  In 

0275 

CALL 

BUSY_CHECK 

J  W»tt;  £«J  LCD  to  be  ready 

0276 

SWAPF 

CHAR,  W 

0277 

ANDLW 

OxOF 

;  Get  upper  nibble 

0278 

MOVWF 

LCD_DATA 

;   Send  data  to  LCD 

0279 

BCF 

LCD_CNTL, 

R_W 

;  Set  LCD  to  read 

BSF 

LCD_CNTL, 

RS 

;  Set  LCD  to  data  mode  . 

BSE 

XiC3P^CNTI>, 

E 

;  toggle  E  for  LCD 

^2 

E 

■    ^      r  CCi. 

0283 

MOVF 

cm&,  w 

0284 

ANDLW 

OxOF 

;  Get  lower  nibble 

0285 

MOVWF 

LCD_DATA 

;  Send  to*art?(  !<©)■- 

0286 

BSF 

LCD_CNTL, 

E 

.  toggle  a  Je-r  IjGD  ,1.^   ;     t  ,.. 

0287 

BCF 

LCD_CNTL, 

K 

0288 

RETURN 

0289 

0290 

endif 

0291 

else 

0292 

0293 

********** 

***  *  * 

****************************** 

0294  ;*  SEND_CHAR  -  Sends  character  contained  in  register  W  to  LCD  * 

02  95  ;  *  This  routine  sends  the  entire  character  to  the  PORT  * 

0296  ;*  The  data  is  tranaodfeted  on  the  PORT<7:0>  pins  * 

0297  *  ***************.******************************'******************** 


0299  SEND_CHAR 


0061 

00B6 

0300 

MOVWF 

CHAR 

;  Character  to  be  sent  is  in 

0062 

2073 

0301 

CALL 

BUSy_CHBCK 

;  Wait  for  LCD  to  be  ready 

0063 

0836 

0302 

MOVF 

CHAR,  w 

0064 

0088 

0303 

MOVWF 

LCD_DATA 

;  Send  data  to  LCD 

0065 

1105 

0304 

BCF 

LCD_CNTL,  R_W 

;  Set  LCD  in  read  mode 

0066 

1485 

03.05> 

BSF 

LCD_CNTL,  RS 

;  Set  LCD  in  data  mode 

0067 

1585 

030i 

BSF 

LCD_CNTL,  E 

;   toggle  E  for  LCD 

0068 

118S 

03.07 

BCF 

LCD_CarFL,  E 

0069 

0008 

0308' 

RETURN 

0309 
0310 
0311 

0313 
0314 
0315 
0316 
0317 


II  It  *  tint  If  fifi*^#4tiitt^j^***if  it  ********** 

; *  SendCmd  -  Sends  command  to  LCD  * 
;*  This  routine  splits  the  command  into  the  upper  and  lower  * 
;*  nibbles  and  sends  them  to  the  LCD,  upper  nibble  first.  * 
;*  The  data  Is  txansml^^ed  on  the  FCmi'^jOK  i^sns,  -n  * 

,*****jf.^************************************************************ 


0321 
0322 
0323 
0324 
0325 
0326 
0327 
0328 
0329 
0330 
0331 
0332 
0333 
0334 
0335 

0337 

0338 
0339 
0340 
0341 
0342 

m« 

634« 

0347 
0348 
0349 
0350 
0351 
0352 
0353 
03S4 

03S6 


. .  **.  ,f,  ffmMi^  J. . , . , . ; .  #rfeiA.  SiMf l>rs?  

-If  (■  Oat«a|iX.  Kv;  r>i-M4  iKmsii^^mf  m  nibble  of  the  FORT 

,************************  ****,******************'********************* 
r  *  SEND_CMD  -  Sends  command  to  LCD  * 
;  *  This  routloe  q?lits  tk»  eotmmA  inte  tba  i^er  and  lowsr  * 
I  *  nibbles  fmA  sends  tben  to  tibe  IiCQ,  xepptx  ni£a»ie  first.  * 
, ******************************************************************* 


MOVWF 

;  Character  to  be  sent  is  in  W 

CALL 

BnSY_CHECK 

;  Wait  for  LCD  to  be  ready 

MOVF 

CHAS.W 

ANDLW 

OxFO 

;  Get  upper  nibble 

WM/HF 

I^J»TA 

;  Said  teta  to  hCD 

BCf 

IjCD_aiTL,R_W 

;  gs*r,|ie%.t»~r«jtd 

BCF 

LCD_CNTL,RS 

;        iiCB  tp  eammA  moSe 

BSF 

LCD_CNTL,E 

BCF 

LCD_CNTL,E 

SWAPP 

CHAR.w 

ANDLW 

OxFO 

t  Oet  lower  nibble 

wmiF 

IlCD^niVTA  . 

;  Send  data  to  LCD       ^>  '. 

L6D_CNTL,E 

;  toggle  E  for  LCD 

BCF 

LCD_CMTL,E 

RETURN 

else 


)  4-blt  transfers  on  the  low  niU>le  of  the  FORT 


MOVWF 

ttmnt 


CHAR,.  , 

pfjr.,jpp9CK 

IiCD_aiTI>,  RJW 


;  Character  to  be  sent  is  in  W 
;  W^it  for  LCD  to  be  rea^ 

;  Send  data  to  LSD 
;  set  LCD  to  read 


o' 


o 


u 
u 


006A  00B6 
006B  2073 
006C  0836 
OOSD  0088 

ooex  lies 

006F  1085 

0070  1585 

0071  1185 

0072  0008 


0390 
P391 
0392 

0393 
0394 
0395 
0396 
0397 
039iB 
03'99 


BCP 

BSF 

BCF 

MOVF 

ANDLW 

MOVWF 

BSF 

BCF 


LCD_CNTL,  RS 
LCD_CNTL,  E 
LCD_CNTL,  E 
CHAR,  W 
OxOF 

LCD_DATA 
LCD_CNTL,  E 
LCD.CNTL,  E 


;  Set  LCD  to  ctxnnand  nioda 


Get  lower  nibble 
Send  data  to  LCD 
toggle  E  for  LCD 


0366 

0367 
0368 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0376 
0377 
0378 
0379 
0380 
,Q3#1 
0382 
0383 
0384 
0385 
0386 
0387 


else         '  '  , 

*  SEND_CND  -  Sends  command  contained  in  register  W  to  LCD  * 

*  This  routj^^  sen^^|j^  «>|^e  sliar^^^  fo  <^  FORT  * 

*  The  data  la  trani^tted  on  tbe  VoeeiKj :  0>  pine  * 
***  It****************  ************************************  ****** 


MOVWF 

CHAR 

;  Command  to  be  sent  is  in 

CALL 

BUSY_CHECK 

;  Wait  for  LCD  to  be  ready 

MOVF 

CHAR,  w 

MOVWF 

LCD_DATA 

;  Send  data  to  LCD 

BCF 

,it.w-.- 
ks- 

BCF 

;  Stit  LCD  m,  ecmsaid  mode 

BSF 

LCD_CNTL, 

E 

;  toggle  E  for  LCD 

BCP 

LCDi.C|ITI., 

B 

RETURN 

If  (  Four^lt  )      ^     ;  4-bit  Data  kw!S'^t(>XB7 

if  (  Data_HI  )       ;  4-bit  transfers  on  the  high  nibble  of  the  PORT 


*  This  routine  checks  the  busy  flag,  returns  when  not  busy 

*  Affects: 

*  TEMP  -  Returned  with  busy/address 


********** 


***************'**************************************************** 


6461  BOSY. 

0402 
0403 
0404 


BSF  STATUS,  RPO 

MOVLW  OxFF 

MOVWF  LCD_PATA^TRIS 


Select  Register  page  1 
Set  PortJ)  £01;  JLwtaifc 


CO 


0423 

0424 
0425 
0426 

042% 
0430 

0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
0442 

0444 

0447 
0448 
0449 
0450 
0451 


BCF 

olAlUs,  KJrU 

;  SqIocC  Re^ifiter  page  0 

BCF 

LiLU_LNiLi,  Kb 

;  S6 1  LCD  fox  Comnw^d  znods 

BSF 

T  r'T\    r'M'VJ         D  I«T 

LiK^U  l_rj  ILi  1    K  W 

;   Sstup  to  ire3.d 

BSF 

LCD_CNTL ,  E 

;   Set  E  high 

BCF 

LCD_CNTL ,  E 

;   Set  E  low 

MOVF 

;  Read  upper  nibble  busy  iX&Q, 

DDRam  adores s 

ANDLW 

movwf' 

temp 

BSF 

LCD_CMTL^  ^   ^  J.  J 

lcd_cntl,^'b 

;  Toggle  E  to  get  lower  nibble 

BCF 

SWAPF 

LCD_E)ATA/  W 

;  Read  lower  nibble  busy  flag. 

DDRam  address 

MUDIM 

OxOF 

;  Mask  out  upper  nibble        ,  ^ 

lORWF 

TEMP 

;  Combine  nibbles 

BTFSC 

TEMP,  7 

;  Check  busy  flag,  high  =  busy 

GOTO 

BUSY_CHECK 

;  If  busy,  check  again 

Bcr 

BSF 

ST^ttOS,  RPO 

;  SdiACt  Register  page  1 

MOVLW 

OxOP 

MOVWF 

LCD_DATA_TRIS 

;  Set  Port_D  for  output 

BCF 

STATUS,  RPO 

;  Select  Register  page  0 

else : 


-i_  Ar-ialkt  tretqsf ars  on  the  low  ^sil^e  of  the  FORT 


***************************  ************ 
*  This  routlws,  dh»cik»  ih»,]nisy  tletg-f  r«tucns-«*i^  not  iaaax  * 


Affects: 

TEMP 


BUSY_CHECK 


Returned  with  busy/address 
****************************** 


********* 


BSF 

STATUS,  RPO 

;  Bank  1 

MOVLW 

OxFF 

;  Set  FortB  for  Input 

MOVWF 

LCD_DATA_ 

TRIS 

BCF 

STATUS,  RPO 

;  Bank  0 

BCF 

LCD_CNTL, 

RS 

;  Set  LCD  for  Command  mode 

BSF 

LCD_CNTL, 

R_W 

;  Setup  to  read  busy  flag 

BSF 

LCD_CNTL, 

E 

;   Set  E  high 

LCD_CNTL, 

E 

;  Set  E  low 

SWkPF 

LCD_DATA, 

W 

;  Read  upper  nibble  busy  flag, 

EDRtun 

address 

ANDLW 

OxFO 

;  Mask  out  lower.^nlbble 

MOVWF 

TEMP 

BSF 

LCD_CNTL, 

E 

;  Toggle  E  to  get  lower  nibble 

BCF 

LCD_CNTL, 

E 

MOVF 

LCD_DATA, 

W 

;  Read  lower  nibble  busy  flag, 

DDRam 

address 

ANDLW 

OxOF 

;  Mask  out  upper  nibble 

lORWF 

TEMP,  F 

;  Combine  nibbles  . 

0073  1683 

0074  30FF 

0075  0088 

0076  1283 

0077  1085 

0078  1505 

0079  1585 
007A  1185 
007B  0808 
007C  00B5 
007D  1BB5 
007E  2873 
007F  1105 

0080  1683 

0081  3000 

0082  0088 

0083  1283 
■0084  0(fO8 


0085  0782 

0086  344D 

0087  3469 

0088  3463 

0089  3472 
008A  346F 
008B  3463 


0452 
0453 


04S7 
0458 
0459 
0460 
0461 
0462 
0463 
0464 
0465 
0466 
0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
047S 
0476 
0477 
0478 
0479 
0480 
0481 
0482 
0483 
0484 
0485 
0486 
0487 
0488 
0489 
0490 
04^2 
0493 
0494 
0495 
0496 
0497 

bSoo 


BTFSC 
GOTO 
BC7 
BSP 

WW 

RETURN 


TEMP,  7 
BUSY_CHECK 
LCD_CNTL,  R_W 
STATDS,  RPO 


;  Check  busy  flag,  high  =  busy 
;  1£  busy,  check  again 


!  Bank  1 

!  817  -  4  =  InptttB,  RB3 
;  Bank  0 


0  =  output 


endif 

else 

.  ************************************************************** 
;*  13>is  routine  checks  the  busy  flag,  returns  When  not  busy  * 
;*  Affects 1  * 
;  *  TEHF  -  Returned  with  busy/address  * 

.************************************************************** 


BnSY_CHBCK 


BSF 

STATUS,  RPO 

;  Select  Register  page  1 

mmjK 

;  Set  port_p  for  input 

mmat 

BCF 

SliAlBS,  RPO 

•  Select  Register  page  0 

BCP 

LCDjCHTL,  RS 

;  Set  LCn3  for  command  mode 

BSF 

LCD_CNTL,  R_W 

;  Setup  to  read  busy  flag 

BSF 

LCD_CNTL,  E 

;  Set  E  high 

BCF 

LCD_CNTL,  E 

;   Set  E  low 

MOVF 

LCD_DATA,  W 

;  Read  busy  flag,  ra>ram  ad&ess 

MOVWF 

TEMP 

;  Check  busy  flag,  hlgh=busy 

BTFSC 

TEMP,  7 

6dto 

Bcrsy_CHBCK 

BCF 

LCD_CNTL,  R_W 

BSF 

STATUS,  RPO 

;  Select  Register  page  1 

MOVLW 

0x00 

iHSVWF 

LCD_DATA_TRIS 

;  Set  port_D  for  output 

STATUS,  RPO 

;  Select  Register  page  0 

endif 


addwf 
retlw 
retlw 
retlw 

retlw 


POL 
■M' 


'r' 


iJmae  to  char  pointed  to  in  W  reg 


CO 


008C  3468 
008D  3469 
008E  3470 
008P  3420 

0090  3454 

0091  3465 

0092  3463 

0093  3468 

0094  346E 

0095  34eF 

0096  346C 

0097  346F 

0098  3467 

0099  3479 

009A  34bt3 


0517 
051»" 
0519 

osW 

0521 
0S?'2 
0523 
05^24 
05^5 
052l 
0527 
0528 
052$ 
0530 


andif 


end 


reViw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
retlw 
ratlw 
retlw 
retlw 

retlw 


if  ( 


(Table  &  OxOFrr^  (■rabi«JM«.6n0fF)  )  a 
•Warning  -  ijsftr  DeflBaodi  »S^/  tii>lW  broi»»iirpsi#e  boondry  In  conputed  juap" 


iB««Si  <»O.Ote.««  iBtenwdiate       llt032L.MU     6-8-ltM  &«S3i47 


mm  t* 


HEHORY  USAGE  HftP  ( IX'  =  Used,     <  - '  =  Unused) 

0000  !  X-XXXXXXXXXXXX  XXXXXXXXXXXXXXXX  XXXXmXXXXXXXXX  XiOEXXXXXXXX:tXXXX 

0040  :  xxxxxxxxxxxxxxxx  xxxxxxsxxxxxxxxxiOBaxzxxxzsBEXxxx  xxxxxxjoaaacxxxxx 

"in        <  -  ihj.ii 

0080  1  xxxxxxxxxxxmsx 

coco  1    ■  r-n  r,--,  , 

All  other  memory  blocks  unused. 


Errors  i  0 
Warnings  i  13 


CO 


APPEiM  m  mm  mm  m^mmmt  mm  mm.e  listing 


MP  ASM  0C|..Q!Q.68  IttteMaadtKta       U032I..A^     6-8-1994  0i59sl2 


LOC    OBJBCT  CODE 


LINE  SOORCS 


0001 


0008 
0088 


0O05 


This  wcogxia  trntmefaeaa  to  a  KltAl^l  (IiK032L)  2  line  by  20  character  display 
Biaitalo.  Vtie  program  asseaiblefl  for  either  4-bit  or  8-bit  data  interface,  depending 

on  the  value  of  the  4bit  flag.  LCD_DATA  is  the  port  which  supplies  the  data  to 
the  LM032L,  while  LCD_CNTL  is  the  port  that  has  the  control  lines   (  E,  RS,  R_W  ). 
In  4-bit  mode  the  data  is  transfer  on  the  high  nibble  of  the  port  (  PORT<7i4>  ). 

Program  =  LM032L.ASM 
Revision  Datei  5-10-94 


include  <C74_reg.h> 


0001 
0002 
0003 
0004 

0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0233 
0013 
0014 
0014 
0015 

0016  Pourjjit 

0017  Data_HI 

0018  ; 

0019  ; 
0020 

0021  ; 

0022  LCD_nATA 

0024  ; 

0025  — 
'0026  ;  

0027  LCD_DATA 

0028  LCD_DATA_TRIS 

0029  ; 

0030  endlf 

0031  ; 

0032  U33_am. 

0033  ; 

0094 .;    '         s  3^ 


LIST  P>16C64,  F'lNHXStl 


include  <lm0321.h>. 
II 


Selects  4-  or  8-bit  data  transfers 
If  4-bit  transfers,  HI  or  Low  nibble  of  PORT 


if   (  Four_bit  i4  ]Data_HI  ) 


ECU 
BQU 


EQU 
EQU 


EQU 


PORTS 
TRISB 


PORTD 
TRISD 


line 


0003 
0002 
0001 
line 


0000  2808 


0004  1283 

0005  1407 

0006  1007 

0007  2804 


0008  0183 

0009  018B 
OeOA-  018C 
OOOB  1683 
OOOC  3000 
OOOD  0081 
OOOE  018C 
OOOF  30FP 

0010  009F 


0035 
0036 
0037  ; 
0038 

0039  ; 

0040  B 

0041  HJg 

0042  RS 


0043  ; 
0044 

0045  ; 

0046  E 

0047  R_W 

0048  RS 


else 


SOU---'  '  ■>■'" 


EQU 
ECU 
EQU 


2 


;  LCD  Enable  control  line 

;  LCD  Read/Wxite  control  line 

;  LCD  Register  Select  control 


;  LCD  Enable  control  line 

;  LCD  Read/Write  control  line 

;  LCD  Register  Select  control 


0049 
0050 
0051 
0052 
0053 

'  i%s* 
■mss 
mse 

0057 

0058 
0059 
0061 
0062 
0063 
^64 
'''■«06S 
6^66 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 


endif 


TEMPI 


EQU  0x030 

org         RESET_V  "  ' 
GOTO  START 


RESET  vector  location 


This  is  the  Periperal  Interrupt  routine.  Should  NOT  get  here 


org 
PER_INT_V 
ERRORl 


CLRF 
CLRF 
CLSF 

'bsp 

msmn 

CLRF 

MOVLW 

MOVWF 


STATUS,  RPO 

'■■'•»e!^„°«" 


STATUS 
INTCON 
PIRl 

stktns.  RPO 
0x09 

PIEl 
OxFF 
ADCONl 


Interrupt  vector  location 
:  Bank  0 


Xi 


;  POWER_ON  Reset  (Beginning  of  program) 
;  Do  Initialization  (Bank  0) 


Bank  r 

The  LCD  nodule  does  not  like  to  work  w/  weak  pull-ups 
Disable  all  peripheral  Interrupts 
Port  A  is  Digital. 


(D 
3. 

0) 

o 

■■■■ 

3 

o 

0) 
3 

|- 

O 

o 


o 
a 
c 


CO 


0011  1283 

0082 

BCF 

STATUS ,  ItS^ 

f 

WKlik.  0 

0012  0185 

0083 

CLRF 

PORTA 

' 

ALL  PORT  output  should  output  Low. 

fin  1 1  01  Rfi 

0084 

CLRF 

PORTS 

0085 

CLRF 

PORTC 

0015  0188 

0086 

CLRF 

PORTD 

.  •-T.,lS)k-» 

0016  0189 

0087 

CLRF 

PORTE 

0017  1010 

ooss 

BCF 

TiCOH/  THKlUri 

' 

TimeiT  1  is  NOT  incxeinen&^iB0                               ■  _ 
T--        -  rvTTJf*  to  «OX)(  «\  •trj^jf  i>a]j -uta 

oo^sf  ~ 

UUlti  iDoJ 

0090 

BSF 

STATUS,  RPO 

; 

Select  BcUix  1 

0019  0185 

0091 

CLRF 

TRISA 

; 

RA5  -    0  out^CA 

UUIA  JUrU 

MOVLW 

OxFO 

; 

UUlo  UUOD 

0093 

t 

Am      m  QT 
uUlt.  Mloi 

0094 

'  ^  - J  CUIF 

TRiSC 

1 

OOID  1407 

0095 

BSF 

msc,  Tioso 

1 

1^0  ^dpeds  to  be  li^ut  £o]r  t.Yu&  oscillatoir  to  jExuiction 

Ani 0  n4  OO 

OAF 

TRISD 

! 

UU±r    U 1 oy 

0097 

CtRF 

TRISE 

' 

US  Pojrt  3.ir6  ou t s 

0098 

BSF 

PIEl,  TMRIIE 

Enat>ls  TMRl  Intsxrupt 

0021  1781 

0099 

BSF" 

OPTION_R,  RBPU 

Disable  FORTB  pull-ups 

0100 

1 

Select  Bank  Q 

0101  ; 
0103  ? 

a-'-  ECi. 

010'4  ; 

iBltlliz£'u>«  Lcd'iSlsplay  Hodula 

0195  S- 

oies 

0107 

'  ■    CIJRF  ' 

KC!L  iE^^T  otfC^t  Mibud^d'  outfput  Xiow. 

0108  DISPLAY_INIT 

0109 

if  (  Four_bit 

&&  IData_pi  ) 

0110 

USVUH 

03C02 

r 

Ccsnmeind  for  4-bit  interface  low  nibble 

0111 

endif 

0U2-; 

oi«=- 

'  if  (  Fourjslt  ££  Oata^  ) 

0024  3020 

0114 
0115 
0116  ; 
0117 

■■■    '  MOVLW 
endif 

if  (  lFour_bit 

0x020 

) 

Comnand  for  4 -bit  interface  high  nibble 

0118 

MOVLW 

0x038 

Ccanmand  for  8 -bit  interface 

0119 

endif 

.f-  L 

0120  ! 

002S  0088 

aiii- 

MOVHF 

t 

0026  1585 

oiii 

BSF 

LC  D_CHTL,  E 

0027  1185 

0123 

BCF 

LCD_CNTL,  E 

0124  ; 

0125  ;  This  routine  takes  the  calculated  times  that  the  delay  loop  needs  to 

0126  ;  be  executed,  based  on  the  LCD_INIT_DELAy  EQUate  that  includes  the 

0127  ;  frequency  of  operation.  These  uses  registers  before  they  are  needed  to 
cm  j' 8t«a»ii*«HB-~tlife.  **  "  •-  '  — 

0129  ;•  ■     ^  _  _ 

0028  3006  oi3¥  BCD_wSitA*  '  TOt*  '  i5efctSfi*_Daay  ;      ■'  "  " 


0029  00B3 
002A  01B4 
002B  0BB4 
002C  282B 
002D  0BB3 

002E  282B 


002F  3020 


0030  0088 

0031  1585 

0032  11|5 


0033  3080 

0034  0088 

0035  1585 

0036  1185 


0037  300C 

0038  2074 

0039  3001 
003A  2074 
003B  3006 
003C  2074 
003D  3080 
003E  2074 


0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 

pis 

0147 
0148 
0149 
0150 
0151 
0152 
0153 

bisB 

0156 
0157 
0158 
0159 
0160 
0161 
0162 

m 

0165 
0166 
0167 
0168 
0169 
0170 

but 

01^2 

blii 

0174 
0175 
0176 
0177 
0178 


MOVWF  USD 

CLRF  LSD 

L00P2  DECFSZ  LSD 

GOTO  L00P2 

DECFSZ  USD 

ENDJ-CPJPELAY 

'  -    '       GOTO  L00P2 


;  Use  USD  and  LSD  Registers  to  Initilize  LCD 
Delay  time  =  MSD  *  ( (3  *  256)  +  3)  *  Tcy 


;  OSsmseA  sequence  for  2  liMs  «£  5x7  characters 

cmdHseq 


else 


8k62o 


HOVLW  0X038 


BSF 


LCD_J>ATA 

£a)_cinii,  B 


if  (  Four_bit  ) 

if  (   iData_HI  ) 
MOVLW  0x08 

else 

MOVLW 
endlf 

BSF 
BCP 

endi  f 


0x080 

LCD_DATA 
LCD_CJJTL,  E 
LCD_CIini,  B 


;  4 -bit,  low  nil^le  xfer 

;  4-bit  high  nibble  xfer 

;  8-blt  nedtt 

;  This  code  for  both  4-bit  and  8-bit  modes 

;  This  code  for  only  4-bit  mode  (2nd  xfer) 

;  4-bit  low  nibble  xfer 

;  4-bit  high  nibble  xfer 


Busy  Flag  should  he  valid  after  this  point 

MdVLW  DISVJ9I) 

CAtk,  saHDj^ 

call  SEND_CMD  ; 

MOVLW  ENTRY_INC  ; 

CALL  SEND_CMD  ; 

MOVLW  DD_RAM_ADDR  ; 

CALL  SEND_CMD 


CO 


003F  304D. 

0040  206$ 

0041  3069 

0042  2065 

0043  3063 

0044  2065 

0045  3072 

0046  2065 

0047  306P 

0048  2065 

0049  3063 
004A  2065 
004B  3068 
004C  2065 
004D  3069 
004E  2065 
004F  3070 

0050  2065 

0051  30C0 

0052  2074 


0053  3000 

0054  OOBO 

0055  3Q9B 

0056  39!^ 

0057  1903 

0058  285D 

0059  2065 
005A  0830 
005B  3E01 
005C  2854 


OOSO  2S5D 


DOSE  300C 
005F  2074 

0060  3001 

0061  207i 
0063  3006 


sage  the 

hard  Jiay 

movlw 

•M' 

call 

SEND_CHAll 

movlw 

•i' 

ball 

SBID.CHSR 

movlw 

*c' 

call 

SB)D_CHAR 

movlw 

'r' 

call 

SBID_CI»R 

movlw 

*o' 

call 

SEND.CHAR 

movlw 

•c 

call 

SEND.CRAR  " 

Mavlw 

•h' 

6atl 

SEND_CHAll 

movlw 

'i' 

call 

SENO_CHAR 

movlw 

>p' 

call  ■ 

'9ElilD_CmR 

movlw 

B'llOOOOOOj^ 

call 

SEND_CMD 

CTtrw  hoT:-i 


; Demonstration  ot 

the  use  of  a 

movlw 

0 

dispmsg 

movwf 

TEMPI 

call 

Saible 

andlw 

lltfsc 

8Xft9<OS,Z 

m- 

call 

SENO_CH«R 

movf 

TEMPI, W 

addlw 

1 

goto 

dlsEmsg 

out 

loop 

goto 

loop 

1NIT_DISPLAY 

MOVLW 

DISP_ON 

CALL 

SEND_CMD 

MOVLH 

CLRJ)ISP 

CALL 

SEND_CMD 

BNTRY_INC 

{Address  TSXim  first  character,  second  line 

e  to  output  a  message 
; Table  address  of  start  of  message 

; TEMPI  holds  start  of  message  address 

;Check  if  at  end  of  massage  (zero 
jr^ttttned.^t  Md) 

;  Display  (Character 
{Point  to  next  chiuracter 

;Stay  here  forever 


;  Display  On,   Cursor  On 

;  Send  This  comiaand  to  the  Display  Module 

;  '9e&f''$his  ''SStnkand  'te  ^6  Display  Module 
;  set  Entry  Mode. Inc.,  Ha  shift 


0063  2074 

0064  0008 


0065  00B6 

0066  2083 

0067  Q»M 

0068  39F0 

0069  00«« 
006A  1105 
006B  1485 
006C  1585 
006D  1185 
006E  0E36 
006F  39F0 

0070  O0S8 

0071  1585 

0072  1185 

0073  0008 


0228 
0229 
0230 
0232 
0233 
O^^f 

"  oMs 

0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 

••'■oaso 

mi 

0453 

0254 
0255 
0256 
0257 
0258 
9259 
««460 
■'b261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
6269 
0270 
0271 
0272 
0273 
0274 

ea75 

"W6 


;  Sand  Ibia  oomnand  to  the  Display  Hedula 


.  ** ********************************** 

')*  The' iMkd&ia- Sutooutiili* '■  J'^w."'-  * 

if  (  Four_}3it  )  ;  4-bit  Data  transfers? 

' W(°&Siijff  r***  tW^'i'  tV&i^TB  on  Uia  High  ftlbbla  of  the  PORT 

.  ********************** 

;  *SendChar  -  Sends  character  to  LCD  * 
;*7hia  routijM  apllts  the  chuaeter  Into  the  tq^per  and  lowez  * 
;*n1%iM  and  sends  them  to  tl»  LCD,  vq^er  nilsbie  first.  * 
.  *******  ************************************************************ 

SEND_CHAR 


MOVWF 

CHAR 

;  Character  to  be  sent  is  in 

BUSY_CHECK 

;Wait  for  LCD  to  be  ready 

ikm 

CHAR,  w 

ObtFO  '■ 

;Get  upper  nibble 

/Send  data  to  LCD 

BOT 

iiCDjdsi^ii; 

R_W 

;Set  LCD  to  read 

BSF 

LCD_CNTL, 

RS 

;Set  LCD  to  data  mode 

BSF 

LCD_CNTL, 

E 

; toggle  E  for  LCD 

BCF 

LCD_CNTL, 

E 

SWAPF 

CHAR,  w'  ' 

ANDLW 

OxFO 

;Get  lower  nibble 

LCD_DATA 

;  Send  data  to  IiC3> 

■• 

LCD_CNTL, 

E 

;  toggle  E  f'dr  laC^ 

BCF 

LCD_CNTL, 

K 

RETDBN 

else 


4 -bit  transfers  on  the  low  nibble  of  the  FORT 


,******************************************************************* 
( *  SEND_CHAR  -  Sends  character  to  LCD  * 
;*  This  routine  splits,  the  character  into  the  upper  and  lower  * 
t*  nibbles  iind  sends  Qsm  to  the  LCD, ''appefr'nilA>le  first.  * 
; *  The  data  !#  transmitted  on  the  F0Rf<3 : 0>  pins  * 
. ******************************************************************* 


SEND_CHAR 


MOVWF  CHAR 

CALL  vastjemx 
sttfeeF    dam.  't> 


;  Character  to  be  sent  is  in  W 
;  Wait  foE-'LCO  to  be  ready 


CO 


0277 

ANDLW 

OxOF 

;  Get  upper  nibble 

0278 

MOVWF 

LCD_DATA 

;  Send  data  to  LCD 

0279 

BCF 

LCD_CNTIi, 

«_w 

;  Set  SCD  to  r*ad           -  ^  ■ 

0280 

LCD_cajTL, 

RS 

.  Set  iflD  fco  data  mode "     '  "  '  « 

0281 

BSF 

LCD_CNTL, 

E 

;  toggle  E  for  LCD 

0282 

BCF 

LCD_CNTL, 

E 

0283 

MOVF 

CHAR,  W 

0284 

ANDLW 

OxCP 

;  Get  lower  nibble 

0285 

MOVWF 

LCD_DATA 

;  Send  data  to  LCD 

0286 

BSF 

LCD_CNTL, 

E 

0287 

BCF 

LCD_CNTL, 

E 

0288 

0289 

0290' 

endif 

0291 

else 

0292 

0293 

0294  ;*  SEND_CHAR  -  Sends  character  contained  in  register  W  to  LCD  * 

0295  ;*  This  routine  sends  the  entire  character  to  the  PORT  * 

0296  ;*  The  data  is  transmitted  on  the  PORT<7:0>  pins  * 
029?  .********************************************* ******************** 

oisi  ; 

0299  SEND_CI»R 


0300  MOVWF  CHAR  ;   Character  to  be  sent  is  in  W 

0301  CALL  BUSY_CHECK  ;  Wait  for  LCD  to  be  ready 

0302  MOVF  CHAR,  w 

0303  MOVWF  LCD_DATA  ;   Send  data  to  LCD 
039i  BCF  LCD_CNTL,  R_W      ;  Set  LCS  1b  read  node 
OSfff  '                        BSF  LCD_CNTL,  RS         ;   Set  jM'-iSlkiti  Sidk"' ^ 
0*6l  B»*'-  LCD_CNTL,  E         ;  tiSggl*  t  f  ^  4CD '  ' 
OSW  BCF  LCD_aiTL,  E 

0308  RETURN 

0309  ; 

0310  endif 

0311  ;  i"  ■  1'.:  • 


0313  ;  •  •• 

OSlS  t *  SendCmd  -  Sends  command  to  LCD  * 
OSie'V*  This  routine  splits  the  oetn&nd  Into  the  i^er  and  lower  * 
Dli7^;*  nibbles  and  sends  then  to  the  LCD,  upper  nibble  first.  * 

0318  The  data  is  transmitted  on  the  PORT<3:0>  pins  * 

0319  .******************************************************************* 

0320  ; 

0321  if  (  PoUr_bit  )  ;  4-bit  Data  transfers? 

0322  ;       •  ■     •  •  •     •  ... 

0323  if  (  Data_»l  )      ;  4-bit  transfers  on  the  high  nibble  of  the  PORT 

0324  ; 

03^  ■  ******^'^t**^t*^^^^i****^t******^|*********  **********************  ********* 


0326 

8327 

&328 

0331 

0074  00B6 

0332 

0075  2083 

0333 

0334 

0335 

R^f 

0Q7A  108^ 

dSli 

007B  1585 

0S39 

007c  1185 

0340 

007D  0E36 

0341 

007E  39F0 

0342 

007F  0088 

0343 

0080  1585 

0344 

0081  1185 

0345 

nn89  nnfifi 

oiid 

034*? 

0348 

0349 

0350 

0351 

0354 

0355 

0356 

0357 

0358 

0359 

0360 

S3«i 

mi 

0365 

0366 

0367 

0368 

0369 

0370 

0371 

%3 

; *  SEND_CMD  -  Sends  command  to  LCD 

This  routine  splits  the  cononand  into  the  upper  and  loraor 
;*  nibbles  and  sends  them  to  the  LCD,  upper  nibble  first.'* 


**1r1i1l1t1l*tW*************  ********  ********  ****** 


SEND_£3ID 


MOVWF 

CHAR 

;  Character  to  be  sent  is  in  W 

CALL 

BUSY_CHECK 

;  Wait  tor  LCD  to  be 

MOVF 

CHAR.W 

ANDLW 

OxFO 

;  Get  upper  nibble 

LCD_DATA 

;  Send  data  to  LCD 

LCD_CNTL 

R_W 

;  Set  LCD  to  read 

BCF 

LCD_CNTL 

RS 

;  See  liCi)  to  eemni&A 

mode 

BSF 

LCD_CNTL 

E"'- 

!  toggle  E'  lot  LCii' 

BCF 

LCD_CNTL 

E 

SWAPF 

CHAR.w 

ANDLW 

OxFO 

;  Get  lower  nibble 

MOVWF 

LCD_DATA 

;  Send  data  to  LCD 

BSF 

LCD_CNTL 

E 

;  toggle  E  for  LCD 

BCF 

tCD_CWrL,K 

eia 


4-blt  transfers  on  the  low  nibble  of  tha  FO&T 


MOVWF 

CHAR 

;  Character  to  be  sent  is  in  W 

CALL 

BUSy_GRECK 

;  Wait  for  LCD  to  be  rea<^ 

smtpv 

CHAR,  W 

ANDLW 

OxOF 

;  Get  upper  nibble 

MOVWF 

LCD_DATA 

;  Send  data  to  LCD 

BCF 

LCD_CNTL, 

R_W 

;  Set  LCD  to  read 

BCF 

LCD_CNTL, 

RS 

;  Set  LCD  to  command  mode 

BSF 

LCD_CNTL , 

E 

;  toggle  E  for  LCD 

BCF 

LCD_CNTL , 

E 

MOVF 

CHAR,  W 

MIDLW 

OxOF 

;  Get  lower  nibble 

wmtF 

LCDjaift 

;  Send  data  to  LCD 

BSF  "• 

LCD_CNTL, 

E 

;  toggle  E  for  LCD 

BC* 

i 

RETURN 

endif  ' 

else 

,  •  SBOT)_CND  i^^Sam  ^t^akmH  oontainea  ii*?4gi-eeSr1f  IS  tC6*  "  '* 
i  *' Itiii'^'zoatine  sands  t&e  «Dtif«  eK^jiot^  to  the  PORT  * 
;*  The  data  is  tranamltted  on  the  PORT<7iO>  pins  * 


(D 
—I 

O 

3 
(Q 


0) 


O 

a 

o 
a 
c 

(P 


CO 


0083  1683 

0084  30^1? 

0085  0088 

0086  1283 

0087  108S 

0088  1505 

0089  1585 
008A  lies 
008B  0808 
008C  39F0 
008D  00B5 
008E  1585 
008F  1185 

0090  0E08 

0091  390F 

0092  04B5 

0093  1BB5 

0094  2883 

0095  1105 

0096  1683 

0097  300F 


0374 
0375 
0376 
0377 

mi 

0380 
0381 

0382 
0383 
0384 

iiii 

em 
ms 

0390 
0391 
0392 
0393 
0394 

8497 
6^98 

0399 
0400 
0401 
0402 
0403 

m* 

0408 
0409 
0410 
0411 
0412 

im 

0415 
0416 
0417 
0418 
0419 
0420 
0421 
0422 


.  ********* *************************************#*****#***#*#**^^ 


HOVWF 

CHAR 

;  Command  to  be  sent  is  in 

sosiccSBcr  ' 

;  mit  tot  LCD  to  ba  rea% 

MDVF 

CHAK,  W 

MOVMF 

LCDJATA 

;  Send  data  to  LCD 

BGF 

LCD_CNTL,  R_W 

;  Set  LCD  in  read  node 

BCP 

LCD_CNTL,  RS 

;  Sat  LCD  in  eeoasnd  mode 

BSF 

LCD_CNTL,  E 

;  toggle  B  £e¥  IM> 

BCF 

LCO.CNTL,  E 

iamaai 

andif 


if  (  Fout3it  ) 


4 -bit  Data  transfers? 


if  (  B*tOIl  F  '^*^'J^'''tita6elSte»''W  tiie'-M8t»  niW)le  of  the  PORT 

••«*****«*#KiMM**«C*4Mi************j|'«t4#*.lMlttlt«V|l(9>'«************ 
*  Thla  roatM^61iflciK''1^e^busy  flag,  letavns  «iwa  not  busy  * 


Affaetsi 


.-."cji-- 


BUSYCHECK 


BSF 

STATUS,  RPO 

Select  Register  page  1 

MOVLW 

OxFF 

Set  Port_D  for  input 

HOVWF 

LCDJ»TA^TRIS 

BCF 

STATUS,  RPO 

; 

Select  Regiatar  page  0 

BCF 

Iie&_CjRL, 

RS 

; 

) 

S^'^LCS  foi  CMtand  node 

isr 

L<Sb_CNTOj, 

R_W 

mui>- 18  reaa  blisy  flag 

BSF 

LCD_CNTL, 

E 

Set  E  high 

BCF 

LCD_CNTL, 

E 

Set  E  low 

MOVF 

LCD_DATA, 

W 

Read  upper  nibble  busy  flag. 

ANDLW 

OxFO 

; 

Kask  out  lower  Albble 

HOVWF 

TEMP 

Toggle  B  to  gat  lower  nibble 

SWF  . 

Ii($_CMTL, 

E 

; 

Btaf  " 

LCiSlCNTL, 

E 

SWAPF 

LCD_DATA, 

w 

Read  lower  nibble  busy  flag. 

ANDLW 

OxOF 

Mask  out  upper  nibble 

lORWF 

TEMP 

Combine  nibbles 

BTFSC 

TEMP,  7 

Check  busy  flag,  high  =  busy 

GOTO 

BUSlf_CHECK 

If  busy,  check  again 

BCF 

LCD_CNTL, 

R_W 

BSF 

STATUS,  RPO 

Select  Register  page  1 

MOVLH 

OxOF 

DDRam  address 


0098  0088 

0099  1283 
009A  0008 


0423 
0424 
0425 
0426 
0427 
0428 
0429 
0430 
0431 
0432 
0433 
0434 
0435 
0436 
0437 
0438 
0439 
0440 
0441 
i>«42 
0443 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 

otii 

0455 
0456 
0457 
0458 
0459 
MtO 
0^1 

0463 

0464 
0465 
0466 
0467 
046« 


MOVWF 
BCF 

RETURN 


else 


LCD_DATA^TRIS      ;  Set  Port_p  for  output 


4-bit  tranafara  en  t3M  low  nibble  of  Qie 


. **************************************##*#'«************************ 
;*  This  routine  checks  the  busy  flag,  returns  when  not  busy  * 
;*  Affects:  * 
;*  TEMP  -  Returned  with  busy/ address  * 

. **********«*«**»***«-*********«*********************************«*** 


BUSY_CHKCK 


BSP 

iStatus,  RPO 

MOVLW 

OxFF 

MOVWF 

LCD_DATAJI11S 

BCF 

STATUS,  RPO 

BCP 

LCD_CNTL,  RS 

BSP 

LCD_CNTL,  R_W 

is^' 

LCD_CNTL,  E 

u:d_cntl,  E 

smw 

tCDjaMA,  H 

MBXM 

(kpo 

MOVWF 

TEMP 

BSF 

LCD_CNTL,  E 

BCP 

LCD_CNTL,  E 

MOVF 

LCD_DATA,  V 

ANDLW 

OxOF 

imm 

IWl  ,  t 

imB,  7 

BOSir_CHBCK 

»  = 

LCD_CNTL,  R_W 

BSP 

STATUS,  RPO 

MOVLW 

OxFO 

MOVWF 

LCD_DATA^TRIS 

BCF 

STA'TOS,  RPO 

RETURN 

Bulk  1 

Set  Ports  for  liqput 
Bank  0 

Set  LCD  for  Command  mode 
Setup  to  read  busy  flag 
Set  >  bi|^ 
Set  E  low 

Read  i^per  nibble  busy  flag,  DDRam  address 
Mask  out  lower  nibble 

Toggle  B  to  get  lower  nit^le 

Read  lower  nibble  busy  flag,  DDRam  address 

Mask  out  upper  nibble 

Contoina  nibbles 

Check  busy  flag,  high  =  busy 

If  busy,  check  again 


Bank  1 

RB7  -  4  =  inputs,  RB3  -  0 
Bank  0 


output 


endlf 


else 


.  ************************************************************** 
This  routine  che^ii       'tau^  flag,  returns  Ithoi  not  busy  * 
;*     Affects:  '■     ■  '  "  * 

'  .  't  i  -~i  -tv  > 

BDSY_CHECK  i 


CO 


0471 

BSF 

b lAlUb , Krv 

0472 

MUVijW 

J  Sst  poirt_D  foir  input 

0473 

MU  VVyt 

T            rsATa     TD  T  C 

1jUU_LJA1A  IKlo 

0474 

BCF 

o  lA  i  Ub ,  KlrU 

;  S6l6cc  Rs^isteiT  p^cfs  u 

0475^ 

BCP 

LCD_CNTL,  RS 

;  Set  LCD  for  command  mode 

04W 

BSF 

LCD_CigTIi,  R_W 

;  Setup  to  read  busy  flag 

0477 

JiCD  (SITE.,  B 

;  Set  E  high 

0478 

 'Bcr-  ■ 

;  set  E  I'oW                  •     ■  * 

0479 

MOVF 

LCD_nATA,  W 

;  Read  busy  flag,  DDram  address 

0480 

MDVWF 

TEMP 

0481 

BTFSC 

TEMP,  7 

;  Check  busy  flag,  hlgh=busy 

GOTO 

BUSY_CHECK 

0483 

BCF 

LCD_CNTL,  R^W 

0484 

BSF 

STATBi,  JffO 

;  Siiiect:  Register  page^  1 

0485 

MOVLW 

0x00 

0486 

te>vw^ 

i*:dj)at;v_tris 

;  S^t  po>:t_D  for  output 

0487 

STATUS,  RPO 

;'  Select'  Register  page  0 

0483 

RETURN 

0489 
0490 
0492 

0493  Table 


endif 


009B 

0782 

009C 

344D 

009D 

3469 

m 

ofe't 

retlw 

■i' 

009E 

3463 

retlw 

*c' 

009F 

3472 

0498 

retlw 

'r' 

OOAO 

346P 

0499 

retlw 

'o' 

OOAl 

3463 

0500 

retlw 

'c' 

00A2 

3468 

0501 

retlw 

'h' 

00  A3 

3469 

0502 

retlw 

'  i ' 

00A4 

3470 

0503 

retlw 

'P' 

O0A5 

3420 

0504' 

retlw 

00A6 

3454 

0505 

retlw 

•T' 

00A7 

3465 

0506 

retlw 

*e' 

0  0A8 

3463 

0507 

retlw 

'c' 

00A9 

3468 

0508 

retlw 

'h' 

OOAA 

346E 

0509 

retlw 

'n' 

OOAB 

346F 

OS  10 

Iretlw 

"o" 

00  AC 

346C 

0511 

retlw 

•1' 

OOAD 

346F 

0512 

retlw 

'o' 

OOAE 

3467 

0513 

ketlW 

%• 

OOAF 

3479 

0514 

0515 

Table_End 

retlw 

■y 

OOBO 

3400 

0516 
0517 

retlw 

0 

0518 

if 

(   (Table  i  On 

;Juinp  to  char  pointed  to  in  W  reg 


i  I    .    ■  M 


3 

(D 
—I 

Qi 

O 

3 
(Q 

O 
01 


O 

o 


o 
a 
c 


05i9- 


FF)  >=   (Table_End  &  OxOFF)  ) 

Os^'tefindedi  Table  fable' oroaiW  page  boundry  in  coir^uted  junp* 


0520  endlf 

0521  ; 
0522 
0523 
0524 

0525  md 

0526 

0527 

0528 


MPASM  00.00.68  Intexnedlate       IiH032L.ASH      6-8-1994  0!59il2 


HEMORY  OSftSB  HAP  I'tT  ttaecl. 


XXJOOCXXXXXXXXXXX  XXXXXXXXXXXSIXXSSl 

xxzxxxxxxxxxxxxx 


All  other  memory  blocks  unused. 


Bxiors  t 
Waxnlt^s  I 


0 
13 


„ — —  .  ^  ^ 

KOTEi     special  Funct                       1>      r  » ery  j-  a.ii,I.a  \i  tr  '     ,  are 

spe  jifjed  by    '  I'.i   ti  j>>  a^ylrass  ia  tl»  fi.y|jjg74J«BO.H 

-Si  • 


CO 


kpmmmm  ^ait  pma  interfai^     nhsle  listing 


MPASM  00.00.68  Intermediate 


LM032L.ASM      6-8-1994  5:29:26 


PAGE  1 


LOC     OBJECT  CODE 


LINE  SOURCE  TEXT 


0001  _ 

oooo'* 


0006 
0086 


0005 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 

mm 

0010 
0011 
0012 
0013 
0233 
0013 
0014 

■  am 

MIS 
0016 

b'oSw 

0O18 

002O 
0021 
0022 
0023 
0021 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 


LIST  P=16C64,  F=INHX8M 

This  program  interfaces  to  a  Hitachi  (LM032L)  2  line  by  20  character  display 
module.  The  program  assembles  for  either  4-bit  or  8-bit  data  interface,  depending 
on  the  value  of  the  4bit  flag.  LCD_J3ATA  is  the  port  which  supplies  the  data  to 
the  IMOaaii,  trihll*  £es_(aiTI>  ta  tSaa  peart  that  haa  the  eontzol  lii»s  (  B,  BS,  KJH  ) . 
In  4-]9it  msS»  Mm  teta  la  triasfsr  on  the  high  nibble  of  the  pert  (  9CI«!<1iA*  ). 

Vso^am  ■  uiS32Ii.JWS8 
Revision  Datet  5-10-94 


inclinaa  ■<iC74,jeg.h> 


include  <liii0321,h>  .  .  , 


FotlKjsit 
DatajBl 


TRUE 
FALSE 


;  Selects  4-  or  8-bit  data  transfers 
;  If  4-bit  transfers,  Hi  or  Low  nibble  of  PORT 


if  (  Four_bit  &&  IDataJI  ) 


LCX)JD&1% 
LCD_P1WJCTRIS 

; 

else 

LCD_DATA 
LCD_nM»JPRlS 

endif 

LCD_Cim. 


BQU 
BQU 


ECU 
BQU 


BQU 


PORTS 
TRISB 


PORTD 
TRISD 


POtTA 


0000 

0001 
0002 
line 


line 


0030 


OOOO  2S0S 


0004  1283 

0005  1407 

0006  1007 

0007  2804 


0008  0183 

0009  018B 
OOOA  018C 

OOOB  1683 
OOOC  3000 
OOOD  0081 
OOOE  018C 
OOOF  30FF 

0010  009P 


if  (  Four_bit  4&  )Data_HI  ) 


0036  ;  LCD  Display  Commands  and  Control  Signal  naines. 
0037 
0038 
003? 

0040  E  EQU  0 

0041  R_W  EQO  1 

0042  RS  EQU  2 


0043  ; 

0044  else 

0045  ; 

0046  E 

mm  RS   ■  • 


EQU 
EQU 
EQU 


LCD  Enable  control  line 
IiCO  Reed/Wcita  eoatzol  lina 
LCD  Register  Sa£aet  ei^trol 


IiCD  Enable  control  line 
LCD  Read/Write  control  line 
LCD  Register  Select  control 


0049 
0050 
0051 
0052 
0053 
0054 
OOSS 
0056 
0057 
0058 
0059 
0061 
0062 
0063 
d()S4 
0065 
0066 
0067 
0068 
0069 
0070 
0071 


endif 


TEMPI 


tC/O 


org  RBSET_V 
RESET  GOTO  START 


RESET  vector  location 


niis  la  the  Periperal  Interr^^t  routine.  Should  NOT  get  here 


org 

PER_INT_V 

ERRORl  BCF 
BSP 
BCP 
gCrt'O 


CLRF 


ISBJV 


ei«p 

BSF 

MOVLW 

MOVWP 

CLRF 

MOVLW 

MOVWF 


BCF 


SVATtS,  RPO 
PORTC,  0 
PORTC,  p 
ERRokl  " 


STATUS 

;i;ntc;om 
i»iRi: 

STATUS,  RPO 
0x00 

0PT10N_R 
PIEl 
OxFF 
ADCONl 


STATUS,  RPO 


(  Ihterrupt  vectdr  location 
;  B<mk  0 


;  FOHER^ON  Reset  (Beginning  of  program) 
;  Do  initialization  (Bank  0) 


)  Sank  1 

The  LCD  module  does  not  like  to  work  w/  weak  pull-ups 
Diseible  all  peripheral .  interrupts 
Port  A  la  Digital. 

Bank  0 


3 
f* 

(D 

3. 

Q) 
O 

mmm 

o 

0) 
3 

|- 

o 
o 

o 

Q. 
c 

o 


0012  0185 

0013  0186 

0014  0187 

0015  0188 

0016  0189 

0017  1010 


0018 
0019 
OOlk 

OOIB 
OOlC 
OOID 
0011 
OOIF 
0020 
0021 
0.022 


1683 
QISS 
JOPO 
0086 
0187 
1407 
0188 
0189 
140C 
1781 
1283 


0023  0185 


0024  3002 


0025  0086 

0026  1405 

0027  1005 


0028  3006 

0029  00B3 


0083 

0084 
0085 
0086 
008T 
0Q8# 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0,096. 
0^97 
0098 
0099 
0100 
0101 
0103 
0104_ 

oios 
6toe 

0107 
0108 
0109 
0110 
0111 
0112 

OUTS' 
0117 
0118 
0119 
0120 
0121 

olia 
flaw 

0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 


CLRF 

•     ATT     Dr^Cn    nMiA>MHa'fr    dikilMa.l'^    nn.t^Ana'l*  T^jMif 
t    AIjIj   fVKi    OUXpus  flSQISACi  QQ^piXG  UWW'* 

CLRF 

PORTS 

CLRF 

PORTC 

CLRF 

PORTD 

CLRF 

PORTE 

8CF 

TICON, 

TMRION 

;  Timer  1  is  NOT  incrementing 

6SF 

STATUS 

t»0 

;.  Select  Bank  1 

CLRF 

TRISA 

;  RA5  -    0  outputs 

MOVLW 

OxFO 

MOVWF 

TRISB 

;  RB7  -  4  inputs,   RB3   -  0  outputs 

CLRF 

TRISC 

;  RC  Port  are  outputs 

BSF 

TRISC, 

TIOSO 

;  RCO  needs  to  be  input  for  the  oscillator 

CLSF 

;  SB  fort  term  outputs 

CLRF 

nttsB 

;  RB  Bart  axa  outputs 

BSF 

PIEl,  THRIIE 

;  Enable  THRl  Intazrupt 

BSF 

OPTION. 

.R,  RBPD 

;  DisE^le  PORTS  pull-ups 

BCF 

STATtrS 

RFO 

;  Select  Bank  0 

;  Xnitillze  the  LCD  Di^iiy  Modiile 
CLRF  LCD_CNTL 

DISPLAY_INIT 

if  (  Four_bit  &&  !Data_HI  ) 
MOVLW  0x02 

endlf 

'-     If  (  Fott£^t  fi&  -iiM^I  ) 

mmM  0x020 

if  (  !Four_bit  ) 

HOVLH  0x038 

endi  f 


ALL  PORT  output  should  (Output  Low. 


Command  for  4-bit  interface  low  nibble 


;  Command  for  4-blt  Interface  faiffh  nil^ble 


;  Conmand  for  8-bit  interface 


Q) 

5' 

(a 

o 

3 

r- 
O 
D 


O 
a 
c 


MOVWF 

BSF 

BCF 


LCD_DATA 
LCD_CNTL,  B 
LCD_CNTL,  B 


;  This  routine  takes  the  calculated  times  that  the  delay  loop  needs  to 

;  be  executed,  based  on  the  LCO_INIT_pELAY  EQUate  that  includes  the 

;  frequency  of  operation.  These  uses  registers  before  they  are  needed  to 

;  store  the  time. 


LCD_DELAy  MOVLW 

.KovwE' 


LCD_INIT_DELAY 


!  Use  M5I3  and  LSD  Registers  to  Initlllze  LCD 


002A 

01B4 

0132 

CLRF 

LSD 

002B 

0BB4 

0133 

L00P2 

DECFSZ 

LSD 

Delay  time  =  MSD  *  ( (3  * 

002C 

282B 

0134 

GOTO 

L0OP2 

002D 

0BB3 

0135 
0136 

END_LCD_ 

DECFSZ 
.DELAY 

HSD 

0137 

OOTO 

0138 

0139 

;  Command  sequence 

for  2  lines  of  ^7  cibaxacfcers 

0140 

0141 
0142 
0143 

CMD_SEQ 
if 

Four_bit  ) 

OlM 

if  (  (Oat«_HI  Xr,^ , 

002F 

3002 

0145 

MOVLH 

0X02 

4-olt  low  nibole  xcer 

0146 
0147 

else 

MOVLW 

0X0!20 

\-\>iX.  his^.J^l^e  x£er 

0148 

endif 

0149 
0150 
0151 

els 

MOVLW 

0X038 

8 -bit  mode 

0152 

endif 

0153  .  )  „ 

0030 

0086 

Q1S4 

MOVWF 

LCDJ»TA 

This  code  for  both  4-bit 

0031 

1405 

0155 

LCD_C3»ni  ,  E 

0032 

1005 

0156 
0157 

BCF 

LCD_CNTL,  B 

0158 

if 

Four^it  ) 

,  This  coije  for  only  4Tblt 

0159 

if  (  IDataJlI  ) 

0033 

3008 

Ol&O 
0161 

MOV^H 
else 

4 -bit  low  nibble  xfer 

0162 

MOVLW 

OxOSO 

4-bit  high  nibble  xfer 

0163 

endif 

0034 

0086 

0164 

MOVWF 

LCD_DATA 

0035 

1405 

0165 

BSF 

LCD_CNTL,  E 

0036 

1005 

0166 

BCF 

LCD_CNTL,  E 

0167 

endif        .  ". . 

0168 

PW? 

;  Busy  Flag  should 

te  valid  after  this  point 

01*0 

0037 

300C 

0171 

KEOVIiW 

Disp_ON 

0038 

2074 

0172 

CALL 

SEND_CMD 

0039 

3001 

0173 

MOVLW 

CLR_DISP 

003A 

2074 

0174 

CALL 

SEND_CMD 

003B 

3006 

0175 

MOVLW 

ENTRY_INC 

003C 

2074 

0176 

CALL 

SEND_CMD 

003D 

3080 

0177 

MOVLW 

DD_RAMJiDDR 

0038 

2074 

Toy 


003F  304D 

0040  2065 

0041  3069 

0042  2065 

0043  3063 

0044  2065 

0045  3072 

0046  2065 

0047  306F 

0048  206S 

0049  3063 
004A  2065 
004B  3068 
004C  2065 
004D  3069 
0048  2065 
004P  3070 

0050  2065 

0051  30C0 

0052  2074 


0053  3000 

0054  OOBO 

0055  209B 

0056  39FF 

0057  1903 

0058  285D 

0059  2065 
005A  0830 
005B  3E01 
005C  2854 


005D  285D 


b05P  2074 

0060  3001 

0061  2074 

0062  306i5 
Oja^  3074 


to"3 
0184 
0185 
0186 
0187 
0188 

a 

dm 

0193 
0194 
0195 
0196 
0197 

6199 

0200 
0201 
0202 
0203 
0204 
0205 
iS266 
B207 
D208 
0209 
0210 
0211 
0212 
0213 


;Send  a  message  the  hard  way 

movlw  *M' 

call  SEND_CHAR 

movlw  ' i ' 

call  SEND_CHAR 

movlw  '  c ' 

call  SEND_CHAR 


movlw 

call 

movlw 

call 

movlw 

call 

movlw 

call 

movlw 
call 


mtDCOAR 


*c' 

SEND. 

'h' 

SEND. 


CHAR 
CHftR 


SEND_CHAR 
B'llOOOOOO 


;Demonstxati<a>  of 
dispmsg 

movurf 

call 
andlw 
btfsc 
.  goto 
call 
movf 
«ddlw 


goto 


the  use  of  a 
0 

TBMI^l 

Table 
DPFh 

STATUS , Z 
out 

SEND_CHAR 
TEMPI, w 
1 

^spmsg 


loop 


INITJISPLAY 


HOVLW 
CALL 

CALL 


DISP_ON 
SENO.CtlD 

'£P!SD_CMD 


.■Address  ODRam  first  character,  second  line 


table  to  output  a  message 

;  Table  address  of  start  of  message 

;TEtlPl  holds  start  of  message  address 

; check  if  at  end  of  message  (zero 

; returned  at  end) 

(•Display  character 

;  Point  to  next  character 


;Stay  here  forever 


Olsplt^  On,  Cursor  Qa 

Settd  This  caMwmd  to  Om  Display  Hsdule 

ClMu:  the  Dt^lay 

Sand  nils  cMraad  to  Che  Bi^lay  Hodule 

ftet-^tiy^Hpde  Inc. ,  MO,  eh^ft 

send  This  coranand  to  the  Display  Module 


0064  0008 


0065  00B6 

0066  2083 

0067  0B36 

0068  390F 


0229 
0230 
0232 

mi 

0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 


oas2 

0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 

ms 

02^ 


'J  ************************** 

;*  The  LCD  Module  Subroutine*  ■  «  H>»  i:!-*  ■'■  . 


if   (  Four_bit  ) 


;  4-bit  Data  transfers? 


if  (  Data_HI  )      ;  4-bit  transfers  on  the  high  nibble  of  the  PORT 

;  'Sdiiaci^i:  ^Sti^  "Mlractet'  do  <lCD  * 
■  '^i's -roirtlW^^ttir'taM  tihare(eta!r  iM»  tSie  * 
; 'nibbles  and  sends  them  to  the  LCD,  upper  nibble  first.  * 
.  ******************************************************************* 


SEND_CHAR 


;ttoVWF  CHAR 

vmw    -cifi»,  #  ^ 


/Character  to  be  sent  is  in  W 
lIlBit.  Cor  liCD  to  be  rea^ 


'BCF 
Wit 

BSF 

BCF 


I Get  upper  nibble 
;Send  data  to  LCD  * 

LCD_CNTL,  R_W      ;Set  LCD  to  read 
LCD_CNTL,   RS  ; Set  LCD  to  data  mode 

.■toggle  E  for  LCD  ' 


LCD_CNTL,  B 
LCD_CNTL ,  E 


SWAPF      CHAR,  w 
AMJLW  OxFO 
MOVWP  LCDJOATA 


BSF 
BCF 

RETURN 


LCD_CNTL,  E 
LCD_CNTE,  E 


;Get  lower  nibble 
;Send  data  to  LCD 
.■toggle  E  for  LCD 


else 


4-bit  transfers  on  the  low  nibble  of  the  PORT 


. ******************************************************************* 
sraiD_CBAR  -  Sends  character  to  I<CD  * 
;*  This  routine  splits  the  character  into  the  upper  and  lower  * 

;*  nibbles  and  sends  them  to  the  LCD,  upper  nibble  first.  * 

;*  The  data  is  transmitted  on  the  PORT<3:0>  pins  * 

.A***A*A.t*********************A************************************* 


SEND_CHAR 


MOVWF  CHAR 

cjOiL     SO^nr  CBECK 


;  Character  to  be  sent  is  in  W 
;  Wait  for  LCD  to  be  ready 


CO 


0069 
006A 
006B 
006C 
006D 
OOSE 
006F 
0070 
0071 
0072 
0073 


0086 
1085 
1505 
1405 
100* 
0836 
390F 
0086 
1405 
1005 
0008 


0278 
0279 
0280 
0281 

K284 
d'^85 
0286 
0287 
0288 
0239 
0290 

&20 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 
0308 
0309^ 
0310 
0311 
0313 
0314 
0315 
0316 
03l¥ 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 


MOVWF 

LCD_DATA 

;   Send  data  to  LCD 

BCF 

LCD_CNTL, 

R_W 

;   Set  LCD  to  read 

BSF 

LCD_CNTL, 

RS 

;   Set  LCD  to  data  mode 

BSF 

LCD_CNTL, 

E 

;  toggle  E  for  LCD 

BCF 

E 

MOVF 

CHAR,  W 

ANDLW 

0x0  F 

;  Get  lower  nibble 

MOVWF 

LCD_EATA 

;  Send  data  to  LCD     •      •  "  

BSP 

LCD_CNTL , 

E 

;  toggle  E  for  LCD  • 

BCF 

LCD_CNTL, 

E 

RETUBN 

f9»  vV«ftvc;£«-X  ro  CCD 


endif 


else 


********ib***«*4**«*** ******************* *#********************** 

*  SEMD_ClBiR  *??^^lSiiha  character  contained  In  register  W  to  LCD 

*  This  routine  sends  the  entire  character  to  the  PORT 

*  The  data  is  transmitted  on  the  PORT<7:0>  pins 


it************** 


■C"-    1'-  -          -,  " 

r  vr  ■  ■ 

CHAR 

1  Character  to  be  sent  is  in 

dUSY_CHECK 

;  Wait  for  LCD  to  be  rea^ 

MOVF 

CHAR,  w 

MOVWF 

LCD_DATA 

;  Send  data  to  LCD 

BCF 

LCD_CNTL,  R_W 

;   Set  LCD  in  read  mode 

BSF 

LCD_CNTL,  RS 

;  Set  LCD  in  data  mode 

BSF 

LCD_CNTL,  E 

;  toggle  E  for  LCD 

BCF 

LCD_CMHi,  'fe 

RETURN 

7^ 

endif 


,  ************************************  ************  ******  ************** 

; *  SendCmd  -  Sends  command  to  LCD  * 
;*  This  routine  splits  the  command  into  the  upper  and  lower  • 
;*  nibbles  9gid  tfaen  to  imper  nibble  first.  * 

;*  Tfao  dalai  i»  li&tiani*tted  ©Ja  'tfee  T«cMWd^  pixB"  * 
. ******************************************************************* 

if  {  Four_blt  )  ;  4-bit  Data  transfers? 

if  (  Data_HI  )       ;  4-bit  transfers  on  the  high  nibble  of  the  PORT 
. ******************************************************************* 


0326  ;  *  SEND_CMD  -  Sends  command  to  LCD  * 

0327  ;*  This  routine  splits  the  ccanmand  Into  the  upper  and  lower  * 

0328  ;*  nibbles  and  sends  them  to  the  LCD,  tipper  nSable  tiiat.  * 

0329  • ******************************************************************* 

0330 

0331  SEND_Can> 


0332 

MOVWF 

CHAR 

;  Character  to  be  sent  is  in  W 

0333 

CALL 

BUSY_CHECK 

;  Wait  for  LCD  to  be  ready 

0334 

MOW 

CHAR.w 

0335 

'ANDLW 

OxFO 

;  Get  upper  nibble 

4C9VNF 

'Set'- 

DB6lCNTt,R_W 

!  Set  ti^  to  read 

Wf 

LCD_cirrL,Rs 

;  Set  LCD  to  'etkmiaiSi  Mode 

<fS39 

LCD_CIITL,E 

;  toggle  E  for  fiCT? 

0340 

BCT 

tiCD_CifrL,E 

0341 

<i8AR,i»  ■ 

0342 

ANDLH 

OxFO 

;   Get  lower  nibble 

0343 

MOVWF 

LCD_DATA 

;   Send  data  to  LCD 

0344 

BSF 

LCD_C1ITL,E 

;  toggle  E  for  LCD 

mm 

0347  ;  '  '"-  -■  - 

0348  ^''<Ase  ;  4-bit  transfers  on  the  low  nibble  of  the  PORT 

0349  ; 

0350  SEND_CMD  .......... 


0074 

00B6 

0351 

MOVWF 

CHAR 

; 

Character  to  be  sent  is  in 

0075 

2083 

mm  • 

•■'  CALL 

BOSY_CHECK 

_ ; 

Wait  for  LCD  to  be  r«ai^ 

0076 

M'6 

ms3  • 

tSffl»,"  M  " 

0077 

StOF 

mm  ■ 

'  ■OjcOF"  ■  • 

■  !• 

0078 

008  g 

•m^ ' 

MOVWF 

LCD_PATA 

t 

Send  data  to  LCD 

0079 

1085 

0356 

BCF 

LCD_CNTL, 

R_W 

Set  LCD  to  read 

007A 

1105 

0357 

BCP 

LCD_CNTL, 

RS 

Set  LCD  to  command  mode 

007B 

1405 

0358 

BSF 

LCD_CNTL, 

E 

toggle  E  for  LCD 

007C 

1005 

0359 

BCF 

LCD_CNTL, 

E 

007D 

0836 

0360 

MOVF 

CHAR,  W 

007E 

3»0F 

0361 

Kemm 

OxOF 

Oet  lower  nibble 

007F 

0086 

03B62 

MOVWF 

I£D_P&TA 

1 

Send  data  to  LCD 

0080 

1405 

0363 

BSF 

E 

1 

toggle  B  for  LCD 

0081 

1005 

0364 

BCF 

0082 

0008 

0365 

RETURN 

0366  ; 

0367 

endif 

b 

0368 

else 

0369  ;  -     -        <^»n'-;  '• 

v^^O  I  «**««*«***«aiigi»*«*«wieMt*]wa6»:«******«*i«wi>«i^ 

t*  SBiro_(W=«-'mds  «Slfaand  contained '  ' 
^Ai'ThtS  routine  sends  the  entire  character  to  the  FORT  * 
;•  The  data  is  transmitted  on  the  PORT<7iO>  pins  * 


0374 

0375 
0376  : 
0377 
0378 
0379 

em,' 

0382 
0383 
0384 
0385 
0386 
<S87 

ams 


********* 


*********** 


****************** 


MOVWF 
CALL 
MOW 
MDVWF 
•BCF 
BCF 
BSF 
BCF 

RETUBN 


CHAR 

BUSY_CHECK 
CHAR,  w 
LCD_;»TA 
LCD_CNTL,  R_W 

LCD_CNTL,  RS 
LCD_CNTL,  E 
LCD_CIITL,  E 


;  Command  to  be  sent  is  In  W 

Send  data  to  LCD 
Set  LCD  In  read  nedM 
Set  LCD  in  aoamaaiS  wigSa 
toggle  E  for  LCD 


endif 


0391 

0392 
0393 
0394 
0395 
0396 
0^ 

asm 

mm- 1 

0401  Busy_cinKat 


i£  {  FouC3»it  ) 
if  (  DataJIl  ) 


;  4-bit  transfers  on  the  high  nlld>le  o£  the  POST 


********** 


************** 


**************** 


*  This  routine  checks  the  busy  flag,  returns  vAien  not  busy  * 

*  Af£«et«i  :    -  i^.  ivr        ■  •  •'  ;v.  * 

*  Maw  KD-HeturiMia -with  busy/addresB  '  "  V  •* 
.iif«#**jiHr*************************************************  *********** 


0402 

BSF 

STATUS,  RPO 

;  Select  Register  page  1 

0403 

MOVLW 

OxFP 

;  Set  Port_D  for  input 

0404 

MOVWF 

LCD_DATA_ 

TRIS 

0405 

BCF 

STATUS,  RPO 

;  Select  Register  page  0 

040« 

RS 

;  arifr  I>@&  4oi^ -CaaBngaKi  nods 

04W' 

R_W 

;'■  Smx^'WiMiSIB&y  flag 

04t^ 

LCD_CNTL, 

E 

;  Set  E  high 

6im 

BCF 

LCD_CNTL, 

E 

;  Set  E  low 

0410 

MOVF 

LCD_DATA, 

W 

;  Read  upper  nibble  busy  flag. 

0411 

ANDLH 

OxFO 

;'  &IS\  out  lower  nibble 

0412 

MOVWF 

TEMP 

0413 

BSF 

LCD_CNTL, 

B 

•  ^i^i^le  M  to' g«t -lower  nibble 

0414 

BCF 

LCD_CNTL, 

E 

041S 

w 

;  Read  lower  nibble  busy  flag, 

0*16^ 

;  lUiOlit  oat  u{$er"nibble  ''■ 

0417 

TEMP 

;  Combine  nibbles 

0418 

BTPSC 

TEMP,  7 

;  Check  busy  flag,  high  =  busy 

0419 

GOTO 

BUSy_CHECK 

;  If  busy,  check  again 

0420 

BCF 

LCD_CNTL , 

R_W 

0421 

BSF 

STATUS,  RPO 

;  Select  Register  page  1 

0422. 

mvm 

-      t      ■    ■    -  ■  1 

■)»«)  Jtfri. 

C-i..  -  M?.- 


0083  1683 

0084  30FP 

0085  0086 

0086  1283 

■mn  lies 

cftSA  'tees 

008b  0E06 
008C  39F0 
008D  00B5 
008E  1405 
008F  1005 

OOSl  390? 

0092  04B5 

0093  1BB5 

0094  2883 

0095  1085 

0096  1683 

0097  30F0 

0098  0086 

0099  1283 
009A  0008 


0423 
0424 

Uis 

0426 
0427 
0428 
0429 
0430 
0431 
0432 

''if»3 
stu 

0435 
0436 
0437 
0438 
0439 

e«4o 
mi 
mt2 
mm 

0444 
0445 
0446 
0447 
0448 

emo 

'■4tS2 
<I493 
0I«S4 
0455 
0456 
0457 
e4S8 
■'US9 

iiem 

0462 
0463 
0464 
0465 
0466 
0467 
0468 
««B9 
St90 


MOVWP      LCOJJATJCTRIS      ;  Set  Port_p  for  output 
BCP  S*MB«'*^''''''?'*Mm>T«P:«««*-1S4iiP'-0^^ 

e  ''         ;  4-bit  transfers  on  the  low  nibble  ctf  the  VeX^ 


******************************  *  * 


A  ****************** 


*  This  routine  checks  the  busy  flag,  returns  when  not  busy  * 

*  Affects:  * 

*  TEMP  -  Returned  with  busy/address  * 
******  ****#iNt**-**  **************#*********************  ************** 


BUSY_CHBCK 


MOVLW 
MOVWF 
BCF 


SRftFF 

BOVWF 

BSF 

BCF 

new 

ANDUf 
lOHMF 
BTPSC 

GOTO 

BCF 

BSF 

MOVLW 

MOVWF 

-BCF 


STATOS,  RPO 

OxFP 

LCD_DATA_TRIS 
STATUS,  RPO 
'£|GQ_CI1TL,  RS 
8CD_C11TL,  BJB 
•HSDJltlBi,  B 

LCD_DATA,  W 

OxFO 
TEMP 

LCD_CNTL,  E 
LCD_CNTL,  E 
tiGOJOATA,  W 
OxOF 
TEMP,  F 
TBKP,  7 
BUSY_CHECK 
LCD_CNTL,  R_W 
STATUS,  RPO 
OxFO 

LCD_DATA_TRIS 
'■STATUS,  RPO 


Bank  1 

Set  PortB  for  input 
Bank  0 

Set  LCD  for  Coinmand  mode 
Setup  to  read  busy  flag 
Set  E  high 
Set  E  low 

Read  upper  nlUsle  busy  flag,  DDRain  address 
Mask  out  lower  nibble 

Toggle  B  to  gat  lower  nibble 

R««d  lower  iflbialle  Msy'flag,  DDRain  address 

l^k  out  tq^per  albble 

Ccnblaa  nibbles 

C%eck  busy  flag,  high  =  busy 

If  busy,  check  again 

Bank  1 

RB7  -  4  =  inputs,  RB3  -  0  =  output 
Bank  0 


endt't 


else 


*********************************************** 


*  This  routine  cheeks  felii  bu%  flag,  returns  wfaen  not  busy  * 

*  Affects!  ■"      l^'  '  * 

*  TBMF RetutB«d'«ith  blisy/addiE^ss  •  -  * 

**********«~********^%^*>.t****;********1k.^«>*****«/«**«**  ********** 

BDSY_CHBCat  WJ-.' 


CO 


0471 

BSF 

STATUS,  RPO 

Select  Register  page  1 

0472 

MOVLW 

OxFF 

Set  port_D  for  input 

0473 

MOVWF 

LCD_nATA_ 

TRIS 

0474 

^  BGF 

STATUS,  RPO 

Select  Register  page  0    -  * 

'BCP 

-liCSrcajTL, 

RS 

Set  LCD  for  cononand  mode  ~ 

0476 

BSF 

LCD_C1JTL, 

R_W 

Setup  to  read  busy  flag  • 

0477 

BSF 

LCD_CNTL, 

E 

Set  E  high 

0478 

BCF 

LCD_CNTL, 

E 

Set  E  low 

0479 

MOVF 

LCD_DATA, 

w 

Read  busy  flag,  DDram  address 

0480 

MOVWF 

TEMP 

0481 

BTFSC 

TEMP,  7 

Check  busy  flag,  high=busy 

oMa 

GOTO 

BUSY_CHECK 

OifrS- 

BCP 

LCD_CNTL, 

R_W 

oiti 

Select  Regloter  page  1 

0485 

0SI96  '~-  : 

:  .1 

0486 

LCD_DATA^TRIS 

Set  port_p  for  output 

0487 

BCF 

STATUS,  RPO 

S*leet  Register  page  0 

0488 

RETURN 

0489  ; 

k  1 "».'    '->''  f  -i. tt.i 

0490  endif 

, 

,  •   .■          r             y.  '  •• 

www  ; 

OiWTabla 

009B 

0782 

0«M 

PCS, 

;Juiiip  to  char  pointed  to  in  W  reg 

009C 

344D 

04tS 

•M' 

009D 

3469 

0496 

retlw 

'  i ' 

009B 

3463 

0497 

*  c ' 

009F 

3472 

0498 

retlw 

OOAO 

346F 

0499 

retlw 

'o' 

OOAl 

3463 

0500 

retlw 

'c' 

3im' 

ostt 

>^«.-  JalT 

2 

V  ---J;. 

o«ja*3»«» 

r1i%lw 

-tS--  '-!<  ■ 

0SA4 

3470 

0503 

retlw 

'p' 

00A5 

3420 

0504 

retlw 

00A6 

3454 

0505 

retlw 

■T' 

00A7 

3465 

0506 

retlw 

'e' 

J  ■  ■           ■'51  - 

00A8 

3463 

0507 

retlw 

»c' 

00A9 

3468 

0508 

retlw 

>h' 

OOAA 

34eE 

0509 

retlw 

*n' 

OOAB 

346F 

0510        •  ' 

retlw 

>o' 

00  AC 

34  6C 

0511 

retlw 

'1' 

00  AD 

346F 

0512 

retlw 

'o' 

OOAE 

3467 

0513 

retlw 

'g' 

OOAF 

3479 

0514 

retlw 

>y' 

0515  Table. 

End 

OOBO 

3400 

0516 

retlw 

0 

BSlf " 1 

osis- 

if 

(  (Table  &  OxOFF) 

>=  (Table_End  «  OxOFF)  ) 

HESSG     *Wamlit9  -  Vsalr  Defindedt  ftlble-^ble  croieis' page  boundry 

0520  endif 
4»CJ  0521  •  VDIS 

RIH  0522  ' 

0523''" 

0S24 

•■-  0523  and 

w  r.  ,      X  0526  ■ 

0527 

Q528  "''jt 
0529 

0538  " 


HPASU  00.00.68  Intexmediate 


0   Ift^lH  if 


LH032L.ASM      6-8-1994  5:29:26 


XHSXiSB  ms  {'X'  =  Vhad,  =  tn>uiiad) 


OOOO  ;  x-xxxxxxxxxxxx  xxsCoxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 

0040  ;  xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 


0080  :  xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  xxxxxxxxxxxxxxxx  X- 

OOCO  1   


All  other  memory  blocks  unused. 


Errors  :  0 
Warnings  t  13 


NOTE:     :^ecial  Function  Heglst^^data  xsestc^ir]^  Ideations  in  Sank  Ir  ar9 
specified  by  their  true  ftddreae' tin' (Jjne         Ci  " 


rne  usa  ot 


«PP@ii@|]CE:LM(»2L.H 


nolist 

This  is  the  cuat<m  Header  File  for  the  real  ttige  Gle«^  ■tl0i,i0mAiaa  ^fce 
PROGRAM:  CLOCK. R 

Revision:  5-10-94 

****************************************************************************** 

This  is  used  for  the  ASSEMBLER  to  recalculate  certain  frequency 
idant  variables.  The  value  o£  Dev^req  must  be  changed  to 


Dev_Fx©(3 

DB_HI_BKTE 

LCD_Iin:TJ5BLi«f 

INNER_CNTR 

OUTER_CNTR 

EQ17 

ago 

BQO 

D' 4000000'         ;  Device  Frequancv  la  4  MBz 

(HIGH  (((  Dev_Freq  /  4  )  *  1  /  D'lOOO'  )  /  3  )  )  +  1 

mOB  (((  DevJFreq  y  4  )  •  ©'4«'  /  D'lOOOO-  )  /  3  )  )  +  1 

to                  1  toM  Laetttion 

41                    ;  MSI  I>oo«^i<m 

TIOSO 

BQO 

0 

;   The  RCO  /  TIOSO  /  TICKI 

RESET_V 
1SR_V 
PMEM_END 
TABLE_ADDR 

BBO 

BQU 
EQU 
EQU  • 

0x0000 
0x0004 
Ox07FF 
0x0400 

;  Address  of  RESET  Vector 
;  Address  of  Interrupt  Vector 
;  Last  address  in 'feogran  Memory 
;  Address  where  to  start  Tables 

HR_MIN_SW 

INC_SH 

CLR_MIN_SW 

BQU 
BOO 
EQU 

0x7 
0x6 
0x5 

;  The  switch  to  select  the  units 

;  The  switch  to  increment  the  selected  units 

;  The  switch  to  clear  the  minutes  and  seconds 

FLAG_RBO 

1  ^  1  1 

 1  ^ 

(fcc02S 

;  Register  which  contains  flag  bits 
 1  !• 

;    I  *M  1  - 

-     1  KS5t_IliIHJT  1 
 1  V 

 1  > 

-    1    -  1 

 1  ^ 

M1N_UHIT  1  mLJJNIT  | 
 1  (■ 

;   i  1  1 

AH 

EQU 

0x07 

;  Flag  to  specify  if  AM  or  PH 

KEYJNPOT 

BQU 

0x04 

;  Flag  to  specify  if  doing  key  Inputs 

MIMJONIT 
HR_UNIT 

EQU 
•BQU 

0x01 
0x00 

;  Flags  to  specify  which  units  to  operate  on 
;     (KRS,  HIN,  or  none) 

HRS 
MIN 
SECS 

l«!U 
&QU 
EQU 

0x030 
0x031 
0x032 

;  Holds  counter  value  for  HOURS 
;  Holds  counter  value  for  MINUTES 
;  Holds  counter  value  for  SECONDS 

LSD 
•CEtSP 

CHAR 


0x033 
0x034 
0x035 
0x036 


WAIT_aiTR 


LCD  nodule  comBiBds 


0x040 


I 


OISP.CN 
DISP_ON_C 

DISP_ON_B 

D1SP_0FF 

CLR_DISP 

ENTRY_INC 

EIJTRY_INC_S 

BNTRy_9SC 

Etmrjmc_$ 

IXLRMtJUJDR 
DD_ItAHJDL 

; 


EOO 
EQU 
ES^ 
BQD 
BQU 
EQU 
EQU 
EQU 
E^ 

Eoa 


list 


OxOOC 
OxOOB 

OxOOF 
0x008 
0x001 
0x006 
0x007 
0x004 
0x005 
0x080 
0x080 


Temporary  register,  Holds  Host  Significant  Digit  of  BIN  to  BCD  conversion 
Temporary  raglstec,  Xal^  £isw#k  SlfpiiCl^ast  ENlylt  bM  SIN  to  BCD  conwralon 
Tanvorary  reglstar 

Temporary  register.  Holds  value  to  send  to  LCD  nsdal*. 
Counter  that  holds  wait  tine  for  key  it^uta 


Dl^lay 

Di^lay  on,  Cursor  on 

Display  on.  Cursor  on.  Blink  cursor 
Display  off 
Clear  the  Display 


Least  Slgnlficemt  7-blt  are  for  address 
U^per  Left  coner  of  the  Display 


.^A  Hi  ' 


^^^^  -.v4  «lub<:r .  . 


.lev  jirtt.  /'I 


AN580 


Using  Timerl  in  Asynchronous  Clock  Mode 


INTRODUCTION 


!■!;•  Ei-'  ■'■■u'.ifl\>::K  (tiff 
'•ji-j-  i jie->;ii»\'!€ 

,  .        :■  -      -   -.   -,-]  :;r.ir'i'ir,. 

this  application  note  discusses  ttie  use  of  the  Hmerl 
module,  of  the  PIC16CXX  family,  for  an  asynchronous 
dock.  The  Timerl  module  has  K  own  oscilator  circuitry, 
which  allows  the  timer  to  kaep  real  time,  even  when  the 
device  is  In  sleep  nKxfe.  When  the  device  is  in  sleep,  the 
oscillator  will  continue  to  Increment  Timerl .  An  overflow 
of  Timerl  causes  a  timerl  Intemjpt  (If  enabled)  and  will 
wake  the  processor  from  sleep.  The  interrupt  service 
i«iinei  iian  <aHi  disihe  desired  task. 

mmmmr 

Timerl  Is  a  1 6-blt  counter  with  a  2-blt  prescaler.  Timerl 
can  be  incremented  from  eitfier  the  internal  clock,  an 
external  clock,  or  an  extemal  oscillator.  Timerl  can  be 
configured  to  synchronize  or  not  synchronize  the  exter- 
nal clock  sources.  The  asynchronous  operation  allows 
timerl  to  Increment  when  the  device  is  in  sleep.  Figure 
1  is  a  triock  diagram  of  Tntsii. 

To  set  up  Timerl  fcH-Msyndwonous  operatkmttte  timerl 
control  register  (Tl^ttiQ  must  have  the  f6lk>wing  bits 
configured: 

•  TMRf  CS  set  (extemal  clock  source) 

•  Tf  CKS<1 :0>  «M|gui»d  for  the  desired  prescaler 

•  T1 INSYNC  set  (asynchronous  operatkxi) 

•  TMR10N  set  (enables  Timerl) 

•  Slit  f  f  Msicm  an  external  oscilator 


In  asynchronous  operation,  if  the  clock  source  Is  an 
external  ckx:k,  the  ckx:k  must  be  on  the  T1 CKI  pin.  If  the 
dock  source  is  a  crystal  oscillator,  the  crystal  is  con- 
nected accross  the  T10S0  and  TlOSljuns.  Please 
referto  the  device  DMa  Sheet  for  recommendedcapaci- 
tor  selection  for  the  Timerl  oscillator. 

When  using  Timerl  in  asynchronous  mode,  the  use  of 
an  extemal  ck>ck  minimizes  the  operating  and  sleep 
currents.  This  Is  because  the  oscillator  circuitry  Is  dis- 
abled. Though  the  extemal  ckx;k  may  give  the  tower 
de\Hce  currents,  the  use  of  a  crystal  oscillator  may  lead 
to  lower  system  currant  consumption  and  system  cost. 

System  current  consumption  can  also  be  reduced  by 
having  the  timerl  overflow  interrupt  wake  the  processor 
from  sleep  at  the  desired  Interval,  With  a  32.768  KHz 
crystal,  Timerl 's  overflow  rate  ranges  from  2  to  16 
seconds,  depending  on  the  prescaler  chosen.  Table  1 
shows  timerl  overflow  times  for  various  crystal  frequen- 
cies and  prescaler  values. 

TABLE  1:  TIMER1  OVERFLOW  TIMES 


Proscaler 

32.768 

Frequency  (KK 
100 

200 

1 

2  Seconds 

0.655 

0.327  Seconds 

2 

4  Seconds 

1.31  Seconds 

0.655 Seconds 

4 

8  Seconds 

2.62  Seconds 

1.31  Seconds 

8 

16  Seconds 

5.24  Seconds 

2.62  Seconds 

FIGURE  1:  TIMER1  BLOCK  DIAGRAM 


TMR1IF 
Overflow 
Interrupt 


TIWR1H 


TMR1L 


T10SO/ 
T1CKI 


TMR10N 
on/Mf 


T10SCEN 

Enable 

Osciljalprf 


OSC/4 
Internal  - 
CIcck 


T1INSYMC 


J, 


Synchronized 


clock  Input 


Prescaler 
1,2,  4,8 

— ( 

1— 

Synchronize 
jTdet 

J  TMR1CS  TiaCP$<1.«> 


Sleep  input 


t  Wtien  the\^jpt|CiN<b)t  j»<eiqH«d,  the  Inverter  and  feedback  resistor  are  turned  off.  This  elinninates  power  drain. 
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Alt  can  be  seen  the  32  Khz  crystal,  gives  very  nice 
awarflow  rates.  These  crystals,  refered  to  as  watch 
crystals,  also  can  be  relativly  inexpensive.  In  many 
applications  the  2  second  overflow  time,  of  a  32  KHz 
crystal,  is  too  long.  An  easy  way  to  reduce  the  the 
overflow  time  is  during  the  interrupt  sen/ice  routine,  to 
load  the  TMR1 H  register  with  a  value.  Table  2  shows  the 
overflow  times,  depending  on  the  value  loaded  into  the 
TMR1H  register  and  a  prescaler  of  1 . 

TABLE  2:  TMR1H  LOAD  VALUES /TIMER1 
OVERFLOW  TIMES 


TMR1H  Load  Value 

Overflow  Time 

(@  32.768  KHz) 

80  h 

1  Second 

COh 

0.5  Seconds 

EOh 

0.25  Seconds 

FOh 

0.125  Seconds 

T'._. 

'•Note:  Th©  loading  of  either  TMR1H  or  "T^IMP 

causes  the  prescaler  to  b©  cleared.  When 
Timerl  is  n  operation  extreme  care  shoukJ 
be  taken  ki  rnodifying  either  th9  TMR1H  or 
l^-j       TMRIL  registore."  ?";,^°ni"'!iMii,miimi2Mi!£^ 

n«  OQds  segRMnt  shown  in  Qcample  1  initializes  the 
Timeii  mockrie  for  asynehronous  mode,  enables  the 
Tlmrl  MMIflfit,  and  ^  Mernipt  service  routine 
the  TMRIHrealrfer  with  *iiliB'j  J-.irv. 

CONCLUSION 

Timerl  gives  designers  a  powerful  timebase  function. 
The  asynchronous  operation  and  oscillator  circuitry 
gives  designers  the  ability  to  easily  keep  real  time,  while 
minimizing  power  consumption  and  extemal  logic. 
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miiMil:  IMI^  CODE  SEGMENT  FOR  ASYNCHRONOUS  OPERATION 


org  0x000 
Reset_V  GOTO 


org  0x00* 

y 

BCF 
BTFSC 


STATUS,  RPO 
PIRl,  TMRllF 
tl_OVHlL 


Shottld  MMft  0Bik  bare 


BSF 
BCP 


wtmf' 


PORTD,  1 
PORTD,  1 
StSfiRl 


PIRl,  IHRIIF 
0x80 

•amm 


Bank  0 

Timer  1  overflowed? 

YBS,  Service  the  Timerl  Overflow  Interrupt 


MD,  XJtAnam  Internet  Source 
Toggle  a  port  pin  to  Indicate  error 


;  Clear  Timer  1  Interrupt  Flag 

;  Since  doing  \iey  iiqputs,  clear  TMRl 

;      for  1  aec  overflow. 

;  Do  Interrupt  stuff  here 

;  Return  /  Enable  Global  Int^rupta 


CLRP 


STATUS 

nam,  tmrion 


exso 

THRIB 

TMRIL 


;  VOSBRjaS  Reset  (Seginnii^  of  program) 

;  Do  initialization  (Bank  0) 

;  Tiinar  1  is  MOT  incramenting 

I  Do  Initialization  stuff  here 

;  TmiH:  TMRIL  =  0x8000  gives  1  second 
;      overflow,  at  32  KHz. 


CLRF 
CLRF 
BSF 


INTCON 
PIRl 

STATUS,  RPO 
PIBl 


if  (  dijmjk ) 
asi 


f  1SISC,  TIOSO 

fIBl,  mRlIB 
;  S^!fcUdLi(fsl>  Ite  %eeial  Function 


;  Bank  1 

;  Disable  all  peripteral  interrupts 
;  See  PIC16C74  Brrata 

;  RCO  needs  to  be  ii^^t  for  the  oscillator  to  function 


•  fiiable  HSU.  Interrupt 
Registers  (SFR)  intemq>ts 


BCF 

STATUS,  RPO 

;  Bank  0 

CLRF 

PIRl 

BSF 

INTCON,  FEIE 

;  Enable  Peripheral  Interrupts 

INTCON,  GIE 

•  liable  all  Interrupts 

MOVLW 

QxOV 

MOVWF 

;  Enable  Tl  Oecillator,  Ext  Clock, 

mf 

Ticca?,  TMRION 

;  Turn  Timer  1  ON 

zzz 

;  Sleep,  wait  for  TMRl  interrupt 
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INTRODUCTION 

This  application  note  implements  a  low-power  real  time 
clock  using  tlieTimerl  module  of  the  PIC16CXX  family 
of  processors.  Timert  oan  operate  from  its  own  crystal 
source,  which  aflows  the  tMSr  J0 1 
device  is  in^^  mode.' 
to  minimiz«4i«  eumant  's!omm»i0iiShi-J(USfsV«tM^ 
thati»qiA«pocessin&M(ill!ll«Mi1M 
Ibasaam  »kiBYin$»tmMM^*meliamiim:  < 

OPEIWlTIDN'  '''    '  ts  -oiKtii*  urU  L  :  .1)  li.. 

■  L  ■! '  '  rr'<  .r-.(»iT>irg<i>»Bwrjoto 
Upon  power-up,  the  d0vlce#»wiMNMMMalali^^ 
state  sets  the  display  to  1 2:00  PM  and  waXs  for  Hmerl 
to  generate  an  interrupt  (every  second).  The  Timert 
overflow  intemipt  wakes  the  device  from  sleep  This 
causes  the  time  registers  (HRS,  MIN,  SECS)  to  t>e 
updated.  If  the  SECS  register  contains  an  even  value 
(SECS<0>  =  0),  the  colon  (':")  is  not  displayed.  This 
gives  a  visual  IndiElitlsn  for  each  saoorid. 

There  are  three  ke^s  for  ttw  siting  of  ttie  clock.  The 
SELECT.UNITS  Key  (SI)  aato^wMcti  utrilsareto  be 
modified  (hours,  iranutes,  OR).  The  setoeted  uhHs  are 
blanked  for  a  second  then  flashed  forone  saeond.  The 
INC  Key  (S2)  increments  the  Miiactad  yrdte. 
incrementing,  the  selected  units  are  displayed.  After  a 
key  has  not  been  depressed  for  more  then  one  second, 

FIGURE  1:  CLOCK  BLOCK  DIAGRAIM 


the  selected  units  will  begin  to  flash.  The  CLR_MIN 
Key  (S3)  clears  the  minutes  and  seconds.  CLR_MiN  is 
useful  for  exactly  setting  the  time  to  the  "top  of  the  hout" 
as  announced  In  radio  broadcasts.  After  the  INC  or 
SELECT_UNiTS  keys  are  depressed,  the  userhds  t«i 
seconds  to  depress  the  nextlc^.  AStor  Mi^l^K^^Men 
depressed  for  ten  seconds,  the  (i^'^IQR^#Wlra1£>clc 
mode. 

To  simplify  the  design  time,  a  standard  Hitachi  LCD 
display  module  is  used.  In  most  applications  requiring  a 
LCD  display,  a  custom  LCD  display  Is  used.  The  LCD 
Interface  software  would  need  to  be  modified  to  suit  the 
specific  LCD  display  driver  being  used. 

FigMna  1  is  a  block  diagram  of  the  design.  RA<2:0>  are 
the  control  signals  to  the  LCD  display,  RB<3:0>  is  the  4- 
blt  data  bus,  and  RB<7:5>  Is  the  input  switches.  The 
OSC1  pin  is  connected  to  an  RC  network,  which  gener- 
ates approximately  a  4  MHz  device  frequency.  The 
device  frequency  does  not  need  to  be  stable,  since  the 
Timerl  module  operates  asynchronously.  This  allows 
the  devlce'sosclllaorto  be  configures  for  RC  mode.  This 
oscillator  mode  is  the  least  expensive  and  has  the 
quickest  start-up  time.  Timerl  is  where  the  accurate 
frequency  Is  required.  This  crystal  Is  connected  to  the 
T1 OSI  and  T1 OSO  pins.  A  good  choice  for  a  crystal  Is 
a  32.786  KHz  (watch)  crystal.  Table  1  is  a  list  of  the 
components  and  their  part  number. 


Vab- 


Vas- 


"V&s' 


T1CSO 

T10SI 


RA2 
RA1 

06C1  0SC2  RAO 


4mz 

—I  I— 


? 


hS3  hS2  , 

i  i  i 


14 

13 

2 

12 

11 

4 

6 

1 

e 

3 

10 

LCD 

9 
8 

Modufc 

7 

J 


10K 

33° 


3-99- 


DSOBiQe^^age  t 


Low-Power  Real  Time  Olo^tc 


Relative  to  most  microelectronics,  the  LCD's  are  slow 
devices.  A  good  portion  of  the  time  spent  in  the  Interrupt 
Service  Routine,  is  talking  to  and  updating  the  LCD 
module.  To  minimize  power  consumption,  the  device 
tfl^  !i%  KlKa  slMp^^fnoctd^^^       as  possible. 

By  usmg  the  conditional  assemble,  if  a  flag  (called 
Debug)  is  true,  the  total  time  spent  in  the  subroutine  can 
be  seen  on  the  PORTD<0>  pin  (the  high  time).  Measur- 
ing this  time  on  an  oscilloscope  displayed  a  typical  time 
of  800  uS  that  the  device  is  awake.  This  800  uS  opeta- 
fion  is  out  of  the  1  second  time  that  the  devtee  needs  to 
service  the  interrupt  (a  TMR1  overflow). 

The  accuracy  of  a  real  time  clock  using  Timerl  depends 
on  the  accuracy  of  the  crystal  being  used.  The  more 
accurate  the  crystal,  the  higher  the  cost.  So  as  always 
there  is  a  cost  /  performance  trade-off  to  be  made.  A 
crystal  rated  with  an  accuracy  of  20  PPM  (parts  per 
million),  could  cause  an  error  of  about  1 .7  seconds  per 
dey.  F^>r  many  applicatbns,  this  should  be  adequate 
(seikl  from  someone  who  doesn't  wear  a  watch). 

The  program  presented  here  shows  one  method  for  a 
real  time  clock.  Trade-offs  between  code  size,  current 
consumption  and  desired  operation  have  been  made. 
Some  possible  alternative  implementations  are: 

VVhgjj,djspls95|ng.thelinie,  Mpd^.^^ 
-r^t^tnatdwviged. 

2.  Tum  off  the  display  during  sleep 

3.  LCD  module  data  interfacg  of  8-bits,  not  the  4-bit 


Alternative  1  can  reduce  the  time  awake,  by  keeping 
track  of  which  characters  need  to  be  updated.  The 
majority  of  the  time  it  will  be  only  the  position  which 
contains  either  the ":"  or  the Next  would  be  the  ones 
place  of  the  minutes,  then  the  tens  place  of  the  minutes, 
etc.  The  display  would  only  need  to  be  completely 
updated  2  times  every  24  hrs.  This  would  reduce  the 
amount  at  time  talking  with  the  LCD  display  at  the  cost 
of  some  pragtam  /  data  memory. 

Depending  on  the  requirements  of  the  applicatkxi  and 
the  characteristtos  of  the  display,  alternative  2  could  be 
implemented  by  turning  the  power  off  and  on  (at  a  given 
rate)  to  the  display.  This  technique  may  lead  to  a  tower 
system  current  consumption.  Evaiuatnn  upon  the  de- 
sired display  /  display  driver  is  recommended. 

Alternative  3  uses  the  LCD  module  in  an  8-bit  mode,  will 
reduce  the  size  of  the  display  routines  (save  about  20 
words  of  program  memory)  at  the  cost  of  four  additional 
I/O  lines.  For  some  applications  this  may  be  a  good  trade 
off  to  get  the  additional  program  memory  space.  The 
percentage  of  operating  time  saved  is  slight  and  should 
not giwn lawfculjulpiwMr  >,'»i>  woq-xjq<.< 

I  It.;  ^.lir.wbna  k'S  0,  •>!  ■.  ,.'lt;Mte:t»f  atrb 
(HtfiiH'  -^X   ybro:'  ,1  '    '  •■  •-.•■'iTt^ 

eitfT  ruote  c  .       .  >         ^  ,  ,.    '  ' 

.:vS  ■        ,   -   -I  ?  1' 
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TABLE  1:  LIST  OF  COMPONENTSt 


Description 

Part  Number 

MMinflMtiirar 

Quantity 

LCD  Module  (2x20  Chaiactwistics) 

LM032L 

Hitachi 

1 

Switches 

EVQPAD04M 

Panasonic 

4 

Mtorocontroller 

»i^'%licrochip 

1 

32.768  KHz  Crystal  ' 

NC26/NC38 

FOX 

1 

4  MHz  Crystal 

ECS-40-20-1 

ECS 

1 

f  Most  components  available  from  DigiKey. 
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CONCLUSION 

The  Timerl  module  allows  many  applications  to  include 
a  real  time  clocic  at  minimal  wfalim\  cost.  This  time 
lunction  can  be  useful  in  consumer  applications  (display 
tfcne)  as  well  as  in  industrial  applications  (data  time 
stamp).  The  accuracy  of  the  time  Is  strictly  dependent  on 
the  accuracy  of  the  crystal.  Table  2  shows  the  program 
rssouica  requirements. 


TABLE  S!:  PClOMm  RiSOUROE  RiQUIRSMieiTS 


Resource 

Words  /  Bytes 

CfRlH 

Program  Memory 

initialization 

61 

61 

Clocl<  Operation 

Increment  Time  W.C. 

106 

35  +  Display 

Key  Input  W.C. 

35  +  Display  Time 

Data  Memory 

Displayt 

208 

526t 

Variables 

5 

N.A. 

Scratch  RAM 

4 

NA 

t  Dependent  on  LCD  MMUlto  {re:  BUSY.CHECK  subroutine) 

t  fmsumas  woffilawa  nmnbers  and  best  case  response  from  LCd  nmdule. 
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HPASM  01.01  Releasied 


LOC     OBJECT  CODE 


PASS  1: 


?r 

1 


0001 


SOURCE  TEXT 
LIST 

,  **********************************************  *******i(**«f 


16C74, 


1NHX8M,  n  =  66 


i  I'll 


0004  ; 

0005  ;  This  program  lii{>lenients  a  real  time  clock  using  the  THRl  module  of  the 

0006  ;  FIClSCxx  family,  k  LCD  display  module  Is  used  to  disj^lay  (update)  the 


0007  ;  tim  every  second,  nirea  keys  are  used  to  set  1^ 

ooos 

Program  =  CLOCK. ASM 
Revision  Date:  5-15-94 


0009 
0010 
0011 
0013 
0013 
0014 
0015 
0016 
0017 
0018  ; 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0233 
0027 
0028 
0028 
0029 


ti4e 


********************************* 


HARDWARE  SETUP 

LCD  Control  Lines 

RAO  =  E  (Enable) 

RAl  =  R_W  (Read/Write) 

RA2  =  RS        (Register  Select) 

LCD  DKta  Iiines 
BS«3 I 0> 

Swit^  Inputs 

RB7  =  Select  Hour  /  Minute  /  Off 
Rfi6  B  Increment  Hour  /  Minute 
RB5  •  Raset  Uinutes  to  00 

INGIBDE  <C74_reg.h> 


INCLUDE  <CLOCK.h> 


2J 


J! 
tli 


0006 

0030 

LCD_DATA 

EQU 

PORTS 

0086 

0031 

LCD_DATA_TRIS 

EQU 

TRISB 

0005 

0032 

LCD_CNTL 

EQU 

PORTA 

0033 

t 

0000 

0034 

ma 

FALSE 

0000 

0035 

Debug 

FALSE 

The  LCD  data  is  on  the  lowe^  4-bitB 
The  TRIS  register  for  tiw  LCD  daSA 
Three  control  lines  i£ 


A  Debugging  Flag 
A  Debuggiiui  Flag 


0001 

0036 

Debug_PU  EQU 

TRUB 

;  A  Debugging  Flag 

■J  ~ 

0037 
0038 

_   ,  ,Ii 

0039 

;  Reset  address.  Determln*  type  of 

] 

ESET 

0040 

Wilt 

ojfg  RESBir_V 

;  RB38T  veQtoi!i.loc«NtW  -i 

0000  1683 

0043 

tasa/c  BSF 

STATUS,  RPO 

»  Bank  1  ^ 

0001  18«B 

0043 

•rf'aTVl  BTFSC 

PCON,  POR 

;  Power-up  reset? 

0002  290C 

0044 

GOTO 

START 

;  YES  - 

0003  29pr 

0045 

GOTO 

OTHER_RESET 

;  NO,  a  WDT  or  MCLR  reset 

0046 

^v'Z  -no 

0047 

;  This  is  the  Periperal  Interrupt  routine.  Need  to  determine  the  type 

09«8 

I  o{  lnt«rr\qf|t  that  occurred.  The  followiiiB'lntecziN^i'e?e(«nabledt 

;      1.    KHKffii^Cbange  (RBIF) 

/UE       1  ■     •><•.  .ps  art'  ,■• 

0950 

>      2.    TWtl  OmmtXom  Internqpt  (TliF) 

AAC1 

; 

-  "7;~r:9 

nnc^ 
UU3^ 

org  ISR 

_v 

■ 

Interrupt  vector  location 

0054 

PER_INT_V 

0055 

if   (  Debug 

) 

0056 

bs£ 

POBSD;.i-,S 

Set  high,  use  to  measure  total 

UU3  / 

endif 

time  in  Int  Service  Routine 

0058 

Q004  12a3 

0659 

8CF 

STATOS,  RPO 

Bank  0 

UUU9  loUC 

0060 

BTESC 

PIRl,  TMRIIF 

Timer  1  overflowed? 

i\t\nc   'to A'i 

0061 

T1_0VRFL 

YES,  Service  the  Timerl;#lwClciP'«Ia*a£!eBp& 

UUU /  iuUS 

0062 

mrecai;,,  rbif 

NO,  Did  PORTB  change?,         s:--.    ^    ■  --^-^m 

0008  28190 

0063 
0064 
0065 

PORTB_FIAG 

vami 

HO,  Error  Condition  -  Unknown  Interrupt 
Are  any  of  PORTB' s  l^ute  eettve? 

0009  0806 

0066 

MOOT 

PORTB,  W 

00 OA  39B0 

0067 

OxBO 

; 

Keejp  only  the'3  •witc^'val'uea 

OOOB  00B5 

0098 

mSOUNCB  ttOVHF 

t 

UUUO  JUUZ 

0069 

'  MOVLW 

DBjnjYTB 

%i8  is  the  dUsounce  delay 

OOOD  08B3 

0070 

MOVF 

MSD 

OOOE  01B4 

0071 

CLRF 

LSD 

OOOP  0BB4 

0072 

KB_P_JiPl  DECFSZ 

LSD 

0010  280F 

0073 

GOTO 

KB_P_LP1 

0011  0BB3 

0074 

'.DBCVSZ 

0013  3B0F 

0075 

GOTO 

KBJDJ*1 

0013  0808 

0076 

QJDJIELAY  MOVF 

eORTBj'H 

0014  3919 

0077 

MEOH 

Keep  only  the  3  switch  values 

0015  02B5 

0078 

SUBWF 

TBHP,  F 

0016  1D03 

0079 
0080 

BTFSS 

STATUS,  z 

Is  the  Zero  bit  set? 

(switches  were  the  same  on  2  reads) 

0017  280B 

0081 

GOTO 

DEBOUNQB    .  . 

NO,  Try  another  read 

0018  00B5 

0082 

KEY_fIATCH  MOVWF 

TEMP 

YES,  need  to  see  which  is  depressed. 

r 

0093 

0019  3080 

0084 

HOVXM 

03(80 

; 

Since  doing  key  inputs,  clear  TMRl 

CO 


OOIA 

008F 

0085 

MOVWF 

TMRIH                  ;      for  1  sec  overflow. 

OOIB 

uaa 

0086 

CLRF 

TMRIL  1 

OOlC 

lOOC 

0017 

BCF 

PIRl,  TMRIIF      ;  Clear  Timer  1  Interrupt  Flag 

oeit 

OOID 

IFBS 

BTFSS 

TEMP,  HR_MIN_SW      ;  I|S  the  hourr-min-off  switch  depressed? 

OOIE 

2826 

eet« 

GOTO 

SELECT_DNITS           ;  YES,  specify  the  units  selectedrr^ ' 

OOIF 

1F35 

MM 

BTFSS 

TEMP,   INC_SW            ;  Is  the  inc  switch  depressed? 

0020 

282B 

OOiS 

GOTO 

INC_UNIT                   ;  YES,   Increment  the  selected  Units 

0021 

1EB5 

0093 

BTFSS 

TEMP,  CIiR_)llN_SW    J  Is  the  clear  minute  switch  depressed? 

0022 

2835 

0094 
0095 

OOTO 

CLRJJIN                      ;  1 

^S,  clear  the  minutes. 

DQII 

Ot«3 

MM 

;  8c 

>  key  natearaeeurMv  or  flalshed-with  Ports  Interrupt        me^  to  oltMS  Interrupt  condltlc»i. 

TttTfl 

IMif 

1 

OOIO 

OOM 

raD           ;  No  RB<7:5>  keys  are  depressed  (rising  edge  Int.) 

0023 

0886 

0099 

WUVff 

PSRTB,  F             ;  Clear  the  PORTS  mismatch  condition 

0024 

lOOB 

0100 

BCF 

INTCON,   RBIP       ;   Clear  the  PORTB  Int  Flag 

0101 

if 

(  Debug 

0102 

bcf 

PORTD,   0        ;  Set  low,  use  to  measure  total 

01:03 

endif 

time 

in  Int  Service  Routine 

0025 

0009 

0104 

RETFIE 

;  Return 

/  Enable  Global  Interrupts 

osos 

y: ... 

,[i~iir>a 

■"-'A   0,             ..  ..  ,  -     .            ii       ■  k  1  t, 

OiOT 

SCTJOKITS 

0026 

30FF 

oiot 

HOVLH 

OxFF 

0027 

OOCO 

0109 

MOVWF 

WAIT_CNTR 

WAIT_CNTR  has  LSb  set  after  each  SELECT  UNIT  key  press 

0028 

OAAO 

oite 

INCF 

FLAG_REG,  F 

Increment  the  pointer  to  the  MIN_UNIT :  HR_UNIT 

0029 

1620 

out 

BSF 

FLAG_REG,  KBY_INPUT 

002A  2875 

0112 

GOTO 

DISPLAY  : 

Flash  the  Display  of  the  selected  unit 

0113 

0114 

INC. 

.UNIT 

oom 

OICQ 

IBMun^          '  -^-ctVfOlgfJSimcimmimmtmii^^ezo  after  each  key  press. 

oo^c 

1820 

OIM 

'BI^SO^ 

Are  tjie  hoar  units  selected? 

002D 

285C 

0117 

GOTO 

INC_HRS 

YES,   Increment  the  hour  units 

002E 

ICAO 

0118 

BTFSS 

FLAG_REG,  MIN_01IIT 

Are  the  minute  units  selected? 

002F 

2823 

0119 

mn 

» 

GOTO 

CLR_RB 

NO,  Not  a  valid  key.  Clear  flags 

0030 

OABl 

Ota 

INCF 

MIN,  F 

YES,  Increment  the  minute  units 

0031 

303C 

0132 

OxSe^i-Q  r  ...  .  ;  -  , 

This;^  is  Decimal  60^ 

0032 

0231 

0123 

rWcet-.:!.-    i    .  - 

MIN  -  60  =  ? 

0033 

1D03 

01i34 

BTFSS 

STATDS,  Z 

MIN  =  60? 

0031 

2875 

0125 
0126 

GOTO 

DISFIAY 

NO,  display  time 

YES,  MIN  =  0  (use  code  from  CLR_MIN) 

0035 

OlBl 

0127 

CLRJHN 

CLRF 

MIN 

MIN  =  0 

0036 

3004 

0128 

MOVLW 

0x04 

Clear  the  seconds 

0037 

00B2 

0(39 

MOVWF 

SECS 

Initial  Second  count  =  4 

0038 

3080 

0130 

MOVLW 

0x80 

Clear  Timer  1,  for  1  sec  overflow 

0039 

008F 

OUl 

HSVHF.-> 

^BMOII*          Ok  Site  . 

003A  DISS 

0£32 

CLRF 

003B 

lOOC 

0133 

BCF 

PIRl,  THRIIF 

Clear  the  TORI  overflow  interrupt. 

003C  OICO 
003D  lABS 
003E  2875 
003F  lOAO 
0040  1020 
6^1  1220 
mt$  2*75 


0043  lOOC 

0044  1E20 

0045  284F 

0046  OACO 

0047  300A 

0048  0240 

0049  1D03 
004A  2875 
004B  OICO 

004D  1020 
004E  lOAO 


004P  3080 

0050  008F 

0051  0AB2 

0052  1F32 

0053  2875 

0054  3004 

0055  00B2 

0056  OABl 

0057  303C 

0058  0231 

0059  1O03 
OQSA  2875 
odSB  OlBl 
005C  0AB9 
005D  300C 
OOSE  0230 
005F  1D03 

0060  2867 

0061  IFAO 

0062  2865 

0063  13A0 

0064  2875 

mm 


M4«  ■•  ' 
6l|4  T1_0VRFL 

eits  . 
iiiil  - 

Wit 
1 


mi 


diss  ; 

01^9  IMC.TIHE 

01(S6 
01S7 

01S9 
0176 
0171 

0i7i  1NC_BRS 

0173 

0174 

0175 

0176 

0177 

0178 

Sits 


CLRF  WAIT_CNTR 

Mw:  TBKP,  cLiuaH_sw 

OOfrO  DISPLAY 

BCF  FLAG_REG,  MIN_nNlT 

BCF  FLAG_REG,  HR^DNIT 


^^it         PIRl,  TBRIIF 

FIiAO_JlBG,  KEY_INP0T 
INCjriME 
WA1T_C1ITR,  F 
^VLW  OxOA 
SOBWF      WAIT_CNTR,  W 
BTFSS       STATUS ,  Z 
GOTO  DISPLAY 
CLRF  WAIT_CNTR 
BCF  VCMSjiBS, 
BCF  FLMSJtEG, 
FLAG_REG, 


WA1T_CNTR  is  cleared  to  zero  after  each  key  press, 
la  the  clear  minute  switch  depresaed? 
NO.  Rollover  from  increment  key 
YES,  clear  ALL  relevant  flags 


••.H:'  'T'-  :  ■  »■  •  "HlJ,> 
clear  Timer  1  Interrupt  Flag 
Are  we  using  the  key  Inputs? 
NO,  Need  to  Increment  the  tine 
YES, 

10  counts  X  1  seconds 

Has  the  10  Sec  wait  for  key  expired? 

Is  the  result  0? 

NO,  Display  value 

YES,  Clear  WAIT_CNTR  '^'7 


MIN_UHIT 


MOVLW 

0x80 

MOVWF 

TMRIH 

sgcs;  F  ' 

SECS,  ^ 

GOTO 

DISPLAY 

MSVtw 

OxD4 

MOVWF 

SECS 

INCF 

MIN,  P 

MOVLW 

Ox3C 

SUBWF 

MIN,  W 

> 

BTPSS 

STATUS,  Z 

(xnq' 

DISPLAY 

cike 

Miii 

MKP 

HRS,  F 

t 

OxOC 

SUBWF 

HRS,  W 

BTFSS 

STATUS,  Z 

GOTO 

CK_13 

BTFSS 

FLAG_REG, 

AM 

GOTO 

SET_AM 

BCF 

PLAG_REG, 

AM 

GOTO 
^^0' 

DISPLAY 

AH 

1 

1  Second  Overflow 


;  W  =  60d 


It  Is'fi6W  i5ft«d,>i>ggle  AM  /  Pit 


Need  to  check  if  HRS  =  13 
Was  it  AM  or  PM 
Has  PM,  Needs  to  be  AM 
It  Is  PM 

It  is  AM 


CO 


0067  300D 

0068  0230 

0069  1D03 
006A  2875 
006B  OIBO 
006C  OABO 
006D  23ji 


006E  300C 
OOeP  20E3 

0070  3001 

0071  20E3 

0072  3006 

0073  20E3 

0074  0008 


0075  3080 

0076  2DE3 

0077  1A20 

0078  287D 

0079  20A4 
007A  30AO 
007B  20B2 
007C  28BB 


0D7D  018A 

0079  0820 

0080  0782 

0081  289F 

0082  2887 
0()S3  2893 

0084  30FC 

0085  05A0 
008C  3897 


0183 
0184 

li 

0187 
0188 
0189 
0190 
0191 
0193 

m 

0197 
0198 
0199 
0200 
t)201 
i||262 

mi 

02195 
0206 
0207 
0208 
B309 
0210 
'^2li 
6212 
0213 
0214 
0215 
0216 
0217 
Q218 

np 

022i) 
0221 
0222 
0223 
0224 

m§ 
oizi 

0228 

0229 
0230 
0231 


C!t_13 


lHIT_piSHtAy 


DISI>LA¥ 


MOVLW 

OxOD 

Cbmdk  It  1 

SUBWP 

HRS,  W 

BTFSS 

STATUS,  Z 

GOTO 

DISPLAY 

CLRF 

HRS 

INCF 

HRS,  F 

GOTO 

■  *» 

y 

MOVLW 

DISP_ON 

Display  On,  Cursor  On 

CALL 

SEND_CMD 

Send  This 

command  to  the  Display  Module 

MOVLW 

CLR_DISP 

Clear  the 

Display 

CALL 

SEND_CMD 

Send  This 

command  to  the  Display  Module 

MOVLW 

ENTRY_INC 

Set  Entry 

Mode  Inc.,  No  shift 

CALL 

SEND_CMD 

Send  This 

command  to  the  Display  Module 

RETURN 

•  I 

CALL 

SEND_CMD 

BTFSC 

FLAG_REG,   KEY_INPUT  ;   Do  we 

need  to  flash  the  selectected  units? 

GOTO 

FLASH_UNITS 

;  YES,  we  need  to  flash  selected  imits 

CALL 

LOAD_HRS 

;  NO,  do  a  normal  display 

CftU. 

L0AD_COL0N 

! 

CMJL 

LOADJUN 

1 

SOTO 

LOAD^  1 

PLASHJOMITS 


CLRF 
MOVE 

(iOTO 
GOTO 
GOTO 


This  clears  PCLATH,  This  table  in  Ist 

256  bytes  of  program  memory 
911^  |H;  ii3N_UNIT  bit  oia  non-zero 


UNIT_TBL_END 


MOVLW 
ANDWF 
GOTO 


PCL 

NO_DNITS 
HR_t»lITS 
MINJUNITS 

OxFC 

FLAG_RISQ, 
NOJtMITS 


_  !iT.ai. 

DO-  Display  e<rar;^lng. 
0  1    -  Flash  the  hour  units 
10    -  Flash  the  minute  units 

1'  i'    -  to  clear  FLAG_REG 

<HR_UNIT  :MIN_UNIT> 
0  0    -  Display  everything. 


if 


(  (DNITJTBL  S  OxOFF)  >=  (UlIIT_TBI,,jBND  &  OxOFF)  ) 

MESSG  "Warningt  Table  UNlTlSiB  6ross«i  page  boimdcy  in  coanputed  juiqp* 
endlf  - 


00S7  1C40 

0088  2880 

0089  3020 
ODSA  20D4 
008B  3020 
008C  20D4 

008D  1C40 
OOSE  20A4 

»08»  303A 

0090  20D4 

0091  20B2 

0092  28BB 


0093  20A4 

0094  303A 

0095  20D4 

0096  1C40 

0097  289C 

0098  3020 

0099  20D4 
009A  3020 
009B  20D4 

009C  1C40 
009D  20B2 
009E  28BB 


009F  20A4 
OOAO  303A 
OOAl  20D4 

odjb  ^86b 


00A4  0830 

0OA5  20C7 

00A6  0833 

00A7  2400 

00A8  20O4 

00A9  0834 


0232  HIL.UNI!rS 
19233 


4.I3iZ 


Im 

6241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0250 
02si 
0252 
0253 

ba54 

$255 
P2S6 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
6264 
6265 
0266 
6267 
6268 
0269 
6276 

osifi 

6272 
6273 
6274 
6275 
6276 
t>2i1 
6278 
6279 


GOTO 
HOVLW 


SKIP_BML.HRS 


MIN_D1}ITS 


SKIP_BLKJ!1N 


NO_DNITS 


LOAD^S 


SKIP_BLK_HRS 


SEND_CHAR 


BTFSS 

WAIT_CNTR, 

0 

CALL. 

LQAD_|SS. 

SQVLH 

CALL 

SBND_CHAR 

CAU. 

LOAD_HIN 

GOTO 

LOADJM 

CALL 

LOAD_HRS 

HUVllW 

CALL 

SEND_CHAR 

BTFSS 

WA1T_CNTR, 

0 

GOTO 

SKIP_BLK_MIN 

MOVLW 

CALL 

SEND_CHAR 

MOVLW 

CALL 

SEND_CHAR 

N 

BTFSS 

WAIT_CNTR, 

0 

CALL 

LOADJJIN 

GOTO 

LOADJM 

CALL 

LOAD_HRS 

MOVLW 

CALL 

SEND_CHAR 

CAU 

LOADJIIH 

GOTO 

LOAD_AH 

MOVF 

HRS,  W 

CALL 

BIN_2_BCD 

MOVF 

MSD,  W 

CALL 

NUM_TABLE 

CALL 

SEND_CHAR 

MOVF 

I.3D,  W 

pl^If  WAIT_CNTR  is  odd, 
;        hour  digits  are  displayed  as  blank 


;  y*AIT_CNTR  was  even,  display  hour  digits 
;  t  always  on,  display  all  other  ediaracter 


Display  hours 
I  always  on 

If  WAIT_CNTR  is  Odd, 
minute  digits  are  displayi^  im  blank 


WAIT_CNTR  was  even,  display  minute  digits 


Display  all  character 


;  Load  the  Wreg  with  the  value 

to  convert  to  BCD 
;  Load  the  MSD  value  into  the  Wreg 
;  Get  the  ASCII  code 
;  Send  this  Character  to  the  Display 

;  Load  the  LSD  value  into  the  Wreg 


CO 


OOAB  20D4 
OOAC  0008 

00«D  3020 
OOAB  1832, 
OOAF  SElA 

OOBO  20D4 
OOBl  0008 


00B2  0831 
00B3  20C7 
00B4  0833 
00B5  2400 
00B6  20D4 

00B7  0834 
00B8  2400 
00B9  20D4 
OOBA  0008 

OOBB  3020 
OOBC  20D4 
OOBD  3041 
OOBE  IFAO 
OOBF  3E0F 
OOCO  20D4 
OOCl  304D 
00C2  20D4 

00C3  1683 
00C4  1381 
00C5  1283 
00C6  2823 


0282 
02S3 

0285 

mi 


0OC7  01B3 
00C8  00B4 

1CQ3, 


0290 
0291 
0292 

diss 

0296 
0297 
0298 
0299 
(i3dQ 

hidi 

0302 
0303 
0305 

d30S 

0367 
0308 

pi9 

0310 
0311 
0312 

o3i3 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0323 
0324 
0325 
0326 
R327 
032^ 
0329 
033(1 


L0ADJ4IN 


t^ec  cne  Abuii  coae 

Send  this  Character  to  the  Display 


ASCII  value  for  a  Blank  space 
Is  it  an  EVEN  or  ODD  second 
Is  ODD,  Second  colon  is  ON. 

Add  delta  offset  of  ASCII  Characters 


(  imA  ilaa  m»0'         eba  value 
•      to  c<»vai;t  to  BCD 

;  Load  the  HSD  value  iSte  tlte 

;  Get  the  ASCII  cod^ 

;  Send  this  Character  to  the  Display 

;  Load  the  LSD  value  into  the  Wreg 

f  Get  the  ASCII  code 

;  Send  this  Character  to  the  Display 


ASCII  value  for  a  Blank  space 
Send  this  Character  to  the  Display 
ASCII  value  for  a  Blank  space 
Is  it  AH  or  PH 

Is  PM,  Add  delta  offset  of  ASCII  Characters 
^mA^-j&Hf  .(^•E%Bt^..e6  lha  Display 

Send  this  Character  to  the  Display 

Bank  1 

Turn  on  PORTS  Pull-up 
Bank  0 

Xou've  displayed  the  time,  Clear  RBIF 


.  *************************  it**********  *******  ******** 

;  The  BIN_2_BCD  routine  converts  the  binary  number,  in  the  W  register,  to  a 
;  binary  coded  decimal  (BCD)  munber.  This  BCD  nuinber  is  stored  MSDsLSD.  This 
;  routine  is  used  by  the  DISPLAY  subroutine,  to  convert  the  time  values. 
.****************************************************************************** 


LQAD^ 


'  m  .1  . 

i'4  ula_'i'iU3Xjj:i 

CALL 

SEND_CHftR 

RETXJRN 

MOVLW 

BTFSC 

SECS,  0 

ADDLW 

CALL 

RETURN 

MOVF 

HIN,  W 

CALL 

BIN  2  BdD 

MOVF 

USD,  W 

CALL 

NUM  TABLE 

CALL 

SEND  CHAR 

MOVF 

LSD,  W 

CALL 

NUtLTABLE 

CALL 

SEND_CHAR 

RETURN 

MOVLW 

CALL 

SEND_CHAR 

MOVLW 

•A' 

BTFSS 

FLAG_REG, 

AH 

ADDLW 

■P'  -  'A- 

CALL 

SEND_CHAR 

MOVLW 

•M' 

CALL 

SEND_CHAR 

BSF 

STATUS,  RPO 

BCF 

OPTION_R, 

RBPU 

BCF 

STATUS,  RPO 

GOTO 

CLR_RB 

BIN_2_BCD      CLRF  HSI) 
MQVMF  hSb 


;  This  value  contain  the  10 's  digit  value 
;  This  value  contain  the  I's  digit  value 
;  A.  decimal  10 

;  ; 

;  Did  this  subtract .cause  a  Negative  Result? 


OOCC  3400 
OOCD  00B4 
OOCE  0AB3 
OOCF  28C9 


0(^1  1^07 
OflDi  1007 


00D3  2SO0 


00D4  00B6 
GODS  20F2 
00D6  0E3e 
00D7  390P 
00D8  0086 
00D9  1085 
OODA  1505 
OODB  1405 
OODC  1005 

p  ep  w^  s 

601^  i90t 
OODF  0086 
OOBO  1405 
OQBl  1005 

o6iB2  ooois 


ma 

0333 
0334 
0335 


RETLW  0 

MOVWF  LSD 

INCP  USD,  P 

GOTO  TENS_SUB 


;  Stimii  tn^l^gafe  here 


b34t 
634S 
0346 
0347 
0348 
0349 
0351 
0352 
0353 
0354 
0355 
035« 
0357 
0358 
0359 
i03$O 

036^ 
0363 
0364 
D365 
0366 
D367 
0358 
0369 
0370 
0371 
0372 
0373 
0374 
0375 
0S7S 


BCF         STATUS,  R^(>. 

if  (  Debug  ) 

bsf  PORTD,  1 


YES,  Return  from  this  Routine 
No,  move  the  result  into  LSD 
Increment  the  most  significat  digit 


'  B.«fc  V"'' 


t>cf 
els^ 

.,  ,  BCF 

00X0 


PORTD,  1 
PORTC,  b 


.  It  ****************************************************************** 

; *  SendChar  -  Sends  character  to  LCD  * 
;*  This  routine  splits  the  character  into  the  upper  and  lower  * 
;*  nibbles  and  sends  them  to  the  LCD,  upper  nibble  first.  * 
;*  The  data  is  transmitted  on  the  P0RT<3 : 0>  pins  * 


*********************** 


************** 


************************ 


SEND_CHAR 


HOVWF 

CHAR 

;  Character  to  be  sent  is  in 

CAtL 

BUSy_CHECK 

;  Wait  for  LCD  to  be  ready 

SWAPP 

CHAR,  W 

ANDLW 

OxOP 

;  Get  upper  nibble 

MOVWF 

LCD_DATA 

;  Send  data  to  LCD 

BCF 

LCD_CNTL, 

R_W 

;  Set  LCD  to  read 

BSF 

LCD_CNTL, 

RS 

;  Set  LCD  to  data  mode 

BSF 

LCD_CNTL, 

E 

;  toggle  E  for  LCD 

BCF 

LCD_CNTL, 

E 

ilOVf: 

CBftR,  W 

Oxjip 

MOVWF 

LCD_nATA 

;  Sead  data  to  LCD 

BSF 

LCD_CIITL, 

B 

;  toggle  E  foe  lcdl. 

BCF 

LCD_CNTL, 

B 

KETORN 

,**«****************************************«*********************** 


t»?7 

D37« 

0379 

0380 

0381 

0382 

0383 

90B3 

00B6 

m* 

20F2 

fS85 

Mm 
ools 

JSOf 

00E7 

0086 

0388 

00E8 

1085 

0389 

00E9 

1105 

0390 

OOEA 

1405 

0391 

OOEB 

1005 

0392 

OOEC 

0836 

03,93 

OOED 

390F 

0394 

OOEE 

0086 

0395 

OOEF 

1405 

0396 

OOFO 

1005 

0397 

OWl 

0398 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 

0408 

0409 

O^tlO 

Mil 

m 

0412 

b0P3 

0413 

00F4 

1781 

0414 

OOFS 

30FF 

0415 

O0F6 

0086 

0416 

00F7 

1283 

0417 

OOFS 

1105 

0418 

OOFS 

1485 

0419 

OOfA 

140S 

0420 

OOFB 

1005 

0421 

OOFC 

0B06 

6iS2 

}*  SendOnd  -  Sends  cOTsnand  to  LCD 

;*  This  routine  splits  the  command  into  the  upper  and  lower 

;*  nibbles  and  sends  them  to  the  LCD,  upper  nibble  first. 

;*  The  data  is  transmitted  on  the  PORT<3:0>  pins 


************* 


********************** 


SEND  CMD 


CHAR 

BUSY_CHECK 

SWAPF 

CHAR,  W 

SiJDLW 

OxOF 

MOVWF 

LCD_DATA 

BCF 

LCD_CNTL , 

R_W 

BCF 

LCD_CNTL, 

RS 

BSF 

LCD_CNTL, 

E 

BCF 

LCO_CNTL, 

E 

imm 

CHAR,  tf 

Ox'oi'' " 

MOVWF 

LCD_DATA 

BSF 

LCD_CNTL , 

E 

KF 

I.CD_,CNTL, 

E 

Character  bo  be  sent  is  la  W 
Walt  for  LCD  to  be  rea<^ 

Get  upper  nlbbla 

Send  data  to  LCD 

Set  LCD  to  read 

Set  LCD  to  command  mode 

toggle  E  for  LCD 


Get  lower  nibble 
Send  data  to  L(iD 

wemm 

************************************** *********************«^******« 

*  This  routine  checks  the  busy  flag,  returns  when  not  busy  * 

*  Affects:  * 

*  TEMP  -  Returned  with  busy/address  * 
***************************************************«***«********«*/ 


BVSi- 


if  (  Debug  ) 

bsf 

bof 
andii.-^ 

„  BSF 

BSF 
MOVLW 
MOVWF 
BCF 
BCF 
BSF 
BSF 
BCF 


PORTD, 
PORCD, 


RPO 

OPTI0N_R,  RBPO 

OxFF 

LCD_DATA_TRIS 
STATUS,  RPO 
LCD_CNTL,  RS 
LCD_CNTL, 
LCD_CNTL, 
LCD_C1JTL, 
LCD_PftTA, 


R_W 
E 
E 
W 


Have  PORTB<3:0>  output  low 
;  Bank  1 

;  Turn  off  PORTB  Pull-up 
;  Set  Ports  for  input 

;  Bank  0 

;  Set  LCD  for  Command  mode 
;  Setup  to  read  busy  flag 
;  Set  E  high 
;  Set  E  low 

;  Read  upper  nibble  busy  flag,  DDRam  address 


ooii> 

39F0 

0423 

ANDLW 

OxFO 

Mask  out  lower  nibble 

OOFB 

0«BS 

0424 

MOVWF 

TEMP 

OOFP 

1405 

0425 

BSF 

LCD_CNTL,  E 

Toggle  E  to  get  lower  nibble 

0100 

1005 

0426 

BCF 

LCD_CNTL,  E 

0101 

0806 

0427 

MOVF 

LCD_DATA,  W 

Read  lower  nibble  buBy  flag,  DDRam  address 

0102 

390F 

ANDLW 

OxOF 

f 

Kask  out  upper  nt))fel« 

0103 

04B5 

i&sm 

TB»P,  P 

t 

Combine  nibbles 

0104 

1BB5 

vmsf,  7 

^leok  bua^  flaij,,  hisftt^            *       ,  tfiX 

0105 

28F2 

m% 

@im 

B0^_CHECK 

1 

If  busy,  check  again 

0106 

1085 

BCF 

LCD_arai,  Rjw 

.-.  :•  w:.       ■  f  '  ,1            ■''       f"             7      T-.  . 

0107 

1683 

0l«33 

BSF 

STATUSlii  ,RP:t 

t 

Bank  1 

0108 

30F0 

9434 

MOVLW 

OxFO 

0109 

0086 

0435 

MOVWF 

LCD_DATA_TRIS 

RB7  -  4  =  inputs,  RB3  -  0  =  output 

OlOA 

1283 

(|43« 

BCF 

STATUS,  RPO 

Bank  0 

OlOB 

0008 

Mm  r 

0438 
0440 
0441 
0442 

0444  ; 
0i44^  9^^T 


«  A  J(  A*  ************  ************** 


r************** 


*********************** 


***»»  Start  prograai  here,  Power-On  Reset  occurred. 

**««********j*^************,t^****************  ************  ************************ 


;  POHBR^ON  Reset  (Beginning  of  program) 

;  Baidc  e 

;  HOORS  =  12 

;  MIN       =  00 

;  PM  light  is  on 

;  Initial  value  of  seconds  (64d  -  60d) 

;  This  allows  a  simple  bit  Itesfe  to  see  if  60 

;  ^'ssee*  ItiMtial^paed. 

I  !^Miit31^^ /•  t^SKftOM-^ivea  1  second 

;      otK^iofi,  at  32  JEHa. 


;  A  Master  Clear  Reset 
;  Bank  0 

;  Bo  initj.alization  (Sank  0) 


;  Bank  1 

The  LCD  module  does  not  like  to  work  w/  weak  pull-ups 
Disable  all  peripheral  interrupts 
Port  A  is  Digital. 


OlOC 

1283 

P4>6 

BCF 

STATOS,  RPO 

nm 

0:447 

mmi^ 

OxOC 

0108 

OOBO 

et*4« 

MOVWP 

HRS 

OlOF 

OlBl 

0449 

CLRF 

MIN 

Olio 

3000 

Uia 

MOVLW 

0x00 

0111 

00  AO 

0451 

MOVWF 

FLAG_REG 

0112 

3004 

%452 

MOVLW 

0x04 

0113 

00B2 

045^ 

MOVWF 

SECS 

&4S4 

MVii.-,     u  -  . 

0114 

3080 

04SS 

HWLH 

0^8^;"- 

out 

oo«r 

Oi4$« 

MOVWF 

•mmn  .m 

0116 

018B 

0457 

CLRF 

TMRDC 

0458  ; 

045*  l«XR_RESET 

0117 

1283 

0460 

BCF 

STATUS,  RPO 

0118 

0183 

e4&i 

CLRF 

STATUS 

0119 

018B 

04^2 

CLRF 

INTCON 

01  lA 

OJSS 

04S3 

CLRF 

PIRl 

OllB 

1683 

0464 

BSF 

STATUS,  RfS 

one 

3000 

0465 

MOVLW 

0x00 

OllD 

0081 

0466 

MOVWF 

OPTION_R 

OllE 

018C 

04«7 

CLRF 

PlEl 

OllF 

30FF 

0468 

MOVLW 

OxFF 

0120 

009F 

0469 

MOVWF 

ADCONl 

0470  ; 

I  rst 

0471  1 

0121 

1283 

0472 

BCF 

STATUS,  KPO 

Bank  0 

0122 

0185 

0473 

CLRF 

PORTA 

ALL  PORT  output  should  output  Low. 

0123 

0186 

<9*%4'' 

CLRF 

PORTS 

0124 

0187 

CLRF 

POBTC 

#125 

0168 

FORTD 

412fi 

0189 

0477 

diRF 

PORTE 

0127 

1010 

0478 

BCF 

TICON,  TMRION 

Timer  1  is  NOT  incrsBieDbiaO 

0479 

0128 

1683 

0480 

BSF 

STATUS,  RPO 

Select  Bank  1 

0129 

0185 

0481 

CLRF 

TRISA 

RA5  -    0  oatp^m 

012A 

30F0 

0482 

HOVLW 

OxFO 

012B 

008'f 

M#f 

TRISB 

4^7  -  4  iiqimts,  R^ywtO  (Outputs 

012C 

OXSH 

jmsc       .           1  §B.-Moft  are  ou^uts 

0X30 

1407 

:c  i              J.  BSP 

WaSC,  TIOSO       $  OT9tr«i)iM«a»^ ^mb«4tm^  to'  the  oscillator  to  function 

0122 

0188 

e48i£ 

TRISD 

SD  Port  are  outputs 

012F 

0189 

0487 

CLRF 

TRISE 

RE  Port  are  outputs 

0130 

140C 

0438 

BSF 

PIEl,  TMRIIE 

Enable  TMRl  Interrupt 

0131 

1381 

0489 

BCF 

OPTION_R,  RBPU 

Enable  PORTS  pull-ups 

0132 

1283 

0490 

BCF 

STATUS,  RPO 

Select  Sank  0 

0133 

0886 

0491 

MOVF 

PORTS,  F 

Need  to  clear  1st  RBIF,  due  to 

§tmmk  miv 

s^  1^  of  -  PCRTBi        r          1      ,  ,) 

T " 

M>i 

!  •Jf-tt. 

6496 

;  Inltlllze  LCD 

Display  Module 

0497 

0135 

0185 

0498 

LCD_CNTL 

ALL  POftTj  output  should  output  Low. 

0499 

0136 

3002 

O^Ol 

HOVLW 

0x02 

Conmeuid  fox  4-blt  lafa^faee 

0137 

0086 

 .,.mim.. 

0138 

1405 

bso3 

ass*  ■  • 

0139 

1005 

0504 

BCF 

LCD_CNTL ,  E 

O505 

0506 

;  This  routine  takes  the  calculated  times  that  the  delay  loop  needs  to 

0507 

;  be  executed,  based  on  the  LCD_INIT. 

.DELAY  EQUate  that  includes  the 

0508 

;  frequency  of  operation.  These  uses 

registers  before  they  are  needed  to 

;  store  the  ■jti^mi- 

!  h'V.f." 

mo6 

OSll 

LCD_pBLAy  mum 

ligjIiJQIIILISLAy 

013B 

00B3 

0512 

mn 

Use  MSD  and  LSD  Registers  to  Initilize  LCD 

013C 

01B4 

0513 

CLRF 

LSD 

0130 

0884 

0514 

L00P2  DECFSZ 

LSD                     J  9Aav  *<i«»  «Mro  *  tl3  *  256)  +  3)  *  Toy 

013E 

293D 

0515 

GOTO 

LO0P2 

013F 

0BB3 

0516 

DECFSZ 

MSD 

0517 

END_LCD_DELAY 

0140 

293D 

0518 

GOTO 

L00P2 

0519 

;0T-.  u 

0520 

;  Command  seigaffiise 

for  :ji  lines  of  5x7  characters 

0521 

'• 

0141  3002 

0522 

CMD_SEQ  MOVIM 

0X02 

0142  0086 

0S23 

MOVWF 

LCD_DATA 

0143  1405 

0S24 

BSF 

LCD_CNTL,  E 

0144  1005 

V52S 

BCF 

LCD_CNTL,  E 

0145  3008 

—•I  k  MOVtM 

0x08 

0146  0086 

MOVWP 

LCDJJAT* 

:  "Tt       lw»J»i  c   '--vv  r.i 

U14  /  14U!> 

0528 

BSF 

LCD_CNTL,  % 

0148  1005 

0529 
0530 

BCF 

LCD_CNTL,  B 

0531 

;  Busy  Flag  should 

be  valid  after  this  point 

0532 

0149  30DC 

0533 

MOVtM 

D1SP_0N 

014A  20E3 

0534 

CALL 

SEND_CMD 

014B  3001 

vmm 

:  t  t  W  .  ; 

014C  20E3 

0S9S 

CALL 

SEHD_CHD 

014D  3006 

0S37 

MOVLW 

ENTRY_INC 

014E  20E3 

CALL 

SEND_CMD 

014F  3080 

0539 

HOVLW 

DD_RA1(_ADDR 

0540 

CALL- 

'SSNDjiaiD 

0541 
0543 

0544 

;  Initialize  the  Special  Function  Registers  (SFR)  interrupts 

0545 

0151  018C 

0546 

CLRF 

PlRl 

0152  300E 

05^ 

MOVLW 

OxOE 

0153  0090 

0548 

"           '  MOVWF 

TICON 

RCl  is  overridden  by  TCKO 

0154  170B 

0!^l9 

BSF 

INTCON,  PEIE 

Enable  Peripheral  Interrupts 

0155  158B 

BSF 

INTCON,  RBIE 

Disable  PORTB<7:4>  Change  Interrupts 

0156  178B 

OSSl 

BSF 

INTCON,  GIE 

Enable  all  Interrupts 

0SS2 

J6SS3 

c»i«c  ■ 

01S8  207S 

0554 
1^5 

CALL 

r  >  ■ 

DISPLAY 

0159  300E 

0556 

MOVLW 

OxOE 

015A  0090 

0557 

MOVWF 

TICON 

Enable  Tl  Oscillator,  Ext  Clock,  Async,  prescaler  =  1 

015B  1410 

OS58 
8SS9 

BSF 

; 

TICON,  TMRION 

Turn  Timer  1  ON 

^60 

if  (  PICMaster  ) 

05«1 

Izz  goto 

Izz 

Loop  waiting  for  interrupts  (fox  use  with  PICMASTER) 

0562 

else 

-0S63 

; 

015C  0063 

0564 

SLEEP^P  SLEEP 

Wait  for  Change  on  PORTB  interrupt,  or  THRl  timeout 

015D  0000 

0565 

NOP 

015E  295C 

0566 
0567 
BS«8 
0S«9 

GOTO 

andif  ■  ^ 

SLEEP_LP 

0570  ;  wms.  ia. 

tmm  is 

0571  ; 

OlSy  1B03 

0S72  OTHER_RESET 

BTFSS  STATUS, 

OlSO  28B0 

0173  WDT_TIMEOUT 

GOTO  EBRQEl 

•  iss,           is  error  condlti«»> 

■ . : ;  ;-<5t^v, 

0S74  if 

(  Demt,J^i^^  '^''- 

057S 

goto 

m 

;  MCLR  reset.  Goto  START 

o-r<rc  6MS 

0576                else   "  i--"^ 

0577 

GOTO  'mm 

0578  endif 

0579  ; 

«  { 

0580  if 

(Debug  ) 

•  ran)  X^ie  for  d^us 

l#^s  -J 

Ma:  ; 

-  f.-.-.  ■, ; 

asm' ; 

0586  org 

0587  ; 

TABLE_ADDR 

0400  00B5 

0588  NUM_TABLE 

MOVWF 

TEMP 

■             ;  Store  value  to  TEMP  register 

0401  3004 

0589 

MOVLW 

HIGH 

(TABLE. 

jABUR)       ;  Ensure  that  the  PCLATH  high  has  the 

0402  008A 

0590 

MOVWF 

PCLATH 

-         ;       correct  value 

mm 

mm  ■ 

w 

Wat 

- ■ OPh) 

0405  07«8'- 

ADDWP 

PCL, 

F 

'*i  Determine  Offset  into 

table 

0406  34j'tr- 

0Bf4 

RETLW 

•0' 

;  ASCII  value  of  "0" 

in 

W  register 

0407  3431 

0595 

RETLW 

■1' 

;  ASCII  value  of  "1" 

in 

W  register 

0408  3432 

0596 

RETLW 

■2' 

;  ASCII  value  of  "2" 

in 

W  register 

0409  3433 

0597 

RETLW 

■3' 

;  ASCII  value  of  "3* 

in 

W  register 

040A  3434 

0598 

RETLW 

'4' 

;   ASCII  ■mlMlB  ©£  't' 

in 

W  register 

040B  3435 

0599 

RETLW 

•5' 

I  ASCII  value  of  "5' 

in 

W  register 

040C  343« 

'6' 

;  ASCII  value  of 

in 

W  register 

040i>  SiW' 

-^stLW 

•7' 

;  ASCII  value  of  •7» 

in 

W  register 

tf4«B  343i 

0602 

'  Setlw 

'8' 

1  ASCII  value  of  "8" 

in 

W  register 

0*6*'  s  W^" 

0603 
0604 

^9' 

1  ASCII  wlue  of  "9" 
;  Any  enter  after  is 

in 

in 

W  register 
error   ( Di splay 

0410  3445 

0605 

RETLW 

■E" 

;  ASCII  value  of  "E' 

in 

W  register 

0411  3445 

0606 

RETLW 

•E' 

;  ASCII  value  of  "E- 

in 

W  register 

0412  344$ 

ami 

RETLW 

•-.■ig-''. 

j  ASCII  value  of  "E" 

in 

W  reifister 

0413  3445 

0#08i 

RETLW 

'S' 

;  ASCII  valus  of  "B" 

in 

W  re^ist^ 

0414  3445 

ems  -  ' 

r  ASCII  value  of  "E* 

in 

W  register 

0415  3445 

ffSW  IJDM_TBL_END 
0611  ; 

RETLW 

>E' 

;  ASCII  value  of  "E" 

in 

W  register 

onw  2»Ba 


0612 
0613 

OiSlS  i 

mus!', 
amM 


if    (    (NUM_TBL  &  OxOFF)   >=   (NUM_TBL_END  S  OxOFF)  ) 

MESSQ  "Warning:  Table  NUM_TBL  crosses  page  boundry  in  ooinjuted  juinp" 
endif 


EM  of  FregraBi  Ws^kty 

!  If  you  get  hexe  your  program  was  lost 


0S1» 

0S20  and 

osai 

I 


MMkfiH^  ftl.^I  Maan^       eXlOeK.ilaf     S-13-199«  %3'tili9 


15 


MEHORy  USAGE  MAP   CX'   =  Used, 


Unused) 


seeo  <  Saaaxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 
t  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  icyy»CTit»»YKx»»iof  xxxxxxxxxxxxxxxx 


oogo  «  .  


0100  ;  XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX  xxxxxxxxxxxxxxxx  xxxxxxxxx:qcxxxxx 

0140   :  xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  XX   —  

C  XXxXXX— 


»,   If  ,^ 
5  ■; 


0780  I 
07C0  : 


All  other  memozy  blocks  unused. 


Errors  i  0 
warnings  i  16 


-  <  -  t. 


CO 


APPENDIX  B:  CLOCK_01.H  INCLUDE  FILE 


nolist 

****************************************************************************** 

This  is  the  custom  Headar  Fil«  for  tliA  real  tinn  elo^  acqpliGation  note 
WSmmAi  CLOCK^OI.H 
tSErvifiion:  5-04-94 

******************************************************************  ************ 
This  is  used  for  the  ASSEMBLER  to  recalculate  certain  frequency 
dependant  variables.  The  value  of  Dev_Freq  must  be  changed  to 
reflect  the  frequency  that  the  device  actually  operates  at. 


Dev_Freq 

EQU 

D'40OOM0 

;  Device  Frequoaciy  Is  4  HHz 

DB_HI_BYTE 

EQU 

{SIGB  {(( 

DevL.Preq  /  4  )  *  1  /  D'lOOC  )  /  3  )  )  +  1 

LCD_INIT_PBIJVY 

EQU 

(HICH  ((( 

Dev_Freq  /  4  )  *  D'46'  /  D'lOOOO'  )  /  3  )  )  +  1 

IHIIBR_C3)TR 

EQO 

40 

;  SAM  Location 

EQU 

41 

;  RJOI  Location 

TIOSO 

EQO 

0 

;  The  RCO  /  TIOSO  /  TICKI 

RESET_V 

EQU 

OxOMO 

1  ndteeas  af  ^  .RKSBT  Vector 

ISR_V 

EQU 

;  AiitewB  e:£  Xnte£»9t  Vector 

EQU 

&x67FF 

;  Last  address  in  Vrogram  Memory 

EQU 

0x0400 

;  Address  vdiere  to  start  Tables 

BRJini_iSW 

EQU 

0x7 

;  The  switch  to  select  the  iinits 

INC_SW 

EQU 

Oxfi 

;  The  switch  to  increment  the  selected  units 

cm jmcsw 

EQU 

;  The  switeb  to  clear  the  miaWes  and  secmds 

FLAlS_REG 

EQU 

0x020 

;  Register  «diich  contains  flag  bits 

;    H  1  1 

;    1   AM   1   -  1 

•     -1  1  1 

 1  

-     1  KEY_ 

.INPUT   1  - 

-1  1  1  1 

1     -     1   MIN_UNIT   1   HR_UNIT  | 

m 

EQU 

0x07 

I 

EQU 

0x04 

EQU 

0x01 

EQU 

0x00 

EQU 

0x030 

itm 

EQU 

0x031 

mcs 

EQU 

0x032 

EQU 

0x033 

Lm 

EQU 

0x034 

EQU 

0x035 

EQU 

0x03S 

EQU 

0x040 

f  Comiiiands  and 

Control 

t 

B 

EQU 

0 

tut 

EQU 

1 

RS 

EQU 

2 

;  LCD  Ifodule 

connnands 

DISP_ON 

EQU 

0x0  OC 

DISP_<ai_C 

0x0  OE 

BOS 

0x0  OP 

;  Flag  to  specify^  ^if  jSlflor  IH*' 

;  Flag  to  specify  if  doing  key  ii^>uts 

;  Flags  Co  specify  which  units  to  <^rate  on 
;     (HRS,  MIN,  or  none) 

•  Holds  cooater'wlue^'fiSr  t&uSs 

;  Holds  counter  value  for  MINUTES 

;  Holds  counter  value  for  SECONDS 

;  Ten^.  register.  Holds  Most  Significant 

;       Digit  of  BIN  to  BCD  conversion 

;  TOTporary  register,  Holds  Least  Significant 

Digit  of  BIN  to  BCD  conversion 
;  Tenporaxy  register 
i!  T^B^r«xy><register, 

' ;    Seids  lloXue  to  send  to  LCD  module. 

K         T       I  , 
V,         I  k     III:         -     •  C 

e^iieeltslfKe         iNIt  taiuft  tm  ^  temts 


LCD  Enable  control  line 

LCD  Read/Write  control  line 

up  Regiat»r  Select  .c^trol  lini> 


Display  on  ' 

Display  oa.  Cursor  on 

Diaiplay  on.  Cursor  on.  Blink  cursor 


AilWMtneaHlttqMMdlei^Me. 

^116 


Floi^TiiniCtaEfk 


DISP_OFF 

BQU 

0x008 

CLR_DISP 

BQa 

0x001 

Cleac  the  Display 

ENTRY_INC 

Egg 

QxOOC 

ENTinf_INC_S 

WSP 

0x007 

ENTRY_DEC 

0x004 

ENTRY_DEC_S 

BQD 

0x005 

r  r. 

0x080 

Least  Significant  7-bit , are  for  address.  ;ji  ^ 

BQU 

0x080 

Ppper  Left  coner  of  the  Display 

cr:>: 


Real  Time  Clock 


File  =      C64_reg.h  -'  *- 

Rev.  History:         08-04-93  by  MP 

;  ll'15-93      HP  to  lixvm  cexxaet  pagas  fo£  SSS 

£qK  tpKli^  Punction  Registers 


INDF 

EQU 

00 

RTCC 

EQU 

01 

OPTION_R 

EQU 

81 

PCL 

02 

STATUS 

wSa 

03 

FSR 

EQU 

04 

PORTA 

EQU 

05 

TRISA 

EQU 

35 

PORTB 

EQU 

06 

TRISB 

EQU 

86 

.Bi|D 

07 

VktsC 

BCfU 

87 

PORTD 

EQU 

08 

TRISD 

EQU 

38 

PORTE 

EQU 

09 

TRISE 

EQU 

89 

PCIiATH 

EQU 

OA 

QITGOH 

Wg3 

OB 

PfiU. 

BOtI 

OC 

EQU 

8C 

inam. 

EQU 

OE 

PCON 

EQU 

8E 

TMRIH 

EQU 

OP 

Ticm 

EQU 

10 

11 

Bgo 

12 

PR2 

EQD 

92 

SSPBDF 

EQU 

13 

SSPADD 

EQU 

93 

SSPCON 

EQU 

14 

SSPSTAT 

EQU 

94 

CCPRIL 

aoo 

IS 

CCPRIH 

IC 

BOB 

17 

SQO 

18 

TXSTA 

EQU 

98 

TXREG 

EQU 

19 

SPBRG 

EQU 

99 

RCREG 

EQU 

Ih 

CCPR2L 

EQU 

IB 

spo 

%e 

i& 

ADRES 

IE 

ADCONO 

BQU 

IF 

ADCONl 

9F 

. ************  Bit  Oeffinitioas  ••»••*«»••** 
.*^*»********** ********* *********************** 

•  g^gaa  register  (Address  03/83) 

IRP  EQU  7 

RPl  BBD  6 

RPO  EQtJ  5 


Tifii#1Pteffik 


TO  EQD 
WO  EQU 
2  SQU 
Ce  EQIT 

C  EQU 

INTCON  register  (Address  OB/ SB) 


GIE 

mm 
HITS 

B8IG 
RTIF 
INTP 
RBIF 


BQU 
BBJ 
EQD 
ECfD 
EQU 
EQU 
BQU 
EQU 


PIRl  register  (Address  OC) 


PSPIF 

SSPIF 

CCPIIF 

TMR2IF 


EQU 
EQU 
EQU 
EQU 


PIEl  register  (Itet^ess  8C) 


PSPIE 

SSPIE 

CCPIIE 

TMR2IE 

TMRIIE 


EQU 
EQU 
EQU 
EQU 


Q^ltWt  li^stee  (Address  81) 

BQU 


RBPU 
INTEDG 
RTS 
RTE 

sm. 

PSt 
PSO 


EQU 
BQU 
EgU 
EQU 
EQU 
EQU 


■  Bfsm-wm^mm  titiiress  se) 

POR  EQU 
;  TRISE  register  (Adi^ess  89) 


IBF 

OBF 

IBOV 

PSHKXS 

IKISSSt 


EQU 
EQU 
BQU 
BQU 
EQU 


ir.  ; 

t'  - 


TICON  register  (Address  10) 


TlCKPSl  BQU  5 

TICKBSO  BQd  4 

TIOSCBN  3 

TlINSmC  BQU  2 

TMRICS  EQU  1 

TMRIGM  BQU  0 


Real  Time  Clock 


;  T2C0N  regiilte^  (Address  12) 


T0UTPS3 
T0UTPS2 
TOUTPSl 


EQU 

EQU 

EQU 
EQU 

saa 


14) 


* 


CKP 

SSPM3 

SSFH2 

ssvm. 


EQU 
EQU 


;  SSPSTAS  .M|gti«M:  ||Kite;eas  94) 


M: 

# 
S 
RW 


EgtT 
EQU 
EQU 
EQU 

ssu 


CTiMT  Mi^iaM'  liMMna  17) 


I 

CCPIX 

CCPIY 

CCP1M3 

CCP1M2 

CCPIMI 

CCPIKO 


EQU 
EQU 
EQU 
EQU 
EQU 


,■'  RCS^  ess^twc.  {Address  18) 

SMt  EQU 
MSit  EQU 
EQU 

RGSi  geu 

T^^SMi  .«iiK#M'  iMteBMS  98) 


esse 

7 

6 

EQU 

5 

EQU 

4 

EQU 

2 

EQU 

1 

EQU 

0 

»■ 

K  ^inlMe:  fiyiibrea'S  ID) 

EQU 

5 

EQU 

4 

EQU 

t 

EQU 

2 

1 

.i@t7' 

0 

^7 


Real  Tiine  OodR 


;  jmcONO  register  fM^soam  IF) 

ADCSl  BQD  7 

ADCSO  EQD  6 

CHS2  ESa  5 

CHSl  BQD  4 

am  BQO  3 

ae  EQu  2 

EQU  2 

EQU  0 

PCFG2  BQU  2 

PCFGl  EQO  1 

PCPGO  EQD  0 

*********************************************** 

****  Bits  for  destination  omtrol 
.****        w  =  W  register  is  destination 
.****        p  _  File  register  is  destination 

H  BQU  0 

F  1^  1 

s 

W&3  0 

mo  1 


Real  Time  Clock 
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Using  the  Analog  to  Digital  Converter 


INTRODUCTION  '  ' 

This  application  note  is  intended  for  PIC16C7X  users 
with  various  degrees  of  familiarity  with  analog  system 
design.  The  various  sections  discuss  the  following  top- 
ics: 

•  Commonly  used  A/D  tenninology 


•' kovir'to  configure  afiftiiwi^ 

(Vref)  ^  ■ 

•  Configuring  RA0-RA3  pins 

COMMONLY  USED  A/D 
TERMINOLOGY 

The  Ideal  Transfer  Funeflon 

In  an  A/D  con  verier,  an  analog  voltage  is  mapped  into  an 
N-bit  digital  value.  This  mapping  function  is  defined  as 
the  transfer  function.  An  ideal  transfer  is  one  in  which 
there  are  no  errors  or  non-linearity.  It  describes  the 
"ideal"  or  intended  behavior  of  the  A/D.  Figure  1  shows 
the  ideal  transfer  function  for  the  PIC1 6C7X  fiJD.  Note 
that  the  digital  output  value  is  OOh  for  analog  input 
voltage  range  of  0  to  1 LSB.  In  some  converters,  the  first 
transition  point  is  at  0.5LSB  and  not  at  1  LSB  as  shown 
in  Figures.  Eitherway,  l<nowingthetransferfunGS(»y(jie 
user  can  appropriately  interpret  the  data. 

FIGURE  1  -  PIC16C7X  IDEAL 

TRANSFER  FUNCTION 
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:  H  is  the  analog  input  voltage  at  whteH  the  digital  output 
'  swHdWsf  Rm|one  oodaito  the  mat,  T)^  ^^Usffipokit 
I  i$  typjia%  Tm.a  single  tt^e^old,  raflier  a  small^ 
i<if  uncertainty  ^^ae  Figure  3)  Tliei  ttan8l|Bii 
therafonrdtfined  iis  the  statistical  avenge  c 
L  Slated  dM^rantly,  it  is  the  voiiage  i 
'  ~  ~itabity  cM«e  conversion  is  50%.  { 

It  is  the  distance  (voltage  differential)  between  two 
transition  points.  Ideally  the  Code  Width  should  be 
•1LSB.  See  Figure  1.  ,i 


FIGURE  2  -  ALTERNATE  TRANSFER 
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Using  the  Analog  to  Digital  Converter 


Center  of  Code  Width 

It  is  the  midpoint  between  two  transition  points.  See 
FIGURE  3  -  TRANSITION  POINTS 
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Differential  Non-Linearity  (DNL) 

It  is  the  deviation  In  code-width  from  1LSB  (Figure  7). 
The  difference  is  calculated  for  each  and  every  transi- 
tion.  The  largest  difference    raported  «s  M.. 

It  is  important  to  note  that  the  DNL  is  measured  aftertha 
transfer  function  is  normalized  to  match  offset  error  and 
gain  error. 

Note  that  the  DNL  cannot  be  any  less  than  -1 LSB.  In  the 

'Mf'4iiMM>M^>i»'>1LSB. 


Absolute  Error 


The  maximum  deviation  between  any  transition  point 
from  the  corresponding  ideal  transf  erf  unction  is  defined 
as  the  absolute  error.  This  is  how  it  is  measured  and 
reported  in  the  PIC16C7X  (Figure  8).  The  notable 
difference  between  absolute  error  and  INL  is  that  the 
measured  d£^  is  n0t'noiTndlizedforMsQEde«id'«^«et 
en'ors.        -  -  ^ 

It  is  probably  the  first  parameter  the  user  will  look  at  to 
evaluate  an  A/D.  Sometimes  absolute  error  is  reported 
as  the  sum  aMs«%M«eat9mliiMiiM^^ 
errors.  .t^iif  v'^  .>:{*)iTnv  Hi 

Total  Unadjusted  Error  '  "* 

If  Is  i»  ssmo  «s  absolute  error.  Again,;  som^imss  <it  is 
rsfXMtA^ s£i^^sufiV<^^t>  full-scale  ai^id  integral  fion- 


No  missing  code  implies  that  as  the  analog  inpu^Mol^ge 
is  gradually  increased  from  zero  to  full  scale  (or  vice 
versa),  all  digital  codes  are  produced.  Stated  otherwise, 
changing  analog  input  voltage  from  one  quantum  of  the 
analog  range  to  the  next  adjacent  range  will  not  produce 
a  change  in  the  digital  output  by  more  than  one  code 
count.  ' 

Monotonic 

Monotonicity  guarantees  that  an  increase  (or  decrease) 
in  the  analog  input  value  will  result  in  an  equal  or  greater 
digital  code  (or  less).  Monotonicity  does  not  guarantee 
that  there  are  no  missing  codes.  However,  it  is  an 
important  criterion  for  feedback  control  systems.  Non- 
monotoniclty  may  cause  oscillations  in  such  a  system. 

The  first  derivative  of  a  monotonic  function  always  has 


FIGURE  7  -  DIFFERENTIAL  NON-LINEARITY 


FIGURE  8  -  ABSOLUTE  ERROR 
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IteHemetric  Conversion 

'41  Is  the  A/D  conversion  process  wherethebinaty  result 
itt  a  ratio  of  the  supply  voltage  or  reference  voltage,  the 
latter  being  equal  to  full-scale  vahia  by  deteulL  The 
PIC16C7X  is  a  ratiometric  A/D  converter  where  the 
result  depends  on  Vdd  or  Vref. 

In  some  A/D's,  an  absolute  reference  is  provided  result- 
ing in 'absolute  conversion*. 

Sample  and  Hold 

In  sample  and  hold  type  A/D  converters,  the  analog  input 
has  a  switch  (typically  a  FET  switch  in  CMOS)  which  is 
opened  for  a  short  duration  to  capture  the  analog  input 
voltage  onto  an  on-chip  capacitor.  Conversion  is  typi- 
cally started  after  the  sampling  switch  is  closed. 

Track  and  Hold 

It  is  basically  the  same  as  sample  and  hold,  except  the 
sampling  switch  is  typically  left  on.  Therefore  the  voltage 
on  the  on-chip  holding  capacitor  "tracks"  the  analog 
input  voltage.  To  b^in  a  conversion,  the  sampling 
8WilGhissl«utoff. 

The  PIC16C7X  A/D      in  ttlis  categoiy. 
Sampling  Time 

It  is  the  time  required  to  charge  the  on-chip  holding 
capacitor  to  the  same  value  as  on  the  analog  input  pin. 
The  sampling  time  depends  on  the  magnitude  of  the 
holding  capacitor  and  the  source  impedance  of  the 
analog  voltage  input. 

Offset  Error  (or  Zero  Error) 

It  is  the  difference  between  the  first  actual  (measured) 
transition  point  and  the  first  ideal  transition  point  as 
shown  in  Figure  4.  It  can  be  corrected  by  the  user  by 
subtracting  the  offset  error  from  each  conversion  result. 


HGURE4- 


IRROR 


Full  S^iMe  Efeof  iar  iaaa  Errors 

It  is  the  difference  between  the  ideal  Full  Scale  and  the 
actual  (measured)  full  scale  range  (see  Figure  5).  It  Is 
also  called  gain  error,  because  the  en-or  changes  the 
slope  of  the  ideal  transfer  function  creating  a  gain  factor. 
K  can  be  corrected  by  the  user  by  multiplying  each 
eomttflon^Msutt  by1lib<in»aiBeei'tt»  gain. 

F^KiRE  5  -  FULL  SCALE  ERROR 
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It  is  ttie  deviation  of  a  transition  point  tmf^  Us  (wire- 
sponding  point  on  the  ideal  transfer  cunwi  (RIgiiie  6). 
The  maximum  differsnce  is  reported  as  the  INL  of  the 
ooiwaitor. 

'i^iyifi^b^l^i^if^SMl^leerrorandthe  Offset 
— Encr  aw  iwiHittltoiU  ter  match  end  transition  points 
before  measuring  the  INL. 

FIGURE  6  -  INtE)&RAL  NON-UN|E^^^ 


7 
6 

-  5 
I 

3 

O  4 

3 

13 
2 
1 
0 


-  Deviation 
•  -1/4LSB 


INL  In  this  example  Is  -1/4  LSB  to  +3/4  LSB 


e  iae»liHeraGW|#T«MNole!#  me. 


-3-11^ 


Using  the  Analog  to  Digital  Converter 


HOW  TO  USE  THE  PIC16C71  A/D 

The  A/0  in  the  PIC16C71  Is  easy  to  set  up  and  use. 
There  are  a  few  considerations: 

1 .  Select  either  Vdd  or  Vref  as  reference  voltage.  Mpre 
on  using  Vref  input  later. 

2.  Select  A/D  conversion  clock  (fad):  2  tosc,  8  tosc,  32 
tosc  or  trc  (Internal  RC  clock).  For  the  first  three 
options,  make  sure  that  fad  >  2.0  \ls.  If  deterministic 
conversion  time  is  required,  select  tosc  time  base.  If 
conversion  during  SLEEP  is  required,  select  trc. 

3.  Channel  Selection  ;  If  only  one  A/D  channel  Is 
required,  program  the  ADCON1  register  to  03h.  This 
configures  the  A/D  pins  as  digital  I/O.  If  j|]ultq>le 

'  shohnels  are  required,  prior  to  each  conv^t^BA  1^ 
new  channel  must  be  selected. 

4.  Sampling  and  Conversiori:  Aftar  a  RMr  emaniiil 
selected,  a  minimum  amount  of  aat^^t^)  time  must 
be  allowed  before  GO  bit  in  AOGO^  Is  set  to  begin 
conversion.  Once  conversion  begins,  it  is, 
select  the  next  channel,  but  sampling  thw 

fore,  it  is  always  riecesaiMlJB 
required  sampling  time  H'V 

i)  after  a  conversion  ^ 

ii)  a^ra  newcfi^d  ls  selScled 

ill)  after  A/D  is  turned  on  (ADON  =1). 

5.  Reading  Result:  Completbn  of  conversion  can  be 

determined  by  eltherpolling  GO/DONE  bittocleared, 
polling  the  ADIF  bit  to  be  set,  or  waiting  for  an  ADIF 
intemjpt. 


EXAMPLE  1:  HOW  TO  DO  A  SIMPLE  ADC  CONVERI 


ADDITIONAL  TIPS: 

1 .  The  GO  bit  and  the  ADON  bit  may  not  be  set  at 
once.  After  the  A/D  is  turned  on  by  setting  ADON, 
at  least  5\is  time  must  be  allowed  before  conver- 
sion  begins,  longer  if  sampling  time  requiremantis 
not  met  within  5ns. 

2.  Abortingaconversion:  A  conversion  can  be  aborted 
by  clearing  GO  bit.  The  A/D  converter  will  stop 
comrersion  and  revert  back  to  sampling  state. 

3.  Using  ADRES  rogistaras  a  normal  twgi^lfft  The 
A/D  only  wrWeaiMilMIBS  at  tHo  aiidkiliqailMar- 
sion.  TherefoiWMTWiMSMH«^'.i9NiSia«a 
normal  file  registartoelwaen  dxrmiiAom  WtS^sn 
A/D  is  off. 

The  following  are  a  few  examples  of  using  the  A/D. 


artHik.»f  '>■  '  a'-  ■      01  . 

.nip  hig-M  .^nko*  •»•-*  > .  <b  S'..ilf . 
«rtf  \r>  tiiiitirtgnm  9t»  'O  .  iirieo 


>  "111:  ■iH^^f<■^'  e-'' 


;    InitlalizeAO,  initializes  and  seta  up  thtt  A/D  hardmre. 

;   Always  ch2,  internal  RC  OSC. 

InitializeAD 


loejp 


bmi 
movlw 
movwf 
bcf 
movlw 
movwf 
call 

bsf 

btf  sc 
goto 


B<  00000000' 

ADCONl 
STATUS ,  5 
B'llOlOOOl' 
ADCONO 

sas^e- delay 
ADCONO,  2 


aHmst.  Pill 

sileet  R«0^:HSS3-:"" 
as  analog  inputs 
select  pgO 

select:  RC  OSC,  ^S:**, 
turn  on  A/D 
'^provide  CMeMiury  s^^lnsLctlsMi  . 

'eiart  nieti  A/D  ^MI^Mo».      ^'-j  ' 


A^  over? 

XM  t  ttlAO 


ADRES,  n\ 


;  ](•  *  tllOB         A/B  value 


A  detailed  code  listing  (sh  Ap^wiSix  A. 
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EXAMPLE  2:  HOW  TO  DO  SEQUENTIAL  CHANNEL  CONVERSIONS 


InltlalizeAD,  Initializes  and  sets  up  the  A/D  hardware. 

Select  chO  to  ch3  in  a  round  robin  fashion,   internal  RC  OSC. 
Load  results  in  4  consecutive  addresses  starting  at  ADTABLE  (lOh) 

Xnlfcializes^ 


bat 

STATUS,  5 

select  pgl 

movlw 

B'OOOOOOOO ' 

select  RA0-RA3... 

movwf 

ADCONl 

as  analog  inputs 

bcf 

STATUS ,  5 

select  pgO 

movlw 

B'llOOOOOl' 

select:  RC  osc,  chO.. 

wuwf 

xaccm 

twcn  on  A/B 

mmtti 

ADTABLE 

point  fsr  to  top  of.. 

Sicrowf 

FSR 

table 

new_ad 


loop 


call 
bsf 


movwf 

movlw 
addwd 
bcf 


sample_delaY 
ADCONO,.  2 

ADCONO,  2 
loop 

adrea,  w  . 

0 

4 

ADCONO 
ADCONO ,  5 


provide  necessary  sampling  time 
start  new  A/D  conversion 

A/D  over? 
no  then  loop 

yes  then  get  A/D  value 
load  indirectly 
select  next  channel 


reset  carry  over  bit. 
inorea^nt  pointer  to  correct  table  offset. 

clear  temp  register 
test  Isb  of  channel  .fs^ect 
set  if  chl  selected  , 
%.^t  msb  of  channel  select 
/ 

get  table  address 
add  with  temp 
move  into  indirect 


teBq|> 

Mxxm, 

3 

baf 

temp,  0 

btfsc 

ADCONO , 

4 

bsf 

temp,  1 

movlw 

ADTABLE 

addwf 

tenp,  w 

FSR 

^#^0 

new_ad 

]  A  detailed  code  Hsting  is  in  Appendte  B. 
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EXAMPLES:  HOWTO WRfTETtiE^IN^RRUPTlUiiBLER^OR'mEADG 


org 

0x00 

goto 

start 

org 

0x04 

aoto  ' 

service_ad 

Ml 

0x10 

B' 00000000 

interrupt  vector 


;ihit  I/O  ports 


update 


bcsf.  ' 

b#;£ 


PORT_B 
PORT_B 

InitlalizeAD 

£lag«  adover 

SetupDelay 

ADC(»rO,adif 

SlfSBlM,  gie 


reset  software  A/D  flag 

setup  delay  >=  lOuS. 
reset  A/D  int  flag  (ADIF 

enalile  global  intercupt 


A/D  av«ci 

yes  start  new  coziv. 

no  then  keep  checking 


lliiita  flaa,  adover 

goto  update 

goto  loop 
;    InitlalizeAD,  initializes  and  sets  up  the  A/D  hardware. 
;   select  chO  to  <ib3,  RC  OSC. ,  a/^  interrupt . 
InitlalizeAD 


bsf 

STATUS,  S 

;  select  pgl 

B> 00000000' 

ADcam 

;  seliioit  BAO-SU  •  •  • 
;  as  analog  Inputs 

;   select  pgO 

STATUS,  5 

olrf 

INTCON 

;   clr  all  interrupts 
;  enable  A/D  int. 

hat 

INTCON,  6 

QQVlW 

B' 11010001' 

;  select:  RC  osc,  ch2... 

ADCCatO 

;  ttim  on  A/D 

service_ad 


btfss 


ADCONO ,  1 


ADRES,  W 


A/D  interrupt? 
no  then  ignore 
get  A/D  value 
do  not  enable  int 


A  doMKMiaaifttiltiwlB  to  /^ipendbc  C. 
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EXAMPLE  4:  HOW  TO  DO  CONVERSIONS  DURING  SLEEP  MODE 


;   InitlalizeAD,  initializes  and  sets  up  the  A/D  hardware. 
;  Seaeet  eaaUt- ^^3.,  internal  SC  .  OSC.  | 
;  While  doing  tibm  «|savecsicHa  ^t  Igaiit  to  (sleep.    This  will 
;  ninimize  digital  bolse  intecfeK^nce.  I 

tlHit  ad's  itd  OSC.  has  ti>  Is^  selecAsd  in  this  instance. 


lizeAD 


'  bsf 

STJurosi-  s  -• 

;  select  pgl 

;  select  RA0-RA3. . . 

j  movwf 

ADCONl 

;  as  analog  inputs 

1  bcf 

STATOS,  5 

;  select  pgO 

movlw 

B'llOOOOOl' 

;   select:  RC  OSC,   chO . . . 

movwf 

ADCONO 

;    turn  on  A/D  &  ADIE 

movlw 

ADTABLB 

;  point  fsr  to  to^  of . . . 

FSR 

;  table 

v;        ---1  '-J.  V 

bsf 

ADCOHO,  2 

;  start  new  A/D  conversion 

sleep 

;   goto  sleep 

;    when  A/D  is  over 

program  will  continue  from  here 

ADSES,  V     '    '  ^ 

!i»l?et  A/D  value 

A  detaited  code  listing  Is  in /Vppendbc  D.  ^' 
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USING  EXTERNAL  REFER^Oi 
VOLTAGE   


/UnPUCAtlONS«1 


'  VX- 


When  using  external  reference  voRage,  keep  in  mind 
(that  any  analog  input  voltage  must  not  exceed  Vref. 

An  inexpensive  way  to  generate  Vref  is  by  employ- 
ing zener  diode  (Figure  9).  Most  common  zener 
diodes  offer  5%  accuracy.  Reverse  bias  current  may 
be  as  low  as  1 0  p.A.  However,  larger  currents  (1mA- 
20mA)  are  recommended  for  stability,  as  well  as 
|t!Misf  {mp«ciim»ot  tt^  VREF  source. 

FIGURE  9  -  LOW  COST  VOLTA^  ' 
RS'ERENCE 


2$. 


c=omwoM 


Vdd 


Vref 


PIC16C71 
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POWER  MANAGEMENT  IN  USING  VREF 

In  power  sensitive  applbatlons,  user  may  turn  en  \i!<ni^ 
generator  using  another  I/O  plR  as  shoum  ki  F<^n»  f  0. 
Drive  a  '1'  on  RBI  pin  in  this  example  wttem  i^ng  the 
A/D.  Drive  s  'W'  OR  R^l  pin  when  not  using  the  A/D 
converter. 

Note  ttiat  this  way  RBI  is  not  floating.  Even  if  Vref 
decays  to  some  intemiediate  voltage,  it  will  not  cause 
the  input  buffer  on  RBI  to  draw  current. 

Alternately,  use  RAO,  RA1  or  RA2  pin  to  supply  the 
current  instead  of  RBI .  Configure  the  RA  pin  as  analog 
(this  will  turn  off  its  input  buffer).  Then  use  it  as  a  digital 


RBI 

- 

:  R 

VREF/RA3 

=  c 

PIC16C71 

.1"  ..'OC'. 

I 

FInalV,  mtiw@  r^eiwioe  vQRage  generatoFcMji^^typli- 
c^cally  t^ng  eniidilpiiWid-gap  reference)  are  available. 
These  are  more  aeoirtte. 


TABLE  1  -  ZENERS  AND  REFERENCE 
GENERATORS 


Zeners 

Vz 

Tolerance 

1N746 

3.3V 

±5% 

1N747 

3.6V 

±5% 

1N748 

3.9V 

+5% 

1N749 

4.3V 

+5% 

1N750 

4.7V 

±5% 

1N751 

5.1V 

±5% 

1N752 

5.6V 

±5% 

Voltage  References 

Vref 

Tolerance 

AD580  (Maxim) 

2.5V 

±3%  to  ±0.4% 

LM38S 

2.5V 

±1.5% 

LM1004 

2.5V 

±1.2% 

LT1009  (LIN.  Tech.) 

2.5V 

±0.2% 

LT1019  (LIN.  Tech.) 

5.0V 

±0.2% 

LT1021  (LIN.  Tech.) 

5.0V 

±0.05%  to  ±1% 

LT1029  (LIN.  Tech.) 

5.0V 

±0.2%  to  ±1% 

e  ij^Mi«miti#  <Miii»tBes^  tise. 


VREF  IMPEDANCE  AND  CURRENT 
SUPPLY  REQUIREMENTS 

Idaally,  Vbef  shouldhaw  tS^OadtHwHrtpwanfte 
as  possible.  Referring  to  Figure  9,  Vbef  source 
impedence  »  R.  However,  smaller  R  Increases  cur- 
.i;eri{t  consun^ttion.  Since  Vref  is  used  to  charge 
6apabltOr  arii^s  inside  the  A/D  converter  and  the 
holding  capacitiir  Cm@l|3  <•  51  pF,  the  followihg  guide- 
line should  tw  msC     ^^ti.  -  - 

tad  =  6  (1 K  +  R)  51 .2  pF  +  1 .677ns 

conversion  clock.  For  tad  =  2^8  and  for 


tad 


-son. 


For  Vref  impedance  higher  than  this,  the  conversion 
clock  (tad)  should  b»  increased  appropriately.  <^ 


neUREH  -  POWER-SENSITIVE 
APPLICATIONS  #2 


RAO 

:  -.1-1 

VrefTRAS 

z 

1  i 

t 

PIC16C71 

Table  2  gives  examples  of  the  maximum  rate  of  conver- 
sion perbit,  relating  to  the  voltage  reference  impedance. 

no  '  I 

TABLE  2  -  MAXIMUM  RATE  OF  , 


To  achieve  a'low  smirce  Impedance  when  ustr^t^ener 
dkxte,  a  voltage  folk>wer  circuit  is  recommended.  This 
is  shown  in  Figure  1 1  A. 


R6URE11A- 


VOLmGE  FOLLOWER 


Vdd 


'  Low  source 
knpedanee 
Zenar 


Any  general  purpose 
op^Amp  (LM358,  LM324,  „.) 


Rvref 

Tad  (Max) 

"1K 

2.29  \is 

5K 

3.52  ns 

10K 

5.056^5 

50K 

16.66)18 

100K 

32.70  m,. 

CONFIGURINC  PORT  A  INPUTS  AS  ANALOG 
OR  DIGITAL 

I 

I  Two  bHs  in  ADCON1  registisr  PCFG1  and  PCFGO  con- 
trol how  pins  RA0t-RA3  ard  configured.  .yW|sn  <Bpy  of 
'  these  pins  are  selected  as  anatog: 

•  The  digital  input  buffer  is  turned  off  to  save  current 
(see  Figure  12).  Reading  the  port  will  read  this  pin  as 

'0'. 

•  TRISbitstiilcontrolstheoutputbufferonthispin.  So, 
^  Domial^thsTRISbBwillbesst^input). 

•  However,  If  the  TRIS  itf  is  clearad,  Uwn  the  pin  will 
^  output  whatever  is  in  the  data  lalch. 

JPtfH)  ar^  a(  these  pins  are  selected  as  digRid: 

•  Theanido|inptrtsliltdlreGllyoonneclstottieA/Dand 
ftepefore  tiie  pirf  can  be  used  as  cnaiog  input. 

•  Thedlgital  input  buffer  is  not  disabled. 

The  uMr  has,  therefore,  great  flexibility  in  configuring 
1  pins.  |.  i' 

i       -  ' 


i.-*r- 


Assumes  no  extemal  capacitors. 


3-131 


y^ng  t»ie  l^bg  1J»  PigM  MBOiM' 


CURRENT  CONSUNTPTION  TMROUBWI  «»V 
INPUT  BUFFER  •  '"^ — -'B 

A  CMOS  input  buffer  wlli'dHMF  eurrent  when  the  Infxit 
voltage  is  around  its  threshold.  (See  Figure  13.) 

In  power-sensitive  applications,  the  RA  pins  when  used 
as  analog  inputs  should  be  configured  as  'an^jog*  p 
avoid  unintended  power  drain. 

OWwreoniiilinBons  wtdfips:  -  >; 

1 .  H  possible,  avoid  any  dlgtel  output  next  to  analog 

inputs. 

2.  Avoiddlgital  inputsthatswij^l(9(|Mpill|r^^g.,-etack^ 
next  to  analog  inputs.  „  , 

should  exceed  Vref. 
SUMMARY 

The  PIC16C71  A/D  converter  is  simple  to  use.  It  Is 

Authors:    Sumit  Mitra,  Stan  D'Souza  and 
I  Russ  Cooper 

I  Logic  PnxJucts  Division  j 


(.    .  ■   1.  ..  1.1   :^.v  S  ■    tf>'  crti  <^airvuM 


VTH  =  Threshold  of  the  inverter 

Vtn  =  Device  threshold  of  NMOS  pull-down  ,'  ., ,  i  • 


-Vtp  =  Device  threshold  of  PMOS  pull-up  ;  —  -  . 

I  -  On-cuiraiii(orttiioii{^cwi<M0  eflh9lnvwtar     —  ^  — — — 

Max  =  Maximurn  oiii^tHiBntoegMltwtwn  V>w  »  Vm.  iBIlw  of  |idM>S^|>£ftiilli  on  tfie  sizes  of  tha  devices. 
The  larger  the  devtees,  the  faster  the  Input  biifTer,  and  the  tetiger  fhe  value  of  Imax. 

Typically,  (max  =  0.2mA  -  1mA. 


FieiME12  -  BLOCK  BPiafMaWiaPywtrtatoT 

RAO-RM  PWKf '^"^^ » 

A'  ■  •  Jtii'''  111  nw'  if  ■ 


Data 
bus 


"WR 
PORr 


"WR 
TRIS" 


Analog  input 
to  A/D.Gonvetter 


FIGURE  13  -  A  SIMPLE  ClUOS  INPUT  BUFFER: 
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U^grtlit  ilHaiog  to  Digital  ^Hiieltef- 


.mvmmtt'WmGLE  chanmel  a^<sad) 


1 

SJiD^^kSK  7-15- 

1994  13:27:21 

PAQE  1 

j^jgflBgy  CODE 

LINE 

SOURCE  TEXT 

0001 

;TITLE       "Single  channel  A/D  (SAD)' 

0002 

;This  program  is  a  simple  in^ilenientation  of  the  PIC16C71's 

0003 

;A/D.   1  Channel 

is  selected  (GHO) . 

0004 

;The  A/D  is  configured  as  follows:  ' 

0005 

.              vref  = 

+5V  internal. 

0006 

;             A/D  Osc.  =    internal  RC 

0007 

;              A/D  Channel  =  CBQ 

0008 

;  Hardware  for  this  progratt^W  tKS  FTCDEMO  board. 

0009 

0010 

0011 

LIST  P= 

16C71,F=INHX8M 

0012 

J 

0013 

ixiclude  "picreg.equ* 

0083 

0013 

0014 

; 

0010 

0015 

TEMP  EQU 

lOh 

0001 

0016 

adif  equ 

1 

0017 

adgo  equ 

2 

wvls 

; 

003.9 

ORG 

0x00 

■  -  ~~- 

0020 

0021 

0022 

goto 

start 

0024 

org 

0x04 

0004 

281C 

0025 

goto 

service_int 

; interrupt  vector 

0026 

0027 

0028 

org 

0x10 

0029 

start 

0010 

3000 

0030 

movlw 

B'OOOOOOOO' 

;set  port  b  as 

0031 

movwf 

PORT_B 

;all  outputs 

0012 

0066 

0032 

tris 

PORT_B 

;  / 

0033 

; 

0013 

201B 

0034 

call 

InitializeAD 

0035 

update 

0014 

0809 

0036 

movf 

ADRES , W 

;get  a/d  value 

0015 

0086 

0037 

movwf 

PORT_B 

; output  to  port  b 

0016 

2025 

0038 

call 

SetupDelay 

; setup  time  >=  lOuS. 

0017 

1088 

0039 

bcf 

ADCONO.adif 

; clear  int  flag 

0018 

1508 

0040 

bsf 

ADCONO,adgo 

; start  new  craverslon 

0041 

loo^ 

0019 

1888 

0042 

btfsc 

ADCOiro,adif 

;a/d  done? 

OOIA 

2814 

0043 

goto 

update 

;yes  then  update  new  value 

00  IB 

2819 

0044 

goto 

loop 

;no  then  keep  checking 

0045 

0046 

;no  interrupts 

are  enabled,  so 

if  the  program  ever  reaches 

0047 

;it  should  be  returned  with  the  global  interrupts  disabled 

0048 

serviee.int 

0049 

return 

;do  not  et^le  global. 

0050 

0051 

0052 

0053 

; InitializeAD, 

initializes  and 

sets  up  the  A/D  hardware. 

0054 

; Select  chO  to 

c^3  as  analog  ii^ts,  fosc/2  and  read  ch3. 

0055 

0056 

InltialixeAD 

OOID 

1683 

0057 

STATUSES 

;  select  pgl 

001^  ^000 

0058 

movlw 

B'OOOOOOOO* 

; select  chO-ch3 . . . 

OOlf 

0059 

movwf 

ADCONl 

;as  analog  iz^mts 
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0020  1283 

0021  30C1 

'  0O€1 

0022  0088 

0062 

Art'^■^  Aiort 

0023  0189 

0063 

clrf       ADRES                   ;clr  result  reg. 

AA1JI  AAAO 

0024  OOOS 

0064 

return 

0065 

;                                                                                                         ,  J"" 

0066 

;  This  routine  is  a  software  delay  of  lOuS  for  the  a/d  seti^* 

0067 

;At  4Mhz  clock,  the  locp  takes  3uS«  so  initialize  TEilp^ 

0068 

;a  value  of  3  to  give  9uSf  plus  the  move  etc  should  zesulfc  in 

0069 

;a  total  tixiie  cA^>j^UteMiU#«           ir  / . 

0070 

Seto^Delay     r*r-n^»  «n  1=--  ..  is-rr 

0025  3003 

0071 

movlw  .3 

nn'>£  n.ABn 
U'uxe  Uu!nJ 

0072 

nowf  TEEHP 

0073 

SD 

0027  0B90 

0074 

decf sz    TEMP                   . :    r            .     • , - 

0028  2827 

0075 

goto        SD                                                       *  v.. 

0076 

retujm                                                 .   .  ■ 

0077 

0078 

0079 

BND                                                ■-,       -r  'IT..  ^ 

0080 

1  mm 

IS^lORY  USAOE 

MAP  ('X'  =  tJaed,     •-'  =  J^ma&t  t 

0000  :  3t-X  

0040  :   

JU.1  otl^r  moBDory  blocks  unused. 


Errors 
Waxnings 
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liOC    OBJECT  CODE 


iL-i. 
at  J: 


^&f4l^  '%iS.'U9*  'l3'4|jj'is'^ 


0010 
0001 

oooa 


omO  3810 


0004  281B 


0010  3000 

0011  0086 

0012  0066 

0013  201C 


0014 

0015 
0016 
0017 

mm 

0019 


0809 

0086 
2025 
1088 

tmm. 


LINE  S0D8CE  TEjCT 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0O08 
0009 
0010 
0011 
0012 
0013 
0014 
OOlS 
0016 
0017 
0018 
0019 
0083 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
002S 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
003S 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 


mux 
oil- 

!!'■■?; 


TITLE      "A/D  in  Sleep  Mode- 
This  program  is  a  simple  implementation  of  the,  PIC16C71' 
A/D  feature.  This  program  demonstrates 
how  to  do  a  a/d  in  sleep  mode  on  th^  PIC16C71-  i 
The  A/D  is  configured  as  follows: 

Vre£  -  -t^SV  internal, 

A/B  Osc.  =  internal  RC 

A/D  Interr\q>t  =  OPf ,  , 

A/D  Channels  =  ch  0 

The  chO  A/D  result  is  displayed  as  a  8  bit  binary  value 
on  8  leds  connected  to  port  b.  Hardware  used  is  that  of 
the  PICDBiO  board. 


LIST  P=16C71,P=INHX8M 
include  "picreg.eqa* 


adif 


iqpdate 


BQU 

lOh 

equ 

1 

equ 

2 

csta 

0x00 

goto 

start 

org 

0x0  4 

goto 

service_int 

org 

0x10 

movlw 

B'OOOOOOOO- 

movwf 

PORT_B 

tris 

PORT_B 

call 

InitializeAD 

msvf 

movwf 

PORT_B 

call 

SetupDelay 

bcf 

ADCON0,adif 

bsf 

ADCONO ,  adgo 

sleep 

goto 

update 

; interrupt  vector 


imaike  port  b  all 
.■outputs. 


save  in  table 


clr  a/d  flag 

start  new  a/d  conversion 


;wake  up  and  update 


OOIB  mbi 


mm 

ooab  #00 


0052 
0053 
0054 
0055 
0056 
0057 
0058 


service_int 

return 


;do  not  enable  int 


.■InitializeAD,  initializes  and  sets  v:^  the  A/D  hardwue. 

InitializeAD 

bsf  STATUS. 5  .■select  pgl 

movlw  B'OOOOOOOO'  /select  Ch0-ch3  
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OOIE 

0088 

00S9 

OOlP 

1283 

0060 

mt 

0020 

30C1 

0061 

movlw 

0021 

0088 

0062 

movwf 

0022 

018B 

0063 

clrf 

0023 

170B 

0064 

bsf 

0024 

0008 

0065 

return 

0066 

; 

0067 

;This  routine  : 

0068 

;At  4Mhz  clock 

0069 

;a  value  of  3  1 

0070 

;a  total  time  < 

0071 

SetupDelay 

0025 

3003 

0072 

movlw 

0026 

0090 

0073 

movwf 

0074 

as 

0027 

0B90 

0075 

0028 

2827 

0076 

Q«08 

0077 

return 

0078 

0079 

0080 

0081 

END 

0082 

0083 

KDCOKl 
STATUS, 5 
B'llOOOOfll 

ADCONO 
INTCON 

iiiTcen,«3iB 


; select : internal  RC ,  c 
; turn  on  a/d 
; clear  all  interrupts 
;  ao^A«  a/d  .  ^  ^  ^  , 


is  a  software  delay  of  lOuS  for  the  a/d  Aeiap. 
,  the  loop  takes  3uS,  so  initialize  TSa^  with 
to  give  9uS,  plus  the  move  etc  should  result  in 
of  >  lOuS.  -  ;s. 

»  Ob  9J  ao/f-. 

,1  -  t)  a\A  <xff:  tear. 


MAP  CX'  =  Used, 


-'  =  DBosed) 


All  other  memory  blocks  uttised. 


Errors 
WpRiiiSs 


1.  i<- 
e£OQ 

»tfl< 


CiJt^vs  tm:.-' 
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SOORCE  TEXT 

0001 

0002 

; TITLE            ^Single  channel  A/D  with  interrupts' 

0003 

;This  program  is  a  simple  implementation  of  the  PIC16C71's 

0004 

;A/D.   1  Channel 

is  selected  (CHO).  A/D  interrupt  is  turned  on, 

0005 

;hence  on  completion  o£  a/d  conversion^  an  interrupt  is  generated. 

0006 

;The  A/D  is  configured  as  follows:                           a,  ■ 

(}007 

;             Vref  =  +5V  internal. 

dt§l 

i             A/D  Osc. 

■  =  internal  RC  Oa^,..„               ,  , 

;             A/D  Interrupt  =  On 

0010 

;               A/D  Channel  =  CHO 

0011 

;The  A/D  result 

is  displayed  as 

a  8  bit  value  on  ^  leds  connected 

0013 

;to  port  b.  Hardw^e>gtvt9  ^Jf.  ^,KgOTip.b^^,.-,.  , 

It. 

'     '.     I  '      -        b  ' 

" "  O'Ois 

0016 

LIST  P=16C71,F=iNEK8M 

0017 

0018 

include  •picreg.equ*      .  . 

J                            "'                              '  J 

0083 

0018 

t 

0020 

10 

OOll 

0021 

fEHP  eqa 

11 

0000 

0022 

adover  equ 

0 

0001 

0023 

adif  equ 

1 

0002 

0024 

adgo  equ 

2 

0006 

adie  equ 

6 

0007 

0026 

gie  equ 

7 

0027 

rpO  equ 

S 

0028 

; 

0029 

086 

0x00 

0030 

aiA&a  gal  a 

0032 

goto 

start 

0033 

&034 

org 

0x04 

UUU4  AOX\^ 

0035 

goto 

■•rvic*_acl 

;  interrupt  vector 

0036 

0037 

0038 

org 

0x10 

0039 

start 

0010  3000 

0040 

movlw 

B'OOOOOOOC 

;init  i/o  ports 

0011  0086 

0041 

m<»nir£ 

0012  0066 

0042 

tris 

0043 

0^13  20122 

0044 

call 

Initialized^ 

0045 

update 

0014  1010 

0046 

bcf 

flag, adover 

;reset  software  a/d  flag 

0015  202B 

0047 

call 

SetupDelay 

; setup  delay  >=  lOuS. 

0016  1088 

0048 

bcf 

ADCONO.adif 

; reset  a/d  int  flag  (ADIF) 

0017  1508 

0049 

bsf 

ADCONO , adgo 

; start  new  a/d  conversion 

mm-  ^'im- 

ooso 

bsf 

INTCON.gle 

; enable  global  interrupt 

0051 

loep 

0019  1810 

0052 

btfsc 

flag. adover 

;a/d  over? 

OOIA  2814 

0053 

goto 

update 

;yes  start  new  conv. 

mm  2t£» 

0054 

goto 

lo<9 

;no  th«i  keep  checking 

0055 

0056 

OOIC  lC8«t 

0057 

btfss 

APCCtlO.adlt 

;ad  interrupt? 

mm  m&B 

0058 

retfie 

;no  then  Ignore 

Otis  d«09 

0059 

movf 

AI>RES,W 

;get  a/d  value 
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OOIP 

0086 

0060 

0020 

1410 

0061 

0021 

0008 

0062 

0063 

0064 

0065 

0066 

0067 

0022 

1683 

0068 

0023 

3000 

0069 

0024 

0088 

0070 

0025 

12%3 

0071 

0026 

018B 

0072 

0027 

170B 

0073 

0028 

30C1 

0074 

0029 

0088 

007S 

002A 

0008 

0076 

0077 

0078 

0079 

0080 

0081 

0082 

002B 

3003 

0083 

002C 

0091 

0084 

0085 

002D 

0B91 

0086 

002E 

282D 

0087 

002F 

0008 

0088 

0089 

0090 

0091 

0092 

0093 

movwf  PORT_B 

bsf  flag^adover 


; output  to  port  b 

;a/d  done  set 

;clo  i3ot  doable  int 


;  InitializeAD, 
/select  chO  to 
InitializeAD 


initializes  ctnd  sets  up  the  A/D  haZ^ffare. 
ch3,  RC  OSC,  a/d  interrupt. 


bsf 

STATUS ,  rpO 

; select  pgl 

movlw 

B'OOOOOOOO' 

; select  ch0-ch3...^ 

movwf 

ADCONl 

; as  analog  inputs 

bcf 

STATUS ,  rpO 

; select  pgO 

clrf 

INTCON 

;clr  all  interrupts 

bsf 

INTCON.adie 

;enable  a/d  int. 

movlw 

B'llOOOOOl' 

;iBelect:RC  osc,chO. 

movwf 

ADCOMO 

;turn  on  a/d 

return 

;This  routine  is  a  software  delay  of  lOuS  for  the  a/d  setup. 
;At  4Mhz  clock,   the  loop  takes  3uS,   so  initialize  TEI^  with 


;a  value  of  3  to  give  9uS 
;a  total  time  'et  & 
SetupDelay 

gevwf  TSSSl' 


SD 


decf  sz 

goto 

3»tuxa 


TEMP 
SO 


plus  the  move  etc  should  result  in 


,  ,:,Ci 
0  /  -i 


MEHGRY  USAGE  MAP  CX' 


0000  :  Z-X- 
0040  !   


xxxxxxiacmcmsm  imsmx 


All  other  awniozy  bloelu 


Errors 


1  m.« 

t  19^1:. 

.:q- 

ai 

up» 

f» 

3 

(MO 

sum 

tWV9« 

,  i>:oo 


ti.O'j 

Sioo 


1=  f.  .-.)  or  aila**  J  MOO  ilfto 
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APPENDIX  D 

HFASM  1.00  Released       MPLTiffl.^l  u,^f>^-l|(9%  ,^.1^7  <M.  1  ?i  i  :  . 


LOC 

OBJECT  CODE 

LINE  SOURCE  TEiPr 

0001 

TITLE 

"A/D  using  Multiple  Channels' 

0002 

This  program  is  a  simple  implementation  of  the  PIC16C71's 

0003 

A/D  feature.  This  program  demonstrates 

0004 

fapW'  to  select  multiple  channels  on^J^he  PIC16C71.,., 

0005 

The  A/D  is  configured  as  follows:                          ,  . 

0006 

Vref  = 

+5V  internal . 

;0M7 

A/D  Osc.  =  internal  RC 

osc. 

0003 

A/D  Interrupt  =  Off 

0009 

A/D  Channels  =  all  in  a 

"Round  Robin'  format. 

0010 

A/D  reuslts  are  stored 

in  ram  locations  as  follows: 

0011 

ciiO  -> 

ADTABLE  +  0 

0012 

eiil  -> 

ADTABLE  +  1 

0013  ' 

■  ;.  »  ■  * 

oh2  — > 

ADTABLE  +  2 

0014 

ch3  -> 

ADTABLE  +  3 

0015 

.J  0016 

The  chO  A/D  result  is  displayed  as  a  8  bit  value  on  8  leds 

0017 

connected  to  port  b. 

0018 

Hardware:  PICDEMO  board. 

0019 

Stan  D'Souza  7/6/93.  . 

£ 

0020 

0021 

LIST  P 

=16071, F=INHX8M 

0022 

0023 

include  "picreg . equ* 

0083 

0023 

0024 

0010 

0025  TEMP 

0001 

0026  adlf 

»m 

1 

i'                i  ^  " 

0002 

0027  adgo 

em 

2 

0028 

0006 

0029  Ch2 

equ 

6 

0007 

0030  ch3 

equ 

7 

OOOC 

0031-fli^  (  . 

,eqp . 

OG          ^ .    .  - 

0020 

0032  SBfABld 

jegu 

20  ,| 

0033 

0034 

ORG 

0x00 

0035 

0036 

0000 

2810 

0037 

goto 

start 

0038 

0039 

oxg 

0x04 

0004 

2823 

0040 

,{4^feBrrupt  ve^fei^ 

0041 

•wer- 

0042 

0043 

org 

^0 

0044  start 

0010 

3000 

0045 

movlw 

B'OOOOOOOO' 

■          port  b      ,  ,  ; 

0011 

0086 

0046 

movwf 

PORT_B 

;as  all  outputs 

0012 

0066 

0047 

tris 

PORT_B 

1  : 

0048 

0013 

2024 

0049 

call 

InitializeAD 

op* 

0050  update 

0014 

0809 

0051 

movf 

ADRES.W 

0015 

0080 

0052 

movwf 

0 

;save  in  table 

0016 

3020 

0053 

movlw 

ADTABLE 

;chk  if  chO 

0017 

0204 

0054 

subwf 

FSR.W 

;  .  / 

0018 

1D03 

0055 

btfss 

STATUS, Z 

;yeB  then  skip 

0019 

281C 

0056 

goto 

NextAd 

jelse  do  next  channel 

OOIA 

0809 

0057 

movf 

ADRES.W 

;get  a/d  val^S; 

OOIB 

0086 

0058 

movwf 

P{«T_9 

;oat^t  to  port  b 

0059  NextAd 

eiao^MUncNpTaeKriology  Inc. 
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OOIC 

202E 

0060 

call 

NextChannel 

;  select  next  channel 

OOID 

203A 

0061 

call 

SetupDelay 

;set  up  >  =  lOuS 

OOIE 

1088 

0062 

bcf 

ADCON0,adif 

; clear  flag 

110:8 

0063 

bof 

ADCONO.ai^o 

0064 

loop 

;a/d  done?  - 

0020 

1888 

0065 

btfSG 

ADCONO.adif 

0021 

2814 

0066 

goto 

update 

;yes  then  update 

0022 

2820 

0067 

gets 

loop- 

;wait  till  done 

0069 

0023 

0008 

0078 
0071 
0072 

• 'fceSten 

! 

;do  not  enable  int 

0073 

jInitializeAD, 

initializes  and 

sets  up  the  A/D  hardware. 

0074 

0024 

1683 

■select  pgl    •  ^^'^ 

0025 

3000 

■  0076 

movlw 

B'OOOOOOOO' 

;select  chO-cJi3.  . . 

0026 

0088 

0077 

movwf 

ADCONl 

; as  analog  inputs 

0027 

1283 

0078 

bcf 

STATUS, 5 

; select  pgO 

0028 

30C1 

0079 

movlw 

B'llOOOOOl ' 

; select: fosc/2 ,  chO. 

0029 

0088 

0080 

movwf 

ADCONO 

;turn  on  a/d 

002A 

3020 

0081 

movlw 

ADTABIiE 

;get  top  of  table  address 

002B 

0084 

•V  J  1  a  S  novwf 

FSR 

;  load  into  indirect  reg 

002C 

0189 

0083 

clrf 

ADRES 

;  olr  TMWilt  reg. 

0020 

0008 

0084 

return 

0085 

0086 

;  NextChaimel , 

selects  the  next 

channel  to  be  sali^led  in  a 

0087 

;  "round- robin" 

format. 

0088 

0D2E 

3008 

0089 

inovlw 

0x08 

;get  channel  offset 

ao2i' 

0738 

0090 

AOeoMO 

;add  to  conf.  reg. 

0030 

1288 

0091 

Bat 

ADC«MSrO,5 

;  clear  any  carry  over 

0092 

/increment  pointer  to  correct  a/d  result  register 

0031 

0190 

0093 

clrf 

TEMP 

0032 

1988 

0094 

btf  sc 

ADCONO ,  3 

;test  Isb  of  chnl  select 

0033 

1410 

0095 

bsf 

TEMP,  0 

; set  if  chl  or  ch3 

0034 

1A08 

0096 

btfsc 

ADCONO , 4 

; test  msb  of  chnl  select 

0035 

1490 

0097 

bsf 

TEia>,l 

;  set  if  chO  or  ch2 

0036 

3020 

0098 

movlw 

ADTABLE 

;geb  top  of  table 

0037 

0710 

0099 

addwf 

TEMP,W 

;a^%l:tti  teitp 

0038 

0084 

OltO 

movwf 

FSR 

;a.WBSisM'^^em  address 

0039 

0008 

0101 

return 

0102 

0103 

;This  routine 

is  a  software  delay  of  lOuS  for  the  a/d  setup 

0104 

;M  ^SMI  milseSK,  the  loc^  takes 

3uS,  so  initialize  TEUp  with 

01  OS 

ti  valu«i  i:^  3 

to  give  9uS,  piius  the  "move  etc  should  result 

0106 

; a  total  time 

of  >  lOuS. 

0107 

SetupDelay 

'J 

003A 

3003 

0108 

aovlw 

.3           ■  -' 

■  t.f.j 

003B 

0090 

0109 
0110 

SD 

;  l)"0 

m3c 

0B90 

0111 

C'<'  15*0 

@03D 

283C 

0112 

0009 

0113 

i:  ill? Owl" a 

0114iJiKj.1iri  if»  a* 

0115 

one 

0117 

END 

0118 

0119 

1>, 

MEMORY  OSAGE  mP  CX'  =  Used,     ■-'  =  Onused) 


0000   :  X-X   XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX  XXXXXXXXXXXX3GCX- 

0040  :  --—   . 

All  other  memory  blocks  unused.  '".■•i?"lA       i  -«  rsoo 

.  c  :  ijii---  ,  ti  ir.ifi:  ««"J0 

Errors      :        0  •.n*-^* 

Warnings  :  0 
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iNtRODUCTIGN 

The  PIC16C71  is  a  member  of  a  new  family  of  8-bit 
microcontrollers,  namely  the  PIC16CXX.  The  salient 
features  of  the  PIC16C71  are: 

•  Improved  and  enhanced  Instruction  set ,,,  1*1. 1'. 

•  14-bit  instruction  word  i^,    <•  -.qt^^  tiruD  *M  OS'YMM* 

•  Intemjpt  capability 

•  On<hip1burchaiOTel,8-baA/Dconv«rt«'r''''^ 

This  application  note  demonstrates  the  capability  of  the 
PIC16C71.  To  make  this  application  note  easier  for  the 
end  user,  R(has  been  bMisn  dQwn  into  four  sub-sec- 
tions: 


Section  1:  ImplementsthemultiplexingoffourTseg- 
ment  LEDs  with  the  PIC16C71. 

Section  2:  Implements  the  multiplexing  of  four  7  seg- 
ment LEDs  as  well  as  the  sampling  of  a 
4x4  Keypad. 

Section  3:  Implements  the  multiplexing  of  four  7  seg- 
ment LEDs  as  well  as  the  sampling  of  one 
A/D  channel. 

Section  4:  Implements  the  multiplexing  of  four  7  seg- 
ment LEDs,  sampmom  AmfKtmMlftM 
four  A/D  channete. 

PIGttRE't-  MULTm£»NG  F0UR7S^|ME^rrLeDr 


SECTION  1:MyL7Pt.eeiN@70(IR7 
SEGMENT  LED  DISPLAYS 

The  PIC1 6C71  's  I/O  ports  have  an  Improved  sink/source 
specifk»tk>n.  Each  ,1/0  pin  can  sink  up  to  2$  mA  and 
source  20  mA,  In  addition  total  Pott  B  sour»  cun'ent  is 
1 00  mA  and  sink  current  is  150  mA.  Port  A  is  rated  for 
50  mA  source  current  and  80  mA  sink  cun'ent.  This 
makes  the  PIC16C71  ideal  for  driving  7  segment  LEDs. 
Since  the  total  number  of  I/O  Is  limited  to  13,  the  B-bit 
Port  B  Is  used  to  drive  the  8  LEDs,  while  external  smk 
transistors  or  MOS  FETs  are  used  to  sink  the  digit  current 
(See  Figure  1).  Another  alternative  is  to  use  ULN2003 
open  collector  sink  current  drivers,  whteh  are  available 
in  16  pin  DIP  or  very  small  SO-16  packages.  Each 
transistor  on  the  ULN2003  can  sink  a  maxinium  o(.5C^ 
mA  and  the  bass  drive  can  be  directly  driven  fromltfie 
Port  A  pins. 
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4.7K 
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Software 

The  multiplexing  is  achieved  by  turning  on  each  LED  for 
aSmsec  duration  every  20|#.  This  gives  an  update  rate 
0f  SO  Hz,  which  is  quite  exeaptable  to  the  human  eye  as 
a  steady  display.  The  5  msec  time  base  is  generated  by 
dividing  the  4.096  MHz  oscillator  clock.  The  internal 
prsscaler  is  configured  to  be  a  divide  by  32  and  assigned 
to  the  RTCC.  The  RTCC  is  pre-loaded  with  avalue = 96. 
The  RTCC  will  increment  to  FF  and  then  roll  over  to  00 
after  a  period  =  (256-96)*{32*4/4096000)  =  5  us.  When 
the  RTCC  rolls  over,  the  RTIF  flag  is  set  and  since  the 
RTIE  aOd  @IE  bits  are  enabled,  an  inten'upt  is  gener- 


The  software  Implements  a  simple  timer  which  incre- 
ments at  a  1  second  rate.  Every  second,  the  4  nibble 
(two  8-bit  registers  MsdTlme  and  LsdTime)  are 
incremented  in  a  BCD  format.  The  lower  4  bits  of 
LsdTime  correspond  to  the  least  significant  digit  (LSD) 
on  the  display.  The  high  4  bits  Of  LsdTtme  coirespond 
to  the  second  significant  digit  of  the  display  and  so  on. 
Depending  on  which  display  Is  turned  on,  the  corre- 
sponding 4  bit  BCD  value  is  extracted  from  either 
MsdTlme  or  LsdTime,  and  decoded  to  a  7  segment 
display.  The  RTCC  interrupt  is  generated  at  a  steady 
rate  of  5  (is  and  given  an  instruction  time  of  1  us.  The 
entire  display  update  program  can  reside  in  the  interrupt 
service  routine  with  no  chance  of  getting  an  interrupt 
within  an  interrupt.  Tlie  Code  listing  for  Section  1  is  in 
Appendix  A. 


SECTION  2:  MULTIPLEXING  FOUR  7 
SEGMENT  LED  DISPLAYS  AND 
SCANNING  A  4X4  KEYPAD 

Hardware 

A  4x4  keypad  can  be  very  easily  interfaced  to  tfte 
PIC1 6071  's  Port  B  (see  Figure  2).  Internal  pull-ups  on 
pins  RB4  to  RB7  can  be  enabled  and  disabled  by  setting 
the  RBPU  bit  in  the  OPTION  register.  The  internal  pull- 
ups  have  a  value  of  20Kat  5V  (typical).  In  order  to  sense 
a  low  level  at  the  input,  the  switch  is  "connected"  to 
ground  through  a  2.2K  resistor.  A  key  hit  normally  lasts 
from  50  msec  to  as  long  as  a  person  holds  the  key  down. 
In  order  not  to  miss  any  key  hits,  the  keypad  is  sampled 
every  20  ^s  Gust  after  the  update  of  the  MSD). 

Software 

To  sample  the  keypad,  the  digit  sinks  are  first  disabled. 
Port  B  is  then  configured  with  RB4-RB7  as  inputs  and 
RBO  -RB3  as  outputs  driven  high.  The  pull-ups  on  RB4- 
RB7  are  enabled.  Sequentially  RBO  to  RB3  are  made 
low  while  RB4  to  RB7  are  checked  for  a  key  hit  (a  low 
level).  One  key  hit  per  scan  is  demonstrated  in  this 
program.  Multiple  key  hrts  per  scan  can  very  easily  t>e 
implemented.  Once  the  key  hit  is  sensed,  a  40  msec 
debounce  period  elapses  before  key  sampling  is  re- 
sumed. No  more  key  hits  are  sensed  until  the  present 
key  is  released.  This  prevents  erroneous  key  inputs. 

ilie  pc^tipp^fSiQaHif^ ittputs  the  key  hit  and  displays  its 
value  as  a  hexadeclmai  character  on  the  multiplexed  7- 
sagment  LEDs,  The  Code  Listing  for  Sectkin  Ziiei  in 
Appendix  B. 


FIGURE  2  -  MULTIPLEXING  FOUR  7  SEGMENT  LEDS  WFTH  A  4X4  KEYPAD 
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SECTION  3:  MULTIPLEXING  F0tm7 
SEGMENT  LED  DISFUIiYSi  ANDjrilE.  !^ 
A/D  CHANNEL  0 

Hardware 

The  four  analog  channels  are  connected  to  RA0-RA3.  If 
any  of  these  pins  are  used  normally  as  digital  I/O,  they 
can  momentarily  be  used  as  analog  inputs.  In  order  to 
avoid  interference  from  the  analog  source,  it  is  advisable 
to  buffer  the  analog  input  through  a  voltage  follower  op 
amp,  however,  it  is  not  always  necessary.  Figure  3A  and 
3B  show  some  typical  configurations.  In  this  application, 
the  analog  input  is  a  potentiometer  whose  wiper  is 
connected  through  an  RC  network  to  channel  0.  TheRC 
is  necessary  in  order  to  smooth  out  the  analog  voltage. 
The  RC  does  contribute  to  a  delay  In  the  sapling  titne, 
however  the  stabittty  dt  the  analog  i 
improved. 

Software 


FKmRe^-TfPiCAL  CONNECTION  FOR 
ANALOG/DIGITAL  INPUT 


DlgttalK) 


Analog 
Input 


IK 


PIC16C71 


RAO 


FIGURE  3B  -  TYPICAL  CONNECTION  FOR 
ANALOG/DIGITAL  INPUT 


The  analog  Input  is  sampled  every  20  msec.  The  digit 
sinks  and  the  drivers  are  turned  off  i.e.  Port  A  is  config- 
ured as  an  Input  and  Port  B  outputs  are  made  low.  A 
1msec  settling  time  is  allowed  for  the  external  RC 
network  connected  to  the  analog  input  to  settle  and  then 
the  A/D  conversion  is  started.  The  result  is  read  then 
converted  from  an  8-bit  binary  value  to  a  3-digit  BCD 
value  which  is  then  displayed  on  the  7  Segment  LEDs. 

The  Code  Usllng  tor  Sadion  3  HlHHMWMIrtfc  tAJ^.-Jt'i  HflW  n37-:;MTJ3V  J:3i 


Digital  I/O 


IK 

Analog* — ^AA- 
input 

10  nF: 


PIC16C71 


RAO 


I-  J.'ll  I  ■  1 


^    i:    i    ?.  =r^  .. 
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SECTION  4:  MULTIPLEXING  FOUR  7 
SEGMENT  LED  DISPLAYS  WITH  A 

4X4 jCEypAaAND4 .tm'Ommmm.  ^ 

Hardware  I 

This  section  essentially  incorporated  Sections  1 ,  2  and 
3  to  give  a  complete  four  channel  voltmeter.  Figure  4 
slwws  a  typical  configuration.  The  analog  channels  are 
connected  through  individual  potentiometers  to  their 
respective  analog  inputs  and  are  sampled  every  20 
msec  in  a  round  robin  format.  The  sampling  rate  can  be 
increased  to  as  fast  as  once  every  5  us  if  required.  The 
l<aypad  sampling  need  not  be  any  faster  than  once  every 
20  ms.  j 

Software 

The  program  samples  the  analog  inputs  and  saves  the 
result  in  four  consecutive  locations  starting  at 
"ADVALUE",  with  channel  0  saved  at  the  first  location 
and  so  on.  By  default,  channel  0  is  displayed.  If  Key  1 
is  pressed,  channel  1  is  displayed  and  so  on.  Key  hits 
>  3  are  ignored.  The  Code  Lislfeig  for  Se6|iin  4  It  M 
Appendix  D.  ^ 


FIGURE  4- FOUR  CHANNEL  VOLTMETER  WITH  DISPLAY  AND  KEYPAD 


LECMOO 


Code  Size 

Section  1:  Progtam  Memoiy:  139 

Data  Memory:      iJ3W'«  ,"  ,  .  '  U 
Sei^ion  2:  Program  Memoiy:  207  ^.^^  . , 

Data  Memory:  13 
Section  3:  Program  Menwry:  207 

Data  Memoiy:  17 
Section  4:  Program  Memoiy: 

Data  Memoiy: 
Conclusion 

The  four  A/D  channels  on  the  PIC16C71  can  be  multi- 
plexed with  digital  I/O,  thus  reducing  overall  pin  counts 
and  improving  I/O  pin  usage  in  an  analog  applicatioh. 


Author:  Stan  D'Souza,  Logh  Products  Division 
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APPENDIX  A 

HFASH  B0.50  *J      ■  11  PAOB  1 


********************************************************************* 
This  program  is  to  demonstrate  how  to  multiplex  four  7  segment  LED 
digits  using  a  PIC16C71.  The  four  digits  will  start  at  0000  and 
increment  at  a  1  sec  rate  up  to  9999. 

The  IiEDs  axe  updated  every  5  msec,  for  a  maltiplexing  rate  of  20  msec. 
Th*  tSOd  Kimm  is  used  in  internal '  internq^  mode  to  gowrate  tlu>  ¥  insAc. 

Stan  D'Souza' 5/8/93 

******************************  *  ***************ftAi(jfi4l%ik***************** 

LIST  P=16C71,  F=INHX8M 

include  "picreg.equ" 


oooc 

TempC 

equ 

0x0  c 

;  teaip  general  purpose  regs 

GOOD 

TempD 

equ 

OxOd 

OOOE 

TempE 

equ 

OxOe 

OOOF 

Count 

equ 

OxOf 

;cobtit 

0010 

MadTjane 

equ 

0x10 

;iiiost  significant  Timer 

0011 

equ 

0x11 

; Least  significant  Timer 

0001 

equ 

1 

0002 

PCL 

equ 

2 

0026 

BcdMsd 

equ 

26 

0027 

Bod 

equ 

27 

org  0 

0000  280S  goto       Start  .-skip  over  internet  vector 


0004  281D 


■  i©rg  4 
^"•Stto:  ServicelMI^£«jpts 


0005  2008 

0006  2012 


0007  2807 


0008  1683 

0009  3003 
OOOA  0108 
OOOB  0205 

OOOC  0206 
OOOD  1283 
OOOE  0185 
OOOF  0186 

0010  1585 

0011  0008 


Start 


loop 


InitPorts 


call 

InitPorts 

call 

InitTimers 

goto 

lo<^ 

bsf 

STATUS, iftiO  • 

; select  pg  1 

loovlw 

3            -'  ■ 

;make  RAO-3  digital  I/O 

movwf 

ADCONl 

/ 

clrf 

roisA 

;inake  RA0-'4  outputs 

clrf 

TRISB 

;make  RBO-7  outputs 

bcf 

STATUS,  RPO 

; select  page  0 

clrf 

PORT_A 

;iriake  all  outputs  low 

clrf 

PORT_B 

/ 

bsf 

P0RT_A,3 

; enable  MSB  digit  sink 

0012  0190 

0013  0191 

0014  1683 

0015  3084 


The  clock  speed  is  4.096Mhz.  Dividing  internal  elk.  by  a  32  prescaler, 
the  rtcc  will  be  incremented  every  31.25uS.   If  rtcc  is  preloaded 
with  96,   it  will  take  (256-96 )  *3 1 . 25uS  to  overflow  i.e.  5msec.  Scr  the 
end  result  is  that  we  get  a  rtcc  interrupt  every  5msec. 


clrf 
clrf 
bsf 
movlw 


MsdTime 
LsdTime 
STATUS,  RPO 
B'lOOOOlSO' 


clr  timers 

/ 

select  pg  1 
assign  ps  to  rtcc 


0 1994  Miciochip  Technology  Inc. 


DSQQSS7B-pags  5 


Four  Channel  Digital  Voltmeter  with  Display  and  Keyboard 


0016 

0081 

;ps  =  32 

0017 

select  PS  0 

0018 

3020 

; 

0019 

OOSB 

novwC 

i 

OOIA 

3060 

movlw 

.96 

OOIB 

0081 

movwf 

RTCC 

OOlC 

0009 

retf ie 

Service Interrupts 

OOID 

190B 

INTCON.RTIP 

rtec  interrupt? 

OOIE 

2822 

goto 

S^rviceST(;c 

yes  tfafW  ^wyice 

OOIF 

3020 

0020 

008b 

movwf  . 

0021 

0009 

retf ie 

ServiceRTCC 

0022 

3060 

movlw 

0023 

0081 

movwf 

RTCC 

0024 

HOB 

bQ£ 

0025 

2028 

eall 

0026 

2050 

c«ll 

0027 

0009 

retfie 

^.  ~.  jSk^,  d^^l9i]f  ,i#  izu^eojiented  every  200* 

Smsec  =  1  Sec.7> 

Inc^imer 

0028 

OAOF 

incf 

CowA.m 

inc  count      ^  t 

0029 

3AC8 

xorlv. 

.206  \:, 

=  200?  J 

002A 

1903 

STATDS.Z  ^ 

-  ,;no  then 

002B 

282B 

-   ,             goto-  . 

DonacTime     i  ; 

else  ine.;$^tesu: 

002C 

0A8F 

incf 

Count 

002D 

0008 

return 

( 

DoIncTime 

»£ 

■■ 

002E 

018F 

clr  count 

002F 

OAll 

Iti&t 

get  Isd 

0030 

390P 

andlw 

OxOF  rj 

-    ;inask  high  nibble 

0031 

3A0A 

■  xorlw 

OxOa                    -  ■ 

=  10? 

0032 

1903 

btf  sc 

STATUS , Z 

no  then  skip 

0033 

283  6 

goto 

IncSecondLsd 

inc  next  Isd 

0034 

0A91 

incf 

LsdTime       _  _  ,  . 

; else  inc  timer 

0035 

0008 

0036 

OEll 

swapf 

;get  hi  in  low  stifle 

0037 

390F 

andlw 

; ,.  i;iiiask  hi  tttlMci 

■:  !(■  :  VI]-: 

0038 

3E01 

addlw 

1 

inc  it 

0039 

0091 

movwf 

LsdTime  t^Xfi 

3  -    ;  restore  IM^ 

003A 

0E91 

swapf 

LsdTinie 

003B 

3A0A 

xorlw 

OxOa 

=  10?          .  j 

003c 

1903 

btf  sc 

STATUS,  Z 

no  then  skip 

Q03iD 

283F 

:                 goto  , 

InoThirSEisd  i 

Q03B 

0008 

retxim 

luc'niirdLsd 

003F 

.     ,  clrf 

LsdTime 

0040 

OAIO 

incf 

HsdTime,w 

get  3rd  Isd 

0041 

390P 

A-  i  andlw 

OxOF 

mask  hi  a^fls^^ 

0042 

3A0A 

xorlw 

OxOa  a 

=  10? 

0043 

1903 

:     , :  r,  ■  ^  btfsc 

STATUS, 

no  then  skip 

■  .  ^ .  u 

0044 

2847 

goto 

else  Hsd 

0045 

0A90 

incf 

MsdTiine 

else  inc  timer 

0046 

0008 

rettim 

IncMsd 

0047 

OEIO 

swapf 

HsdTune,w 

get  hi  in  lo  nibble 

0048 

390F 

andlw 

OxOF 

mask  hi  nibble 

0049 

inc  tijaeir 

004a 

0090 

movwf 

HsdTlme 

restore  back 

004B 

0E90 

swapf 

MsdTime 

J  -, : 

/ 

004C 

3A0A 

xorlw 

OxOa 

=  10? 

004D 

1903 

btfsc 

STATDS.Z 

,^^no  then  skip 

004E 

0190 

clrf 

0a4F 

0008 

return 
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U^dateDisplay 


0050 

0805 

movf 

PORT_A,w 

0051 

0185 

clrf 

PORT_A 

0052 

390F 

andlw 

0x0  f 

0053 

003C 

aiovwf 

0054 

160C 

bsf 

Teaic>C,4 

0055 

0C8C 

rrf 

TempC 

oose 

1C03 

btfss 

STATDS.CARRV 

0057 

118C 

bcf 

Ten^,3 

0058 

180C 

btf  sc 

Teii^,  0 

0059 

286B 

goto 

UpdateHsd 

005A 

188C 

btfsc 

TempC,  1 

005B 

2866 

goto 

Update3rdLsd 

005C 

190C 

btfsc 

TeggopC,2 

005D 

2861 

goto 

I^>date2n41-sd 

qpdateLsd 

005E 

0811 

movf 

LsdTime,# 

005F 

390F 

andlw 

OxOf 

0060 

286F 

goto 

l^date2ndLsd 

0061 

2080 

call 

Cfak2LsdZero 

0062 

1D03 

btfss 

STATUS ,  Z 

0063 

OEll 

swapf 

LsdTlme.w 

0064 

390F 

andlw 

0x0  f 

0065 

286F 

Di  splayOut 

l^date3rdLsd 

0066 

2088 

call 

ChkMsdZero 

0067 

1D03 

btfss 

STATUS ,  Z 

0068 

0810 

movf 

MsdTime,w 

0069 

390F 

andlw 

0x0  f 

006A 

2S6F 

goto 

DisplayOut 

UpdateMsd 

006B 

OEIO 

swapf 

MsdTime,w 

006C 

390F 

andlw 

0x0 1 

006D 

1903 

btfsc 

STATUSES 

006E 

300A 

niovlw 

OxOa 

DisplayOut 

006F 

2074 

call 

LedTable 

0070 

0086 

movwf 

PORT_B 

0071 

080C 

movf 

TempC,  w 

0072 

0085 

movwf 

PORT^ 

0073 

0008 

0074 

0782 

addwf 

PCL 

0075 

343F 

retlw 

B' 00111111 ■ 

0076 

3406 

retlw 

B'OOOOOllO' 

0077 

345B 

retlw 

B'OlOllOll' 

0078 

344P 

retlw 

B'OlOOllll' 

0079 

3466 

retlw 

B' 01100110' 

007A 

346D 

retlw 

B' 01101101' 

007B 

347D 

retlw 

B'OlllllOl' 

007C 

3407 

retlw 

B'OOOOOlll' 

007D 

347F 

retlw 

B'Olllllll' 

007E 

3467 

retlw 

B'OllOOlll' 

007F 

3400 

retlw 

B'OOOOOOOO' 

OMtaMIZero 

0080 

2088 

call 

ChMIsdZero 

0081 

1D03 

btfss 

STATUS ,  Z 

0082 

0008 

Cetum 

0083 

OEll 

swapf 

LsdTime,w 

0084 

390F 

andlw 

OxOf 

0085 

1O03 

btfss 

STATUS, Z 

0086 

0008 

return 

;presait  sink  value  in  w 
jdi^abii  all  digits  sinks 

;sav^  sink  value  in  tesqpC 
; preset  for  Isd  sink 
;detemine  next  sink  value 
;c=l? 

;no  then  reset  LSD  sink 

;else  see  if  Msd 

;yes  then  do  Msd 

; see  if  3rdLsd 

;yes  then  do  3rd  Lsd 

;see  if  2nd  Lsd 

;ye8  theaa  do  2nd  lad 

get  Lsd  in  w 
/ 

eas^le  di^lay 

;insd  =  0  &  2  lsd  0? 
;yes  then  skip 
;get  2nd  Lsd  in  w 
jmask  rest 
; enable  display 

;insd  =  0? 
;yes  then  skip 
;get  3rd  Lsd  in  w 
;]nask  low  nibble 
; enable  display 

; get  Msd  in  W 

;inask  rest 

;in8d       0  th«a  skip 


;get  digit  out^t 

;  drive  Ij^ift 

;get  iMli  w 


■add 

to  PC 

low 

•led 

drive 

for 

0 

•led 

drive 

for 

1 

•led 

drive 

for 

2 

•led 

drive 

for 

3 

,-led 

drive 

for 

4 

;led 

drive 

for 

5 

•led 

drive 

for 

6 

•led 

drive 

for 

7 

•led 

drive 

for 

8 

■  led 

drive 

for 

9 

;  blank  led 

drive 

;insd  =  0? 

;yes  then  skip 
;else  return 
;get  2nd  lsd 
jmask  o£  LSD 
;0?  then  skip 
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0087  340A 


retlw  10 


0088  0810 

0089  1D03 
008A  0008 
008B  340A 


ChkMsdZero 

movf       MsdTime ,  w 
btfss      STATUS,  Z 
return 
retlw     .  10 


■hrfU 

get  Msd  in  w 
=07  skip 
else  return 
ret  with  10 


■■-Hi 


■1 
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.**********************************************«*******  ******* 
;This  program  is  to  demonstrate  how  to  multiplex  four  7  segment  LED 
.■digits  and  a  4X4  keypad  using  a  PIC16C71. 

;The  four  digits  will  start  as  *0000'  and  when  a  key  is  hit 
;it  is  displayed  on  the  7  segment  leds  as  a  hex  value  0  to  F.  Vba  laat  -  ' 
;  digit  hit  is  always  displayed  on  the!  right  most  led  with  the  rest  of 
;the  digits  shifted  to  the  left.  The  left  most  diftt  is  deleted. 
>  ;The  I^}s  are  updated  2Dmsec,  the  keypad  is  scanned  at  a  rate  of  20 

msec.  -■  -v'  --        >  BJ-f. 

}Hbm  Ke0l  UtaM  i»  IMleid  in  iataxaaM ■'^tacx^^  Wade  to  generate  the  S- 'ttlB«:. 

■  ■       '  '  ■    ■  •  =  '~  •''       -  Stab  D'Souza  5/8/93 

LIST  P>16C71,  F>#giiMIK  .^^^ivta» 

■  ».  ■  - 

include  *picreg.eqta* 


oooc 

equ 

OxOc 

;  teop  general  purpose  regs 

00  OD 

Tedi^ 

t  equ 

OxOd 

OOOE 

Tei#B 

•'  equ 

OxOe 

0020 

PABuf 

equ 

0x20 

0021 

PBBuf 

equ 

0x21 

OOOF 

Count 

equ 

OxOf 

;  count 

0010 

MsdTime 

equ 

0x10 

;most  significant  Timer 

0011 

LsdTime 

equ 

0x11 

;Least  significant  Timer 

0012 

KeyFlag 

equ 

0X12 

;  flags  related  to  key  pad 

0000 

keyhit 

equ 

0 

;bit  0  — >  key-press  on 

0001 

DebnceOn 

equ 

1 

;bit  1  — >  dftboance  on 

0002 

noentry 

equ 

2  'i'T/ 

;no  key  entry  =  0 

0003 

ServKey 

equ 

3 

;bit  3  ->  amv^em  key 

0013 

Debnce 

equ 

0x13 

;debounee  mmiMt 

0014 

NewKey 

equ 

0x14 

0Q2F 

WBaffer 

equ 

0x2  f 

002E 

SbatBuffer 

equ 

0x2e 

0001 

pptionReg 

•qu 

1 

0002 

PCL 

equ 

2 

push 

macro 

movwf 

WBuffer 

!  sav«  H  rejr  in  Buffer 

swa^f 

WBuIfat 

■twims  'it  ' 

-  swapf 

Vo*t' status 

movwf 

StaCBiiffer 

iimm  if  " 

endm 

pop 

macro 

swapf 

StatBuf fer ,w 

; restore  status 

movwf 

STATUS 

;  / 

^■^  swapf 

iffiufferyw 

; rast«r«  W  rag 

"  endm 

org 

0 

OQOO  280D 

goto 

start 

;skip  over  interrupt  vectoi 

'  org 

4 

;  It  Is  always  a  good  practice  to  save  and  rai^NMI  @|HI  W  ftiBt 

;and  the  status  reg  during  a  interrupt. 

push 

0004  OOAF 

movwf 

WBuffer 

;save  w  reg^ £6' Buffer 

0005  OEAF 

swapf 

WBuffer 

; swap  it 

0006  0E03 

swapf 

STATUS , w 

; get  status 

0007  OOAE 

movwf 

StatBuffer 

;save  it 

OOOS  2036 

call 

0 1^  Mienxh^  TliiHltiHrirfe 
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0009  0B2B 
OOOA  0083 
OOOB  0E2F 

OOOC  OOOSajJ  a.-.Mt 


pop 

swapf  StatBuffer/it 

movwf  STATUS 

swapf  WBuffer.w 


;  / 

;  restore  W  reg 


OOOD  2020 

OOOE  202A 

OOOF  1992 

0010  2012 

0011  280F 


■Start, 


call 
call 

btfsc 

call 

goto 


luitPorts 

InitTimers 

KeyFlag , ServKey 

ServiceKey 

loop 


;key  service  pending 
;yes  then  servic# 


0012  0814 

0013  008E 

0014  OEIO 

0015  39F0 

0016  0090 

0017  OEll 

0018  390F 

0019  0490 
OOIA  OEll 
OOIB  39P0 
OOlC  040E 
OOID  0091 
OOIB  1192 
OOIF  0008 


;  ServiceKey,  doea  the  software  service 

■  t On- B»zvti«y  flag  ia-reseti  to 
S«rviceKey  ■•■r, 

movf  NewKey,w 

movwf  TempE 

swapf  MsdTime,w 

andlw  B' 11110008' 

movwf  MsdTime 

■  ff.^  I  .      awa^  LsdTime.w 

andlw  B'OOOOllll' 

iorwf  MsdTime 

swapf  LsdTime ,  w 

andlw  B'llllOOOO' 

iorwf  TempE,  w 

movwf  LsdTime 

bcf  KeyFlag,  SerWCey 
return 


for  a  keyhit.  -After  a  key  service, 
t  iuBpletad'^fpcatlop. 

. .!  '.v       V  r 

;get  Xey  value 
Hinlii"'"™  i9  TenpE 

;lnove  MSD  out 
;clr  lo  nibble 
;save  back 
;get  Lsd 
;mask  off  lsd 
;and  left  shijUt  3x4 
;get  Lsd  again  i 
;mask  off  2nd  t 
;or  with  new  IsA 
;make  Lsd  y 
reset  service 


L'-OC 


0020  1683 

0021  3003 

0022  0108 

0023  0205 

0024  0206 

0025  1283 

0026  01B5 

0027  0186 

0028  1585 

0029  0008 


002A  0190 
002B  0191 
002C  0192 
002D  1683 
002B  3084 
002F  0081 

0030  1283 

0031  3020 

0032  008B 

0033  3060 

0034  0081 

0035  0009 


InitPorts 

bsf 

movlw 

movwf 

drf 

bcf 

clrf 

clrf 

bsf 

return 


STATUS, RPO  ; select  pg  1 

3  ;make  RAO-3  digital  I/O 

ADCONl  ;  / 

TRISA  ;niake  RAO-4  outputs 

TRISB  ;make  RBO-7  outputs 

STATDS.RPO  ^,x£-  —teqfei^HBifta 

PORTLY  E         1«#  /  JP* 

poRT^,  3  ;«im»  wm  aixat 


:  >0' 


The  clock  speed  is  4.09,6i&iz.  Dividing  internal  elk.  by  a  32  prescaler, 
the  rtcc  will  be  increiitenl;ed  every  31.25ttS.  If  rtcc  is  preloaded 


with  96,  it  will  taicjt  te  owwrtloH  i.e. 

end  result  is  that  we  gat 
InitTimers 


So  the 


clrf 
clrf 
clrf 
bsf 

movlw 

movwf 

bcf 

movlw 

movwf 

movlw 

movwf 

retf ie 


MsdTime 
LsdTime 
KeyFlag 
STATOS.RPfl 

B'lOOOOlOO ' 

OptionReg 

STATUS , RPO 

B'OOIOOOOOV,, 

INTCON 

.96 

RTCC. 


;clr  timers 
/ 

;clr  all  flAS^ 
.•select  pg  1 
;  assign  ps  to  rtee 
;ps  =  32 
j  select  pg  0 
.^mable  rtcc  iaSi«mm^ 

; preload  rtcc 
; start  counter 


0036  190B 

0037  283B 

0038  018B 

0039  16SB 


tS^rvi  ce  I  nterrupts 

btfsc      INTCON,  RTIF 
goto  ServiceRTCC 
p).xSt  INTCON 
bsf  INTCON,  RTIE 


;rtcc  interrupt? 
;yes  then  service 

.Upturn      'tSA  iatt 


34150 
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a03A  0008 


003B  3060 
003C  0081 
003D  HOB 
003E  1805 
003F  2042 

0040  20A1 

0041  0008 


0042 
0043 
0044 
0045 
0046 
0047 


1C92 
2848 
0B93 
0008 
1092 
0008 


ServiceRTCC 

movlw  .  9  6 

movwf  RTCC 

bcf  INTCON.RTIF 

btf  ae  PORT_A, 0 

call  ScanKeys 


; initialize  rtcc 

;clr  int  flag 
;lf  msb  on  then  do 
;do  a  quick  key  scan 
;  update  dief^^ 


ScanKeys,  scans  the  4X4  keypad  matrix  and  returns  a  key  value  in 
NewKey  (0  -  F)  if  a  key  is  pressed,  if  not  it  clears  the  kc^lt  £1^. 
Debounce  for  a  given  keyhit  is  also  taken  care  of. 
The  rate  of  kagc  soaa  is  2ainsee  MAth'a  4.0S6IOiz  clo^. 
ScanKeys  • 


btfss 
goto 
decf sz 
return 
bcf 


KeyFlag ,  D^aieeOB 

Scanl 

Debnce 

KeyFlag , DebnceOn 


;  debounce  on? 
;no  then  scan  keypad 
;else  dec  debounce  time 
;not  over  then  return 
;over,  clr  debounce  flag 
I  ■  and  'sfvA.um 


Scanl 

0048 

208A 

call 

SavePorts 

;save  port  values 

0049 

30EF 

movlw 

B'lllOllll*  t. 

°  ;lnit  TenpD 

004A 

008D 

movwf 

TempD 

ScanNext 

004B 

0306 

movf 

PORT_B,w 

;read  to  init  port 

004C 

lOOB 

bcf 

INTCON.RBII' 

'  ;clr  flag 

004O 

0C8D 

rrf 

Ten^ 

;get  correct  column 

004E 

1C03 

btfss 

STATUS, C 

;i£  carry  set? 

004F 

2862 

goto 

NoKey 

;no  then  end 

0050 

080D 

movf 

;el8e  outp!Dt 

0051 

0086 

movwf 

;  low  column  t^Hgk  iixta 

0052 

0000 

nop 

0053 

ICOB 

btfss 

IIITCON,ItBIF 

;flag  set? 

0054 

284B 

goto 

ScanNext 

;no  th^  next 

0055 

1812 

btfsc 

KeyFlag,  ke^lt 

;  last  key  released? 

0056 

2860 

goto 

SKreturn 

;no  then  exit 

0057 

1412 

bsf 

KeyFlag,  k^^it 

;set  new  key  hit 

0058 

0E06 

swapf 

PORT_B , w 

;read  port 

0059 

008E 

movwf 

TenvE 

;save  in  TeatpE 

005A 

2064 

call 

GetKeyValue 

;get  key  value  0  -  P 

005B 

0094 

movwf 

Newltay 

;  save  as  New  key 

005C 

1592 

bsf 

KeyFlag,  Sezvltey 

;set  service  flag 

005D 

1492 

KeyF^^i,  Delneai^  r 

005B 

3004 

movlw 

4 

005F 

0093 

movwf 

Debnce 

;  load  debeuBCCt^'  time 

SKreturn 

0060 

2097 

call 

Res  torePor ts 

;  restore  p&e^ 

0061 

0008 

-  «  return 

0062  1012 

0063  2860 


bef 
goto 


KeyFlag, keyhit 
SKreturn 


;clr  flag 

;  GetKeyValue  gets  the  key  tis  per  the  following  UStMk 


3      » ruv'  •« 

9tmU  ^  Ooll 

Col2 

■Gol3 

Col3 

) 

1  .Hffl3) 

(RS3)' 

IRBl) 

(SBO) 

;Rowl(RB4) 

0 

1 

2 

3 

.     y  ■ 

4 

5 

■  6 

7 

;Row3  (HB«)  ' 

J  WSJ  3e«i 

9 

A 

■  B 

,-Row4  enB?) 

D 

•  B 

.tF 
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<rrv 


GetKeyValue 

0064 

018C 

clrf 

TempC 

0065 

1D8D 

.■  •  btfss 

TempD,  3 

;  first  col\2mn 

0066 

286E 

goto 

RowValEnd 

0067 

0A8C 

incf 

TempC 

0068 

IDOD 

.  btfss 

TempD,  2 

; second  col . 

0069 

28eE 

j^rj-'.                  1  .goto  r  1.. 

RoofValEnd 

006A 

0A8C 

J .  iaaly 

TenpC 

006B 

1C8D 

TempD,  1 

;  3rd  col .  : 

006C 

286E 

goto 

RowValEnd 

006D 

0A8C 

incf 

TempC 

; last  col . 

RowValEnd 

006E 

ICOE 

btfss 

TempE, 0 

; top  row? 

006F 

2878 

:         got^  i 

GetVaXCom  '  . 

jyes  then  get  Oil,2S3'  -, 

0070 

1C8E 

.       .  .  itefeCss. 

Ten^E, 1  - 

;2nd  row?          .       ar  T ; 

0071 

2877 

Get4567 

;yes  the  get  i,-S,iBS0i, 

0072 

IDOE 

TempE,  2 

fSrd  row? 

0073 

2875 

goto 

Get89ab 

;  yes  then  get  8,9, 

Getcdef 

0074 

150C 

bsf 

TempC ,  2 

; set  msb  bits 

'@«ls89ab 

0075 

158C 

bsf 

TempC,  3 

;  / 

0076 

2878 

goto 

;do  ccmgion  part  • 

0077 

150C 

I  .—  bsf 

TempC,  2  rj 

^tValCom 

0078 

080C 

movf 

TeinpG:,w 

0079 

0782 

^•i  .J  J  addwf 

PCL 

007A 

3400 

retlw 

0  'ii. 

007B 

3401 

1 

007C 

3402 

SSBfct*  : 

.2 

007D 

3403 

retlvf 

3 

007E 

3404 

retlw 

4 

007F 

3405 

i  .  i  _   f  retlw 

5 

0080 

3406 

retlw 

6 

0081 

3407 

retlw 

7  '".r 

0082 

3408 

nimtlw.. 

8 

'  1       ■             '  t. 

0083 

3409 

.  - , .-  ^-  .retlw 

9  jirt't-. 

0084 

340A 

retlw 

Oa 

■ 

0085 

340B 

r  retlw 

Ob                 ,  , 

0086 

340C 

retlw 

Oc 

0087 

340D 

retlw 

Od 

0088 

340E 

retlw. 

Oe  r. 

M89 

340F 

'/■■•■ 

;SavePorts,  sa; 

ires  t&a-i@isct^''i« 

Q^g^'t^  conAtlEcm  d)a;i-B0-  .n  scan 

;  operation. 

.    .  SavePorts 

OOSA 

0805 

movf 

PORT_A,w 

;Get  sink  value       &  ,  - 

008B 

00  AO 

...  rlSOVWf 

PABuf 

;save  in  buffer  V 

008C 

0185 

/disable  all  iMw 

008D 

0806 

msvt 

;get  port  b 

008E 

OOAl 

movwf 

PBBuf 

;  save  in  buffer       .  r.  --H 

008P 

3  OFF 

■niovlw 

Oxf  f 

jntaKe  aL±±  nx^n 

0090 

0086 

movwf 

PORT_B 

;on  port  b                                                .  rr 

0091 

1683 

bsf 

STATUS,  RPO 

; select  page  1 

0092 

1381 

bof 

OptionHeg, 7 

; enable  pull  ups 

0093 

30P0 

movlw 

B'llllOOOO' 

;port  b  hi  nibble  inputs 

0094 

0106 

J  ntovwf 

.^ISB  ' 

; lo  nibble  outputs 

009S 

1283 

0096 

0008 

; RestorePor  ts , 

restores  the  condittw  ^  -porta  and  PiO^^  sfilSMr  a 

;key  scan  operation. 

Res  torePorts 

0097 

0821 

movf 

PBBuf ,  W 

;get  port  n 

0098 

00S6 

0099 

0820 

''  movf 

faBui,w 

;get  port  a  value 
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009A 

0085 

movwf 

PORTJl 

009B 

1683 

bsf 

STATUS,  RPO 

•select  page  1 

009C 

1781 

bsf 

OptionReg,7 

;  disable  pull  Mps 

009D 

0205 

clrf 

TRISA 

;ma]ce  port  a  0^t|^to 

009E 

0206 

clrf 

TRISB 

;as  well  as  F^iBlS 

009F 

1283 

bcf 

STATUS,  RPO 

;page  0 

OOAO 

0008 

return 

, 

UpdateDisplay 

OOAl 

0805 

movf 

PORT_A,w 

;preseiit  sink  value  in  w 

00A2 

0185 

clrf 

PORT_A 

;dissd3le  all  digits  sinlcs 

00  A3 

390F 

andlw 

OxOf 

00A4 

008C 

*  ' '              fa  -  ntovwf 

TempC 

; save  sink  value 

in  tesepC 

00A5 

160C 

bsf 

TetaeC,  4 

; preset  for  Isd  sink 

00A6 

0C8C 

^   ■'  rrf 

Tes^ 

;  determine  next  sink  vmlue 

00A7 

icbs 

bt£ss 

STATUS,  CUtRY 

;c=l? 

00A8 

use 

;no  then  reset  L£ED  si^k 

00A9 

180C 

9ee^,  0 

;else  see  if  Msd 

OOAA 

28B8 

UpdateHsd 

;yes  then  do  Msd 

OOAB 

188C 

TempC,  1 

;see  if  3rdLsd 

00  AC 

28B5 

goto 

Update3  rdLsd 

;yes  then  do  3rd  : 

Lsd 

OOAD 

190C 

btfsc 

TenpC,  2 

;see  if  2nd  Lsd 

OOAE 

28B2 

goto 

t^date2ndLsd 

;yes  then  do  2nd 

lsd 

lIt>dateLsd 

OOAF 

0811 

movf 

LsdTiine,w 

;get         ia  lr 

OOBO 

390F 

'  andlw 

OxSf 

/ 

OOBl 

28BII 

goto 

Ota^tsyout 

Update2ndLsd 

0OB2 

OEll 

swapf 

LsdTime,w 

;get  2nd  Lsd  in  w 

00B3 

390F 

andlw 

0x0  f 

;]Tiask  rest 

OOBl 

28BA 

goto 

DisplayOut 

;  enable  di^lay 

tIpdateS  rdLsd 

COBS 

0810 

movf 

MsdTime ,  w 

;get  3rd  Lsd  in  w 

OOBS 

390F 

andlw 

0x0  f 

.-mask  low  nibble 

00B7 

28BA 

goto 

DisplayOut 

; enable  display 

I?. 

00B8 

OEIO 

swapf 

MsdTime, w 

;get  Msd  in  w 

aOB9 

390F 

andlw 

^jnask  t^t 

DisplayOut 

OOBA 

2  DBF 

call 

LedT^^e 

;get  digit  output 

OOBB 

0086 

movwf 

PORTJ 

; drive  leds 

OOBC 

080C 

movf 

TempC, w 

;§eit  sink  value  in  w 

OOBD 

0085 

movwf 

PORT_A 

rq«wa 

OOSB 

0008 

return 

LedTable 

OOBF 

0782 

addwf 

PCL 

;add  to  PC  low 

OOCO 

343F 

retlw 

B'OOllllll' 

; led  drive  for  0 

OOCl 

3406 

retlw 

B'OOOOOllO ' 

; led  drive  for  1 

00C2 

345B 

retlw 

B'OlOllOll ' 

; led  drive  for  2 

00C3 

344F 

retlw 

B'OlOOllll' 

;led  drive  for  3 

00C4 

3466 

retlw 

B'OllOOllO' 

;led  drive  for  4 

00C5 

346D 

retlw 

B'OllOllOl' 

;led  drive  for  5 

00C6 

347D 

B'OlllllOl' 

;  1»5  drive  for  6 

00C7 

3407 

retlw 

B'OOOOOlll ' 

; led  drive  for  7 

00C8 

347F 

retlw 

B'Olllllll ■ 

; led  drive  for  8 

00C9 

3467 

n'niinmii  ' 

; led  drive  for  9 

OOCA 

3477 

retlw 

R'niiiniii ' 

D    U  X±  XU  X 1.  X 

; led  drive  for  A 

OOCB 

347C 

retlw 

B'OlllllOO' 

; led  drive  for  b 

OOCC 

3439 

'""  retlw 

B'OOlUOOl' 

;led  drive  for  C 

OOCD 

345B 

retlw 

B'OIOIXIIO' 

;led  drive  for  d 

OOCB 

3479 

B'omiool' 

;led  d£;ive  £or  B 

OOCF 

3471 

*  »*01110001  • 

j^ied  df ive  for  P 

3f  ^e;.-.\  .  y-; 

v  J        •  , 
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usurn  BO. 50 


■ems  1 


**««*****^********* ************************* ************************* 

This  program  is  to  demonstrate  how  to  multiplex  four  7  segment  LED 

and  sample  chO  of  the  a/d  in  a  PIC16C71.  The  a/d  value  is  displayed 

as  a  3  digit  decimal  value  of  the  a/d  input   (0  -  255) . 

The  LEDs  are  updated  every  20msec,   the  a/d  is  sampled  every  20  msec. 

The  RTCC  timer  is  used  in  internal  interrupt  mode  to  generate  the  5  msec. 


******** **********^*****^« 
include  *pl9ceg.e^' 


Stan  D'Souza  5/8/93 
******^*************************#***.******* 


'    1,,  .     I  . 

0026 

JOV.'  IIUBI'  1 

equ 

28 

0027 

Bed 

equ 

27 

OOOC 

TempC 

equ 

OxOc 

OOOD 

TeaxtpD 

equ 

OxOd 

OOOB 

TenpE 

equ 

OxOe 

0020 

PABuf 

equ 

0x20 

0021 

PBBuf 

equ 

0x21 

OOOF 

Count 

equ 

OxOf 

0010 

MsdTime 

equ 

0x10 

0011 

LsdTime 

equ 

0x11 

0012 

ADFlag 

equ 

0x12 

0005 

ADOvar 

equ 

5 

002F 

MSuffer 

equ 

0x2  £ 

002E 

equ 

Oxsle 

0001 

Optitnutag 

equ 

1 

0Q02 

PCL 

equ 

2 

push 

macro 

movwf 

WBuf fer 

swapf 

WBuffer 

nbvwf 
em^ 

Stal^lter 

pop 

macro 

swapf 

StatBuf fer,w 

movwf 

STATUS 

Bmpt 
endn 

NBuffer ,w 

org 

0 

0000  280D 

goto 

Start 

org 

4 

xegs 


;  count 

;most  significant  Timer 
_      /Least  significant  Timer 
,;flags  related  to  key  pad 
ii«h£iiIg.ha^Mt  5  ->  a/d 


reg  in  Buffer 


restore  status 


restore  M  reg 


0004  OOAF 

0005  OEAF 

0006  0E03 

0007  OOAE 


;It  is  altrays  a  good  practice  to  save  and  restore  ^e  w  reg, 

;and  the  status  reg  during  a  interrupt. 

push 

movwf                WBuffer  ;save  w  reg  la  Mttfiar 

swi^f                 WBuffer  ;swap  it 

swapf                 STATDS.w  ,            ;get  status 

aovuf                 StatBuf  fer  .  ;save  it 


0008  2039 


0009  0E2E 
OOOA  0083 


call 
pop 


Servlcelnterrupts 

StatBuf  £«e>M 
STATUS  ; 


.•restore  status 
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OOOB  0B2F 
OOOC  0009 


retfle 


; restore  N  reg 


GOOD  2021 
OOOE  202B 
OOOF  2036 

0010  1A92 

0011  2013 

0012  2810 


call  InitFprts 

btfsc  ADFlag.ADOvesr 

call  t%>dat^kd 
goto  loop 


;a/d  over? 

;yes  then  update 


0013  1CS8 

0014  0008 

0015  0809 

0016  OOAl 

0017  OlAO 

0018  20AD 

0019  0824 
OOIA  0091 
OOIB  0823 
OOlC  0090 
OOID  1088 
OOIE  1008 
OOIF  1292 

0020  0008 


0021  1683 

0022  3003 

0023  0108 

0024  0205 

0025  0206 

0026  1283 

0027  0185 

0028  0186 

0029  1585 
002A  0008 


002B  0190 
002C  0191 
002D  1683 
a02E  3084 
002F  0081 

0030  1283 

0031  3020 

0032  008B 

0033  3060 

0034  0081 

0035  0009 


U^dateAd 

,  btfss 
^ttim 

BOVf 

movwf 
clrf 
call 
.  movf 
movwf 
movf 
movwf 
bcf 
bcf 
bcf 
return 


InitPorts 

bsf 

movlw 

movwf 

clrf 

clrf 

bcf 

clrf 

clrf 

bsf 


ADCONO.ADIF 

ADRES.W 

L_byte 

H_byte 

B2_BCD 

R2,W 

LsdTime 

R1,W 

MsdTime 

ADCONO.ADIF 

ADCONO , ADON 

ADF  lag ,  ADOver 


STATUS, RPO 

3 

ADCONl 

TRISA 

TRISB 

STATUS,  RPO 

PORT_A 

PORT_B 

PORT_J^,  3 


;a/d  done? 
;nQ.]^t^  leave 
;get  a/d  value 

t 

;get  LSd 

;save  in  LSD 

!  get  lls4 

;save  in  Had 

;clr  Internq^  §lag 

; turn  off  a/# 


; select  pg  1 

;make  RAO-3  digital  I/O 

/ 

;make  RAO-4  outputs 
;inake  RBO-7  outputs 
;  select  page  0 
;make  all  outputs  low 
/ 

.■enable  HSB  digit  sink 


^e  clock  speed  is  4.096Mhz.  Dividing  internal  dk.  by  a  32  prescaler, 
the  rtcc  will  be  incremented  every  31.25uS.  If  rtcc  is  preloaded 
with  96,   it  will  take  (256-96)  •31. 25uS  to  overflow  i.e.  ftlisec.  So  t^ 

end  result  is  that  we  get  a  rtcc  interrupt  every  5msec.  o 
InitTimers 


clrf 

o^rf 
bsf 
novlw 
xnovwf 
bcf 
movlw 
movwf 
movlw 
movwf 

'  retfie 


HsdTime 

LsdTime 

STATUS,  RPO 

B'lOOOOlOO' 

OptionReg 

STATUS,  RPO 

B'OOIOOOOO' 

INTCON 

.96 

RTCC 


clr  timers 
/ 

select  pg  1 
assign  ps  to  rtcc 
ps  =  32 

s«ftjKit,,pa  0 

«iable  rtcc  internet 

preload  rtcc 
start  counter 


0036  30CS 

0037  0088 

0038  0008 


InitAd 


movlw 

movwf 
return 


B'llOOlOOO' 


; init  a/d 
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0039  190B 
003A  283E 

003B  018B 
003C  168B 
003D  0008 


003E  3060 
003F  0081 

0040  HOB 

0041  1C05 

0042  2045 

0043  2071 

0044  0008 


Servicelnterrupts 

bSfac  IHTCON.RTIP 
goto  ServieeRTGC 

cirf  imcm 

bsf  INTCOKfWRta 
return 


ServiceRTCC 
movlw 
'  -movwf 
bcf 
btfss 
call 
call 
return 


RTCe  ' 
INTCCm.RTIF 

Samplsitii 

UpdateDispls^""'^' 


;  tejSs  'fatternipt? 
;yes  then  service 


'-;'ini'tial'ize  rtcc 

.  -t.'  p  - 

jclr  int  flag 
;last  digit? 
;  then  s^ipl^  m/'4. 
•*^''>else  upda*»  AMST 


0045  205A 

0046  204C 

0047  1908 

0048  2847 

0049  1692 
004A  2067 
004B  0008 


Sas^leAd 

call 
call 

AdDone 

btfsc 

goto 

bsf 


Savepoi^tfi 
DoAd 

ADCONO , GO 
AdDone 

ADFlag ,  ADOver  ' ' 
«e»fcora)Porta  '-"•^  • 
I  •.■•■'■yiA, 


;do  a  ad  conversion 

; ad  done? 
"     ' ;no  then  loop 

■  ;set  a/d  over  flag 
''•*^-"'irestoiEe  simt» 


DoAd 


004C  0186 
004D  1683 
004E  300F 
004F  0105 

0050  1283 

0051  1408 

0052  307D 

0053  2056 

0054  1508 

0055  0008 


bcf 

bsf 

movlw 

call 

bsf 

rettM 


PORT_B 
STATUS,  RPO 


'%RTSA 
STATUS,  RPO 
ADCONO,  ADCHT 
.125 
Wait 

ADCONO ,  GO 


; turn  off  leds 
; select  pg  1 
;ina1ce  £»ort  a  hi-Z' 
;  / 
;  select  pg  S 
; start  a/d 


; start  conversion 


0056  008C 

0057  0B8C 

0058  28S"7 

0059  0008 


movwf  TenpC 

dec£s£  Tem^ 

-goto-  '^Sfeiet- 
'S:e€tttH  ' 


; store  in  ten^ 


SavePorts, 
operation. 
SavePorts 


saves  the  porta  and  portb  condition  duri^  a  l@e^  scan 


005A 

0805 

movf 

PORT_A,w 

;Get  sink  value 

OOSB 

OOAO 

movwf 

PABuf 

;  save  in  buffer 

005C 

0185 

olrf 

PORTJfc 

'  '  '           ;  disable  all  si]^||s 

005D 

0806 

movf 

PORT_i,V 

;get  port  b 

005E 

OOAl 

movwf 

PBBuf 

'•    ;  save  in  b\^#l^ 

005F 

3  OFF 

movlw 

Oxff 

;make  all  Y^h 

0060 

0086 

movwf 

PORT_B 

;on  port  b 

0061 

1683 

bsf 

STATUS,  RPO 

; select  page  1 

0062 

1381 

bcf 

OptionReg, 7 

; enable  pull  ups 

0063 

30F0 

movlw 

B' 11110000' 

;port  b  hi  nibble  inputs 

0064 

0106 

'  Biov»«E''  - 

■SRISB 

;lo  iiiiSble  outputs 

0065 

1283 

be£ 

0066 

0008 

refcarH 

RestorePorts,  restores  the  oondltlon  of  porta  and  portb  after  a 

key  scan  operation. 
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RestorePorts 


0067 

0821 

movf 

PBBuf , w 

;get  port  n 

0068 

0086 

aiovwf 

PORT_B 

/ get  port  a  value       .  ■ 

006A 

0085 

movwf 

PORT_A 

006B 

1683 

bsf 

STATUS , RPO 

; select  page  1 

006C 

1781 

bsf 

OptioziReg,  7 

; disable  pull  ups 

006D 

0205 

clrf 

TRISA 

;make  port  a  outputs 

ooeE 

0206 

elrf  ^ 

TRISB 

-. .  >'as  well  a^.^<^7B 

006F 

1283 

... 

,;  :  ^-pag©  0 

0070 

0008 

- 1   ■[  ^ ;  %   '* p~*  ■ 

l]t>dateDi  splay 

0071 

0805 

movf 

PORT_A,w 

/present  sink  value  in  w 

0072 

0185 

clrf 

-^^^^  9  S)(|MMf'disable  all  digits  sinks 

0073 

390F 

andlw 

OxOf 

0074 

008C 

TCTpC 

;save  sink  value  in  tearpC 

0075 

160C 

■bsf 

TCTipC,  4 

;preset  for  Isd  sink 

0076 

0C8C 

rrf 

Ten^C 

; determine  next  sink  value 

0077 

1C03 

btfss 

b lAiUb , CAKKl 

;  c=l? 

0078 

118C 

bcf 

TenqpC,  3 

;no  then  reset  LSD  sink 

0079 

180C 

btfsc 

Taupe  «0 

;else  see  if  Msd 

007A 

288C 

goto 

;yes  tnen  uo  nsa 

007B 

188C 

btfsc 

TeaiqpC,  1 

;see  if  3rdLsd 

007C 

2887 

goto 

U^date3  r dLsd 

;yes  then  do  3rd  Lad. 

007D 

190C 

btfsc 

Teni^,2 

;  see  if  2nd  I^sfjl, 

007B 

2S82 

goto 

g|>dat€t3ndLBd 

t]|ai  do  Isd 

I^pdateLsd 

007F 

0811 

movf 

LsdTime, w 

;get  Lsd  in  w  ^ 

0080 

390F 

andlw 

OxOf 

/ 

0081 

2890 

-.1,  -  9Pto 

Di  eplayOu t 

^eti^ble  display 

t^dAte2ndLsd 

0082 

20A1 

call 

Chlc2LsdZero 

;msa  =  0  &  2   ISd  0? 

0083 

1D03 

btfss 

STATUS , Z 

; yes  then  skip 

0084 

OEll 

swapf 

LsdTime , w 

; get  2nd  Lsd  in  w 

0085 

390F 

andlw 

;ifiask  rest 

0086 

2890 

goto 

DisplciyOut 

;  enable  display  ■ 

I%>date3rdLsd 

0087 

20A9 

call 

/msd  =  0? 

0088 

1D03 

btfss 

0089 

0810 

movf 

MsdTiin6  /  w 

7 get  3rd  Lsd  in  w 

008A 

390F 

andlw 

0x0  £ 

/mask  low  nibble 

008B 

2890 

goto 

spl  syOtii  t 

/  enable  display 

U^dateMsd 

008C 

OEIO 

swapf 

MsdTi]ne,w 

;get  Hsd  i%  w 

008O 

390F 

andlw 

OxOf 

•  Ma  all* 

r SKUMW  .(.est* 

008E 

1903 

btfsc 

;insd  Iff  0  ^loa,  ^^^I^U^ 

008F 

300A 

movlw 

DisplayOut 

0090 

2095 

call 

LedTable 

;get  digit  output 

0091 

0086 

movwf 

PORT_B 

;  drive  leds 

0092 

080C 

IBOVf 

;get  sink  value  in  v 

0093 

0085 

009« 

0008 

. 

LedTable 

0095 

0782 

addwf 

PCL 

;add  to  PC  low  ^ 

0096 

343P 

retlw 

B'OOllllll' 

;led  drive  for  0 

0097 

3406 

retlw 

B'OOOOOXIO' 

;led  drive  for  1 

0098 

345B 

retlw 

B'OlOllOll' 

;led  drive  fpr  2 

0099 

344F 

retlw 

B'OlOOllll' 

;led  drive  for  3 

009A 

3466 

retlw 

B'OllOOllO' 

;led  drive  for  4 

009B 

346D 

B'OllOllOl ' 

; led  drive  for  5 

009C 

347D 

retlw 

B'OlllllOl' 

;led  drive  for  6 

009D 

3407 

retlw 

B' 00000111' 

; led  drive  for  7 

009E 

347P 

retlw 

B' 0111X111' 

; led  drive  for  8 

009F 

3467 

retlw 

B' 01100111' 

;  led.  dr4-ve  .for  9 

■  -  lu-:-. 
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OOfiO 

3400 

retlw 

; 

:  .0:1  ^  -t, 

OOAl 

20A9 

call 

ChkMsdZero         ;msd  =0? 

0  0A2 

1D03 

btf  ss 

STATUS,  Z               ;yes  then  skip 

00  A3 

0008 

return 

;else  return 

00A4 

OEll 

swapf 

LsdTime,w            ;get  2nd  Isd 

00A5 

390F 

andlw 

OxOf 

•  ■     ;mask  of  LSD 

00A6 

1D03 

0OA7 

0008 

ttswiwx 

0Q&8 

340A 

rietlw 

*10 

;else  return  wit^ 

ChkMsdZero 

00A9 

0810 

movf 

MsdTime,w             ;get  Msd  in  w 

OOAA 

1D03 

btfss 

STATUS, Z              ;=  0?  skip 

OOAB 

0008 

returii: 

;else  return 

OOAC 

340A 

;ret  with  10 

- 11.,  rtX 

0026 

; 

^ottht  equ 

26 

0027 

temp  equ 

27 

0020 

H_byte  equ 

20      '-  ■ 

0021 

L_byte  equ 

21      ^  .  ' 

0022 

RO  equ 

22 

;  rAM  Assign]^ii^nl^$ 

0023 

Rl       -  equ 

23 

0024 

R2  equ 

24 

00  AD 

1003 

B2_BCD  bcf 

STATUS , 0 

;  clear  the  cariry 

OOAE 

3010 

movlw 

.16 

— A— ft^. 

OOAF 

OOAS 

inovwf 

count 

OOBO 

01A2 

clrf 

RO 

OOBl 

01  A3 

clrf 

Rl 

00B2 

01A4 

clrf 

R2 

00B3 

ODAl 

loop! D    r  1  r 

L_byte 

00B4 

ODAO 

rl£ 

H_byte 

OOBS 

0DA4 

xl£ 

•-■^->*. 

OOBS 

0DA3 

rir 

Rl 

^'    ''■'JT/  '  ■■-         :i*lT  -'■ 

00B7 

0DA2 

rl£ 

RO 

00B8 

0BA6 

decf sz 

count 

00B9 

28BB 

goto 

ad j DEC 

■  ,1  ■  ■f.-.O 

OOBA 

3400 

RETLW 

0 

OOBB 

3024 

adjiBC  iaovlw 

OOBC 

0084 

movwf 

FSR 

OOBD 

20C5 

call 

adjBCD 

OOBE 

3023 

movlw 

Rl 

OOBF 

0084 

movwf 

FSR 

ooco 

20CS 

call 

OOCl 

3022 

m 

00C2 

0084 

00C3 

20C5 

call 

adjBCD 

00C4 

28B3 

goto 

looplS 

-m  i  \ 

00C5 

3003 

ad j  BCD  movlw 

3 

00C6 

0700 

-addwf 

0,W 

■1 

00C7 

0OA7 

iaovwf 

teR^ 

00C8 

19A7 

btfsc 

ten^,  3 

;   test  if  zBsuXt  > 

00C9 

0080 

movwf 

0 

OOCA 

3030 

movlw 

30 

OOCB 

0700 

addwf 

0,W 

OOCC 

00A7 

movwf 

temp 

It 
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OOCD  1BA7  btfsc     teii5>,7  ;  teat  if  result  >  7  ^  .<iv.N'<-l'^° ' 

OOCE  0080  zoovwf     0  ;  save  as  USD 

OOce  3400 
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WASH  1.00  lisleased       HI>t.3CM},ASaf      7-15-1994  13:43!>14 


C  HivaiR 

0  «ina 


LOC     OBJECT  CODE 


LINE  SOURCE  TEXT 


OOOC 
OOOD 
OOOE 
0020 
0021 
OOOF 
0010 
0011 

0012 
0001 
0002 
0003 
0004 

ooos 

0013 
0014 
OOlS 

0016 


002F 
e02E 
0001 
0002 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
001 0 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0033 
0084 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
002S 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0O42 
004<3 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0O54 
0055 
0056 
0057 
0058 


,  it***  *************************************  ********* 

;This  program  is  to  demonstrate  how  to  multiplex  four  7  segment  LED 
;digits  and  a  4X4  keypad  along  with  4  A/D  inputs  using  a  PIC16C71. 
;The  four  digits  will  first  disylay  the  decimal  a/d  value  of  chO. 
;When  keys  from  0-3  are  hit  mSm^^esMsig  >^^^*i*S  a/d  value 

;is  displayed  in  decimal. 

jThe  LEDb  are  updated  every  20mS,  the  keypad  is  scanned  at  a  rate  of  20  OS. 
;A11  4  channels  are  scanned  at  20mS  rate,  so  each  channel  gets  scanned 
(every  SOmS.  A  faster  rate  of  scanning  is  possible  as  required  by 
;the  users  application. 

;  The  RTCC  timer  is  used  In  internal  iitfcM'VH^t  mode  to  generate  the 
;5  mS. 

':  ■  0mm  wismim.  S/^fm 

f>Co3ex«otoed  error  in  display  routine. 

}  Stan  D'Souza  2/27/94 

. ************************************************************  ********** 

LIST  P=lfiC71,  F=lllBDt91I 
include  '*picr'e9..e4a' 


TempC  equ 
TempD  equ 
TempE  equ 
PABuf  ecpi 
PBBuf  e^ 
Count  equ 
MsdTi^B:  e^ 
LsdTim 


OxOc 
OxOd 
OxOe 
0x20 


Flag        equ  0x12 
#define  keyhit  Flag.O 
^define  DebnceOn  Flag.l 
tdefine  noentry  Flag, 2 
#define  SexvK^  Flag,  3 
#def  ine  ADOver    9^<a$:,  4 


Debnce  equ 
NewKey  equ 
SlaplayCb  equ 

A13T%BLB  eija 


WBuffer  equ 
StatBuffer  equ 
pptionReg  equ 


PCL 


push 


equ 


macro 
movwf 
swapf 
swapf 
movwf 


0x13 
0x14 

0x16 


0x2  f 
0x2e 
1 
2 


WBuffer 
WBuffer 
STATUS,  w 
StatBuffer 


(■general  purpose  flag  reg 
;bit  0  — >  key-press  on 
,*bit  1  ->  debounce  .on 
;no  key  entry  =  0 
rbit  3  -»  sejnriee  key 
I'S&t  4  ->  a/4  aoxor.  over 

{dsbbusce  ecnmter 

ixSSfSitm»l  to  be  di^li^ied 

l4i  l<seaM^m«s  «U(*e  3peMcv«d  here 
tSxott  Oxie  to  0x19 


;save  w  reg  la  Buffer 
; swap  i  t 
;get  status 
; save  it 


0059 

pop 

macro 

0060 

StatBuffer.w       rxesfeore  statu«; .  :3 

0061 

inovwf 

STATUS                  i,  -    .  1 

0062 

sw«pf - 

iWB»ffer»»r-     •■■   ,; restore  W  reg- 

0063 

endm 

0064 

0065 

org 

0 

0000 

280D 

0066 

goto 

Start                  ;skip  over  interr^t  vector 

0067 

0068 

0xg 

4 

Q069 

;It  is  altnys  a 

good  practice  to 

sMe  and  restees'  the  w  reg. 

0070 

^and  the  stetus 

reg  during  a  interrupt. 

omi 

push 

0004 

OOAF 

H 

movwt 

WBuf fer 

save  w  reg  in  Buffer 

0005 

OEAF    -t  r 

.■-  :   ...  Ki 

swapf 

WBuf far 

swap  it 

0006 

0E03 

M 

swapf 

STATUS, w             ;get  status 

0007 

OOAE 

M 

inovwf 

StatBuffer 

save  it 

0008 

2052 

0072 

call 

Servlcelnterrupts  i' 

0073 

pop 

^  f .  - 

0009 

0E2B 

M 

swapf 

StatBuffer,w 

restore  status 

OOOA 

0083 

M 

movwf 

STATUS 

/ 

OOOB 

0E2F 

M 

swapf 

WBaffiKr>«~ 

restore  W  reg 

OOOC 

0009 

0074 
0075 
0076 

Start 

retf ie 

GOOD 

203B 

1 09:77 

t 

call 

InitPorte 

OOOE 

20EB 

0078- 

call 

Init*a 

r  ' 

00  OF 

2045 

0079 
0080 

loop 

call 

initTimere 

0010 

1992 

0081 

btfsc 

ServKey 

key  service  pending                            .  . 

0011 

2015 

0082 

call 

ServiceKey 

yes  then  service                                 .  ' 

0012 

1A12 

0083 

btfsc 

ADOver 

a/d  pending? 

0013 

2028 

0084 

call 

ServiceAD 

yes  the  servicej  a/d 

0014^ 

29X9 

0085 
0086 

goto 

loop 

0087 

;ServiceKey,   does  the  software  service  for  a  keyhit.  After  a  key  service 

0088 

;  the  ServKey  flag  is  reset,  to  denote  a  completed  operation. 

0089 

ServiceKey 

0015 

1192 

0090 

bcf 

ServKey                 ;  reset  service  flag 

0016 

0814 

0091 

movf 

NewKe^w              ;  get:  ki^  value                            .i       t  . 

0017 

3C03 

0093 

soblw 

3                                        >  37  7 

0018 

1C03 

0093 

btfss 

STATUS, C 

no  then  skip  . 

0019 

0008 

0094 

■return 

;else  Ignore  key  ' 

OOIA 

0814 

0095 

movf 

NewKey,w 

OOIB 

0095 

0096 

movwf 

DlsplayCh             ;load  new  channel 

0097 

0098 

OOlC 

3016 

0099 

movlw 

AOTABLB:  .   r>'        ;get  top  of  table                       '  >  ' 

OOID 

0715 

0100 

Bddwf 

DisplayCh.it .       > add  offset 

OOIE 

0084 

0101 

novwf 

FSl             -  3      > lait  PSR 

OOIF 

0300 

0102 

movf 

0,w                     ;9et  a/d  value 

0020 

OOAl 

0103 

movwf 

L_byte 

0021 

01  AO 

0104 

clrf 

H_byte 

0022 

2106 

0105 

call 

B2_BCD 

0023 

0824 

0106 

movf 

R2,W 

get:  LSd 

0024 

0091 

0107 

mawf 

LsdTime. 

Mve  in  LSD 

0025 

0823 

0108 

movf 

Rl.W 

get  Msd                                   1 i  ^  •   - . 

0026 

0090 

0109 

movwf 

ItedTima 

save  in  Hsd 

0027 

0008 

0110 
0111 

retuzn 

0112 

;This  rountine  essentially  loads 

the  ADRES  value  in  the  table  location 

0113 

.■determined  by  the  channel  offset.  If  channel  0  then  ADRES  is  saved 

0114 

;  in;  lotsntioa  ADTAB[aB<  If  "ebeimal 

IHiien  ADRSS  Is  saved  at  AOEUbBi  -t'  1, 

0115 

.■and  so 

OD. 

-0116 

ServiceAD 

0028 

0808 

0117 

movf 

ADCON0,w   ■    •      ;ffet  adconO 

0029 

008C 

0118 

movwf 

TempC 

save  in  ten^ 

002A 

3008 

0119 

movlw 

B'OOOOIOOO' 

select  next  channel 

002B 

0708 

0120 

addwf 

ADCONO  ,  w 

/ 
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002C 

IkSB 

0121 

«0GONO,5              i(lf-«i=  oh3  c-'M  CaOfl 

002D 

30el 

013ai>4M« 

SmOOOOBl '         f«»tect  ohO  o»oo 

002E 

0088 

0123 

ADCONO  T. 

I  iK 

0124i!»I 

*<  mcfnati  load  adres  ife 'tte  tiblta- 

002F 

3016 

0125 

movlw 

ADTABLE 

0030 

0084 

0126 

movwf 

FSR 

load  FSS  wi^  'kap 

0031 

0C8C 

0127 

rrf 

TempC 

0032 

0C8C 

TempC 

0033 

ococ 

0123 

rrf 

TempC, w                ;S®t  in  w  reg 

0034 

3903 

0130 

andlw 

3                         ;mask  off  all  but  last  2 

0035 

0784 

..  ■  OfSlifn* 

■•  addwf 

FSR                       ;adta  offset  to  table 

0036 

0809 

0132 

movf 

ADRES, w                 ;get  a/d  value  i' 

0037 

0080 

0133 

movwf 

0 

load  indirectly  '0 

0038 

1212 

0134 

bcf 

ADOver 

clear  flag 

0039 

201C 

0135 

call 

LoadAD 

load  a/d  valua  in  display 

003A 

0008 

0136 

return 

0137 

ft 

.».    Jti;»J2       IWVXIK  II 

0138 

.■.■jnf'Tsr' 

'  1  at,  srx^o 

0139 

0140  ; 

•  -• 

0141  InitPorts 

003B 

1683 

0142, 

bsf 

select  pg  1 

003C 

3003 

0143 

movlw 

3 

make  RAO-3  digital  I/O 

003D 

0088 

0144 

movwf 

ADCONl 

/ 

003E 

0185 

014S 

elrf 

TRISA 

make  RAO-4  outputs 

003F 

0186 

014« 

clrf 

TRISB 

make  RBO-7  outputs 

0040 

1283 

0147 

bcf 

STATUS, RPO 

select  page  0 

0041 

0185 

0148 

clrf 

PORT_A 

make  all  outputs  low 

0042 

0186 

0149 

clrf 

PORT_B 

/ 

0043 

1585 

0150 

bsf 

P0RT_A,3 

enable  MSB  digit  sink 

0044 

0008 

0151 

:  ' return 

0152  ; 

■■    Sl«3  J 

0154  ;The  clock  speed  is  4.096Hhz.  Dividing  internal  elk.  by  a  32  p^escai^', 

0155  ;the  rtcc  will  be  incremented  every  31.25uS.   If  rtcc  is  preloaded 

0156  /with  96,  it  will  take  (256-96)  *3 1 . 25uS  to  overflow  i.e.  5mS.  So  the 

0157  ;end  result  is  that  we  get  a  rtcc  interrupt  every  5mS. 

0158  InitTimers  'OO 


0045 

0190 

0159 

elrf 

MsdTime 

;clr  timers 

0046 

0191 

0160 

clxf 

LsdTime  ^  ^  ■ 

/ 

0047 

0195 

0161 

clrf 

DisplayCh 

;show  channel  0  ' 

0048 

0192 

0162 

clrf 

Flag 

;clr  all  flags 

0049 

1683 

oie-3 

bsf 

STATUS,  RPO 

; select  pg  1 

004A 

3084 

0164 

movlw 

B' 10000100 ' 

; assign  ps  to  rtcc 

004B 

0081 

Ml  immt 

OptionReg 

;ps  =  32 

004C 

1283 

0166 

STATUS,  RPO 

/select  pg  0 

004D 

3020 

0167 

movlw 

B'OOIOOOOO' 

;  enable  rtce  la%iit3^et 

004E 

008B 

0168 

movwf 

INTCOS 

■                 1.  ''nr\ 

004F 

3060 

0169 

movlw 

.96 

> preload  rtcc 

0050 

0081 

0170 

movwf 

RTCC 

; start  counter 

0051 

0009 

0171 
0172 

retf ie 

tOt" 

0173 

Servicelnterrupts 

iO-.O 

0052 

190B 

0174 

btfsc 

IJJTCON/RTIF 

;r%cc  interrupt? 

0053 

2857 

0175 

go;bo 

ServiceRTCC 

;Ves'then  servt.ij:ei 

0054 

018B 

0176 

clrf 

;else  clr  all  lat'~ 

0055 

168B 

0177 

bsf 

IHTCON.RTIE 

0056 

0008 

0178 
0179 

return 

Si 

0180 

ServiceRTCC 

0«57'3©S0 

,  ■  ,i01»l 

novlw 

.96 

.  ^l3IiMali2«- '  rt«xe(  V 

0058 

0081          1  < 

iiTce 

.   '  ■  -   '.XO 

0059 

HOB     ^  •  . 

•■  oisa 

INTCON.RiIite  ■  ' 

r  ;,elr' int  flag 

005A 

1805 

0184 

btfsc 

PORTJl,  0 

;soan  keys  every  20  ns 

005B 

2060 

0185 

call 

ScanKeys 

;when  digit  1  is  on 

005C 

1985 

0186 

btfsc 

P0RT_A,3 

;scan  a/d  every  20mS 

005D 

20F1 

0187 

call 

SanpleAd 

7When  digit  4  is  on 

005E 

20BF 

-  61«8a 

.-update  display 

005F 

0008 

0189 

return 

3-182 


0190 
0191 
0192 
0193 
0194 
0195 
0196 


;ScanKeys,  scans  the  4X4  keypad  matrix  and  returns  a  key  value  in 
.NewKey  (0  -  F)  if  a  key  is  pressed,  if  not  it  clears  the  keyhit  flag. 
jDebounce  for  a  given  keyhit  is  also  taken  care  of. 
;The  rate  of  key  scan  is  20niS  with  a  4.096Mhz  clock. 
ScanKeys 


0060 

1C92 

0197 

btefas 

Debnceaa 

;4e3>ounce  on? 

0061 

2866 

0198 

goto 

Scanl  - 

I DO  then  scan  keypad 

0062 

0B93 

0199 

decfsz 

Debnce 

;else  dec  debounce  time 

0063 

0008 

0200 

return 

;not  over  then  return 

0064 

1092 

0201 

bof  . 

DebnceOn 

iover,  clr  debounce  flag 

OOSS 

0008 

0202 
0203 

Scanl 

;and  SMiMSRs^' 

0066 

2  OAS 

0204 

call 

SavePorts 

;save  port  values 

0067 

30BF 

0205 

movlw 

B' 11101111' 

;inlt  TensO 

0068 

008D 

0206 
0207 

movwf 
ScanNext 

0069 

0806 

0208 

movf 

PORT_B,w 

;read  to  init  port 

006A 

lOOB 

0209 

bof 

INTCON.RBIP 

;clr  flag 

006B 

0C8D 

0210 

rrf 

TempD 

;get  correct  column 

006C 

1C03 

0211 

btfss 

STATUS,  C 

,*if  carry  set? 

006D 

2880 

0212 

goto 

NoKey 

;no  then  end 

006E 

080D 

0213 

movf 

;else  output 

006P 

0086 

0214 

aovwf 

!  I'ow  column  scaa  line 

0070 

0000 

0215 

nop 

0071 

ICOB 

0216 

btfss 

INTCON.RBIF 

;flag  set? 

0072 

2869 

0217 

goto 

ScanNext 

;no  then  next 

0073 

1812 

0218 

btfsc 

keyhit 

llast  key  released? 

0074 

287E 

0219 

goto 

SKreturn 

jno  then  exit 

0075 

1412 

022« 

bsf 

keyhit 

;set  new  key  hit 

0076 

0E06 

0221 

swapf 

PORT_B,w 

;read  port 

0077 

008E 

0222 

movwf 

Ten^E 

;8ave  in  TempE 

0078 

2082 

0223 

call 

GetKeyValue 

;get  key  value  0  -  F 

0079 

0094 

0224 

movwf 

NewKey 

;save  as  New  key 

007A 

1592 

0225 

bsf 

ServKey 

;set  service  flag 

007B 

1492 

0226 

bsf 

DebnceOn 

;set  flag 

007C 

3094  . 

.•       .  0327 

novlw 

007D 

0093 

0228 

0229 

movwf 

SKreturn 

Debnce 

;  load  debounce  -  time 

007E 

20B5 

0230 

call 

RestorePorts 

;r«»feore  ports.. 

007F 

0008 

0231 
0232 
0233 

return 

NoKey 

0080 

1012 

0234 

bof 

keyhit 

;clr  flag 

0081 

287B 

0235 

0236 

.  goto 

SKreturn 

0237 

;GetKeyValua  gats  the  key  as 

per  the  following  layout 

0238 

,  ,  0239 

Coll  Col2 

Col3  Col3 

0240 

(RB3)  (RB2 

(RBI)  (RBO) 

0241 

0242 

;Rowl(RB4) 

0 

1 

,  i2               3f. .  ; ,. 

0243 

,  J   :c  ■  0244 

;Row2«ffl5};  . 

5 

0245 

0246 

,Row3{RB6) 

s 

9 

A.-               B'  .  ,- 

0247 

0248 

;Row4(RB7) 

c 

0 

E  P 

0249 

0250 

GetKeyValue 

0082 

018C 

0251 

olrf 

TenpC  . 

0083 

1D8D 

0252 

btfss 

Te9ripD,3 

;flriit  column 

0084 

288C 

0253 

goto 

RoWValEnd 

0085 

0A8C 

0254 

inof 

Teni>C 

0086 

IDOD 

0255 

btfss 

Ten^,2 

0087 

288C 

0256 

goto 

RoWValBn} 

0088 

0A8C 

0257 
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0089 

1C8D 

0258 

btf  ss 

TempD,  1 

;3rd  col. 

008A 

288C 

0259 

goto 

RowValEnd 

008B 

0A8C 

0260 

incf 

TempC 

;last  col. 

0261 

RoWValEnd 

ODBC 

ICOE 

<}262 

btfss 

TempE,  0 

; top  row?              '  ^ 

008O 

2896 

GetValGom 

;yeiB^l»«in  get  0,rt^«3. 

008K 

1C8E 

0264 

btfss 

lempE, 1 

;2nd  ifm0    "  'f^ 

008F 

2895 

0265 

goto 

Get4567 

;yes  the  get  4,5,6&7 

0090 

IDOE 

!  0266 

btfss 

TempE ,  2 

;3rd  row? 

0091 

2893 

0267 

goto 

Get89ab 

;yes  then  get  8,9,a&b 

0268 

Getcdef 

0092 

150C 

•  0269 

bsf 

TempC ,  2 

;set  msb  bits 

0270 

Gef®9ab 

1.1)  ,1) 

0093 

158C 

0271 

bsf 

TempC , 3 

;                          /             8  t^iO 

0094 

2896 

.  t  .1 

0273 

iolo 

0095 

150C 

0274 

bsf 

TempC ,2 

*o  rr. 

0275 

GetValCom 

0096 

080C 

02T6 

movf 

TempC ,  w 

0097 

0782 

0277 

addwf 

PCL 

0098 

3400 

0278 

retlw 

0 

Qtio 

0099 

3401 

0279* 

*»«  t'^--*msm 

»»tii  IJSO 

009A 

3402 

0230 

be*  t»4tem». 

009B 

3403 

0281 

%  w,c<»«»V 

009C 

3404 

■•'-02»2-''»  fm-':erti0^^ 

4           H  1'^>'; 

009D 

3405 

0283 

retlw 

5 

0C9E 

3406 

0284 

retlw 

6 

>IfIO 

009F 

3407 

0285 

retlw 

7 

Ti  CO 

OOAO 

3408 

8  >t^* 

OOAl 

3409 

0287 

§i      an«;  =re 

ate^                 ."  CI' 

00A2 

340A 

02g8 

reMW 

Jj^ve.i' 

00  A3 

340B 

0289 

retlw 

0OA4 

340C 

0290 

retlw 

Oo 

00A5 

340D 

■  0291 

retlw 

Od 

oqA6 

340E 

0292 

^'  retlw 

Oe 

- 

t«A7 

340F 

0293 

■  -^^mm 

cSiO 

0294 

0295 

;SavePorts,  save*  tSto  fisEtft  iftil 

1^^^  condition  during  a 

--■0296 

9'  -,-'t  ■ 

0297 

SavePorts 

00A8 

0805 

0298'- 

movf 

PORT_A,w 

;Get  sink  value 

00A9 

OOAO 

0299 

movwf 

PABuf 

; save  in  buffer 

OOAA 

0185 

0300 

clrf 

PORT_A 

; disable  all  siMi 

OOAB 

0806 

0301 

movf 

PC^T__B,W 

;get  port  b        ■  ' 

00  AC 

OOAl 

0302 

iaav&  in  buffer 

00  AD 

3  OFF 

0303 

;takU  all  high 

OOAE 

0086 

0304 

BtCtVWf 

PCmT_B 

;on  port  b 

OOAF 

1683 

»305' 

■  'hmf 

'S^ETd'S,RPO             select  page  1 

OOBO 

1381 

0306 

bcf 

OptionReg,7 

; enable  pull  ups 

OOBl 

30F0 

0307' 

movlw 

B'llllOOOO' 

;port  b  hi  nibble  inputs 

0OB2 

0086 

0308 

movwf 

TRISB 

;  lo  nibble  outputs 

00B3 

1283 

0309 

l$itit^  #          '•  -"^^ 

00B4 

0008 

0310' 

t  0 

Ml 


0311  ! 

0312'  iSestorePorts,  restc««i#^M»  Mi£M^SM%erta  and  portb  after  a 

0313  ;1cey  scan  operation. 

0314"8estorePorts 


O0B5 

0821 

0315 

movf 

PBBuf ,w 

;get  port  b 

O0B6 

0086 

0316-^ 

00B7 

0820 

0317 

;get  port  a  value 

00B8 

0085 

0318 

movwf 

PORT  J. 

0OB9 

1683 

0319 

bsf 

STATUS, RPO  ■ 

.■select  page  1 

OOBA 

1781 

0320 

bsf 

OptionReg,7 

;  disable  pul  1  ups 

OOBB 

0185 

0321 

clrf 

TRISA 

;make  port  a  output 

OOBC 

0186 

0322 

clrf 

TRISB 

;as  well  as  PORTB 

OOBD 

1283 

0323     • I»- 

'0m'  9 

OOBE 

0008 

0324 

dot  aats 

0325  ! 

0326  ; 

mm 
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0327  VpOajMiDiaplAy 

OOBF 

0805 

0328 

movf 

PORTJV.W 

;  present  sink  value  in  w 

ooco 

0185 

0329 

clrf 

PORT_A    ^  j.,  ^,  1,. 

;disable  all  digits  sinks  ,^ 

OOCl 

390F 

0330 

andlw 

OxOf       ,    ;  -  ■     ,  f 

00C2 

008C 

0331 

movwf 

TempC 

save  sink  value  in  tempC 

00C3 

160C 

0332 

baf 

TempC ,  4 

; preset  for  Isd  sink 

aoc4 

0C8C 

0333 

rrf 

TenqpC 

determine  next  sink  value 

00C5 

1C03 

0334 

btfss 

STATUS,  CARRY 

c=l? 

00C6 

118C 

0335 

bcf 

Te3iipC,3 

no  then  reset  hSi  sink 

00C7 

180C 

0336 

btfsc 

TenpC,0 

els%  see  if  VbA  : 

00C8 

28D6 

0337 

goto 

UpdateKsd 

;ye8  then  do  Msd  , 

00C9 

188C 

0338 

btfsc 

TempC, 1 

see  if  3rdLsd 

OOCA 

28D3 

0339 

goto 

Update3rdIiSd 

yes  then  do  3rd  Lsd 

OOCB 

190C 

0340 

btfsc 

see  if  2nd  Lsd 

oooc 

2:800 

0341 

goto 

t%dia:£e2ndLsd 

yes  then  do  2ztf^  lsd 

0342 

l^xiateLsd 

OOCSD 

0811 

,„,ow 

;3et  Lsd  in  w 

OOCB 

390F 

0344 

OxOf 

OOCF 

28D8 

0345 

goto 

DisplayOut 

0346 

l]t>date2ndLsd 

DODO 

OEll 

0347 

swapf 

LsdTime,w 

; get  2nd  Lsd  in  w 

OODl 

390F 

0348 

andlw 

OxOf 

;mask  rest 

00D2 

28D8 

0349 

goto 

DisplayOut 

; enable  display 

0350 

00D3 

0810 

0351 

msirt 

MsdTlme,w 

; get  3rd  Lsd  in  w 

00D4 

390F 

0352 

andlw 

OxOf 

.■m^  low  nibble                       s  , 

00O5 

28DS 

0353 

goto 

DispleQiOtiS 

jmahle  display 

0354 

UpdateMsd 

00D6 

OBIO 

0355 

swapf 

HsdTime,w 

,-get  Msd  in  w 

00D7 

390F 

0356 

andlw 

OxOf 

;mask  rest 

0357 

00D8 

20DD 

0358 

eall 

LedTable 

;get  digit  output 

00D9 

0086 

0359 

movwf 

PORT_B 

;d^^  lads 

OODA 

08  OC 

0360 

movf 

TenpCw 

;  get,  siQk  vialue  la  w 

OODB 

0085 

0361 

;;t  . 

OOOC 

0008 

0362 
0363 
0364 

llj  ■ 

0365 

LedTable 

OOTID 

0782 

PCL 

add  to  PC  low 

CODE 

343F 

03«7 

retlw 

B'OOllllll' 

led  drive  for  0 

OODF 

3406 

0368 

retlw 

B'OOOOOllO' 

led  drive  for  1 

OOEO 

345B 

0369 

retlw 

B'OlOllOll' 

led  drive  for  2 

OOEl 

344F 

0370 

retlw 

B'OlOOllll' 

led  drive  for  3 

00E2 

3466 

0371 

retlw 

B'OllOOllO' 

led  drive  for  4 

00E3 

346D 

0372 

retlw 

B' 01101101' 

led  drive  for  5 

00B4 

347D 

0373 

retlw 

B'Ollllloi' 

led  drive  for  6 

00E5 

3407 

0374 

retlw 

B'OOOOOlll' 

led  drive  for  7 

GOES 

347F 

0375 

retlw 

B'Olllllll' 

led  drive  for  8 

0CIE7 

3467 

0376 

retlw 

B'OllOOlll ' 

led  drive  for  9 

00E8 

3477 

0377 

retlw 

B'OlllOlll' 

led  drive  for  A 

00E9 

347C 

0378 

retlw 

B'OlllllOO ' 

led  drive  for  b 

OOEA 

3439 

0379 

retlw 

B'OOlllOOl' 

led  drive  for  C 

OOEB 

345E 

0380 

B'OlOllllO'  . 

,£^ed,fdrlve  for  d  , 

OOEC 

3479 

0381 

B'OllllOOl' 

led  drive  for  E 

OQED 

3471 

0382 

£etlw 

S'01110001';i; 

0383 

CI 

0384 

0961 

0385 

0386 

InitAd 

OOEB 

30C0 

0387 

novlw 

B'llOOOOOO' 

;  internal  rc  for  tad 

OOBF 

0088 

0388 

amvwf 

WCONO 

/ 

0389 

foMlsa  I^M^  adeeol  is  » 

et 

in  laitPorta 

OOPO 

0008 

0390 
0391 

1 

wvci-  - 

0392 

SainpleAd 

list  7 

OOFl 

2  OAS 

0393 

call 

SavePorts 

00F2 

20F8 

0394 

eall 

0395 

AdDone 

10 
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00F3  1908 

0396 

btfsc 

ADCONO.GO 

;ad  done? 

00F4  28F3 

0397 

goto 

AdDone 

;no  then  loop 

OOFS  1612 

0398 

bsf 

ADOver 

;s»t  a/d  over  flag 

00F6  20B5 

0399 

call 

RestorePorts 

00F7  0008 

0400 

return 

ten 

0401  ; 
"  '     0402  ; 

-••Mi* 

0403  DoAd 

- 

OOFS  0186 

0404 

clrf 

PORT_B 

;turn  off  leds 

00F9  1683 

0405 

bsf 

STATUS,  RPO 

;sel«E:£  1%-  1 

OOFA  300F 

0406 

movlw 

OxOf 

•meSte          a  M'-'Z 

OOFB  0085 

0407 

movwf 

TRISA 

/ 

OOFC  1283 

mm 

bcf 

STATUS, RPO 

; select  pg  0 

OOFD  1408 

040*3  ' 

bsf 

ADCON0,ADON 

; start  a/d 

OOFE  307D 

■"-taKWiw 

.  125 

OOFF  2102 

0411 

call 

Wait 

ItiliAtp  '.»C0 

0100  1508 

0412 

-fesir"- 

ADCONO ,  GO 

!Sta«t  %AMrsieB 

0101  0008 

0413 

0414  ; 

0415  ; 

0416  Wait 

retaim 

0102  OOSC 

0417 

0418  Next 

■  -■■ ; 

0103  0B8C 

0419 

decfsz 

0104  2903 

0420 

gee© 

mm*'' 

0105  0008 

0421 

0422----''' 

0423  ; 

0424  r 

-•■  ^, 

-  Hi  ;  e«eO 

0026 

042S  count 

equ 

0027 

0426  teanp 

equ 

<»X4<ic  rara 

0427  ; 

0020 

0428  H_bYt« 

30 

0021 

0429  L_byt« 

«i8'"  ■ 

21  ■■ 

0022 

0430  RO 

equ 

22  AJ7at=. 

0023 

0431  Rl 

equ 

23 

0024 

0432  R2 

0433  ; 

0434  ; 

equ 

24 

0106  1003 

0435  B2_BCD 

bcf 

STATUS,  0 

{■  bJ*«#>"1»»  c»a^^  bit 

0107  3010 

0436 

movlw 

.16 

r  J  so 

0108  00A6 

0437 

movwf 

count 

0109  01A2 

04*8 

clrf 

RO 

OlOA  01A3 

04*9  - 

clrf 

Rl 

•-'fC 

OlOB  01A4 

0440 

clrf 

R2 

mi 

OlOC  ODAl 

0441  loopl6 

rlf 

L_byte 

S*"i6 

OlOD  ODAO 

0442 

rlf 

H_byte 

tvto 

OlOE  0DA4 

0443 

rlf 

R2 

01  OF  0DA3 

0444 

rlf' 

Rl 

TEI) 

0110  ems 

0445 
0446  ; 

rlf 

RO 

-0 

-               ~^  ro 

0111  0BA6 

0447 

decfsz 

count 

0112  2914 

04^8 

goto 

adjDEC 

0113  3400 

0449 
0450  ; 

RETIiW 

0 

0114  3024 

0451  adjDEC 

movlw 

R2 

■- 

0115  0084 

0452 

movwf 

FSR 

0116  211E 

04S3 
0454  ; 

call 

ad j BCD 

-,  i<-i-r' 

0117  3023 

04SS 

movlw 

Rl 

»t?iiTl  *«£.« 

0118  0084 

'-"64S6  " 

inovwf 

FSR 

.'j-:  riti 

0119  211E 

0457 

call 

ad j BCD 

0458  ; 

-    J  ifi- 

OllA  3022 

0459 

movlw 

RO 

OllB  0084 

0460 

movwf 

FSR 

one  211B 

0461 

call 

OllD  290C 

0462  ; 

<:■-''.■  -MVS  ■ 

goto 

uk>  irr.a 

liiiii^Cliiafini^i  Digital  Voltineter  with  Display  and  Kepb^rd 


oils  3003 
Clip  0700 

0120  00A7 

0121  19A7 

0122  0080 

0123  3030 

0124  0700 

0125  00A7 

0126  1BA7 

0127  0080 

0128  3400 


0464  ; 

0465  adjBCD 
0466 

0467 
0468 
0469 
0470 
0471 
0472 
0473 
0474 
0475 
0476 
0477 
0478 
0479 
0480 
0481 
0482  ; 
0483 
0484 
0485 


movlw 
addwf 
movwf 
btfsc 
movwf 
movlw 
addwf 
movwf 
btfsc 
movwf 
RETLW 


3 

0,W 
temp 
temp, 3 
0 

30 
0,H 

tttlEip 

ten^f  7 

0 

0 


test  if  result  >  7 


test  If  result  >  7 
save  as  HSD 


MEHORY  USAGE  HftP  CX'  =  Used,     <-'  =  Uttusiadf) 

0000  :  x-xxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 
0040  :  xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx 


0140  1  .  --    -  - 

All  other  nmnory  blocks  unused. 


Errors 
Warnings 
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03*  (In. 


mo 


I'  •.'•vcatt 
U  WJITW 


C'»0 

>r»o 

1  »■:»'. 


  K»sxmit 


■;xjua  xx.XiiLx;ULv;.-,  ;)i 


i^RmllAiflll^y  Kid 
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Ai0me:  Rot  McOfU  -  WFTMIec^o^^ 
INTRODUCTKIM  " 

The  purpose  of  this  application  note  Is  to  Introduce  a 
NcieCXX  based  ADB  Interface  which  can  be  used  as 
a  basis  for  the  development  of  custom  ADB  devices. 
This  application  note  describes  the  hardware  Involved,  a 
general  purpose  ADB  protocol  handler  and  an  example 
application  tasl<.  The  example  software  application 
supports  a  single  key  keyBmTiato'%eIM«iitiW^«^ 
puterfsee  Figure  1).  "         ,  '      '  '  ' 

OVERVIEW  !^  " 

ADB  licensing  from  Apple  Computer. 

Described  as  a  peripheral  bus  used  on  almost  all 
Macintoshs  (except  for  the  Macintosh  128,  512k,  and 
Plus)  for  keyboards,  mice,  etc. 

.SsmnunicstiQii)  b^Nraen  the  APBtaslcaiiKttitapplk^i- 
itemtask  tak^plaise  i^ng  smmsA  Ws^.  The Jtags 
..Mieate  wliMlher  there  isdata  reeeiveditM  oee^s  to  be 
•«ent  tO  itt»<KMiiitp#iD($>r  if  data  frcim  ftie  Mae^t^ 


EXPLANATION  OF  ADB 
TECHNOLOGY 

The  ADB  is  an  asynchronous  pulse-width  cqmijunKa- 
tion  protocol  supporting  a  limited  number  of  devices.  All 
devices  share  a  single  I/O  wire  In  a  multi-drop  master/ 
slave  configuration  in  which  any  slave  devices  may 
ipquestserykse.  This  accopp|^ecitttjrou9h|a  wir^dOR 
9C^i^e  togk:  anangeanerit, 

ThiS'ADB  cable  Is  composed  of  four  wires:  +5v,  grid, 
A^  signal,  and  power-on  (of  the  Macintosh).  The 
'Signal  wire  communicates  AOS  input  and  output  using 
atVtipenasllector  type  signal.  The  number  of  devices  is 
IIMM  liy  ^e  s^irsssing  eehefhd^'Sr^  a  MMiwn 
current  draw  Of  s<X)mA.  ■  ' 

Every  ADB  device  has  a  default  address  at  start-up 
assigned  by  Apple.  If  there  are  device  address  conflicts, 
the  protocol  supports  the  reassignment  of  device  ad- 
dresses at  start-up.  The  software  in  the  PIC16CXX 
discussed  here  is  designed  to  easily  modify  the  device 
address  to  make  the  PIC1 6CXX  appear  as  another  ADB 


FtGUiE  1:  BLOCK  DIAGI^AIW  OF  FUNCTIONALITY 


Macintosh 


ADB 
Cable 


ii  PIC16CXX  Interface  Board  iliiiji 


PIC16CXX  PROGRAM 


ADB  Communication  Task 


Application  Task 


Single  key 
"keyboard" 


-O 
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No  device  issues  commands,  except  the  host.  How- 
ever, devices  are  permitted  to  request  service  during 
specific  time  intervals  in  the  signal/Command  protocol. 
A  Sotvlce  Request  is  referred  to  as  an  "Srq"  The  signal 
pfOtQGOt£»niminiQEdkm  iBiaeeomplished  by  pulling  the 
ADB  line  low  for  various  time  inten^als. 

The  host  controls  the  flow  of  data  through  issuance  of 
specific  signal  sequences  aAd  by  issuing  several  types 
oil  Commands.  The  basic  Command  types  are  Talk, 
Listen,  Flush,  or  Reserved.  Each  Command  has  a 
component  called  a  "Registei"  indicator  which  specifies 
the  storage  area  affected  by  the  Command  type.  The 
following  Is  a  summary  explanation  of  the  each  of  the 
Commands.  The  complete  specifications  are  available 
fronf  Afip^ie.  as  listed  in  the  Resources  section. 

PROTOCOL  ASSUMPTIONS 

The  ADB  preitacol  is  defined  wHh  a  nurhbir  of  general 
assumptions  about  its  use.  TN@se  assunnpfidns  NM/e 
dilm  the  general  philosopl^  of  tie  commiinteatlQn 
sequences.  K  is  assumed  ftaMhedei^Ge^on^eJI^ 
are  used  for  human  input  and  «ach  are  usestteiUNsCa 
time,  such  as  a  l<ey board  and  a  mouse.  lt'  is>  aiso 
assumed  that  the  transfer  time  from  one  device  to 
another  is  relatively  slow.  This  does  not  mean  that  the 
protocol  is  limited  to  these  assumptions  but  rather  that 
the  protocol  is  optimized  towards  this  type  of  use.  This 
is  made  very  evident  in  the  host  polling  logic,  where  the 
host  continues  to  poll  the  last  device  communicated  with 
until  another  device  issues  an  Srq.  Consequently,  if 
another  device  issues  an  Srq,  the  device  being  commu- 
nication with  (or  the  host)  may  need  to  retransmit. 


ADB  Elements: 

The  ADB  protocol  has  two  components,  a  signal  protocol 
and  a  Command/data  protocol.  These  two  elements  are 
intertwined.  The  signal  protocol  is  differentiated  in  most 
cases  by  timing  periods  during  which  the  ADB  signal  is 
low.  The  Apple  ADB  specification  allows  +/-  3%  toler- 
ance timing  of  the  signals  from  tha^gsfasiiaiMIKiV 
the  devices.  The  signals  are: 

«'  «^  sih^l  k*Wir3wfe>-'*-'  i*' ■ 

•  Attention:  signal  low  for  800jp^^|-^-,.  n  i,  :/•(,, 

•  Sync:  signal  high  for  70  us. 

•  Stop-to-start-Time  (Tit):  signal  high  for  160  to  240 

US. 

•  Service  Request  (Srq):  signal  low  for  300  [is. 

After  deyice  initialization,  in  general  all  communication 
||tQi^  fhe  A^|  ]S,^00(M7ii,pJJ^ed  through  the  following 
event  sequeiice  initiEded  by  ttie  host:  Attention  Signal, 
Sjfne  Signal,  Command  Packet,  Tit  signal,  and  Data 
Neket  transfer.  Depending  upon  the  Command,  the 
device  may  or  may  not  respond  with  a  data  packet. 
Servtee  Requests  are  issued  by  the  devices  during  a 
very  specific  time  at  the  end  the  receptnn  of  the  Com- 
mand packet. 

The  Command  packets  and  the  Data  packets  are  the 
constructs  used  to  communicate  the  digital  Information. 
The  Mettled  of-  rsipresenting  datei  bite  i$  aeoompl^e^  in 
a  signal  tim'wtg  ebrfStnigt  called  a  BR  eellt  ^ich  Istt  «ell 
m  sfimym  jtdM.  Data  1's  and@'s  are  defined  by  the 
prapoMons^  theM  eell  time  period  when  the  line  is  <dW 
and  then  high.  A  T  bit  is  represent  by  tie^ine  lewftir 
35  (IS,  and  high  for  65  145.  Conversely,  A  "0"  bit  is 
reprasmiM^tatHl!^  ^  to^p^  arid  high  for  65  |;ms 
(seeR^i^ 


FIGURE  2:  TYPICAL  TRANSACTION  WITH  COMMAND  AND  DATA 


/tterrtbn  Stgn^ 


Sync 
70  usees 


Command  Byte  - 
Eight  100  usee 
BltC^IIS 


Srq 


300  usees 


65  usee 

j'Gr;=stopii 


.wme^tnim^i^ii  j^^0KX&0lfi^imlmsfem  tee. 
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FIQUIIES:  BIT  CELLS 


"(Tflit 

■1'Bit 

35  usees 

65  usees 

1  n 

U  1 

65  usees 

35  usees 

1  1 

1 00  usees 

1  1 

100  usees 

The  Command  Packet,  received  from  the  host,  follows 
an  Attention  signal  and  a  Sync  signal.  It  consists  of  an  8 
bit  Command  Byte  and  a  "0"  Command  Stop  Bit.  The 
Command  Byte  may  be  broken  down  into  two  nibbles. 
The  upper  nibble  Is  a  four  bit  unique  Device  Address. 
The  lower  nibble  is  defined  as  a  Global  or  Reserved 
Command  for  all  devices,  or  a  Talk,  Listen,  or  Flush 
Command  for  a  specific  device.  Also  contained  in  the 
tower  nibble  is  a  "Register"  designator  which  further 
details  the  Command.  The  importance  of  the  Command 
Stop  bit  cell  is  that  Srq's  can  only  be  issued  by  a  device 
to  the  host  during  the  Command  Stop  Bit  cell  low  time  if 
the  device  address  is  not  forthe  device  wishing  service, 
The  Host  controls  when  Srq's  are  allowed  through  the 
Command  protocol.  The  Tit  signal  and  Data  Packet 
transfer,  which  are  part  of  every  Command  packet  signal 
sequence,  are  overridden  if  an  Srq  is  issued  by  any 
devkie. 

A  Data  Packet  is  the  data  sent  to,  or  received  from,  the 
host.  Its  length  is  variable  from  2  to  8  bytes.  The 
structure  is  a  "1 "  Start  Bit,  followed  by  2  to8  bytes,  ending 
with  a  "0"  Stop  Bit.  The  Apple  ADB  documentation  refers 
to  the  data  packet  sent  or  requested  as  Device  Data 
"Registers".  This  does  not  necessarily  indicate  a  spe- 
cific place  in  memory.  In  this  PIC16CXX  implementa- 
tion, each  Data  Register  has  been  limited  to  two 
PIC1 6CXX  register  bytes.  The  ADB  specification  allows 
each  Data  Registerto  hold  between  two  and  eight  bytes. 
They  are  referenced  in  the  Command  byte  as  "register" 
asO,  1 , 2,  or3.  Data  Registers  has  special  significance. 
It  holds  the  special  status  information  bits  (such  as 
whetherSrq's  areallowed),theDevice  Address,  and  the 
Device  Handler  ID.  Commands  are  further  defined  by 
the  'register  id"  sent  in  the  Command  data  packet. 

For  example,  if  the  Host  issues  the  Command  in  binary 
of  0010 1 100,  it  would  be  interpreted  as  "Device  2,  Talk 
Register  0".  The  complete  definition  of  the  Commands 
and  data  registers  are  described  in  detail  in  1 
specifications  supplied  by  Apple. 


PIC16CXXADB  PROTOCOL 
PROGRAM  EVENT  SEQUENCE: 

Overview 

At  power-on  the  host  will  generate  a  Reset  signal.  The 
purpose  of  Reset  is  to  initialize  the  devices  on  the  ADB 
line.  This  includes  determining  the  addresses  of  each 
device,  and  resolving  device  address  conflicts  If  there 
are  any.  Once  the  devKe  addresses  are  determined, 
each  devKe  waits  to  t>e  Commanded  or  issues  an  Srq  if 
it  requires  sen/ice  from  the  host  and  is  not  being  ad- 
dressed by  the  host.  After  Reset  processing  the  ADB 
Protocol  Task  monitors  the  ADB  line  for  the  Attention/ 
Sync/Command  signal  sequence.  The  PIC16CXXpTO- 
gtam  differentia^^  the  signal  timirtg. 


the^^K^  needs  service  met 
each  event  and  after  the  falling  edge  of  the 
Attention  signal  is  detected. 


Command  interpretation  Is  accomplished  during  the  low 
signal  time  of  the  Stop  Bit  cell  of  the  Command  packet. 
Response  to  the  Command  must  occur  after  the  mini- 
mum time  of  the  Stop  to  Start  time  period  (Tit),  whfch  is 
160  usee,  but  before  the  max  Tit  time  of  240  usees. 
When  a  device  has  issued  an  Srq,  it  waits  to  be  ad- 
dressed by  the  host.  If  the  next  Command  received  is 
not  forthe  device,  it  issues  the  Srq  again.  The  nomnal 
response  to  an  Srq  will  be  a  Talk  Command  from  the 
host. 


[Mailed 


START-UP 

Upon  start-up,  the  Reset  routine  is  executed,  looking  for 
the  ADB  line  to  be  high.  When  the  line  is  high,  an 
initialization  routine  is  executed  during  w^hich  registers 
are  cleared  or  kjaded  with  default  values.  The  only 
exceptton  is  a  register  for  generating  a  random  address 
used  in  the  ailMiiMMfMSialtMon  process. 

RESET 

During  a  Reset  condition,  default  values  are  loaded, 
such  as  the  Default  Device  Address  and  Handler  ID  (a 
piece  of  information  used  by  the  host  to  identify  the  type 
of  device).  More  than  one  device  may  have  the  same 
address.  There  is  a  sequence  of  events  to  resolve 
address  conflicts  described  in  the  Implementation  sec- 
tion. The  host  assigns  a  unique  address  to  each  device. 
The  Reset  condition  only  takes  place  once,  during  start- 
up, except  under  un usual  conditk)ns,  such  as  testing  this 
program.  . 


iiSMte 
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ATTENTION  ROUTINE  ,i 

When  the  Reset  routine  is  complete,  the  Attention  S^al 
rout  Ine  is  executed,  looking  forthe  line  to  go  low  and  then 
high.  This  low  time  is  monitored  to  be  within  range  of  the 
Attention  Signal  Timing.  If  the  timing  is  below  the 
minimum  threshold,  the  routine  abortstd  start  over  again 
lool<ing  for  the  line  to  go  low  as  the  beginning  of  the 
Attention  Signal.  If  the  low  time  is  exceeded,  the  routine 
aborts  to  the  Reset  Signal  routine. 

SYNC  SIGNAL  ROUTINE 

When  the  line  transitions  to  high,  the  Sync  Signal  routine 
lool<s  for  the  line  to  go  low  as  the  start  of  the  first  bit  of  the 
Command  Byte.  If  the  Sync  high  time  is  exceeded,  the 
routine  aborts  to  the  AttentioB  ^j||^p(„an<n^ 

COMMAND  ROUTINE 

The  Command  routine  detects  and  decodes  the  next  8 
bit  cells  as  the  Command  Byte.  The  routine  must  first 
detemiine  if  the  device  address  Is  forthe  device.  If  the 
routine  detemiines  that  the  device  address  in  the  Com- 
mand matches  the  stored  device  address  it  may  do  one 
of  two  things;  issue  an  Srq  to  the  host  by  holding  the  line 
low,  or  go  on  to  check  if  the  Command  is  Global  to  all 
devices.  If  Global,  the  routine  determines  the  specific 
Command  arKi  executes  the  routine  for  that  Qlolial 
Command.  After  execution  of  the  Command  routine  it 
.  then  goes  back  to  look  for  the  Attentnn  Signal. 


When  a  device  is  addressed,  it  determines  whether  the 
Command  is  to  Talk,  Listen,  or  Flush  data,  for  the 
specified  Data  Register  number.  If  the  Command  is  for 
Data  Register  3,  there  are  special  considerations,  de- 
scribed for  this  program  in  the  Implementation  section 
||elow.  If  the  Command  is  to  Flush,  the  routine  clears  the 
data  in  the  specified  Register.  The  ADB  specification 
defines  the  action  of  the  Flush  Command  to  be  device 
specific.  For  a  Talk  Command  or  Listen  Command,  the 
device  then  waits  forthe  Tit  signal.  When  the  Command 
is  to  Talk,  the  device  sends  the  data  bytes  from  the 
specified  register  and  a  Data  Stop  Bit  after  the  Tit 
minimum  time.  For  a  Listen  Command,  the  device 
receives  data  for  the  specified  Register. 

When  the  data  has  been  Rushed,  Sent,  or  Received,  the 
program  the  device  then  goes  to  look  for  the  Attention 

signal  again 


Notes. 


in  this  PiCiecxX  program,  the  Appli- 
c  jtion  Task  is  serviced  before  boking 
far  the  Attention  si^ial. 

If  at  any  time  the  line  is  kiw  oi  ImjI' 
oulsido  ot  timing  ranges,  the  program 
aborts  to  check  if  an  Attention  or  Reset 
signal  l-.;is  bcoi;  issued  bv  tUn  Hos!  in 
the  ca^e  of  sending  Data,  the  piogram 


SENDING  t5AtAiT3"mf: 


Data  is  sent  only  in  response  to  a  Talk  Command.  For 
every  data  bit  cell,  the  line  is  tested  to  go  high  at  the 
proper  time.  If  the  line  is  still  low,  a  collisk>n  has 
occurred.  When  a  collision  is  detected,  a  collision  flag  is 
set,  and  the  program  aborts  to  look  for  a  Command 
signal  sequence. 


c.r-,  r,.  i  ■.  .^.-y  r.o.ifetrnotrt  mtgitr  tstot 
FIGURE  4:  TYPICAL  TRANSACTION  WITH  SERVICitMiliJ^T.  A«»«a«««  .<be«»olib.->  > 
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IMPLEMENTATION 

Hardware: 

The  hanjware  of  this  circuit  is  fairly  simple.  The  circuit  is 
peered  via  the  +5v  and  Gnd  wires  of  the  ADB  cable. 
The  ADB  I/O  wire  is  corwie^Sfl  to  Ri^  pAO  with.a 
up  resistor  to  5v.  The  TOCKI  pin  is  (ted  to  Gnd.  TMI 
Master  Clear  pin  is  tied  to  5v. 

This  circuit  uses  a  4Mhz  crystal  as  a  timing  reference, 
but  higher  values  may  be  substituted.  The  softw»e  is 
diisigned  to  accommodate  higher  frequencies. 

Ajl^h-button  switch  is  used  as  the  single  l<8y  of  the 
*ke)rt>oard".  One  side  is  connected  to  port  RB1  with  a 
pull-up  resistor  to  5v,  and  the  other  side  to  Gnd.  An  LED 
is  used  to  indicate  that  the  'key'  has  been  pressed,  with 
the  positive  side  connected  to  port  RBO  and  the  negative 
side  to  Gnd. 

Software: 

There  are  two  sections  of  the  program  designated  as 
'Application  Tasks",  setup  to  switch  between  a  protocol 
support  task  for  the  ADB  signal  decode  and  processing, 
and  another  task,  the  Applteation  Task,  in  this  case  a 
single  key  "keyboard"  routine.  The  ADB  protocol  task 
has  prnrtty.  The  first  section  of  the  code  is  the  ADB 
protocol  task,  the  second  section  is  the  Applicatton  task, 
'KeytMard".  The  two  tasks  communkate  through  flags 
which  Imflcate  that  dd^Qfeds  to  im  ssrA,  pf  that  itota 
has  bean  received. 

'^^I^^oard  Task  is  run  at  two  times;  1)  during  the 
Attehtibh  Signal,  2)  between  the  end  of  the  Data  Stop  Bit 
and  the  beginning  of  the  Attention  Signal.  The  Keyboard 
Tasks  is  given  up  to  500  usees  during  the  Attention 
Signal,  and  900  usees  during  the  time  between  the  end 
of  the  Data  Stop  Bit  and  the  beginning  of  the  Attention 
I  iSSpisl.  It  is  important  to  note  heire  tftat  the  other  tasks 
'mkr  NOT  AFFECT  TMRO  or  fte  ADB  time  variable 
that  the  Attention  Signal  is  using  to  keep  track  of  the 
RTCC. 

Timing: 

Timing  of  is  accomplished  by  first  loading  a  constant  into 
a  time  variable.  This  constant  represents  the  maximum 
limit  forthe  current  routine,  which  may  not  necessarily  be 
the  maximum  timing  range  for  the  current  Signal.  The 
TMRO  value  is  loaded  into  the  working  register,  and 
subtracted  from  the  time  variable.  The  Carry  bit  of  the 
Status  register  is  tested  to  see  if  it  is  set  or  cleared.  If  the 
bit  is  clear,  the  current  timing  limit  has  been  exceeded. 
Further  action  is  taken  based  on  this  status,  it  Is 
important  that  the  constant  not  be  allowed  very  close  to 
255,  or  rollovar  may  ecGtiF,>  giving  maeeurBta  ivpAi. 
The  prascalar  Is  applied  to  the  TMRO  as  nace«liRi, 


The  following  are  the  timing  ranges  used  by  this  pro? 
gram  for  ADB  signals: 

Reset    Greater  Than  824  I 

776-824  usees 

72  usees 

ix1lQ)MHt4iU|3  to  tIM  usees 

<  50  usees 


Attention 
Sync 

1  Bit  low  time 
0  Bit  low  time 
Stop  bit 

Stop  to  Start  (Tit) 
Service  Request  (Srq) 


>  50  <  72  usees 
OBit 

140-260  usees 
300  usees 


Note:  Therangeof  valuesgivenforObit,  1  bit.and 
Tit  timing  are  slightly  widerthan  those  given 
in  the  AOB  specifk»tion. 


How  Address  Conflicts  are  Resolved: 

During  Vne  start-up  process  the  host  sends  a  Talk 
Register  3"  Command  to  each  device  address,  and 
waits  fora  response.  Whenadevice  recognizes  thatthe 
Host  issued  a  Talk  Registers"  Command,  it  responds 
by  sending  a  random  address.  During  the  transfer  of 
each  bit  cell  of  the  random  address  the  signal  line  is 
monitored  forthe  expected  signal  level.  If  the  signal  is 
not  what  is  expected  there  is  an  address  conflict.  If  the 
address  is  sent  successfully  the  host  will  respond  with  a 
Listen  Command  to  that  device  with  a  new  Device 
Address  forthat  device  to  move  to.  The  device  then  only 
responds  to  Commands  at  the  new  Address. 

If  th^tia  Is  a  cdnfl)ct?^jM«re  Mo  d^d^  Have  th^  same 
default  addre^,  and  nsspond  at  ttie,  same  time,  ttie 
device  that  fMs  the  line  low  vi^en  it  expeetsittobe  hi#i, 
tanmediately  stops  transmitting  becatise.  it  has  ^er'- 
•ffiftted  that  a  collision  has  occurred.  The  dewoemihiiA 
detected  the  collision  mari<s  its  address  as.UQm^itiile 
and  therefore  ignores  the  address  move  CeummtAt,* 
Listen  register  3  Command,  The  device  nwintains  the 
unmovable  address  condition  until  it  has  executed  a 
successful  response  to  the  talk  register  3  Command. 

The  host  continues  sending  a  Talk  Registers  Command 
at  the  same  address  until  there  is  a  time-out  and  no 
device  responds.  This  is  how  conflicts  are  resolved 
when  more  than  one  device  has  the  same  address;  for 
example,  if  two  keyboards  are  connected. 

bnr  I.-,  w  04  qW3  tflmri" 
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Program  Sequence: 

yVoids  in  parenthesis  accompanying  the  TITLES  are 
UiB^  of  procedures  corresponclns  hi  9a  code. 

Start-up  /  IDLE  (Start) 

Start  by  setting  the  ADB  pin  on  Port  A  and  the  Switch  Pin 
on  Port  B  as  inpiltt6,'tti^lM-sMl^#wnMtof  Pott  Ami 
B  as  outputs. 

INITIALIZE  DEFAULT  VALUES  WHEN  THE  LINE  IS 
HIGH  (Reset) 

Look  tor  the  line  to  be  high,  and  when  it  is,  clear  or 
initialize  registers  to  default  values. 

LOOK  FOR  ATTENTION  OR  RESET  (AttnSig) 

Lookforthe  line  to  go  low,  when  it  does,  clear TMRO  and 
time  how  long  K  is  low.  An  Attention  Signal  has  occurred 
when  the  line  goes  high  between  776  and  824  usees.  If 
the-fowtime  is  measured  less  than  776  usees,  anotfrar 
signal  has  occurred  and  the  progrevn  aborts,  looking  for 
the  Attention  Signal  again.  When  the  low  time  is  mea- 
amxi  greater  than  usacs^  ttie  program  Intorpr^ 
this  timing  as  a  Reset  Signal.  The  pregmm  siatte  pyfir 
again,  waiting  for  the  line  to  be  high,  and -whan -K  is, 
performs  a  Reset  initialization. 


LOOK  FOR  SYNC  SIGNAL  (SyncSig;  calls  Srq) 

The  Sync  Signal  is  the  high  time  between  the  rising  edge 
of  the  Attention  Signal  and  the  falling  edge  of  the  first  bit 
of  the  Command. 


QETTHE  C(?MHWIAND  (QopnwKl;  calls  QeL.BW|  v 

tJCiok  tor%tf  Comn!»ndf««»rnblnatlon  of  «iight  Oand  1 
Mis.  TIW>  MSBte  sent  Mi  Thiste  aMewA  1^  calling  a 
th»®atjBitMatlna,  whiish^adcs  wh^hertHeFnaxImum 
BR'Oelttlme  Is  sMieadeditfnot,  It  k>oksforthe  rising  edge 
at  the  end  of  the  bit.  When  the  bit  is  received,  it  is  rotated 
Into  a  variable,  and  the  end  of  the  bit  cell  is  expected. 
When  the  falling  edge  of  the  next  bit  is  detected,  the 
•outine  clears  TMRO  and  returns  to  Command,  which 
calls  GeLBit  again  until  all  8-bilB  of  theCominand  have 
been  received.  ■'  -  orT 

ISSUE  A  SERVICE  REQUEST  IF  NECESSARY  fBttS 

If  data  needs  to  be  sent  to  the  Host,  a  Service  Requeist 
(Srq)  is  issued  by  holding  the  line  low  while  the  Stop  Bit 
is  being  received,  during  the  Stop-to-Start  time  (Tit) 
between  the  end  of  the  Command  Stop  bit  and  ttia 
beginning  of  the  Data  Start  Bit 


LOOK  FOR  STOP  BIT  (CmdStop) 

Look  for  the  Stop  Blt(a0bltof65  usees)  that  comes  after 
the  last  Command  Byte. 

INTERPRET  THE  COMMAND  (AddrChk) 

Afterthe  Command  has  been  received,  determine  if  the 
AstdrwsMjngs  lb  ttils  Device.  If  the  Address  Is  not  for 
fhis  Device,  dSterthinb  if  Oie  Command  is  global  for  all 
Devices  and  if  so,  do  that  Command.  If  this  is  not  a 
Gtobal/ReseNsd  Command,  call  the  Sen/'ice  Request 
(Srq)  routine  to  see  if  an  Srq  shoukJ  to  be  issued  to  the 
Host,  and  do  so  if  necessary,  then  return  to  get  the  Attn 
Signal.  If  the  Address  is  for  this  Devne  determine 
whether  it  is  a  Talk,  Listen,  or  Flush  Command,  and  go 
to  the  specified  Command  routine. 

SENDING  DATA  (Talk;  calls  Tit) 

If  the  Command  was  interpreted  to  t>e  a  Talk  Command 
addressed  to  this  Device,  call  the  Stop-to-Start  Time 
(Tit)  routine.  When  the  Tit  routine  has  completed, 
determine  if  this  Is  a  Talk  Register  3  Command.  If  so, 
return  a  Random  Address  as  part  of  the  two  bytes  sent 
to  the  Host.  If  this  is  not  a  Talk  Register  3  Command, 
determine  if  Data  needs  to  be  sent.  If  so,  send  the  Data 
Start  Bit  (a  '1'),  two  bytes  of  Data  from  the  indicated 
register,  and  a  Stop  Bit  (a  '0').  If  not,  abort  to  the 
Attentkin  Signal.  If  at  any  time  the  transmission  of  Data 
is  interrupted,  abort  to  the  Collision  routine.  Only  after  a 
complete  transmissk>n  shoukj  the  flags  l>e  cleared 
indkaMng  a  succe^slut  transmission. 


Note:  The  ADB  Specification  ndteales  data  may 
be  between  Iko  and  eight  bytes  king.  The 
limitations  of  the  PiCI 6054/55/56  parte  al- 
low only  two  bytes  of  data  to  be  sent  by  this 
i)">^rum  due  to  limited  reg  star  space.  II 
more  inan  two  bytes  of  de^RH^  be««nt^ 


RECEIVING  DATA  (Listen;  calls  Tit) 

If  the  Command  was  Interpreted  to  be  a  Listen  Com- 
mand addressed  to  this  Device,  call  the  Stop-to-Start 
Time  (Tit)  routine.  When  the  Tit  routine  has  completed, 
receive  the  rest  of  the  Data  Start  Bit,  2  Data  Bytes,  and 
Data  Stop  Bit.  When  the  Data  has  been  received, 
determine  whether  this  is  a  Listen  Register  3  Command. 
If  this  is  a  Listen  Register  3  Command,  interpret  what  the 
Command  is.  If  this  is  a  conditional  Address  change 
Command,  determine  if  this  Device's  Address  is  move- 
able at  this  time.  If  not,  abort  to  the  Attention  Signal.  If 
so,  change  the  Device  to  the  new  Address  and  go  run  the 
Second  Application  Task.  If  this  is  not  a  Listen  Register 
3  Command,  move  the  Data  into  the  specified  register 
and  go  nm  the  Second  Applnatkm  Task. 
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LOOK  FOR  THE  STOP  TO  START  TIME  (niy«  A!  .-JWO 

After  the  Command  and  Stop  Bit,  the  Talk  or  Listen 
routines  call  ttie  Tit  routine.  Tit  looks  for  the  line  to  go  low. 
If  the  line  went  bw  before  the  Win.  Tit  Time,  see  if  this  is 
a  Talk  Command.  If  this  is  a  Talk  Command,  abort  to  the 
Collision  routine.  If  this  is  a  Listen  Command,  abort  to 
the  Attention  Signal.  > 

If  the  Min.  Tit  time  passes  amti  the  line  is  high,  see  if  the 
TeUic  routine  called  the  Tit,  If  so,  go  wait  for  until  the 
middle  of  the  TV,  then  return  to  the  Talk  routine  to  send 
the  Data  Start  Bit,  Data  Bytes,  and  Stop  Bit.  Ifatanytime 
tie  Sob  goes  low  during  ttia  TIt  and  the  Talk  routine 
called  it,  abort  to  the  Colllsior)  routine. 

If  the  Listen  routine  called  Tit,  kx}k  for  the  line  to  go  low 
as  the  beginning  of  the  Data  Start  Bit.  When  the  line  goes 
k>w,  return  for  the  rest  of  the  Start  Bit.  If  the  line  doesn't 
go  tow  before  the  Max.  Tit  time  is  up,  abort  to  the 
AHention  Signal. 


THE  END  OF  THE  DATA  STOP  BIT  AND  THE  ATTEN- 
TION SIGNAL  (Task_2) 

The  Keyboard  Task  checks  to  see  if  the  key  has  been 
pressed.  When  the  key  is  pressed,  flags  are  set  to 
indicate  this  and  an  LED  is  turned  on  until  the  key  has 
been  debounced.  The  flags  allow  the  key  to  be 
debounced,  Srq(s)  to  be  sent  to  the  Host,  and  indicate  to 
the  Talk  routine  that  Data  needs  to  be  sent.  Two  bytes 
of  data  are  loaded  into  Register  0  representing  a  key- 
down  code  and  a  flag  is  set  indicating  to  the  ADS  task 
that  data  needs  be  sent  to  the  host.  When  the  key-down 
codes  have  been  sent,  the  key  up  codes  are  toaded  into 
RegisterO.  When  the  key-up  codes  have  been  sent  and 
the  key  has  been  det)ounced,  the  flags  are  cleared.  The 
final  routine  of  TasK_2  decides  whether  to  return  to  the 
beginning  or  nMdte  oHN»  AMention  Signal. 
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SUGGESTIONS  ABOUT  m&mmm  ^ ' 
THE  CODE 

1 )  If  high  crystal  frequencies  are  used,  adividerequate 
at  the  beginning  of  the  timing  section  of  the  equates 
allows  an  easy  adaptation  for  all  established  timing 
definitions.  •  \  


FIGURE  6:  SIMPLE  SCHE«Hi^@Plli 
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RESOURCES 

Apple  Publications  and  Support  Softume 

MacTeeh  Magazine  (formeily  MacTutor)  is  a  publication 
dedicated  to  supporting  the  Macintosh.  They  have  had 
several  articles  regarding  the  Apple  Desktop  Bus.  They 
publish  a  CD-ROM  that  contains  all  of  their  articles  from 
1^  to  1992.  Also,  single  dMs  M»  adHM  fnicM 
#42). 

MacTech  IVlagazine  can  be  oin^ed  it: 
P.O.  Box  250055 
Los  Angeles,  CA  90025-9555 
31 0  575-4343     FAX  310  575-0925 
Applelink:  MACTECHMAQ 
Internet:  info@xplain.com 

Apple  iKaises  the  ADBtechnotsgy.  TN^wt>e  con- 
tacted at: 

20525  Mariani  Ave. 

Cupertino,  CA  95014 

Atbi:  Software  Licensing 

•  Appto  Keyboard,  «dehde4  j^sMMMt  jiMMf 
#062»01^-A. 

•  Apple  Desktop  specfficatkm  dimrng  fOSZ^^S^^ 

•  Apple  Desktop  eormector,        WM'  Mf  liMM 
#519-032X-A. 

•  Engineering  Specification ,  Macintosh  trai||i^iW!i|lV 
terface,  ADB  drawing  #062-201 2-A. 

•  ApFrtek^tand.speciHcttendravtiii^lii^MI^ 

•  Dweteper  CD  series,  Toctf        Ml^  lipM 
1993cent^rK: 

-  Pokier  =  Tool  Chest:  DevioKS  mi  MiiMare: 
Apple  Desktop  Bus 

-  ADB  Ana^er 

-  ADB  Parser  (most  Qomptete  ertvitonrnenf 

-  ADB  Lister 

-  ADBRelnit 

-  AE%  TaM  code  sanies 


WFT  Electronics  offers  free  asstetanca  in  ^ooikig 
necessary  ADB  info.  Contact  Qus  Calabrese,  Rob 
McCall,  Dave  Evtnkat: 

4555  E.  1@th  Ave. 

Denver,  CO  80220 

303  321-1119  FAX  303-321-1119  Applelink: 
WFT 

Intemet:  Gus_Calabrese@onenet-bbs.orgA 

AUTHOR  /  CREDITS 

Rob  McCall  developed  the  majority  of  the  P1C16C}0( 
ADBoode,  He  also  wrote  most  of  the  applteatton  note, 
©us  Oi^ibr^,  Dave  Evink,  and  Curt  Apperson  sup- 
^tted  this  effort.  DeM  wor1«s  with  Gus,  Fteb,  and  Curt 
in  developing  a  VEUMy  cf  entbedded  processor  prod- 
ucts. 

Contact  Gus  Calabrese,  Rob  McCall,  Dave  Evink,  Curt 
Apperson  at: 

WFT  Electronics 

4555  E.  16th  Ave. 

Denver,  CO  80220 

303  321-11«»  mm  iM.it1.1119  Applelink: 
WFT 

IrMemet:  'Mj^MMIttiMM-bbs.org 
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Software  Implementation  of  Asynchronous  Serial  I/O 


INTRODUCTION 

The  PIC16CXX  microconttollets  from  Microchip  Tech- 
nology, Inc.,  are  mid-Fange,  high  performance  EPROM 
based  8-bit  microcontrollers.  Sorne  of  the  members  of 
this  series  (like  PIC1 6C71  and  PIC1 6C84)  do  not  have 
an  on-chip  hardware  asynchronous  serial  port,  this 
applicalion  note  describes  the  Interrupt  driven  Software 
implementation  of  Asynchronous  Seriai  I/O  (Half  Duplex 
RS-232  Communications)  using  PIC16CXX 
microcontrollers.  These  microcontrellers  can  operate  at 
very  high  speeds  with  a  minimum  of  250  ns  cycle  time 
(with  input  clock  frequency  of  16  MHz).  Jo  test  the  RS- 
232  routines,  a  simple  DIgRai  Volt  Meter  (DVM)/Analog 
Data  Acquisition  Systems  has  been  implepienteg  ua^' 
PIC16C71  in  whk^  upon  recepfnnof  acemma^rtibiii 
host  (IBM*  PC),  ah  8-bit  vah^e  o»«a-seledMi  */& 
channel  is  transmitted  back  tMMRt 

IMPLEMENTATION 

A  half  duplex  Interrupt  driven  software  Implementation 
of  RS-232 communications  using  PIC1 6071  is  described 
in  detail  below.  The  transmit  pin  used  in  the  example 
code  is  RB7  and  receive  pin  is  connected  to  RTCC/RA4 
pin  (see  Figure  2).  Of  course  these  pins  are  connected 
with  appropriate  voltage  translation  to/from  RS-232/ 
CMOS  levels.  The  voltage  translation  is  given  described 
with  schemafics  In  the  hiutlware  sectkm  of  this  appHca- 
tlon  note.  -  — 

Transmit  Mode 

The  transmit  mode  in  software  is  quite  straight  forward 
to  implement  using  intermpts.  Once  the  input  clock 
frequency  and  t>aud  rate  is  known,  the  number  of  ck>ck 
cycles  per  bit  can  be  computed.  The  on-chip  Real  Time 
Clock  Counter  (RTCC)  along  with  the  prescaler  can  be' 
used  to  generate  interrupt  on  RTCC  overflow.  This 
RTCC  overflow  interrupt  can  be  used  as  timing  to  send 
each  bit.  The  Input  clock  frequency  ("_Clkln")  and  the 
Baud  Rate  ("_BaudRate")  are  programmable  by  the 
user  and  the  RTCC  time-out  value  (the  period  for  each 
bit)  iscomputed  at  assembly  time.  Whetherthe  prescaler 
must  be  assigned  to  RTCC  or  not  is  also  detemnined  at 
assembly  time.  This  computation  is  done  in  the  header 
file  'rs232.h".  Note  that  very  high  speed  transmissions 
can  be  obtained  if  transmission  is  done  with  sottwaro 
delays  instead  of  every  inten-upt  driven,  however,  the 
processor  will  be  totally  dedicaisd  to  tlHS  job. 


Transmission  of  a  byte  is  performed  by  calling  'PutChar" 
functkin  and  the  data  byte  in  the  "TxReg"  is  transmitted 
out.  Before  calling  this  function  ("PutChar"),  the  data 
must  be  loaded  into  TxReg  and  al^  made  sure  that 
serial  port  is  free.  The  serial  port  is  free  when  both 
JxmtProgress  and  _rcvOver  bits  are  cleared  (see  de- 
scriptton  of  these  bits  in  the  Serial  Status/Control  Reg 
table  given  later ). 

Summary  of  "PutChai"  function ;  | 

1)  Make$ura_txmtProgress&'_n:v6verbilsareclsarBCl 

2)  Load  TxReg  with  data  to  be  transtiMed 
j3)CALL  PutChar  functkxi 


The  reception  mode  implementation  is  slightly  different 
from  the  transmit  mode.  Unlike  the  transmit  Pin  (TX  pin 
in  the  example  code  is  RB7,  but  could  be  any  I/O  pin),  the 
receive  pin  (RX  Pin)  must  be  connected  to  RTCC/RA4 
Pin.  This  is  because  in  reception,  the  Start  Bit  whteh  is 
asynchronous  in  nature,  must  be  detected.  To  detectthe 
start  bit ,  when  put  in  Receptnn  nmde,  the  RTCC  nwdule 
is  configured  to  counter  mode .  The  OPTION  register  is 
configured  so  that  RTCC  module  is  put  in  counter  nniode 
(increment  on  external  ctodn  on  RTCC/RA4  Pin)  and  set 
...  to  jncDMnenttHi  feUng  4^  en  ATCC/RA4  pin  with  no 
prescalerassigned.Afterthlsconfiguratkm  setup,  RTCC 
(FHe  Rc^  1 )  is  billed  wtt)  (ixFF.  A  talTng  e^ 
nt  Ml  mMc^  HTCC  ibn  over  from  Ox^  to  QxOD,  thiis 
generating  an  Interrupt  indteating  a  Starf  Bit.  The 
RT0QRA4  pin  is  sampled  again  to  make  sure  ths 
transMonon^TlCC  istiota  glitch.  Once  the  start  bit  has 
been  detected;  tM  RTCC  module  Is  reconfigured  10 
,^  -  jncrement  on  internal  ckx:k  and  the  prescaler  Is  as- 
signed to  It  depending  on  input  master  ck>ck  frequency 
and  the  i>aud  rate  (configured  same  way«s  the  trans- 
inissNii  nnod^).  '  > 

The  software  seriai  port  is  put  in  receptbn  mode  when 
a  call  is  made  to  functnn  "GetChar".  Before  calling  this 
functk>n  make  sure  serial  port  is  free  (i.e.  _b(mtProgress 
and  _rcvOver  status  bits  must  be  0).  On  completnn  of 
reception  of  a  byte,  ttie  data  is  sidf«tf>in-Ai(Re8  and 
_rcvOver  bit  is  set  to  0. 

Summary  of  'GetChar'  function: 

1 )  Make  sure  _b(mtProgress  &  _rcvOver  bits  are  cleared 

~  2)  CALL  QetChar  function 

3)  The  receivad  Byte  is  in  TxReg  after  _rBvOver  trit  is 

cleared 
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Parity  Generation 

Parity  can  be  enabled  at  assembly  time  by  setting 
"_PARITY_feNABLP  flag  to  TRUE.  If  enabled,  the 
parity  can  be  set  to  either  EVEN  or  ODD  parity.  In 
transmission  mode,  if  parity  is  enabled,  the  parity  bit  is 
computed  and  transmitted  as  the  ninth  bit.  On  reception, 
the  parity  is  computed  on  the  received  byte  and  com- 
pared to  the  ninth  bit  received.  If  a  match  does  not  occur 
the  parity  error  bK  is  set  in  the  RS-232  Status/Control 


Register  ( _ParityErr  bit  of  SerialStatus  reg).  The  parity 
bit  is  computed  using  the  algorithm  shown  in  Figure  1. 
This  algorithm  is  highly  efficient  using  PICISCXX's 
SWAPF  and  XORWF  instructions  (with  ability  to  have 
the  destination  as  either  file  register  itself  or  W  register) 
and  the  sub-routine  (called  'GenParity"  )  is  in  file 
"txmtr.asm". 


FIGURE  1  -  AN  EFFICIENT  PARITY  GENERATION  SCWENIi  M  SOTTWrnPIE 
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Assembly  Time  Options 

The  firmware  is  written  as  a  general  purr>ose  routines  and  the  user  must  specify  the  following  parameters  before 
assembling  the  program.  The  Status/Control  register  is  also  described  below: 


^TABLE 1  -        OF  ASSEMBLY  TIME  OPTIONS 


_Ckln 

Input  clocl<  f  reqiJiancy  of  the  processor. 

>  riBiuidRBle, 

Desired  Baud  Raie.'Any  valid  value  can  be  used.  The  highest  Baud  Rate  achievable 
depends  on  Input  Clock  Fleq.  600  to  4800  Baiid  was  tested  using  4  MHz  Input  Ctodk.  600 
to  19200  Baud  was  twted  u^g  10  MHz  Input  Ctodc  Higher  rates  can  be  obtained  using 
hij^  Input  Glocic  Frequencies. 

Once  the  _BaudRate  &  _Clkln  are  specified,  the  program  automatically  selects  all  the 
appropriate  timings. 

_DataBtts 

Can  specHy  1  to  8  data  bits. 

_StopBits 

Limited  to  1  Stop  Bit.  Must  be  set  to  1 . 

_PARITY_ENABLE 

Parity  Enable  Flag.  Set  tt  to  TRUE  or  FALSE.  If  PARITY  is  used,  then  set  it  to  TRUE,  else 
FALSE.  See  "_ODD_PARITY"  flag  description  below. 

S4  tttQ  TRfUE  or  FALSE.  If  TRUE,  then  ODD  PARfTY  is  used,  else  mEVEN  Parity  Scheme 
Is  used. 

This  Flag  is  ignored  if  _PARITY_ENABLE  is  set  to  FALSE. 

_USE_RTSCTS 

RTS  &  GTS  Hardware  handshaking  signals.  If  set  to  FALSE,  no  hardware  handshaking  is 
used.  If  set  to  TRUE,  RTS  &  GTS  use  up  2  I/O  Pins  of  PortB. 

3-182 


Sditii^f^  lM|^@fTiefiti$kift    As^ncftron®us^rial  I/O 


mB«£B2>  BIT  A^QNMSNTS  OF  SERML  STATUS/CONTROL  REGISTER  (  "SERIALSTATUS"  REG) 


Bit# 

llama 

Description 

.  0 

_txnitPrDgress 

1  =  Transmission  in  progress. 

n  —  T*ranQmiQ_Qtnn  linn  froo 
u  —  ii  lai  loi  1  iisoiui  1  III  ID  II  oo. 

1 

J-"*!.!.-..  WO' 

_txmtEnable 

Set  tliis  bit  to  1  on  initialization  to  enable  transmission.  This  bit  may  be  used 
to  abort  a  trinsmisslon.  The  transmission  is  aborted  If  in  the  middle  of  a 
transmission  (i-^-  when  JxmtProgress  bit  Is  1)  JxmtEnable  bit  is  set  to  0. 
This  bit  g6ts  automatically  set  when  PutChar  function  Is  called. 

2 

_rcvProgress 

1  =  Middle  of  a  byte  reception. 

0  =  Reception  of  a  byte  (in  RxReg)  is  complete  and  S&  set  to  1  vi^eh  a  valid 
start  bit  is  detected  in  reception  mode. 

3 

-  - 

_icvOver 

.  -   

0  =  Completion  of  reception  of  a  byte.  The  user's  code  can  poll  this  bit  after 
calling  "GetChar"  function  and  check  to  see  if  it  is  set.  When  set,  the 
received  byte  is  in  RxReg.  Qttter^^»|^^wM#io|>!BJ^Scl<ad  for 
any  reception  errors. 

4 

_ParilyErr 

1  =  Party  error  on  reception  (inespect'nm  of  Even  Or  Odd  parity  chosen).  Not 
applicable  if  No  Parity  is  used. 

5 

_FranieErr 

1  =  Framing  error  on  reception. 

6 

Unused 

7 

_pferityBit 

The  9th  bit  of  transmission  oiureceptlon.  In  transmission  mode,  the  parity  bit  of 
the  byte  to  be  transmitted  is  set  in  this  bit.  In  receive  mode,  the  9th  bit  (or 
'§m^  M^  iipg^lrad  is  stQrecl  h  this  bit.  Not  Applicable  if  no  par!^  is  used. 
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The  hardware  is  prirnarily  copcemed  with  voltage  trans- 
lation from  RS-232  to  CMOS  levels  and  vice  versa. 
Three  cirBuits  are  given  below  and  the  user  may  choose 
which  ever  l)est  suits  his  application.  The  primary 
Mmnce  between  each  solutbn  is  cost  versus  number 
W^mponents.  Circuits  in  Figure  3  and  4  are  very  low 
cost  but  have  more  components  than  the  circuit  in 
Figure  2.  The  circuit  in  Figure  2  interfaces  to  RS-232  line 
using  a  single  chip  (MAX-232)  and  single  +5V  supply. 
The  circuit  in  Figure  3  is  a  low  cost  RS-232  Interface  but 
requires  two  chips  and  a  single  -i-SV  supply  source. 


IBM  PC*  no  external  power  requirennents.  The 
eiR:iiilchaw»powerfrer»RS-232  line  (DTR)  and  meets 
the  spec  of  drawing  power  less  than  5mA.  This  requires 
that  the  host  to  communicalaimist  assert  OXR  hi^  and 
RTSIow.  The  power  is  dreMi  '#biTt  DTR  line  knd  this 
requires  tfiSt  QTR  to  be.asserted  high  and  must  be  a) 
least7Vi  The  negatived  to -1QV  required  by  LM339  is 
drawnfrom  [^Sttieandthusthe  hostirwistasssrt  RTS 
low.  This  ciipuit  is  possfeie  because  of  the  low  current 
consumption  of  PIC16C71  (typical  2  mA). 


FIGURE  2  -  SINGLE  GHIF  FOR  RS-232  INTERFACE  (SINGLE  +5V  SUPPLY) 
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FIGURE  3  -  LOW  COST  RS-232  IlilMPACE  (TWO  CHIPS,  SINGLE  +5V  SUPPLY) 
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nourie*^-  low  cost,  low  power  RS-zsa.irfTERFACE  (power  supplied  by  RS-232  lines) 
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Test  Program 

To  test  ttie  transmission  and  reception  moduies,  a  main 
program  Is  written  in  which  the  PIC16C71  waits  to 
rsceiveacommandfromahostthroughthe RS-232.  On 
reception  of  a  l>yte  (ralid  commands  are  0x00,  0x01, 
0x02  &  0x03),  the  received  t>yte  is  treated  as  the 
PIC16C71's  A/D  channel  numt>er  and  the  requested 
channei  is  selected,  an  A/D  conversion  is  started  and 
when  the  conversion  is  complete  (in  atx>ut  20  uS)  the 
digital  data  (8  bits)  are  transmitted  back  to  the  host.  A 
Microsoft*  Windows*  program  mnning  on  an  IBM  PC/ 
AT*  was  written  to  act  as  a  host  and  collect  the  A/D  data 
from  PIC16C71  via  an  RS-232  port.  The  Windows 
program  (DVM.EXE)  runs  as  a  bacl(ground  job  and 
displays  the  A/D  data  in  a  small  window  (similar  to  the 
CLOCK  program  that  comes  with  MS  Windows).  The 
windows  program  and  the  PiC16C71  together  act  like  a 
data  acquisition  system  or  a  digital  volt  meter  (DVM). 
The  block  diagram  of  the  system  is  shown  in  Figure  2. 
The  input  clock  frequency  is  fixed  at  4  MHz  and  RS-232 
parameters  are  set  to  1200  Baud,  8-blts,  1  Stop  Bit  and 
No  Parity.  The  program  during  development  stage  was 
also  tested  at  1200,  2400,  4800  Baud  Rates  @  4  MHz 
Input  Clock  and  up  to  1 9200  Baud  @  1 0  MHz  input  clock 
frequency  ( all  tests  were  petf  omied  with  No  Parity,  Even 
Pai%  and  Odd  Parity  at  8  and  7  Data  Bit^. 


FIGURE  5  -  MS  WINDOWS  PROGRAIM 

FETCHING  A/D  DATA  FROM 
PIC16C71  VIA  RS-232 


PIC16C71  :  DVM 


ChanM  ->  2  32  Volts 


i!>soase8KtMti« 


BMiimt  hnpl^iientiaiiinlof  Asynchroiioi^  SmwA^ 


Source  Code 

The  PIC16CXX  source  code  along  with  the  Microsoft* 
Windows^"  DVM  Program  (executable  running  on  an 
IBM  PC/AT  under  MS  Windows  3.1  or  higher)  is  avail- 
able on  Microchip's  BBS.  The  assembly  code  for 
PIC16CXX  must  be  assembled  using  Microchip's  Uni- 
versal Assembler,  MPASM.  The  code  cannot  be  as- 
sembled using  the  older  assemblers  without  significant 
modifications.  It  is  suggested  that  user's  who  do  not 
have  the  new  assembler  MPASM,  must  change  to  the 
new  version.  ■ 

The  MS  Windows  Program  (DVM.EXE)  runs  under  MS 
Windows  3. 1  or  higher.  The  program  does  not  have  an|^ 
menus  and  shows  up  as  a  small  window  dtspl^iiplib^ ' .  j 
Data  and  runs  as  a  background  job.  There  are  a  tew  ~ ' 
comnand  line  options  and  are  described  below  : 


-Px 


-Cy 


X  is  the  comm  port  number  (e.g.  -  P2  selects 
COM2).  Default  is  COM1 

y  is  the  number  of  A^  channels  to  display. 
Default  Is  one  channel  prannel  i^y''    t  . 

z  is  a  ttoaSSng  point  number  that  represent  the 
scalingfactor  (l=or  example -S5.5  would  displsy 
the  data  as  5.5*<8bit  M)>/m^  The  default 
value  is  5.0  volts.  -SO  will d^ikljHNS'^Bla  in  raw 
foin^i|vithoutanysaril<g.  ^ 


Amar  Palacheria 
Logic  Products  Division 

Code 

Update:    Scott  Fink  -  Sr.  Applications  Engineer 
Logic  Products  Division 


r-rro 


1^- 


o;  c  '  '      '(        ilDU^ti  ni  .-!<; 

nO  S  1  >     .  u       n<n  !.-'V<»rr,.3,  Ln; 


O'Wi0jl3Mtowai8Hl|itflltoiilM<t>lB|ft^lhfe' 


Appendix  A -RS232.H 


NOLIST 

*********iMt:***********  *************  ****************************************************** 

RS-232  Header  File 

PIC16C6X/7X/8X 

***************************************************************************************** 
_CllcOut  equ         (_ClkIn  »  2)  ;  Instruction  Cycle  Freq  =  CLKIK/4 

_CyclesPerBit    set  (_ClkOut/_BaudRate) 
3e«npCaii5>ute      set         (_CyolesPerBit  »  8) 

.**********************************************  *  *********'********#'4f#^^#Aii#4fe#^^###4A#^#?i^#'^ 
;  Auto  Generation  0£  Frescaler  &  Rtcc  Values 

,***********************.***************************  **********************«####*ife*##**#**sip^^ 

;    At  first  het  DMfdUlt  valaaS:  £ev-«ttaSPx«iB«!a3»:A  :|H:@AB£«(»ad^ '-"<i:  .  ~  . 
;  ;  .(jsjiarioq  <  Mil 

RtccPrescale      set  0 
RtccPreLoad       set  _CyclesPerBit 
Us^Prascale       set  FALSK 

i§  fjteapcaapaia  >=  X). 
Ktcc^eseale  set        0'':  : 
HtccFreLoad    set         (_CyclesFerAib  M 

UsePrescale      set  TSSM 
endif  ^    ^.—''BT  '  >"> 

if  (_teinpCompute  >=  2) 

RtccPrescale  set  1 

RtccFcelioad    set  (_GyBleBPerBit  »  2) 
endlf 

if  ■  (_tempCoinpute  >=  4) 

RtccPrescale  set  2 

RtcePr^oad    set  (_C^lesPecBtt  »  3) 
endif 

if  (_tenpCoinpute  >=  8) 

{ttee?reae«]|ia  set.  2 

KtccPr^^d    Bet  -  '  (i_CyelesFerBit  »  1) 
endif 


i£  (_teoi)Coinpute  >=  16)  < 
RtccPrescale  set  4 

RtccPreLoad  aet  .  (_CyalesPerBit  »  S) 
endlf 

if  (_tenpCoir[pute  >-  32) 

RtccPreLoad  sat  (_CyclesFaxBlt  »  6) 
endlf 

,T  oc:,  .  1.2.' r.     ^  - 

if  (_teinpCoinpute  >=  64) 

RtccPrescale  set  6 

RtccPreLoad    set  (_CycleaPerBlt  »  7) 

endif  it          u  jiJ 


if      (_teiipCoinpute  >=  128) 
RtccPrescale  set  7 

RtccPreLoad    set         (_CyclesPerBi  t  »  8) 
endlf 

lf(  (RtccPraacale       0)  «&  (RtccPreLoad  <  £0)) 
endif 

Ccnpute  RTCC  &  Presclaer  Values  For  1 . 5  Times  the  Baud  iUl6«  Csr  Stet  l^e 


_SBitCyclea 

set 

(_ClkOut/_BaudRate)  + 

Mt 

_BIT1_1NIT 

set 

08 

SBitPrescale 

set 

0 

SBitRtccLoad 

set 

_SBitCycle8 

if  (_tenpCoiri>ute  >=  1) 
SBitPrescale  set  0 
SBi  tRtccLoad.  sat.      .  (.j^bCyelas .»» .U 
_BIT1_1N1T      set  0 

endif 


SBitPrescale  set  1 
SBitRtcoLoad  set         (_SBitCycles  »  2) 
Wtt< .......  ...  - , .    


SBitPrescale  set  2 
Mt 

e^dif-  .  :    ^-    ;  • 

if  (_tempCompute  >=  8)  f?, 

SBitPrescale  set  3 

SBitRtcoLoad  set  (_SBitCycles  »  4) 
endif  .   .  i . 


if  (_teinpCoinpute  >=  16) 
SBitPrescale  set  4 
SBitRtccLoad  set 


(_SBitCycles  »  5) 


a:  -3J 


if  (_tenpCcfnpute  >=  32) 

SBitPrescale  set ,       5  .      ;  >    -   .- ■•  -xi: 

SBi  tRtccI^?^  .  . .( JRitCycle*  >>.  ,6J  . .  ,  ^ ,  , , . 
endif  j^ri:  ysvrQvvtmi  ;  ■: 


if  (_tai^oiiipute  >=  64) 

SBitPrescale  set  6 

SBitR^ecLoad  set  (.SBitCycles  »  7) 
endif 


if       (_tenpCompute  >=  128) 

SBitPrescale  set  7 

SBitRtccLoad  set  (_SBitCyoles  »  8) 
endif 


.  ******************************************************************************** *****^ 


♦define  _Cycle_Of f setl  24 
LO*D_RTCC  MACRO     Mode,  K,  Prescale 

(%ePrescale  —  0  &£  Mode  ==  0) 


.•account  for  interrupt  latency,  call  tllBe 


CO 


movlw  -K  +  _Cycle_Of  fsetl 
else 

movlw -K  +  (_Cyole_Of fsetl  »  (Prescale+1) )     ;  Re  Load  RTCC  init  value  +  INT  Latency  Offset 


^  ***************************************************************************************** 

LOAD_BITCOUNT  MACRO 

movlw  _DataBit8+l 
movwf  BitCount 
movlw  1 

movwf  BxtraBitCount 

if  _PARITY_EiaBLB 
movlw  2 

noywf  BxtzaBitcoiwls 


endif 
movwf  _rtcc 


;  Note  that  Prescaler  is  cleared  when  RTCC  is  written 


ENDH 


.  ********************** **li*it********:^m***l^ir*^1f***#*******»t^ 


Ideflne  RxJlASK  QxlO  )  RX  pin  is  coDnactea  m-mS^-'Mk  )lM-4 

t4efii)iMU(«Pl*^',J^ta)f}  t  KK  Pin  t  Rft4 

Mef ine  RX         ^iTaq?  >  4 


tdef  ine  TX 


_portb,7 


;  TX  Pin  ,  RBI 


tdef  ine  JlTS 
tdef  ine  _CTS 


_portb,5 
_portb, 6 


;  RTS  Pin,  RB5,  Out^t  signal 
;  CTS  Pin,  RBS,  Input  signal 


tdef  ine  _txmtProgress    Ser  ialStatus ,  0 
tdef  ine  .txintEnable       SaxitiitSI^AA.  t) 


tdef  ine  _rcvProspiMa  SerialStatus,2 

tdef  ine  _rcvOver  SerialStatus,  3 

tdef  ine  _FarityBrx  SerialStatus,  4 

tdef  ine  _FxaraeEz:x  SerialStatus ,  5 


td«finBt_0»it^it 


SerialStatus,? 


. ************************************ ******•*****************•*************•***••*•**#***•********** 

■ij.  I  (  '.Lfv  .vT-i  set  r 


.OPTIOH_SBIT  s«t 


0x38 


;  incremant  oa  Ext  Clock  (falling  edge),  for  START  Bit  {MM«C 


if  UsePrescale 

_OPTION_INIT      set         0x00  ;  Prescaler  is  used  depending  on  Input  Clock  &  Baud  Rate 

else 

_OPTION_INIT      set  OxOF 

sndif  ,  .  ..-1 

"  .'  '.  . .  " 

;  CBI.OCK    OxOC  ^  .  :     T  i   f  i 

TxReg  ;  Transmit  Data  Holding/Shift  Rag, 

:  RxReg  ;  Rev  Data  Holding  Reg 

i  RxTemp 

i  Serialstatus  ;  Txmt  &  Rev  Status/Control  Reg 

BitCount  ^r.Sr,-, 
BxtcaBitCount  ;  Parity  &  stop  Bit  Count  , 

SavaMReg  ;  tp^  hold  xegi  ef  VffiEG  OS  IKT  -    ^  -   itOuic  c. 

tfiDBpl.*  tfln|p2  V  *  *■•  -Tft^  J' 

•  ^ase  -n'   :     A-  ,       jt..-.  .1,-3. 

,  I,***  *********  *****************  *********** 
ilST 


^|.'    T  .    ,.-r     .1.....   rci      -  V      -  -  f  bMM<Mr?«e 


Appendix«-i»232.ASM 


IITZjE  'RS232  Comnunicstlons  s  Half  Duplex  :  FICiecex/7x/8x' 

SOBTITIiE  'Software  nqplenentaticm  i  Int<»i:iq>t  Drivm' 

********************************************************************************************************* 
Software  Inplesiieiitatlon  Of  RS232  Comnunications  Using  PIC16CXX 
Half-Duplex 

These  routines  are  int«idecl  to  be  used  wit^  WlSiSCSUnX  family.  These  routines  can  be 
used  with  processors  in  the  16C6X/7X  tm^^  MMBi  #0        have  on  beiKA  Hardware  Asvtu: 
Serial  Fort. 
MX.. 


Description  « 

Half  lii^lex  RS-232  Mode  Is  invlsnanted  in  Software. 

Both  Reception  &  Transmission  are  Interrupt  driven 

Only  1  peripheral  (RTCC)  used  for  both  transmission  i  reception 

RTCC  is  used  for  both  timing  generation  (for  bit  transmission  &  bit  polling) 

and  Start  Bit  Detection  in  reception  mode. 

This  is  explained  in  more  detail  in  the  Interrupt  Subroutine. 
Programmable  Baud  Rate   (speed  depnding  on  Input  Clock  Freq. )  ,  prograsnnable 
#of  bits.  Parity  enable/disable,  odd/even  parity  is  implemented. 
Parity  &  Framing  errors  are  detected  on  Reception 


RS-232  Parameters 


TJlo  RS-232  Parameters  are  defined  as  shown  below: 


_ClkIn 
_BaudRate 


,J>ataBits  i 
_StopBits  I 
_PARITY_ENABLB  I 


_OnD_PAKITX 


Input  Clock  Frequency  of  the  processor 

(NOTE  :  RC  Clock  Mode  Is  Not  Suggested  due  to  wide  variations) 

Desired  Baud  Rate.  Any  valid  value  can  be  used. 

The  highest  Baud  Rate  ac^l^va^lei  dspends  on  Input  Clock  Freg. 

300  to  4800  Baud  was  tested  using  4  Mhz  Input  clock 

3G0  to  19200  Baud  was  tested  using  10  Mhz  Input  Clock 

Higher  rates  can  be  obtained  using  higher  Input  Clock  Freqaraeies. 

Once  the  _BaudRate  4  _ClkIn  are  specified  the  program 

automatically  selectes  all  the  appropiate  timings 

Can  specify  1  to  8  Bits. 

Parity  Enable  Flag.  Set  it  to  T^  or  FALSE.  If  PARITY 

is  used,  then  set  it  to  TRUE,  else  FALSE.  See  '■_ODD_PARITY'  flag 

description  lielow 

Set  it  to  TRUE  or  FALSE.   If  TRUE,   then  ODD  PARITY  is  used,  else 
EVEN  Parity  Scheme  is  used. 

aiaJfflag  is  ignored  if  _PARITy_ENABLE  is  set  to  FALSE. 


COS 


Usage  i 


) 


An  extai^le  Is  given  itt -She  main  program  on  bow  to  Receive  &  Transmit  Data 
In  the  exanple,  the  processor  waits  until  a  comnand  is  received.  The  ccninand  is  interpreted 
as  the  A/D  Channel  Ntmber  of  PIC16C71.  Vpon  reception  of  a  comnand,  the  desired  A/D  channel 
Is  selected  and  after  A/D  conversion,  the  8  Bit  A/D  data  is  transmitted  batek  to  the  Host. 


->SerlalStatuB' 


Bit  1  1 


_txmtEnable 


Bit  2  I 
Bit  3      1  _revOviBr 


Bit  4      1  _ParityErr 

Bi«  5 '  ■  .jmmms 
Bit  6     I  «aM»*od_ 


Bit  7 


The  RS-232  Control/Status  Reg's  bits  are  explained  below 
I  R8-232  Status/Control  Register 


-  ^1  it  taauta^aoiciDr  in  pro0Eeae>>- A  If.  transmission  is  cenplabs-) 
After  a  t^e  is  transmitted  by  calling  "Futchar*  function,  the 
user's  code  can  poll  this  bit  to  check  if  transmission  is  oon^lete. 
This  bit  is  reset  after  the  STOP  bit  has  been  transmitted 
Set  this  bit  to  1  on  initialization  to  enable  transmission. 
This  bit  can  be  used  to  Abort  a  transmission  1lMi>a  tWi  fiCaKMKi&feet 
is  in  progress  (i,e  when  _txmtProgress  =  1) 

indicates  that  the  receiver  is  in  middle  of  rec^tion.It  is  reset  «Aien 
a  byte  is  received. 

This  bit  indicates  the  completion  of  Reception  of  a  Byte.  The  user's 
code  can  poll  this  bit  after  calling  "GetChar"  function.  Once  *GetChar' 
function  is  called,   this  bit  is  1  and  is  set  to  0  after  reception  of 
a  complete  byte  (parity  bit  if  enabled  &  stop  bit) 

A  1  indicates  Parity  Error  on  Reception  (for  both  even  &  odd  parity) 
A  1  indleates  Framing  Error  On  R^^tion 

Unlnplemented  Bit 

S-  'tb^  bit  of  tx9amia»Leit  ot'  raeaptieti-  ■A^tmtmaneSt 
if  parity  is  enabled) 


_parityBit 


To  Transmit  A  Byte  of  Data  ; 

1)  Make  sure 
.        :  2) 
^-    -  3) 


txmtProgress  &  . 
Load  TxReg  with  data  to  be 
CALL    PutChar  function 


.rcvOver  bits  are  cleared 


To  Racelv«  A  Byte  Of  Data  i  '  '  -n-t.- 

1)  Hake  sure  _txmtProgreSB  £  _xei/avez  bits  are  cleared 

2)  CALL  GetChar  function 

3)  The  received  Byte  is  in  TxReg  after  _rcvOver  bit  is  cleared 


;  Rev  2,  May  17,1994  Scott  Pink 

;  Corrected  7  bit  and  parity  operation,  corrected  stop  bit  generation,  oorreeted      -  . 

;  recelw  praacaler  settings.    Protected  against  inadvertant  WDT  rea«6<: 

J  *******  ji?%*4C4#****il*****4^Alr:jK*tf** ************************************* ***^%*^ 


Processor 


CO 


Radix  DEC 


Indnae  'lecstx.h" 

,********************************************************************************************************* 

;  Setup  RS-232  Parameters 

,********************************************************************************************************* 


_ClkIn  equ 

4000000 

Input  Clock  Frequency  is  4  Mhz 

_BaudRate  set 

1200 

Baud  Rate  (bits  per  second)  Is  1200 

_DataBits  set 

8 

8  bit  data,  can -be  1  to  8 

_StopBit»  aat 

1-      aws  .        f  t  ^psjjj^ Jtt**  i         IfeMsS' j#  not  InpIaineatcHl 

♦define  _PARITY_ENABLE 

FALSE 

NO  Parity 

♦  define  _ODD_PARITY 

FALSE 

EVEN  Parity,   if  Parity  enabled 

♦define  _USE_RTSCTS 

FALSE 

NO  Hardware  Handshaking  is  Used 

include 

"rs232.h' 

y;«»»«««<>W|g><^.«****«.««*»«aa(<arotiaM**»*«*.<ej^ 
'  (atS  ^ItesetVisetor 


ORG         _IntVector  ■     -  ^ 

90to       intwcwvpt  ^  c^f^»  Pit  <tK%»i  oniuA  •u-tV-'  ■>..  am  .««o>aL, 

. ****************************************************************************************** 

Table  Of  ADCONO  Reg  i«^^cT«»'       -.  r--  i,-  .-.p.. 

t  Il^uts  I  WREG  tv#3.M  values  are  0  thru  3) 

f  Returns  In  wms,  ftfflSWO  Value,  selecting  the  desired  Channel 
; 

;     Program  Memory  :  6  locations         J^T"  Pff  r'  «i«>«  -*  =' c  ^  n    ■     f  ■ 

;     Cycles  I  S  "ra*-        .  c^OflU 

f  ...  oiiiT.  r»  ft--,  -  .■     --.         ui])fQO  ,b^t-  -   ■.   .  "  , 

,u»««***»««»«»***********««*«»**ir««««»***«**«***^^ 


OetADConO : 
andlw  0x03 
addwf  ^cl 

retlw       (OxCl   I    (0  «  3) ) 
retlw       (OxCl   I    (1  «  3)) 
retlw      (OxCl  I   (2  «  3)) 
OetJUX:onO_Bnd  I 

retlw      (OxCl  I   (3  «  3)) 


!  mask  off  all  bits  exc^t  2  LSBs  (for  Channel  ♦  0,  1,  2,  3) 
-  -»  eat;i(ifeq  pBio«  s 

;  channel  0 
;  channel  1 

;  channel  2  -  - 

rf  wf:;  T  »  Ji.n»iiij    5    -  -  I 

r  dli*tm<sl        ^i«*H»  «i  jam  n  »«-    ■  - 


i£(   (GetADConO  &  Oxff)  >=  (GetADConO_End  S  Oxff ) )  ,.  ,  -. 

MESSG     'Hacnlng  i  Crossing  Page  Boimdaty  In  Ceo^ted  JMst?,  iiaka  Suxa  VCXAtB  la  Loa^d  Correctly* 
endif 

;  Initialize  A/b  Ccmverter 

;     <RA0:RA3>       Configure  as  Analog  Inputs,.  VCp  as. Jfref     ._,  , . 

;      A/D  Clock  Is  Internal  RC  Clock  , 
Select  Channel  0 

Program  Ifemory  :         ^Jb'^^^'tm^'^-;^''t^^'^i^^^^"i^A^^'J^^       1. /  ■  ^  , . 


Cycles 


InitAtoD:  ^'^  «»»<Jit.  6*^1.  jtt      <  .  -  iMvt  v.-  ■  >  ^uiMcr-nb^  ;«  d^uu^.w^'.,     .  ft 

bs£  _rpO     ^.,.„  . 

clrf  _adconi 

bof  _rpO 

movlw     OxCl  . 

rati^ 

I  eSl^MEISIitJillliitjllSMI^Mti*  iiii*******!,**        **********  *tiMi34ti$'SXMitittMMi0Sliiiiiit%l^^tiM*  *** 

Main  Program  Loop  .  , 

After  appropriate  initilization.  The  main  program  wait  for  a  command  from  RS-232 

^e  comnand  is  0,  1,  2  or  3.  This  coiranand/data  r^resents  the  A/D  Channel  Nu2nber. 

After  a  comnand  is  received,  the  apprc^riate  A/D  Channel  is  selated  and  when  conversion  is 

CGsnpleted  the  A/D  Data  is  transmitted  back  to  the  Host.  The  controller  now  waits  for  a  new 

CGsnnand* 

Start: 
call  InltSerlalPort 


WaitForNextSel : 
if  _US8JilTSCTS 


;  rea^  te  aec^%  data  Sron  host 
endif 

call        GetChar  ;  wait  for  a  byte  reception 

btfsc      _rcvOver  ;  ^rcvOver  Gets  Cleared  when  a  Byte  Is  Received  (in  RxReg) 

goto       $,11  ;  i;^!^,  can  ,|^|9a3B|  other  je^s  h«re,  can  poll  _rovOver  bit 

; 

;  A  Byte  is  received.  Select  IbiB  Desired  Channel  &  THXT  the  desired  A/D  Channel  Data 

; 

bef        _rptl>.    ,  -  ;  make  sure  to  select  Page  0 


CO 


movf 
call 
movwf 
•«^^ 

bsf 

btfsc 

goto 

movf 
movwf 


RxReg.w 

GetADConO 

_adconO 


_go 

_done 

S-1 

_adres,w 
TxReg 


if     USE  RTSCTS 


bsf 

btfsc 

goto 
«idlf 

call 
>  .%tf  8C 
.  «9l?o 


_RTS 
_CTS 

Putchar 
$-1 


;  WREG  =  Commanded  Channel  I   (0  thru  3) 

;  pet  ADCONO  Reg  Constant  from  Table  Lookup 

;  Load  ADCONO  reg,  selecting  the  desired  channel 


;  start  conversion 

;  TfiS^  r^ti^  ^p.C^^fiq^  Done 

-  -'ir  'i'CB  I'^ow 

;  Half  duplex  mode,  transmission  mode,  ask  host  not  to  aanji  dtttA 
;  Check  CTS  signal  if  host  ready  to  accept  data 


i  Iio^  taatil  fnmsnliEsioii  Ovar.  Os»x  C«a  Paxfoxm  Other  Jobs 


09(9'- 


WaitForNextSel 


;  wait  for  next  selection  (command  from  Serial  Port) 


I    RS-232  Routines 


y  J  *  It  *  i  *  *  iS>iSlSl'$  liSM^Si  I,****  ******  t**i,*m,i,**i,i,i,**i,iiHit  ilititUbl 

Interrupt  Service  Routine 


;  Only  RTCC  Inturrupt  Is  used.  RTCC  Inturrupt  is  used  as  timing  for  Serial  Port  Receive  &  Transmit 
;  Since  RS-232  is  liiiplai«ited  o&ly  as  a  Balf  Duplex  S^tca,  The  RTCC  is  abased  by  both  Deceive  £ 
;  Transmit  Modules. 


Tca?^lssi«t  I 


,  _    Rec^tion  i 


SZCC  is  setup  iot  Internal  Clock  increments  and  interrupt  is  generated  when 
I^eCC  etf^itmf:.  P^eaealer  is  »»lcmed,  dapendlng  on  tttm  INFOT  CU)CK  «  the 

lai*44*M#*«M!**  ■■  ■     '  •'  ' •■■   

When  put  in  receive  mode,  RTCC  is  setup  for  external  clock  mode  (FALLING  EDGE) 
and  preloaded  with  OxFF.  When  a  Falling  Edge  is  detected  on  RTCC  Pin,  RTCC 
rolls  over  and  en  Jiaismm^  im-  i&m»  jSIMHrt  Bit  Batm^i'*  Oae*  tins  atsac^ 

bit  is  detected,  &1CC  la  cduoiged  to  ItiTEMU,  CIiOCK  node  and  IfflCC  is  preloaded 
with  a  certain  value  for  regular  timing  interrupts  to  Poll  RTCC  Pin  (i.e  RX  pin). 


.  *  *************1t1i****1i***tii1l1i*i,1r*it*ir1,***1i****1,1r**1t***ic***itirii1,**itit**1i*******1i**li**1rli*********it********1c**** 


Interrupt: 
btfss  _rtif 
rattle 


other  interrupt,  simply  return  &  enable  GIE 


Save  Status  On  INT  :  HREG  &  STATUS  Regs 


movwf 

SaveWReg 

swapf 

_status,w 

movwf 

SaveStatus 

btfsc 

_t3antProgress 

goto 

_TxintNextBit 

btfsc 

_rcvPr ogress 

goto 

_RcvNextBit 

goto 

a£f«eta  no  STkWS  bits  i  Only  way  007  to  sava  STKHJS  Reg  ??777 


;  Txmt  Next  Bit 

;  Receive  Next  Bit 
Kant'  im  MMCt'  •W'ls 


8wa|^  Savei§tatas,w 

movwf  _status 

swapf  SaveWReg 

swapf  SaveWReg,  w 

bcf  _rti£ 
retf ie 


;  restore  STATUS  Reg 
;  save  WREG 
;  restore  WREG 


Configure  TX  Pin  as  output,  make  sure  TX  Pin  Comes  up  in  high  state  on  Reset 
Configure,  RX_Pin  (RTCC  pin)  as  Input,  %^ich  Is  used  to  poll  data  on  reception 

Program  Memory  :  9  locations 

Cycles  :  10 


InitSerialPorti 

clrf  Serialstatus 


bcf  _rpO 

bsf  TX 

bsf  _rpO 

mt  TX 

tt  JDS^JITSCTS 

bcf  JITS 

bsf  _CTS 

endif 

bsf  BX_Pin 

return 


;  select  Page  0  for  Port  Access 

;  make  sure  TX  Pin  is  high  on  powerup,  use  RB  Pect  iMlVp 

;  Select  Page  1  fox  TrisB  access 

;  set  TX  Pin  lot  OaCgnit  tith  ly  modifying  TRIS 

>  RTS  is  ou^t  signal,  controlled  by  Plci6Cxx 

;  CTS  is  Iivut  signal,  controlled  by  the  host 

;  set  RX  Pin  As  Ii9Ut  for  xec^ticm 


.  ****************************************** 


Software  ImplsiTieiitaliijai  of  Asyhchronoim^  Seriahli^ 


II: 


3  3 
O  O 

u  n: 
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s  - 
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Appendix  C  -  RCVR  J^SM 


Getchar  Function 
Receives  a  Byte  Of  Data 

When  reception  is  coinilete,  _rcvOver  Bit  is  cleared 
The  received  data  is  in  RxReg 

1 

Program  Memory  ;       15  locatloas  (17  locabi^is  if  PJUUT?  is  used) 
Cycles  ;         16  (18  1£  9m.IW  is  USB}) 

♦  «•**♦**««*•*»*#**■•**.*»*■•»«**«***■»•«;*■«*■««*««■«*• 

Getchar : 
bcf  _tpO 

bsf  _rcvOver  ;  teiable  Ree^tion,  this  bit  gets  reset  on  Byte  Rev  ces<!ple%# 
LOAD_BITCOtaW  '  •    •  

clrf  RxReg 
bcf     _FrameErr  ■  ' 

bcf       _P*«.t^#»  t«W?BO«  I  i^|^^s^l%''»s.'itfSKij%,f:»re«Pr?'3> 
clrf  _rtcc 

cirwdt  -   ^'  •■.-«<  3e«M  »TP  t*  WWW-' 

bsf     _rpO  '  '       -'  ^  n. 

movlw  07h  '      '     ■■  ...,.....«.♦«».%«•..•..»■..♦.....•.....,..•.•..-..•..... 

itiovwf  _option 
bcf     _rpO  ' 

clrf  _rtcc  '  j'--  '  ^ff-'  y-''  "  -J-r  9tf9BSftm 

bsf  _rpO 

movlw  OFh 

movwf  _option 

clrWdt 

movlw   _OPTION_SBIT  ;  Ind  On  Ext  Clk  Falling  Edge 

movwf  _option  ;  Set  ^tloft  Reg  Located  In  P4ge  1 

bcf     _rpO  ;  raalee  saxe  to  select  Page  S     '^■''■^  I  ^ 

movlw  OxFF  ■   "   ji,  ..  ':"  j  U.-     .I-'  i- 

movwf  _rtcc  ;  ft  start  Sle  will  roll  over  wecc  &  Oea  IHT 

bcf  _rtif 

bsf     _rtie  ;  Enable  RTCC  Interrupt 

retlfie  ;  Enable  Global  Interrupt 

Internal  SAroutine 
entered  from  Interrupt  Service  Routine  ng^eH  Start  Bit  Is  detected. 

Program  Memory  i        14  locations 
Cycles  :         12  (worst  case) 


CO 


Make  sure  Start  Bit  Interrupt  la  not  a  Olltch 
■Paiee  ■Stawt  Bib  .     ■  ..   


bc£  _rpO 

btf  sc  ia_Pln  ( 
goto  _FalseStartBlt  71 
bsf  _rcvProgress 

clrf  _rtcc 

clrwdt  *^     '~  -  '       ■  - 

bsf  _rpO 

movlwOTh  r;        .  .v.iu  - 

movwf  _option* '  ■  ' 

bcf     _rpO  ••••»•»♦»•»«•••»•••••••■ 

clrf  _rtcc 

bsf     _rpO  '   ^   ■  - 

movlw  OFh  r"<-:  h 

movwf  _option 
clrwdt 

movlw  (_BIT1_INIT  I  SBitPrescale) 
movwf  _option  t 

bcf     _rp'0  '■  »  inaJie  s»af»td  **li»fet  iPaS8&f*» 

LOAD_RTcc   iflMitaMWIeaa) ,  BBittxtmtOM  v-iMua 
goto  RestorallfttiieiaiM 


Switch  Back  to  INT  Clock 
set  ^tlen  Reg  Eocated  iln  JNtpe  1 

T 


_FalseStartBitl 
movlw  OxPP 

movwf  _rtcc 
goto  RestorelntStatus 


t  -«HL«MS  WSS:  MUt  'OMi»  tor  start  bit  detection 


*****************************************  *'«le««N»*«*»tt«r««*«sk««4r##«?»#«lr4^^ 
Internal  Sidsroutine 
entered  from  Intorni^t  Service  Routine  wlien  Start  Bit  la  detected. 

Program  Memory  :       28  locations  (  4^%!lSMI^.|lAli'jMbi|*'^ilMM' 
Cycles  1         24  Worst  Case 

*******         *  *#«^##i^iji^#^^i^^^#«*^«##«  ******  * 


_RovNextBiti  ■ 
clrwdt 
bsf  _rpO 
movlw  07h 
movwf  _option 
bcf     _rpO  ' 
clrf  _rtcc 
clrwdt 
bsf  _rpO 
movlw  07h 
movwf  _option 
bcf  _rpO 

clrf  _rtcc  ^  . • .  -  . 
bsf  _rpO 


i-ah  r.(3ei[>Tei  c 


movlw  OFh 
movwf  _option 
cljrwdt 

iBovlw  (_OPTI01|}_HJIT  I  RtcePsescale) 
movwf  _option 

bcf  _rpO 
movf  _porta,w 
movwf  RxTesnp 

movf  _portB,w 
xorwf  RxTen^^^ 
andlw  RX_IJ&Sg 

btf sc  _z 

goto  _PinSair^ie^ 
,SainpleAgain: 
roovf  _porta,w 
movwf  RxTeoip 

novf  BltCouftt,  1 
btf sc  _z 

goto  _Rev*_®^ji 

decfsz  BitCo^t 
goto  _NextRcvBit 


;  Switch  Back  to  INT  Clock 

;  Set  Option  Reg  Located  In  Page  1 

;  read  ^  pte  immediately  into  VKBS 
!  WR^to  to  Eeload  RfCC 

;  «aa*lc  f«r'  only  m  FIN 

I  heiSei  MiiMi:  mm  mam  «taa&e 

;  2  out  of  3  majority  sampling  done 


.RcvP_Or_S  1 

if  _PflRITy_HiaBIiK 
decfsz  BxtraSitCouat 

gotsi .  .  ,JU3#aFi<iby.  - . . 

endif 


_RovStopBiti  :-  rT-F. 

Btf BS  RX 
BBSe  •  _S*am6lrr 
Befi  _rtle 
bcf  _rcvProgress 
bcf  _rcvOver 
if  _PARITY_ENABLE 
movf    RxReg,w  -VPtn 
call  GenParity 
movlw  0 

btfsc  _parityBit 
mefo^lw  0x10 
xemf  sertalstatus 
endif 

if  _DataBits  ==7  :  f 
xzt     RxReg,  1 


-  ;  ma^  be  f^sBiiim  Errta:  or  Gllte& 

1  »fte  Received,  6^  KEVfima  an  other  Byte 


;  Generate  Parity,  for  Parity  check 


;  to  mask  off  Received  Parity  Bit  in  _ParityBlrr 
;  _Parit^rr  bit  is  set  accordingly 


bcf  RxReg,7 
endif 

goto  RestorelntStatus 


_NextRcvBit: 
bcf  _carry 
btf so  RX 
bs£  _oarry 
rxf  RxReg 

goto  RestorelntStatus 

if  _PARI'nf_ENABI.E 
_RcvParity:  ; 

bcf  _ParityErr 

btf sc  RX 

bsf  _ParityErr 
!»^M£^-^il<^(o£elntStatus 


prepare  bit  for  shift 
shift  in  received  data 


;  5ieo®orarily  store  PARITY  Bit  in  _ParityErr 


Appendix  D  -  TXMTR.ASM 


, *********************'************************************************************************************ 

;  -     .  ^      Putcihar  Function  "  ' 

Function  to  transmit  A  Byte  Of  Data 

Before  calling  this  routine,  load  the  Byte  to  be  transmitted  into  TxReg 
Hake  sure  _tMiitProgress  &  jccvOver  bits  (in  Status  Reg)  2ire  cleared  before 
calling  this  routine 

Program  Memory  :        6  locations  (10  locations  if 'HHW  ic ''fcMii 
Cycles  ;         8   (13  if  PARITY  is  Used) 

****************************************************************************** 
PutChar:  ^  ' 

bsf     _txmtEnable  s  WMW  WMMtission 

bsf  _txmtProgj;ess 

LOAD_BITCOUNT  _  J  ItoeSO  6(9:  JmiA  M*.  tSBW* 


if  _DataBits  ==  7 
bsf     TxReg,  7 
endif 


if  _PARITY_ENABLE 
movf    TxReg , W 

call   GenParity  ;  If  Parity  is  used,  then  Generate  Parity  Bit 

"iaiif 

call  _TxiiitStaiilB|» 

bsf     _rtie  ;  Enable  RTCC  Overflow  INT 

retfie  ;  return  with  _GIE  Bit  Set 

********************************************************************************************************* 
Internal  Subroutine 
entered  from  Interrupt  Service  Routine  when  Start  Bit  Is  detected. 

Program  Memory  :       30  locations     (38  locations  if  PARITY  is  used) 
Cycles  ;      15  Horst  etHte 

********************************************************************************************************* 

_TxmtNextBit : 
bcf  _rpO 

LOAD_RTCC     O.RtccPr^oad,  RtocPresoale  ;  Macro  to  reload  RTCC 

movf   BitCount  ;done  with  data  xmission? 

btfsc  _ji 

goto  _ParityOrStop  ;yes,  do  parity  or  stop  bit 


CO 


decf  BitCount 
goto  _NextTxmtBit 

_ParityOrStopi 

if  _PftRITY_ENABLE 
btfsc  ExtraBitCount,  1 

goto  _SendParity 
endif 

movf  ExtraBitCount,! 

btfsc  _z 

goto  DoneTxmt 

decf   ExtraBitCount,  1 

_Stc^Bit: 
bsf  TX 

goto  RestoxelntStatus 
gpto  Donenanb 

JJ^tTxmtBit: 
fisf  _carry 
rrf  TxReg 
bt£is  _carry 

bcf  TX 
£tf  sc  _carry 
bsf  TX 

btf  ss  _txmtEnable 
bsf     „rtie  ' 

got6  RestorelntStatus 

if  _PflRITy_ENABLB 
_SendParity: 

decf   ExtraBitCount, 1 

btfss  _peS^&S0i&F ■■  ■ 
bcf  TX 

riti«it  " 
Bf  TX 
goto  RestorelntStatus 
endif 

DoneTxmt 
bsf  TX 
bcf  _rtie 
bcf  _txintProgress 
goto  RestorelntStatus 


;no,  send  another 


«*  ptt 


.■ready  for  parity  bit? 

; check  if  sending  stop  bit 

;  STOP  Bit  is  High 


;  subtract  parity  from  count 


;STOP  Bit  is  High 

.•disable  further  interrupts 

; indicates  end  of  xmission 


Ai'  Its 


t******************************^,*****************************:  ******************************************** 


Internal  Subroutine 
entered  from  Interrupt  Service  Routine  when  Start  Bit  Is  detected. 


Program  Memory 
Cycles  ! 


9  locations 
10 


********************************************************************************************************* 
.TxmtStartBit: 

bcf  _rpO 

clrf  _rtcc 

clrwdt 

bsf  _rpO 

movlw  07h 

movwf  _option 

bcf  _rpO 

clrf  _;ctes 

bsf  _rpi 

movlw  OFh 

movwf  _opfeiaB 

clrwdt 

movlw  (.OPTION JSW'  I  WsmmmmUtai 
movwf  _option 
bcf  _rpO 
bcf  TX_ 

movlw  -RtccPraJE,»B4 
iii^vwf  _rtco 
bcf  _rtif 


Set  Option  Reg  Located  In  Page  1 
make  sure  to  select  Page  0 
Send  Start  Bit 


*********************************************************  i'***lt**it-**tM.^^ll^mlffh^^^k^^^t% 

Generate  Parity  for  the  Value  in  WREG 


The  parity  bit  is  set  in  _parityBit  (SerialStatus,?) 
CwaOfm  l^utine  For  Both  Transmissim  &  Bec^ti^ 


Program  tfetqocy 
Cycles  : 


16  locations 
72 


*********************************************  *********#**#*****«y*^.#^^^^^it^^-«>#j^«^^^ 
if  _PARITy_EmBIiE 


GenParity: 

movwf  tanp2 

movf  BitCount,w 

movwf  tenpl 
Parityloop 

rrf  taip2 


;save  data 
;save  bitcount 


CO 


btfss  _carry  jput  data  in  carry  bit 

goto  NotOne 

xorlw  OOh  ;parity  calculated  1:^  XORing  all  data  bits 

goto  OneDone 

NotOne  ,  .  ^     :      ,  ,  , 

xorlw  Olh  -  . ..  -i-T)- 

OneDone 

decfsz  tempi 

goto   Parityloop  ;deece«ftent  coxmt 

.mpWf  ten«j3.   .-^  .   =    ...... 

;  Parity  bit  is  in  Bit  0  of  tsEB^X 

if  „ODD_^BAR-ITY  :  .-r.^z  x-.-^f^ 

bsf  _parityBit 
,  btfsc  tesrapl,  0 

bcf  ^arityBit 

bcf     _parit^it  . 
btfsc  tei^l,^0 

bsf  _parityBit 
end  if 

return 

endif       :a!»lt«r^*q  ippn,i^;t-f 


Appendix  E  -  RS232.LST 


MPASM  01.00.02  Alpha     \PICMASTR\CU      5-20-1994     9: 13 1 56 

RS232  Communications  :  Half  Duplex  :  PIC16C6x/7x/8x.-. 
Software  Implementation  ;   Interrupt  Driven 
LOC     OBJECT  CODE  LINE  SOURCE  TEXT 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 

mii 

0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 


TITLE  "RS232  Communications  :  Half  Duplex  i  PIC16C6x/7x/8x" 

SUBTITLE  "Software  Iii^|je8iegtgi;if!|j  ^  l^fe.^j|pgt^fr^v^f  _ . 

.  ******* 

■  ^ftware  In^lementation  Of  RS232  Coiminications  Using  PIC16CXX 

;           -.  Half-Duplex 

These  routines  are  intended  to  be  used  with  PIC16C6X/7X  family.  These  routines  can  be 
:    used  with  processors  in  the  16C6X/7X  family  which  do  not  have  on  board  Har*»a¥»  ii^ms. 

;    Serial  Port,  ^i. 
;     MX.  " 


"a  e  hn-fc> 


me  T 


Half  Duplex  RS-232  Mode  Is  inplemented  in  Software. 

Both  Reception  &  Transmission  are  Interrupt  driven 

Only  1  peripheral   (RTCC)  used  for  both  transmission  &  reception 

RTCC  is  used  for  both  timing  generation  (for  bit  transmission  &  bit  polling) 

and  Start  Bit  Detection  in  reception  mode. 

This  is  explained  in  more  detail  in  the  Interrupt  Subroutine. 
Progr^Bi^l^  S^ud  Rate  (speed  depnding  on  Input  Clock  Freq. ) ,  programmable 
#of  bits.  Parity  enable/disable,  odd/even  parity  is  implemented, 
liaxity  &  Framing^,  errors  are  detected  on  Reception 


RS-232  Parameters 
The  RS-232  Parameters  are  defined  as  shown  below; 


.  hi 


_ClkIn  : 
Jiaudjlat;®  •  , 


_DataBits 
_StopBits 
_PARITY_ENABLE 


Input  Clock  Frequency  of  the  processor 

(NOTE  :  RC  Clock  Mode  Is  Not  Suggested  due  to  wide  variations) 
Desired  Baud  Rate.  Any  valid  value  can  be  used. 

The  highest  Baud  Rate  achievable  depends  on  Input  Clock,  jP^j^^^^y 

300  to  4800  Baud  was  tested  using  4  Mhz  Input  Clock  ,rt:£ii-fwi 

300  to  19200  Baud  was  tested  using  10  Mhz  Input  Clock 

Higher  rates  can  be  obtained  using  higher  Input  Clock  Fre^easles. 

Once  the  _BaudRate  &  _ClkIn  are  specified  the  program 

automatically  selectes  all  the  appropiate  timings 

Can  specify  1  to  8  Bits. 

Limited  to  1  Stop  Bit.  Must  set  it  to  1. 

Parity  Enable  Flag.  Set  it  to  TRUE  or  FALSE.  If  PARITY 


0040 
0041 
0042 
0043 
0044 
0045 
0046 

0047  1 

0048  ; 

0049  ; 

0050  ; 

0051  ; 
0052 
0053 
0054 
0055 
OOSS 
00S7 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 

0072  ; 

0073  ; 
0074,  ; 

0075  ; 

0076  ; 

0077  ; 

0078  ; 

0079  ; 

0080  ; 

0081  ; 

0082  ; 

.  -  0083  ) 

0084  ; 

,,,,y,.  :    ,  J  -  y-      ■,    t         0085  ; 

0086  ; 

0087  • 


is  used,  then  set  it  to  TRUE,  else  FALSE.  See  •_ODD_PARITy  flag 
description  below 

Set  it  to  TRUE  or  FALSE.  If  TRUE,  then  ODD  PARITY  is  used,  else 
EVEN  Parity  Scheme  is  used. 

This  Flag  is  ignored  if  _PARITy_ENABLE  is  set  to  FALSE. 


An  exanple  ia  given  In  the  main  program  on  how  to  Receive  &  Transmit  Data 

In  the  example,  the  processor  waits  until  a  command  is  received.  The  command  is  interpreted 
as  the  A/D  Channel  Nui^ber  of  PIC16C71.  Ut>on  reception  of  a  command,  the  desired  A/D  channel 
is  selected  and  after  A/D  conversion,  the  8  Bit  A/D  data  is  transmitted  back  to  the  Host. 


*SarialStatus' 


The  RS-232  Control/Status  Reg's  bits  are  explained  below 
:  RS-232  Status/Control  Register 


Bit  « 


Bit  1 
Bit  2 

Bit  4 
Bit  5 

Bit  6 
Bit  7 


_t3BiitVrogrfas      (1  if  tranamlMtoii  In  ptegvM*,  0  if  @c«Maiis«ioti  is  conplete) 
After  a  byte  is  transmitted  Ijf  «*»tliBf  "'Putchar'  function,  the 
1  „  -        user's  code  can  poll  this  bltt-tiS-cataek  if  transmission  is  complete. 
,.   -   -.  .  .  This  bit  is  reset  after  the  STOP  bit  has  been  transmitted 

^txmtBnable  Set  this  bit  to  1  on  initialization  to  enable  transmission. 

This  bit  can  be  used  to  Abort  a  transmission  while  the  transmitter 
is  in  progress  (i.e  «^en  _txmtProgress  =  1) 
_rovProgress       Indicates  that  the  receiver  is  in  middle  of  reception.lt  is  reset  when 
a  byte  is  received. 

_rcvOver         .    ,jhis  bit  Indicates  the  conpletion  of  Reception  of  a  Byte.  The  user's 
9»Ji  W*>IM  k^-^jj  KO^"*^®         P"-*--*-  '-^^^         after  calling  "GetChar"  funoti«B'.  Cpse  •SetChar" 
.  function  is  called,   this  bit  is  1  and  is  set  to  0  afftWr  ««S»Bl*i«M  of 

a  complete  byte   (parity  bit  if  enabled  &  stop  bit) 

_ParityErr  A  1  indicates  Parity  Error  on  Reception  (fsr  lliaM  mrma  <■  odd  pacity) 

_FrameErr  A  1  indicates  Framing  Error  On  Reception 

,.  _unu.8e<i_  Unimplemented  Bit   

_pm«ltyBlt  The  9  th  bit  of  transmlssisw       smctm^im  tsfestBIt  bC  MXXflF  bit 


To  Transmit  A  Byte  of  Data  : 

....  1)  Hake  sure  _txmtProgress  &  _rcvOver  bits  are  cleared 

-  2)  Load  TxReg  with  data  to  be  transmitted 

3 )  CALL    Futchar  function 

To  RaoflV!?  A  Byte  Of  Data  i 

1)  Hake  sure  _txmtProgress  i  _j:cvOver  bits  ara  cleared 
,  2)  CALL  GetChar  function^.. ,  -  , 

3)  VtM  received  Byte  is  in  TXReg  af  to:  _revOver  bit  is  cleared 


003D  0900 

04B0 

0008 

0001 

0046 
0047 
0048 


0000  2811 


0004  2823 


0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0179 

ifi 

M»i 

))099 

0100 
0101 
0102 
0103 
0104 
0105 

tiloe 

0107 
0108 
0109 
0110 
0111 
0112 
0113 
0001 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 

Uit 
oiii 

0123 
0124 
0125 
0126 
0127 
0128 
0129 


Rev  !>,  May  17,1994  Scott  Fink 

Corrected  7  bit  and  parity  operation,  corrected  stop  bit  generation,  corrected 
receive  prescaler  settings.    Protected  against  inadvertant  WDT  reset. 
******************  ****************  ******«**•**•*****«***«*********•**«******«*•*****«•**«  *****«*****#**«« 


Processor 
Radix  DEC 
fiXPMlD 


16C71 


******** 


********* 


************************* 

Setup  RS-232  Parameters 


***************** 


******************** 


Ir*************** 


************** 


************************* 


_ClkIn 
_BaudRate 
JDataBits 
_StopBits 


egu 
set 
set 

set 


4000000 

1200 

8 

1 


;  Input  Clock  Frequency  is  4  Hhz 

;  Baud  Rate '  (bits  per  Beao6M'it'309tf'""**^ 

I  8  bit  data,  can  be  1  to  t 

;  1  Stop  Bit,  2  seep  Blta  Sm  nefi  imf^mm^^ 


idefine  _PARITY_ENABLE  FALSE 
♦define  _ODD_PARITY  FALSE 
tdef  ine  _USE_RTSCTS  FALSE 


;  NO  Parity 

;  EVEN  Parity,  if  Parity  enabled 
;  NO  Hardware  Handshaking  is  Used 


include 


«rs232.h' 


*****4*******************************«**********«^' 


ORG 
goto  ' 


ORG 

goto 


_ResetVector 
Start 


_IntVector 

Interrupt 


t***  *  *  ** 


******** 


********* 


************************************************* 


Table  Of  ADCONO  Reg 
Inputs  I  WREG  (valid  values  are  0  thru  3)  ' 
Returns  In  HREO,  ADCONO  Value,  seleaMWi  tetW  #a(iK9*'^liimi^ 


CO 


OOOB  1683 
OOOC  0188 

OOOD  1283 
OOOE  30C1 
OOOF  0088 
0010  0008 


0130 
0131 
0132 
0133 
0134 

0135  GetADConO 


Program  Hemozy  i 
Cycles  I 


6  locations 
S 


mask  off  all  bits  except  2  LSBs  (for  Channel  t  0,  1,  2,  3) 


0005  3903 

0136 

andlw 

0x03 

;  mask  off  all 

0006  0782 

0137 

addwf 

_pcl 

0007  34C1 

0138 

retlw 

(OxCl 

(0  « 

3)  ) 

;  channel  0 

0008  34C9 

0139 

retlw 

(OxCl 

(1  « 

3)  ) 

;  channel  1 

0009  34D1 

0140 

retlw 

(OxCl 

(2  « 

3)) 

;  channel  2 

0141  Get«B 

*•>  -  • 

mm. 

0142 

3)1 

;  eSmtasmi  3 

0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 

ii 

0161 
0162 
0163 
0164 
0165 
0166 
0167 

0176 
0171 
0172 
0173 


if(   (GetADConO  £  Oxff)  >=   (GetADConO_End  &  Oxf  f ) ) 

MESSO     *Waming  i  Crossing  Page  Boundairy  in  Ccsiqputed  Juji{>,  Hake  Sure  PCLATH  is  IiOaded  Correctly* 
endif 

***««•»»•*»«**•«»*•«*«•**•**•*****•«»*••»»************»*•«**»♦**•«*»»*•*»*****«*•**••******»**** 

Initialize  A/D  Converter 
<RA0iRA3>       Configure  as  Analog  Ii^ts,  VDD  as  Vref 
A/D  Clock  Is  Internal  RC  Clock 
Select  Channel  0 


Program  Hesioiy  i 

cyteii*    -  **i 


6  locations 
I 


InitAtoDt  "**         tKeoeuO  '   T****"  ^Toof  i«  «  XK 

■••'••••eiff-'laaeoAi    •  '   •  '•• 

bof  _rpO 

movlw      OxCl  '  ■ .   - . , .    •  .  •   ...........   ■-  ■ 

movwf  _adconO 
return 

*********»******♦**#**,«*********************************************** 

Main  Program  Loop 

;    After  i^ropriate  initilizatlon.  The  main  ^rogrnn  wait  for  a  command  from  RS-232 

;    The  ccirinand  is  0,  1,  2  or  3.  This  command/ data  represents  the  A/D  Channel  Number. 

;     After  a  command  is  received,  the  appropriate  A/D  Channel  is  seleted  and  when  conversion  is 

•    completed  the  A/D  Data  is  transmitted  back  to  the  Host.  The  controller  now  waits  for  a  new 

;  command. 


DMX  3()33 


0174  .*********************************** ************************************************************* ********* 

0175  '  -  . 
8i76  Starti  . 

"  ■  eal'l!--  ■•iBitiJfiSliort- 


0012 

2074 

0013 

198F 

0014 

2  813 

0015 

1283 

0016 

080D 

0017 

2005 

0018 

0088 

0019 

0000 

OOIA 

1508 

OOIB 

1908 

OOlC 

281B 

OOID 

0809 

■'■a'6iscO#8c 

wwOOlP  203A 

0020  180F 

0021  2820 


0022  2812 


0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191 


Wai  tForNextSel  i 
If     USE  RTSCTS 


•^*494 
"  0195 
0196 
0197 
0198 
0199 
0200 
.  •6301 

mo2 

0203 
0204 

0205 
0206 
0207 
0208 
0209 
8210 

mil 

0212 
0213 
0214 
0215 
0216 
0217 
0218 

-  0219 
9220 
0221 
0222 
0223 

' ' 0224 


bcf 

_rp0 

bcf 

_RTS 

endif 

call 

GetChar 

btfsc 

rcvOver 

got©- 

;s-i-  -'-^  _ 

■*  : 

A  l^te  is  received.  Select 

bcf 

_rpO 

movf 

RxReg,w 

call 

GetADCoBO 

_adconO 

nop 

bsf 

_go 

btfsc 

_done 

goto 

$-1 

movf 

_adres ,  w 

movwf 

if  _USE_RTSCTS- ■  '  "■ 

bsf 

_RTS 

btfsc 

_CTS 

goto 

$-1 

endif 

call 

Putchar 

btfsc 

_  t  xm  t  P  rogaresfi 

goto 

$-1 

■  -    .'[-9;  fl'!  - 

goto 


Wai  tForNextSel 


;  rea(^  to  accept  data  from  host  •  - 

;  wait  for  a  byte  reception 

•  _rcvOver  Oets  Cleared  when  a  Byte  Is  Received  (In  RxReg) 

;  TlSBk  caii'i^^forni  6t*er 'j^efes  tieecsi  eHm  poll  _rcvOwer  bit 


make  sure  to  select  Page  0 

WREG  -  Commanded  Channel  #  (0  thru  3) 

Get  ADCONO  Reg  Constant  frcin  Table  Lookup 

Load  AOCONO  reg,  selecting  the  desired  channBl 


;  start  conversion 

;  Loop  Until  A/D  Conversion  Done 


;  Half  dUl^lex  node,  transnilssiem  itsik  h«st  nst  to  aesoA  data 

f^^^SbskS(^etM  signal  if  host  re«%  to  accent  dttta 


Loop  Until  Transmission  Over,  User  Can  Perform  Other  Jobs 


'  ?<'«^it  'i!6t^'B^  ael)sGtl'0»'- C<iceii4B(F'iGMi^#ial  Pert) 


0) 

o 


****%iS****#**#*#*************** *******  ************************* 

RS-232  Routines 

;****i**«MB»*»**»**#*i»-Mf»********************************»««*^^ 

Interrupt  Service  Routine 

Only  RTCC  Inturrupt  IS  usedV'STCC'^fntiitrupt-lB  iisid  as  tlBring'  for  gfefclai'  Bdrt  Seceive  s  Transmit 
since  RS-232  is  inplanented  only  as  a  Half  Duplex  System,  The  RTCC  is  shared  by  both  Receive  & 
Transmit  Modules, 

Transmission  :  -  -      -  ^    '  "... 

■'  RTCC  is  setup  for  Internal  Clock  Increments  and  ih^ecmpt  is  generated  mftioi 


3 

(D 

3 

(D 

3 
1-^ 
Q} 

o 


> 

(0 
•< 
3 
O 

I 
3 
O 

i 

0) 

0 
-r 


0023  IDOB 
0021  0O09 


0025  0092 

0026  OEOS 

0027  0093  * 

0028  180F 

0029  2844 
002A  190F 
002B  28A8 


002D  0E13 
002E  0083 
002F  0E92 

0030  0E12 

0031  llOB 

0032  0009 


0225 
0226 

0227  ;  Reception 
0228 
0229 
0230 
0231 
0232 
0233  ; 

02SS  sf'-j.'j  y-^  ■'■ 

0236  Interrapti  '^wTa^^****^ 

0237  btfss  _rtif 

0238  retfie  ;  other  i»6err%t,  siffliily  retarf"* 'enable!  ©IB:   .   -  ■ 

0239  ; 

0248  )  Save  Status  On  INT  :  WREG  &  STATUS  Regs 


RTCC  overflows.  Frescaler  Is  assigned,  defending  on  lihe  INFDT  CIiOCK  <>  ths 
desired  BAUD  RATE. 

When  put  in  receive  mode,  RTCC  is  setup  for  external  clock  mode  (FALLING  EDGE) 
and  preloaded  with  OxFF,  When  a  Falling  Edge  is  detected  on  RTCC  Pin,  RTCC 
roils  over  and  an  Interrupt  is  generated  (thus  start  Bit  Detect)  .  Once  the  start 
bit  is  detected,  RTCC  is  changed  to  INTERNAL  CLOCK  mode  and  RTCC  is  preloaded 
wlUi  a  certain  value  for  regular  timing  Interrt^ta  to  Foil  RTCC  Fin  (i.e  WX.  pin)  . 


movwf 
swapf 
movwf 

btfse 
goto 
btfsS 
g<]^t@ 
gotS'-^ 


SaveWReg 
_statuBiiWt>^f  " 
SaV^SMtUs 

_txmtProgress 
_TxmtNextBit 
_rcvProgress 
_RcvNextBit 


0245  > 
0246 
0247 
024S 
0249 
0250 

92Si  -RestorelntStatus : 

0293''''  swapf  SaVe§tatus,w 

movwf  _status 
swapf  SaveWReg 
swapf      SaveWReg, w 
bcf  _rtif 
retfie  'J 


ftfeeets  no  siTATCK  bits  i  Only  way  cm     mm>  Mvmas  Reg  ????? 


Txmt  Next  Bit 


Receive  Next  Bit 
Hast  be  staxt  Bit 


0254 
02S5 
02Si  - 


;  restore  STATUS  WBQ' 
I  save  WREG  ~*jou 
;  restore  WREG 


02iS 

0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
02  6« 


■30 


*********  *^-**  ****  #»'*^#*'*  ********  * 


Configure  TX  Pin  as  output,  make  sure  TX  Pin  Comes  up  in  high  state  on  Reset 
Configure,  RX_Pin  (RTCC  pin)  as  Input,  which  is  used  to  poll  data  on  reception 

■■-  f  iAf*     i!  (,•«■-.. rA<Ki  (li'  HXKe-Si 

Program  Memory  :  9  locations  - 

Cycles  1  10 

0270 

0271  InitSerialPort: 

0,  i-i   ,  ■ 


I 


0033  0187 

0034  1283 

0035  1786 

0036  1683 

0037  1386 


0038  ISOS'l' 


0272 

0273 
0274 
0275 
0276 
0277 
0278 
0279 

02m 

0281 

0282 
0283 
0284 
0285 
0286 
0287 
0001 
0002 
0003' 
0004 
0005 
0006 
0007 
0008 
00O9! 
00 10 
0011 
0012 
0013 


clrf 

bcf 
bsf 
bsf 
bof 


Serlalstatus 


_rpO 
TX 
_rp0 
TX 


if  _USE_RTSCTS 

bcf  _RTS 
bsf        _CTS  ■;- 

endif  -  .  ■ 

bsf  BX::^in 
return       ;  ;c' 


;  select  Page  0  for  Port  Access 

;  make  sure  TX  Pin  is  high  on  powerup,  use  RB  Port  Pullup 

;  Select  Page  1  for  TrisB  access 

;  set  TX  Pin  As  Output  Pin,  by  modifying  TRIS 

;  RTS  is  output  signal,  controlled  by  F1C16CXX 

;  CTS  is  Iqput  signal,  coitrolled  lay  tba  boat 

I  set  RX  Ptn  As  Ii^ut  f<m  SIM^i^ 


,  **************  *****liii*it***ii**lr*lili^m**^^i*'***1Hitii*if  **************************** 

iMdlude'H^baiitsxeaaiii'       ;  The  Transmit  routines  are  in  file  *t»ntr(MMt* 

ft*  ********  •**#^^ 

;  PutChar  Functim 

Function  to  transmit  A  Byte  Of  Data 

Before  calling  this  routine,   load  the  Byte  to  be  transmitted  into  TxReg 
;      Make  sure  _txmtProgress  &  _rcvOver  bits  (in  Status  Reg)  are  cleared  before 
;      calling  this  routine 

;    Program  Hesnory  t  6  locations  (10  locatlcms  if  PARITY  is  Used) 

>    Cycles-       V        8  <13  if  PARITY  is  Used)  '•  t.'^c-  cj.,  .  >  . 


PutChar 


003A 

148F 

0014 

bsf 

_txmtEnable 

003B 

140F 

0015 

bsf 

_txmtProgresa 

0016 

LQAD_BITCOnNT 

003C 

3009 

M 

movlw 

_DataBits+l 

003D 

0090 

mo 

.  ••'.■»i«osn(!j.  ■ 

BitCount 

003E 

3001 

•  ■ 

novlw 

1 

003P 

00»1 

H 

movwf 

ExtraBitCount 

M 

if  _PARITY 

.ENABLE 

M 

movlw 

2          ,  ..'i  . 

H 

movwf 

H 

endif 

0040 

0390 

0017 

decf 

BitCount«.l 

0018 

if  _PataBits 

==7        ■  - 

0019 

'  ^   lasbf, .  . 

fidtag.,  7. ...... 

0020 

endif 

0021  ; 

0022 

if  _PARITY_ENABLE 

0023 

movf 

TxReg, W 

0024 

call 

OenFarity 

*****  *  *        *-«  *««.'!*«:Mr*  *  1^  If/tt*  1hfiMi>IC^GIl0a^/mi>^m^*^   *  **  ^Hl*  *1t        ^''0f1l'  *S*I>^^  ^hC^.^flBI^  illt|*-«|K(f-4  * 


J? 

a? 

0) 
-t 

O 

3 
3 

(D 
3 

0) 

o" 

3 

a 
> 

w 


o 

3 
O 

c 

0) 

(/) 

(D 

S' 


)  If  Faxlty  Is  used,  then  Oenerate  Parity  Bit 


00 


0041  2060 

0042  168B 

0043  0009 


0«3i  (i-  il 


0045  3036 
004S  0081 

0047  0890 

0048  1903 

0049  2S4C 

004A  0390 
004B  2SS3 


004C  0891 


OOiV  0391 


0050  1786 

0051  282D 

0052  285C 


_TxintStartBit 
rtie 


;  Enable  RTCC  Overflow  INT 
;  return  with  _GIB  Bit  Set 


0025  endlf 

0026  ; 

0027  call 

0028  bs£ 

0029  retfie 

0030  ; 

>0031  .****************************■*****************************************************'***•******************** 

0032  ;  Internal  Subroutine 

0033  ;  entered  from  Interrupt  Service  Routine  when  Start  Bit  Is  detected. 

0034  ; 

0035  ;  Program  Memory  :      30  locations     (38  locations  if  PARITY  is  used) 

0036  ;  Cycles        i      15  Worst  Case 

0037  ;  ,1  .. 


Macro  to  reload  RTCC  ' 


^tcoftE^Aad  +  (_Cycle_of£s»tl  »  (RbooBr<ssaBle4-l).)    ;  Sm.  UntA  SSmi  JUiiX,  mlm^  ttuJMT  !«, 


0040  _TjantNextBit: 


bcf  _rpO 
LOAD_RTCC     O.RtccPreLoad,  RtccPrescale 
if (UsePrescale  ==  0  is  0  ==  0) 

movlw  -RtccPreLoad  +  _Cycle_Of  fsetl 
else 

IMJVIW 

endif 
>'  movwf 


0041 
0042 

H 

H 

M 

H 

H 

H 

0043 
0044 
0045 
0046 
0047 
0048 
0049 

0050  ; 

0051  _ParityOrStopi 

0052 
0053 

goto 
endif 
movf 
«t£sc 
goto 
decf 


movf 

btfso 

goto 

decf 
goto 


BitCount 
_z 

_ParityOrStop 


BitCount  ^»  0% 
.NextTxmtBlt 


;  HOfee  that  Prescaler  is  «tai»iiil  < 

t^iit       ^mm  mumi-*m* 

;yes,  do  parity  or  stop  btt' 
ino,  send  another 


0054 
0055 
0056 
CMI57 
0058 
0059 

0060  ; 

0061  _StopBit! 

0062  bsf 

0063  goto 

0064  goto 

0065  1 


if  _PARITY_ENABLE 

btfsc      ExtraBitCount, 1 
_SendParity 


ExtraBitCount , 1 

DoneTxmt 
BxtraBltCoimt,  1 


RestorelntStatus 
DoneTxmt 


iready  for  parity  bit? 


; check  if  sending  stc^  bit 


,3?-  tV- 


STOF  Bit  Is  High 


0066 

_NextTxintBit: 

0053 

1403 

0067 

bsf 

_carry 

0054 

0C8C 

0068 

rrf 

TxReg 

oess 

ie03 

0069 

btfss 

_oarry 

0056 

1986 

0070 

Sef 

tx 

0057 

1803 

0071 

btfsc 

_earry  ' 

0058 

1786 

0072 
0073 

bsf 

TX 

0059 

1C8F 

0074 

btfss 

_txmtEnable 

OOSA 

leSB 

0075 
0076 

bsf 

_rtie 

;  disable  further  interrupts.  Transmission  Aborted 

005B 

282D 

0077 
90T8 

goto 

Restorelntstatus 

0079 

ti  liE<ARITY_ENAH.E 

0080 

_SendParity: 

0081 

decf 

ExtraBitCount, 1 

!  BvUBtxaet  parity  tmem  cxmsit 

0082 

btfss 

_parityBit 

0083 

bcf 

TX 

■--•!:       ^^                      ■             -l  jit  'p..'   .  - 

0084 

btfsc 

_parityBit 

0085 

bsf 

TX 

0086 

goto 

Restorelntstatus 

0087 

endlf 

0088 

0089 

DoneTxmt 

005C 

1786 

0090 

bsf 

TX 

;STOP  Bit  is  High 

005D 

128B 

0091 

bcf 

_rtie 

;4i@^able  f.urthe^  interrupts 

005E 

lOOF 

0092 

bcf 

_txmtProgress 

005F 

282D 

0093 

goto 

;  ,  r  -              -           .  . 

Restorelntstatus 

f     ■■V  , .  - 

Ifttsmal  Subfotttlse 

mm 

t  ^l»iia'"ftaa(''f«eerw(pt  S^^WMMtAe 

0098 

0099 

;     Program  Memory  ;              9  locations 

0100 

;    Cycles  : 

10 

0101 

0102 

.*******************  *******~ifii6*^^is/tmit**^ttM*M;**wii%***it******* 

8103 

_T30BtStairbBi  t : 

0060 

1283 

0104' 

bcf 

_rp0 

0061 

0131 

0105 

clrf 

_rtcc 

0062 

0064 

0106 

clrwdt 

0063 

1683 

0107 

bsf 

_rpO 

0064 

3007 

0108 

movlw 

07h 

0065 

0081 

0109 

movwf 

_option 

0066 

1283 

0110 

bcf 

0067 

0184 

am 

clrf 

_rtcc 

0068 

1683 

oi'ia 

l»f 

_rpO            '  'I..'^    .    b"'  "     .  . 

6069 

mm 

6113 

movlw 

OFh 

(/) 
o 

a; 

i 

3 

(D 

3 

3 


> 

0) 
«< 
3 
O 

— t 

o 

3 
O 

c 
(/) 

(D 
—I 

S' 


CO 


006A  0081 

0114 

movwf 

_option 

0066  0064 

0115 

clrwdt 

D06C  3001 

0116 

movlw 

(_OPTION_imT  1  RtccPresoale) 

006D  0081 

0117 

movwf 

_option 

;  Set  Option  Reg  Located  In  Page 

006E  1283 

0118 

bcf 

_rp0 

;  make  sure  to  select  Page  0 

006F  1386 

0119 

bof 

TX 

;  Send  Start  Bit 

0070  3030 

Vi0B 

movlw 

-RtccPreLoad 

;  Pxaipara  fox  Tiating  Intwct^t 

0071  0081 

mm. 

movwf 

_rtec 

0072  11«B 

i»f 

_rtif 

(0073  0008 

0123 

0124 

Q^25  .it*^»i,**m**m*ii*ii************  ******************************  ************************************************ 
0126  ;  Generate  Parity  for  the  Value  in  WREG 

0127 
0128 
«129 

Man  ; 

mm  I  irn  'mammv*  *>»-'  «•'-'■  '>t*<is»ri 

0133  ;    ,  .  .    

0134  .*••♦*••♦*****•*••»*•*•***•***•***•*******•**♦*♦********************•***********•***********************•* 


The  parity  bit  is  set  in  _parityBit  (SerialStatus,7) 
&mtm  KetatiOB  For  Botb  -iEsaiMiMBMtKiin  «  Reo^tton 


Mn  r«c3 


0135 

if  _PARITY_BNABLE 

0136 

.  v-i.{  I.- 

0137 

GenParity: 

mm 

nmmf 

t«n()2 

0139 

■-movf 

BitCouatfW 

0140 

movwf 

tempi 

0141 

Parityloop 

0142 

rrf 

temp2 

0143 

btfss 

_carry 

ipat  data  in  carry  bit 

0144 

goto 

NotOne 

0145 

xorlw 

OOh 

sparity  oalcalated  1^  Xmlhg 

0146 

goto 

OneDone 

01«7 

NOtOne 

■  .-.        T.J       =               .     .i  ■■u 

0148 

xbxlw 

Olh 

0149 

OneDone 

0150 

decf sz 

tempi 

0151 

goto 

Parityloop 

I  decrement  count 

0152 

movwf 

tempi 

0153 

;  Parity  bit  is 

in  Bit  0  of  tempi 

0154 

0155 

if  _ODD_PARITY 

oiss 

hat 

jarityBit 

015? 

btfBC 

tenpl,  0 

0158 

bcf 

jarityBit 

0159 

else 

0160 

bcf 

_p«!rlt^t 

0161 

btfsc 

o 


3 
■o 

(D 

3 

(D 
3 

fi) 

o 

3 


> 

V> 


o 

3 
O 

c 

CO 

(/) 

(0 

S' 


I 


0074  1283 

0075  158? 


0162 
0163 
0164 

0165 
0166 
0167 
0287 
0288 
0001 
0602 
0003 
0004 
0005 
0006 
0007 
0008 
0009 

0012 
0013 
0014 


bsf 
andlf 


_p«rityBit 


endif 


********** 


********************** 


******************* 


include  "rcvr.asm'         ;  The  Receiver  Routines  are  in  File  "rcvr.asm" 
***************************************************************************************** 

'■  OetChar  Pfinction 
Receives  a  Byte  Of  Data 

When  reception  is  complete,  _rcvOver  Bit  is  cleared 
The  received  data  is  in  RxReg 

Program  Memory  t  15  locations  (17  locations  if  PARITY  is  used) 

<^^jWpkt*^r..       'fx»  if  EMllTX  is  D8W 
rr'yaThir.c    r  •  ,ri--    ■  .-  ■■^b  !»c9j* 

*******ki,4***************************t**********tm*f*»*i****1r**m****t.»*«*t************** 

GetChar:^  -  ■ 

bcf         _rp0  ■■      =-    ■>■■■<"■  ■ 'J^>  •  a/«i.-'-F  1     if-  I  -•t.lt 


bsf 


_rovOver 


LOAD_BITCOtlNT 


0076  3009 

H 

movlw 

_DataBitstl 

0077  0090 

M 

movwf 

BitCount 

0078  3001 

movlw 

1 

0079  0091 

mbvwf 

BiciiraBltCount 

li 

if  _PARITy_ER*BLE 

M 

movlw 

2 

M 

movwf 

ExtiaBitComfe 

H 

endif 

007A  018D 

0015 

clrf 

RxReg 

007B  128F 

0016 

bcf 

_FrameBrr 

007C  120F 

0017 

bcf 

_ParityBtr- ■ 

;  Init  Parity  &  Framing  Errors 

007D  0181 

0018 

olrf 

e07B  0064 

cliwdt 

007F  1683 

"    :     Ssf  ■ 

_rpO 

0080  3007 

6tii 

•  ' •  movlw 

0081  0081 

0022 

movwf 

_option 

0082  1283 

0023 

bcf 

_rpO 

0083  0181 

0024 

clrf 

_rtcc 

0084  1683 

0025 

bsf 

_rpO 

0085  300F 

0026 

movlw 

OFh 

0086  0081 

0027 

movwf 

_optiori 

0087  0064 

0028 

elrwdfe 

0088  3038 

novlw 

_OPTIOlI_SBIf 

;  Inc  On  Ext  Clk  Falling  Edge 

0089  0081 

#^ 

_option 

;  Set  Option  Reg  Located  In  Page  1 

008A  1283 

0031 

bti 

_rpO 

;  make  sure  to  select  Page  0 

008B  30FP 

0032 

movlw 

OxF# ' 

CO 


008C  0081 
008D  HOB 
008E  168B 
008P  0009 


0090  1283 

0091  1A05 

0092  28A5 

0093  150F 

0094  0181 

0095  0064 

0096  1683 

0097  3007 

0098  0081 

0099  128^ 
009A  0181 
009B  1683 
0C9C  300F 
009D  0081 
009E  0064 
009F  3602 
OOAO  0&81 
OOM  1283 


00A2  3081 


00A3  0081 
O0A4  282S 


00A5  30FP 
00A6  0081 
00A7  282D 


0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0«4S 

nm 

0048 
0049 
0050 
0051 
0052 
OOSiS 
00^ 


movwf  _rtcc 

bcf  _rtif 

bsf  _rtle 

retfie  ''' ■ 


I  A  Start  Bit  will  roll  mm  Hf^  t  4M  M 

;  Enable  RTCC  Interrupt 
;  EniOsle  Global  Interrupt 


♦»**«***»*«***»«*•** •****•»••*••*•**•****•****»**•»•*********♦•»**********♦************** 

Internal  Subroutine 
entered  tzcm  Interrupt  Service  Routine  when  Start  Bit  la  detected. 

Program  Memory  :  14  locations 

Cycles         t         12  (worst  case) 

i**************************************************************************************** 

.SBltDetii£edi  ' 
_rp0 

;  Kaka  sure  start  Bit  Interrupt  is  not  a  Glitch 

^i.'SSiUe  BIWifB'Wt   •  ■"  ' 


00^ 

0057 

0058 
0059 
0060 
0061 

mm 
e»ts 

0O64 
0065 
M 
M 
M 

■  -a 
owe 

0067 
0068 
0069 
0070 
0071 
0072 
0173 


6er  ■ 

_rp0 

btfsc 

RX_Pin 

goto 

_FalseStartBit 

bsf 

_rcvProgress 

clrf 

rtifliii  1 

clrwdt 

bsf  • 

Jv6 

lao^lw 

07h 

Bcf'-' 

clrf 

_rtcc 

bsf 

_rp0 

movlw 

OFh 

mcmif 

_option 

Clrwdt 

lioTlw 

_optic«a 

bcf 

_rpO 

LOAD_RTCC 

1, (SBitRtccLoad) ,  SBibPrescale 

;  Switch  Back  to  INT  Clock 
f  Sat  Option  Reg  Located  In  Page  1 
••*'(»l|*»'i!«#»t»»e»i«»t!''*a9e-0 

iibPrescale 
if  (UsePrMsale  *t:  0  £&  1        0)  — 

else 

novIP*  '^^SI^tlMiSSS^  4'\^0lll^i^aatl  »  (eXimtmeaSim^Xn    I  Kb  Z>aad  init  value  +  INT  La 

■ndif     "«'^'  l««*«T6B  r»  "»CA£.>->  -v  c  i«(»Ta<r 

- ■''■fJNffll^**  I  Note  tlMt  Preaealar  i«  cleared  namt'm^'i*  Wsittam, 


goto 


)  reload  Rtee  wttb-OzPF' for  sfeait  bit-'deteetieB- 


_FalseStartBit: 

movlw  OxFF 
movwf  _rtcc 
goto  RestorelntStatus 

; 

,»**************************************************************************************** 


CO 

o 


0) 

o 

3 
■o 

(D 

3 

Q) 

o 

3 

> 

v> 


o 

3 

o 
c 

(0 
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(D 
—I 
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entered  from  Interrupt  Service  Routine  when  Start  Bit  la  detected. 


Program  Memory  :  28  location^  t  43  16eitl6Ji6  with  PMllW  fefl&blMI 

Cycles         :  24  Worst  Case 


00A8  0064 
00A9  1683 
OOAA  3007 

OOAB  0081 
OOAC  1283 
GOAD  0181 
OOAE  0064 
OOAF  1683 
OOBO  3007 
OOBl  0081 
O0B2  1283 
00B3  0181 
0OB4  1683 
00B5  300F 
00B6  0081 
00B7  0064 
00B8  3001 
00B9  0081 

OOBA  1283 
OOBB  0805 

OOBC  oesB 


'■IV 

OOBD  303^ 

ooBE  ooei 
o'OBP  osis 

OOCO  060E 

OOCl  3910 

O0C2  1903 

00C3  28C6 

00C4  0805 
OOCS  OOBE 

00C6  0890 
00C7  1903 


.************************************ 
RcvNextBiti 


**************************************** 


m 

0101 
0102 
0103 
0104 
M 
M 
M 
M 
M 
M 

0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 


clrwdt 

bsf 

movlw 

movwf 

bcf 

clrf 

clrwdt 

bsf 

movlw 

movwf 

bcf 

clrf 

bsf 

movlw 

movwf 

clrwdt 

movlw 

mpvwf 


_rpO 
07h 

_option 
_rpO 

_rtcc  -  ^ 

_rp0 
07h 

_option 

_rpO 

_rtcc 

_rpO 

OFh 

_option 

(_OPTION_INIT 
_optipn  ,^ 


RtccPrescale) 


bcf  _rpO 

movf  _porta,w 

movwf  RxTemp 
LOAD_RTCC    0,RtccPreLoad,  RtccPreBcal'e>  ' 
if (UsePre^cale  ~  0  &&  0  ==  0) 

movlw     -StccPr^joad  •+  _Cyale_Of^s©tl 


;  Switch  Back  to  INT  Clock 

;  Set  Option  Reg  Located  In  Page  1 


;  read  RX  pin  immdiately  -into  WREO 


else 

movlw 
endif 

movwf 

movf 

xorwf 

andlw 

btfsc 

goto 

.SampleAgainj 
_  ,Iiloyf 
'  indvwf  RxTflonp 
.PinSampled: 
movf 
btfsc 


RtocPreLoa^  +  J_CVcle_Of  fsetl  »  (RtccPrescale+1) )     ;  Re  Load  WCCC  iMili*  ♦ 

;  note  that  Sresealec  is  cl'e^«d"«iM,mcC  4*.  tK4tM!l. 


m 


_^toc 
_^rta,w 
RxTens>.w 
RX_MASlt 
_z 

JlaSifBipleii 
_^orta,w 


BitCount,  1 


I  iiMt  t<0  mm  m  mm  mt^ 

I  both  sanples  are  same  state 

;  2  out  of  3  majority  sampling  done 


o 

3 

"O 
(D 

3 
o 

3 

f-h 
fi) 

o 

3 


> 

(0 

•< 

3 

O 

3" 
-\ 

O 

3 

O 

c 

(0 

(/) 
o 


00 


00C8  28CB 


00C9  0B90 
OOCA  28D1 


OOCB  lEOE 
OOCC  168F 
goes  12 8B 

''dw  mm- 


OODO  2B2t> 


OODl  1003 

00D2  lAOE 

00D3  1403 

00D4  0C8D 
P0 


0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
OlfO 
0131 
0132 
0133 
013'i 


goto 
goto 


_IlovP_Or_S 

BitCount 
_NextRcvBit 


_RcvP_Or_S ; 

if  _PARITY_ENABLE 

decfsz  ExtraBitCount 


_JlovStoEiBlti 
btfss 
bsf 
bcf 
bcf 
bcf 


JRcvParity 


RX 

_FraBieErr 
_rtie 

_rcvProgres8 
_rcvOver 


if  PARITY_ENABLE 


0138 
0139 
0140 
0141 
0142 
0143 
0144 


movf 

call 

movlw 

btf  sc 

movlw 

xorwf 

endif 

if  _DataBits 
rrf 
bcf 

endif 


RxReg , w 

GenParity 

0 

_parityBit 
0x10 

SerialStatus 

7 

RxReg, 1 


;  may  be  framing  Error  or  Glitch 
;  disable  further  interrupts 


;  Generate  Parity,  for  Parity  check 

I  iM*  tar  b'u  TW)i»fiX  Tveo  hex-; 

f  £o  mask  off  Received  Parity  Bit  in  _Parll^Bcr 
;  .jMltyBrr  bit  is  set  accordingly 


0197 
0148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
0160 


JJextRovBit! 

bcf  _oarry' 

btfsc  RX 

bsf  _carry 

rrf  RxReg 

fO%b  .Rest6riiteSitt6il* 


;  prepare  bit  for  shift 
;  shift  in  received  data 


if  _PARITy_ENABLB 
_RcvParityi 

bcf 
btfsc 
bsf 
goto' 

endif 


_ParityKrr 
RX 

_Pju:ityErr 
ttbBttiSrklbtStBtiiB- 


Toqporaxily  store  PARITY  Bit  in  _ParityErr 
Sample  again  to  avoid  any  glitches 


(/) 

o 


0) 

-X 
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I" 

■o 

(D 

3 
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3 
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o 

3 
O 

> 
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3 
O 

o 
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O 

c 

0) 

0) 
(D 

S' 


0289 

0290  * ******************************************************************************** 

0291 

0292  Bm 

0293 

0294 

0295 

0296 


KBiORY  USAGE  BAP   CX'  =  Used, 


IMused] 


0000  :  x-xxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxxxxxxxxxx  xxxxxxxzxxzxxxxx 
0040  :  xxxxxxxxxxxxxxxx  XXXXXXXXXXXXXXXX  XXXXXXXXXXXXXXXX  xxxxxxxxxxxxxxxx 


0080  :  xxxxxxxxxxxxxxxx 

ooco  ;  wnntwmxxxxicxKxx  xxwaas-* 


Ail  omme  MHMf  mM»-  Mwei- 


Errors 


CO 
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Software  Implementation  of  I^C^^i  Bus  Master 


INTRODUCTION 

This  application  note  describes  the  software  implemen- 
tation of  l=^C™  interface  routines  for  the  PIC16CXX 
family  of  devices.  Only  the  master  rrKxje  of  PC  interface 
is  implemented.  This  implementation  is  for  a  single 
master  communicatbn  to  multiple  slave  PC  devices. 

Some  PIC16CXX  devices,  such  as  the  PIC16C64  and 
PIC16C74,  have  on-chip  hardware  which  implements 
the  l^C  slave  interface,  while  other  PIC16CXX  devices, 
such  as  the  PIC16C71  and  PIC1 6C84,  do  not  have  any 
on-chip  hardvmre. 

This  application  note  does  not  describe  the  I'C  Bus 
specifications  and  the  user  Is  assumed  to  have  an 
understanding  of  the  1^  Bus.  For  detailed  information 
on  the  bus,  the  user  is  advised  to  read  the  I^C  Bus 
Specification  document  from  Philips/Signetics  (order 
number  98-8080-575).  The  PC  Bus  is  a  two-wire  serial 
bus  with  multiple  masters  and  multiple  slaves  connected 
to  each  other  through  two  wires.  The  two  wires  consists 
of  a  clock  line  (SCL)  and  a  data  line  (SDA)  with  both  the 
lines  being  bi-dlrectlonal.  Bl-directlonal  communication 
is  facilitated  through  the  use  of  wire-and  connection  (the 
lines  are  either  active-low  or  passive  high).  The  PC  Bus 
protocol  also  allows  collision  detection,  clock  synchroni- 
zation andhand-shakingformultl-mastersystems.  The 
clock  is  always  generated  by  the  meister,  but  the  slave 
,  (n8y,4»^  it  lpM(  to  {^ni^pte^ 


In  most  systems  the  microcontroller  is  the  master  and 
the  external  peripheral  devices  are  slaves.  In  these 
cases  this  applicatnn  note  can  be  used  to  attach  1% 
slaves  to  the  PIC16CXX  (the  master)  mk:rx>controller. 
The  multi-master  system  is  not  implemented  because  it 
is  extremely  difficult  to  meet  all  the  PC  Bus  timing 
specif icatbns  using  software.  For  a  tnie  slave  or  multi- 
master  system,  some  inteifabe  hardware  is  hedassaiy 
(like  START  &  STOP  bit  detection). 

In  addition  to  the  low-level  single  master  PC  routines,  a 
collection  of  high  level  routines  with  various  message 
structures  is  given.  These  high  level  macros/routines 
can  be  used  as  canned  routines  to  interface  to  most  PC 
Slave  devices.  As  an  example,  the  test  program  talks  to 
two  Serial  EEPROMs  (Microchip's  24LC04  &  24LC01). 

IMPLEMENTATION 

Two  levels  of  software  routines  are  provided.  The  low- 
level  routines  are  given  in  ''i2c_low.asm"  and  the  high 
level  routines  are  given  in  "i2c_hi^.asm".  The  routines 
are  described  later.  The  messages  passed  (communi- 
cated on  the  two  wire  network)  are  at)breviated  and 
certain  notation  Is  used  to  represent  Start,  Stop  and 
ottiercondittons.  These  abtv^nations  are  described  at 
first  in  TaUe  1. 


TABLE  1  -  DESCRIPTION  OF  ABtflilMlfMNS  USED 


Abbrwiation 

Explanation 

S 

Start  Condition 

P 

Stop  Condition 

SIvAR 

Slave  Address  (for  read  operation) 

SIvAW 

Slave  Address  (for  write  operations) 

A 

Acknowledge  condition  (positive  ACK) 

N 

Negative  Acknowledge  condition  (NACK  ) 

0 

Data  l>yte,  0[0]  represents  byte  0,  D[1]  represents  second  byte 

:#1)^4«M«riM|^e«agHMtaa$tlltib. 
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Message  Format 

In  the  high  level  routines,  the  basic  stnicture  of  the 
message  implemented  is  given.  Every  i^C  slave  sup- 
M^<S^MXg^mSii^  sIlpxihiirBS.  For  .ej(arap|e, 
Miercxihtp'is^COt  Serial  EEPROM  supports  the  fol- 
lowing message  (te  write  a  byte  to  Serial  EEPROM  at 
current  address  counter)  S-SlvAW-A-D-A-P  which  basi- 
cally means  the  following  sequence  of  operations  are 
required : 

(a)  Send  Start  Bit 

(b)  Send  Slave  Address  for  Write  Operations 

(c)  Expect  Acknowledge 

(d)  Send  Data  Byte 

(e)  Expect  Acknowledge 

(f)  Issue  a  STOP  Condition 
Steva  Address 

Both  10-bit  and  7-Bit  addressing  schemes  are  imple- 
mented as  specified  by  the  I^C  Bus  specification .  Before 
calling  a  certain  sub-routine  (high  level  or  low-level),  the 
address  of  the  slave  being  addressed  must  be  loaded 
using  either "  LOAD_ADDR_8"  (for7-bit  address  slaves) 
or  "LOAD_ADDR_8"  macro  (for  10-bit  address  slaves). 
These  macros  not  only  load  the  address  of  the  slaves  for 
all  the  following  operatk>ns,  but  also  setup  conditk)ns  for 
7- or  10-bit  addressing  modes.  See  the  macros  sactran 
for  more  details. 


In  PC  Bus,  the  ck>ck  (SOL  Line)  is  always  provkled  by  the 
master.  However,  the  slave  can  hold  the  line  k)w  even 
though  the  master  has  released  it.  The  master  must 
check  this  condition  and  wait  for  the  slave  to  release  the 
clock  line.  This  provides  a  built  in  wait  state  for  the  H'C 
Bus.  This  feature  is  implemented  and  can  be  turned  on 
or  off  as  an  assembly  time  option  (by  setting 
_ENABLE_BUS_FREE_TIME  flag  to  be  TRUE  or 
FALSE).  Iftheclockisheldlowfortoolong.say  1  msec, 
then  an  error  condition  is  assumed  and  an  RTCC  inter- 
aipt  is  generated. 

4lM)BITRATI0N 

The  PC  Bus  specifies  both  bit-by-bit  and  byte  mode 
arfoitratnn  procedures  for  multi-master  systems.  How- 
leMW,  tie  arbitratkx)  is  not  needed  in  a  single  master 
system,  and  therefore  not  impleinented  in  this  appltea- 
Ifdnnoto.  ■  ■     '  —  -     •      ■  •^"^  ■••     ■  ■  ■ 

HARDWARE 

Tteiei^eins  pa  used  to  emulate  the  Ckx:k  Line  SOL  and 
ttiadata  line^i^M.  In  the  example  test  program,  RBOis 
used  as  SCL  and  RB1  as  SDA  line.  On  initialization, 
these  I/O  lines  are  configured  as  Input  pins  (tri-state)  suid 
their  respective  latches  are  loaded  with  Os.  To  emulate 
the  high  state  (passive),  these  lines  are  turned  as  inputs 
and  to  emulate  the  active  k)w  state,  the  pins  are  turned 
as  outputs  (with  the  assumption  of  haying  external  pull- 
up  resistors  on  both  the  lines). 


For  devices  that  have  the  on-chip  PC  hardware  (SSP 
module),  sk>pe  control  of  the  I/O  is  implemented  on  tlie 
SDK  and  SDA  pins.  For  software  not  implemented  on 
the  SGK  and'SDA  pins  |n#<^  tnddule,  external 
components  f<#«(leMt!^HMMiNII%<^ 


<M<Witili«eiBah^leeiaiQlagyikie. 
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PC  ROUTINES  JM:iii,L]ti(i4 
Status  Register  (File  Register  "Bus  Status") : 

.The  M  def  Initioqs  pi  the  stedus  i«gister  are^escribed  In  the  tat>le  giygn  Jielovy,  These  bits  reflect  the  status  o(  the  PC  Bus. 


Bit# 

Name 

Description  - 

0 

_Bus_Busy 

1  =  Start  Bit  transmitted 
0  =  STOP  condition. 

-  -.1 

_Al)ort 

It  is  set  when  a  fatal  error  condition  is  detected.  The  user  must  ciesu'  this  bit. 

This  bit  is  set  when  Clock  Line  (SCL)  is  stuck  low. 

2 

_Txmt_Progress 

1  =  transmission  in  progress. 

3 

_Rcv_Progress 

1  =  reception  in  progress. 

4 

■  l-'j 

_Txnrt_Success 

1  =  transmission  succesfully  completed.                                   -  - 

5 

_Rcv_Success 

1  =  reception  succesfully  completed. 
0  =  error  condition. 

6 

_Fatal_Error 

1  =  FATAL  error  occurred.  The  communication  was  aborted. 

7 

jiiCK_Enor 

1  =  slave  sent  not  ACK  while  the  master  was  mpeding  an  ACK . 

This  may  happen  for  example  if  the  slave  was  not  responding  to  a  messeige. 

Control  Register  (File  Register  "Bus  Control") : 

The  bit  definitions  of  the  control  register  are  descrit>ed  in  the  table  given  below.  These  bits  must  be  set  by  the  software 
prior  to  performing  eeltadn  opmHOrofc  fMM  af;tl»  Mgl>  iavel  routirws  destaibad  later  in  this  section  set  these  Uts 
automatically. 


Bit* 

Name 

Description 

0 

_10BitAddr 

1  =  10  bit  slave  addressing 
0  =  7  bit  addressing. 

1 

_Slave_RW 

1  =  READ  operation 
0  =  WRITE  operation. 

2 

_Last_Byto_Rcv 

1  =  last  byte  must  be  receivad.  Used  to  send  not  ACK . 

3,4,5 

Unused  bits,  can  be  used  as  general  purpose  bits. 

6 

_SlaveActive 

A  status  bit  indicating  if  a  slave  is  responding.  This  bit  is  set  or  cleared  by  calling 
the  I^C_TEST_DEVICE  macro.  See  description  of  this  |2C_TEST_DEVICE  macro. 

7 

_TIME_OUT_ 

A  status  bit  Indicating  if  a  clock  Is  stretched  low  for  more  than  1  ms,  indicationg  a 

bus  error.  On  this  time  out,  the  operation  is  aborted. 

9WS 


Function  Nam* 

Description 

lnllPCBus_Master 

kiitializes  Control/Staius  Registers,  and  set  SDA  &  SCL  lines. 
Must  be  called  on  Initialization. 

TxmtStartBit 

Transmits  a  START  (S)  condition. 

TxmtStopBit 

Transmits  a  STOP  (P)  condition. 

L0AD_ADDR_8 

The  7  bit  slave's  address  must  be  passed  as  a  constant  parameter. 

LOAD_ADDR_10 

The  10  bit  slave's  address  must  be  passed  as  a  constant  parameter. 

Txmt_Slave_Acldr 

Transmits  a  Slave  address.  Pridr  to  calling  this  routine,  the  address  of  the  slave 

being  addressed  must  be  loaded  using  L0AD_ADDR_8  or  LX>AO_ADDR_10 
TDutfties.  Also  the  Read/Write  condition  must  be  set  In  the  control  register. 

SendData 

Transmits  a  byte  of  data.  Prior  to  callingiiiis  fetdlEie.  tt»  byte  to  be  transmitted  must 

be  loaded  into  DataByte  file  register. 

GetData 

Receives  a  byte  of  data  In  DataByte  file  register.  If  the  data  byte  to  be  received  Is  the 

last  byte,  the  _Last_Byte_Rcv  bit  In  control  register  must  be  set  priot  to  calling  this 
routine. 

Mi  .         *4**  t*f~-                     ^   .         )v-          •.  ^-                     1        4**.  ^^/^^ 
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MACROS  -'.'-^ 
mglti  Level : 

The  high  level  routines  are  implemented  as  a  mixture  of  function  calls  and  macros.  These  high  level  routines  call  the  low 
level  routines  described  above.  In  most  cases  only  a  few  of  the  high  level  routines  may  be  used  and  the  user  can  remove 
or  not  include  the  routines  not  necessary  to  conseive  program  memoiy  space.  Examples  are  given  for  a  few  functions. 


rc.TESTLoewcE 

PeuBmeteis   :  None 

Purpose  To  test  if  a  slave  is  present  on  the  networl( 


DescrlpQon  Before  using  this  macro,  the  address  of  the  slave  being  tested  must  be  loaded  using 
LOADJVDDR_8  or  LOAD_ADDR_10  macro.  Is  the  slave  under  test  is  present,  ttien 
".SlaveActive"  status  bit  (In  Bus_Control  file  register)  is  set.  If  not,  then  this  bit  is  s^  0, 
indlcait^  that  the  dave  is  either  not  prasent  on  the  n^Mpik  or  Is  n@t  letenlng. 


S-SlvAW-A-P 


Example 

PC_TEST_DEVICE 

btfss  _SlaveActive 

goto  ilBtfeNotPresent 


:  24LC04  address 


;  See  If  slave  is  respondin^^  ,^  , 

;  24LC04  is  not  present  ~ 


;  Slave  is  present 

;  Continue  with  program 


Parameters  : 


,  ■'  '.  Purpose 


Deecription 


_BYTES_,  _SourcePointer_ 


_PYTES_ 


Number  of  bytes  starting  from  RAM  pointer  _SourcePointer_ 
n.  iss*'^.  ^        poinier  to  RAM  (fSa  registen) 


A  basic  macro  for  writing  a  block  of  data  to  a  slave 


This  macro  writes  a  block  of  data  (no  of  bytes  =  _BYTES_)  to  a  slave. 
The  starting  address  of  the  bktck  oS  data  is  _SouroePointer_'  If  an  error  occurs,  the  message 
Is  aiiiMniiii^  iM  K^p,^., 


■  '■t■t^^  'ai-  Utid'  \oA 


Example 


bffsc  _Bus_Busy  ;  Check  if  bus  is  free 
goto  $-1 

LOAD_ADDR_8  _Slave_1_Addr 

PC_WR  0x09,  DataBegin  ; 


Paramrtets  :     _BVrES_,  _SaW«P^I«ir^  _Sub_Acldress_  *  • 

=■'1    ;.iL  I  v.vvw  -■.  I  lu    ■  >       _SourcePointer_      Data  Start  Buffer  pointer  in  RAII»f*MM#at«»)t 'j  jIj.  - 
_Sub_Address_      Sub-address  of  the  Slave 


Purpose  wm»abk)dcofdatatoastamiliMt#ifi»M^« 

Description  :  Same  as  l%_WR  function,  einept  that  the  steiting  address  of  the  slave  is  also  specified.  For 
example,  vvttile  wiitirM|o.an  PC  Mffimy  Pevicf.jl{to|ubiat|di;«pecifies  the.  slaSkig  address 
of  the  memoiy .  The  KSjNR  may  prove  to  be  more  iafffcierifmah  this  macro  In'mosi  siluations. 
Advantages  will  be  found  for  Random  Address  Block  Writes  for  Slaves  with  Auto  Increment 
Sub-addressee  (lil«  Microchip's  24CXX  series  Serial  EERBQMs)      ,  :  ^ 


L0AD_ADDR_8  _Slave_2_Addr  ^Lfl«8lad#e(7bilMam 

PC_WR_SUB    0x08,  DataBegin+1,  0x30 

In  the  above  example  ,  8  Bytes  of  data  starting  fnxnaddy'  (D^aBegin+lj  is  written  to  24LC04 
Serial  EEPROM  beginning  at  0x30  address 

Parameters  :  .BYTES: 


r  0iiff4lnoO . 

Number  of  bytes  starting  from  RAM  psUlm  jSourcePointer_ 
_SouieeP9Mer_      Data  start  Buffer  pointer  in  RAM  (file  Registers) 
_Sub_Addr9Ss_      Sub-address  of  the  Slave  .  , 


Purpose  iWrtteabbck'of  diMatftit^nmsingm 

,  jHi)"''r-''  '       ''I  v(tnt<jrj'i«»fe*i <i.»^ iiigir  ■v«ienssittff<^\ 

Description  :  Sameasl^_WR_SUBfunction,exceptthatthesub-addrsss(incremented)issentaftereveiy 
data  bgto.  /Itttf  tMlilif Mea^  mkmrnrnmrn  ^s  te#ven  up  s^«ia#data  byte, 
this  Is  uaelUf  lof  wfmflM  atera  does  not  have  an  auto-tncrament  sub-addrass  feature. 

Message  S-SlvAW-A-(Si 

and  ao  on  unU  MBytes 


.  .......  ...  .,  .'fl 

tJWQA.GAOj 

■  »         - .  iWigMJ'"" "  "  ' 
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PC_Vm_BYTS_MeM 

Parametois  :     3YT^_.  _Soiiie«f^)M0r_.  _Sub JMiMiitSfl' - 


_BYTES_  Number  of  bytes  starting  from  RAM  pointer  _SourcePolnter_ 

_SourcePointer_      Data  Start  Buffer  pointer  in  RAM  (file  Registers) 
_Sub_Address_      Sub-address  of  ttie  Slave 


Purpose  Write  a  block  of  data  to  a  slave  starting  at  slave's  sub-addross 

Same  as  I^C_WR_SUB_SWINC,  except  that  a  delay  Is  added  between  each  message.  This 
is  necessary  for  some  devices  like  EEPROMs  wtiKh  accept  only  a  byte  at  a  time  for 
programming  (devices  without  on  cHp  ram  buffoi^  Inlcrilar  MBh  byte  adaiay  Is  necessary 
before  a  next  byte  is  written. 

Message  S-SlWtV/-A-(Sut>A^|MMPP#P 
Delay  1msec 

S-SlvAW-A-(SubA+1)-A-D[1]-A-P  ft"  ' 


'."lAv.  ' 


Parameters 


_BYTES_  _SoureePonter_  _StA>_filiem^  JfMe»_^l&2E_ 


Dhsnber  of  bytes  starting  from  RAM  pointer  _SourcePoinler_ 

_SourcePointer_       Data  Start  Buffer  pointer  In  RAM  (file  Re{psleis) 
_Sub_Address_        Sub-address  of  the  Slave 
_Devk»_BUP_SIZE_  the  slaves  on-chip  buffer  size 


Purpose  Write  a  Mock  of  dgta  to  a  stave  starting  at  slave's  sub-addr 

Description  :  ThlsMacro/Functlonwrites#of_BYTES_toanl^Cmemorydevice.  Howeversome devices, 
especially  EEPROMs,  must  wait  while  the  device  enters  into  programming  mode. 
But  some  devices  have  an  on-chip  temperature  data  hold  buffer  and  Is  used  to  store  data 
before  the  device  actually  enters  Into  programming  mode.  For  example,  the  24C04  series 
of  Serial  EEPROMs  from  Microchip  have  an  8-byte  data  buffer.  So  one  can  send  8  bytes 
of  data  at  a  time  and  then  the  device  enters  programming  mode.  The  meistercan  either  wait 
until  a  fixed  time  and  then  retry  to  program  or  can  contiWMill|f ifailor  Ara<  bUl  and  Own 
transmit  the  next  Block  of  data  for  programming. 


Message  I'C.SUBJ/VR  operatkms  are  performed  in  k)op  and  each  time  data  buffer  of  BUF_SIZE  is 

output  to  the  device.  Then  the  devtoe  is  checked  for  busy  and  when  not  busy  another  bk>ck 
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eC_READ 

PaiStfneters  : 

Purpose 


-B'ifSB^r;  1"  Number  of  bytes  starting  from  RAM  pointer  _SourcePointer_ 

.       Data  Start  Buffer  pointer  in  RAM  (fiie  Registers) 

A  basic  macro  for  reading  a  biock  of  data  from  a  siave 


This  macro  reads  a  biock  of  data  (number  of  bytes  =  _BYTES_)  from  a  slave.  The  starting 
address  of  the  block  of  data  is  _DestPointer_.  If  an  error  occurs,  the. mesf^oe  is  aborted  and 
theusermustcheckStatusflags(e.g._Rcv_Successbit).  Notethedonthif&tt^'toreceive, 


Description 


Example 


LOAD_AEmj©  _Sil(«®J|Jifl«ei.(.  ,  ■  , 

PC_READ  8,  DataBegin  aiMn  T  y(MQ 

btfss      _Rcv_Success  Hj»  uvriw  (*> « 

goto  ReceiveEmsir 

goto       ReceiveSucce^  ~- 
in  the  example  above,  8  ia^ll  ptA  IMQ  S  Mi  ^mmi  M  the  rr»ster's  ram 

mmmsHfi^m^  P«Mi«itti^d(f8..  ^i^d^MnueS. .  .sarys     :  mtemr  . . 


"X'y  r:"  'r.  <jM^  no  tmnic  *1f  _  3Sr 


-  A  If  t  lloo  yi  ..'0., 


;  noUqn-'CiC. 


TQipiptmpiiiiB 
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rcjmuijsim 

Patametsrs 


_BYTES_ 
_DestPointer_ 
_SubAdclress_ 

:(•:..     ilii:-  tVK  j'^  6  .1  •  ■;  . 


Number  of  bytes  starting  from  RAM  pointer  _SourcePolnter_ 
Data  Start  Buffer  pointer  in  RAM  (file  Registers) 
Sub-address  of  the  slave 


Description 


Message 


Exeunpie 


This  maa««btHls«t  bloc{raf  data  ( no  6t  bytes  •bvieyresj'friarn  a  slave  SB»Mng'iat  sieve's 
sub-address  _SubAddress.  The  data  received  is  ^ored  in  master's  ram  starting  at  addrws 
_DestAddress.  if  an  enor  occurs,  the  message  is  aborted  and  the  user  must  checi(  Status 
flags  (e.g.  _Rcv_Success  bit). 

This  MACRO/Subroutine  reads  a  message  from  a  slave  device  preceded  by  a  write  of  the  sub- 
address  between  the  sub-address  write  and  the  following  reads,  a  STOP  condition  is  not 
issued  and  a  "REPEATED  START'  condition  is  used  so  that  an  other  master  will  not  take  over 
the  bus,  and  also  that  no  other  masterwiil  overwrite  the  sub-address  of  the  same  slave.  This 
function  Is  very  commonly  used  in  aceessing  Random/Sequential  reads  from  a  memory 

■dgg^l^Pggg^^l^l^^l^iriai^e^^ 

LOAD_ADDR_10  _Slave_3_Addr 

PC_READ_SUB  8,  DM8d«|||,  M0 
btfss  _Rcv_Success 
goto  ReceiveError 

goto  ReceiveSuccess 

In  the  example  above,  8  bytes  of  data  is  read  from  a  10  bit  slave  (starting  ett  address 
and  sli)iMlR<tili  master's  ram  ii^iting  at  address  DataBegin. 


fCJREAD_BYTE  or  fC_ftEAD_STATUS 
Parameters  :  _DestPointer_ 


_DestPointer_ 


Data  Start  Buffer  pointer  in  RAM  (file  Registers) 


rlffposv 


To  read  a  Status  Byte  frorn-Sllit^ 


Desoription 


,.^-\>-^♦■\-J 


Several  pevloes  can  eerid  a  Status  Byte  upon  reception  of  the  control  byte. 
Thte  ktaf^  reeds  aStatus  t>yte#imia^ave  to  the  master's  RAM  location  _DestPointer_.  This 
ftinction  is  t>asically  the  same  as  PC_READ  for  a  single  byte  read.  As  an  example  of  this 
command,  the  24Cxx  serial  Serial  EEPROM  from  Microchip  will  send  the  memory  data  atthe 
cMmt  ledaiin^i^  rc_READ_STATUSftaiUfeA  dialled.  On  successful  operation  of  IMs 
comman4  WMia*  Idise  WREG  =  0  on  errors. 
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Parameters 


_Bytesi_  jsrtW^  ji*i*nw  m^^jM^xm^Jt^vra^ 


■■>,:■■  ic'^i.rii.  ;  lei '>niiyl»8l_    '  ---iNi«*et«H>ytesinthefirst,*rfcWoefe 
I  -'>|r;ioi%v7  »Lfn#tt4_  Starting  address  of  first  data  block 

.SubAdchijiviLio  :    .Sut>-adcbr«is$  of  the  slave 
_Bytes^  Number  of  bytes  in  the  second  data 

hif  ^-  >:  KT'i  e«SMWMMi|M|MMiilllli|l^^ 


Purpose 


To  serKi  two  blocks  of  data  to  a  slave  at  its  sub  address 


Descriptton  : 


PC_WR_SUB_RD 
Parameters  : 

(C;  .       siL,..e  ts  {;'"'''"'■ 


Purpose 


DescrjpOoh 


This  Macro  writes  two  blocks  of  data  (of  variable  length)  starting  at  slave's  sub-address 
_SubAddr_.  Tills  Macro  is  essentially  the  same  as  calling  rc_WR_SUB  twfee,  but  a  STOP 
bit  is  not  sent  in  between  the  transmission  of  the  two  bk>cks.  This  way  the  Bus  is  not  given 
up. 

This  function  may  be  useful  for  devices  whicii  need  two  blocks  of  data  in  which  the  first  block 
may  be  an  extended  address  of  a  slave  device.  For  example,  a  large  I'C  memory  device,  or 
ateletext  device  with  an  extended  addressing  scheme,  may  need  multiple  bytes  of  data  in  the 
first  block  tfiat  represents  the  actual  physical  address  and  is  followed  by  a  second  block  that 

S-Sh/W-SmiM^il^^i^..,4)1[N-1]-A-D2[0}-A-.....Ar^ 

.:.-.t..).,s5»t..(t,j  ,F     f  jOAll^  OH 

of! 

SubAddr_,  _Count2_,  _DeslPtr_     '  "'^8 

jtnRM  erli  ri 


Count!  _,  _SrcRr_ 


_Count1_  Length  of  the  source  buffer 

_SubAddr_  Sub-address  of  the  slave 
_Count2_ 
_DestPtr_ 


Length  of  the  destinfrtnn  buffer 
«r  Heslinalkin  buffer 


TPtSend,«(  bkxk  (tf  dala,^  4>J!t1^»  *  '''25*.f^<5*9hivJL 


This  macro  writes  a  block  of  dat^|||||||||K||^(g|punt1  J  to  a  slave  starting  at  sub-address 
_SubAddr_  and  then  reads  a  block  of  data  (of  length  _Count2_)  to  the  master's  destination 
buffer  (starling  at  address  _DestPtr_).  Although  this  operation  can  be  performed  using 
previously  defined  Macros,  this  function  does  not  give  up  the  bus  in  between  the  bkx^k  writes 
and  bkx:k  reads.  This  is  achieved  by  using  the  Repeated  Start  Condition. 


Message       ,  S-SlvW-A-SU>A-^ilO}-A^....M-D1[N-1}-A-S-SlvFlrA:DZ[0]-A-.  A-D2[M-1}-N-P 
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Paramateis 


JSlePtr1_,  _Count2_.  _SnjPlr?_ 

_Count1_  LangHi  of  the  first  data  blodt 

_SrcPtr1_  Source  pointer  of  the  first  data  block 

_Count2_  Length  of  the  second  data  block 

Source  pointer  Of second  dida  bksck 


Purpose  To  send  two  blocks  of  data  to  a  slave  in  one  message. 


Description  :     Thismacrowritesablockof data(of length_Count1  Jtoaslavaandthensendsanottiai'bloctc 
of  data  (of  length  _Count2_)  without  giving  up  the  bus. 

For  example,  this  kind  of  transaction  can  be  used  in  an  PC  LCD  driver  where  a  block  of  control 
and  address  information  is  needed  arfd  then  another  btock  of  actued  dat§  to  t>e  displayed  is 
needed.  r 


Message  S-SlvW-A-D1[0]-A-  A-D1[N-1]-A-D2[0]-A-.  -A-D21M-1J-A-P 


APPLICATIONS 

The  I^C  Bus  is  a  simple  two  wire  serial  protocol  for  inter- 
IC  communications.  Many  peripheral  devices  (acting  as 
slaves)  are  available  in  the  market  with  I^C  interface  (e.g. 
serial  EEPROM,  clock/calendar,  I/O  Port  expanders, 
LCD  drivers,  A/D  converters,  etc.).  Although  some  of  the 
PIC16CXX  devices  do  not  have  on  chip  i^C  hardware 
interface,  due  to  the  high  speed  throughput  of  the 
microcontroller  (250  ns  ®  16  MHz  input  chxsk),  theJ'C 
bus  can  be  Implemented  using  software. ^ 


Author:    Amar  Palacheria, 

Logic  Products  D'n/'sion 
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Appendix  A  -  I'C.H 


********************************************************************************************************* 


;  I2C  Bus  Header  File 

,  ********************************************************************************************* 


************* 


ClkOut 


equ 


(_CXkIn  »  2) 


Cranpute  the  delay  constants  for  setup  &  hold  tinas 


_40uS_Delay  set 
_47uS_Pelay  set 
_50uS_Delay  set 


(_ClkOut/250000) 
(_CllcOut/212766) 
(_ClkOut/200000) 


♦define  _OPTIOir_ISttT      (OxCO  |  0x03) 


#def  ine  _SCL 
#def  ine  _SDA 


portb, 0 
portb, 1 


;  Fzesealer  to  RTCC  for  bftpox  1  mSsc  timeout 


i 


♦define  _SCL_TRIS 


trisb, 0 


•define  JlffilI$K_ 
•define  _JtBaD_ 


INIg$Bk«r  File  Variables 


CSBLOCK 


OxOC 

SlaveAddr 

SlaveAddrHi 

DataByte 

BitCount 

Bus_Status 

Bus_Control 

DelayCount 

DataByteCopy 

SubAddr 

SrcPtr 

ten^ount 

StoreTCTp_l 

End_l2C  Ram 


;  Slave  Addr  inust  be  loader  into  this  reg 

J  for  10  bit  addressing  mode 

J  load  this  reg  with  the  data  to  be  transmitted 

;  The  bit  number   (0:7)   transmitted  or  received 

;  Status  Reg  of  I2C  Bus  for  both  ''^Sg^'  % 

;  control  Register  of  I2C  Bus  ^ 


;  copy  of  DataByte  for  Iieft  Shifts  (destructive) 

;  sub-address  of  slave  (used  in  a:2C_HlG^.Ji3Kt^ 

;  source  pointer  for  data  to  be  tiransmitted 

;  a  temp  variable  for  scratch  RAM 

;  a  temp  variable  for  scratch  RAM,  do  not  disturb  contents 

;  unused,  only  for  ref  of  end  of  RAM  allocation 


iv    C;   ri  O 


0 


,**************************************************************************** 
;  I2C  Bus  Status  Reg  Bit  Definitions 

.Ir***************************************************************** 

•define  _Bus_Busy  Bus_Status ,  0 

ftdefine  .Abort  Bus_Status,  1 

#def ine  _Txrat_Progress  Bus_StatU8,2 
#def  Ine  _Rcv_Frogres&    Bus_Status ,  3 

♦define  _Txmt_Success  Bus_Status,4 
♦  define  _Rcv_Success  Bus_StatLus ,  5 
tdef  ine  _Fatal_Error      Bus_S  tatus ,  6 

, *********************************************************************************** 

;  I2C  Bus  Contro  Register 

. **************************************************** 

♦define  _10BitAddr         Bus_Control ,  0 

♦define  _SlaveActiv#  m^ijControl ,  6 
♦define  _TIME_odt_        B««iJControl ,  1 


,********************************************************************************************************** 
;  General  Purpose  Macros 

J *************************************************************************************** **********ik  ******** 

RELEJ^K_BUS  H&CRO 

bsf  _;EpO  ;  select  page  1 

bsf  _i^E>ft  i  tristate  SIDA 

bsC  _SCL  ;  tristate  6CL 

;  bc£  _BUB_Bu«y  j  Bus  Not  Busy,  TEMP  1717,  aet/clear  on  Start  &  Stop 


, *********************************%V^*********************************************************i»***^^ 

;  A  MACRO  To  Load  8  OR  10  Bit  Address  To  The  Address  Registers 

•     SLAVE_ADDRESS  is  a  constant  and  is  loaded  into  the  SlaveAddress  Register (s)  depending 
;     on  8  or  10  bit  addressing  modes 

.********************************************************************************************************** 

LOAD_ADDR_10       MACRO      SLAVE_ADDRESS  ,    ..  ,  •      .  . 

bsf        _10BitAddr  ;  Slave  has  10  bit  address 


CO 


movlw  (SLAVE_ADDRESS  &  Oxff) 

movwf  SlaveAddr 

movlw  (  (  (SLAVE_ADDRESS  »  7)   &  0x06) 

movwf  Slaveaddr+1 


OxFO) 


load  low  byte  of  address 
10  bit  addr  Is  llllOXXD 
hi  order  address 


I.aAD_ADDR_8        MACRO  SLAVE_ADDRESS 


bcf  lOBitAddr 

movlw      (SLAVE_ADDRESS '(t  '^jcii) 

movwf  SlaveAddr 


Set  for  8  Bit  Address  Mode 


Appendix  B-TEST.ASM 


Title  'I2C  Master  Mode  Iin>lemetatioB' 

SflbTltle  •Rev  0.1  :     01  Mar  1993" 


;  Sof ^are  jlB^leiDeatation  Of  I2C  Master  Mode 

;  *  Master  Transmitter  &  Master  Receiver  Iiplsmeiited  in  software 
;  *  @lave  Mode  in^lemented  in  hardware 

Jl-Afcsotjlei  IB*  •  ... 
I  *       Secer  to  Si^ietieoyPIiilips  I2C-Bus  Specification 

The  software' is  inplemeiited  using' PIC16C7i''s  thus  can'^l'i^rfi^'&^if  ^KbW"!  3BC16C3CK  predicts 

RBI  is  SDA  (toy  I/O  Sin  May  Be  used  instead) 

RBO/INT  is  SCL  (Any  I/O  Pin  May  Be  used  instead) 

*********************************************************************************************************** 

Processor  16C71  "  '  ' ■  ,     -  t,  -  -  ■  ^  - i 

Radix     OfC  , .-  ,„  , 

_clk;n  ega  ,     16000000  j  .^W**-  '^1°°''  Fregumi^  Uf  JiSliKf  E 

include  "d: \piGtools\16Cxx,h" 

♦  define  _Slave_l_Addr     OxAO  ;  Serial  EEPROM  #1 

(define  _Slave_2_Addr     OxAC  ;  Serial  EEPROM  # 

♦define  _Slave_3_Addr    0xD5  ;  Slave  PIC16CXX 


(define  _Slave_2_Addr     OxAC  ;  Serial  EEPROM  #2 


♦define  _ENABLE_BUS_FREE_TIME  TRUE 
♦define  _CI,OCK_STRETCH_CHECK  TRUE 
f  define  _INCLUD'E_HIGH_LEVEL_I2C        ,  T(iSJE 


include  "i2c.h'' 


CBLOCK  End_I2C_Rain 

.--r,,,^       SaveStatus  ;  copy  of  STATUS  Reg 

^av^HReg  ;  cc^y  of  WtSG 

i^teCount 
flolitoata 

ENDC 

CBLOCK    0x20  .. 


DatoBegln  ;  Data  to  be  read  or  written  is  stored  here 


ORG  O^cOO 

Ooto      Starl'..    .  -  ^i,'  -  , 

ORG  0x04 

,***************** *Jk  ****************************************************************** ******************** 

!  '     '   "  M^^yitlpi  Mp#ee  Routine 

;      For  I2C  routines,  only  RTCC  interrupt  is  used 

;  RTCC  Interrupts  enabled  only  if  Clock  Stretching  is  Used 

;  On  RTCC  timeout  interrupt,  disable  RTCC  Interrupt,  clear  pending  flags, 

;  MUST  set  _TIME_OUT_  flag  saying  possibly  a  FATAL  error  ocu^ed 

;  The  user  may  choose  to  retry  the  operation  later  again 

. *************** ************#************W#***#** ***********'#********#******»**************«************** 
interrupt: 

;  Save  Interrupt  Status  (HRBO  &  STATUS  regs) 

;  Save  WREG 

;  affects  no  STATUS  bits  :  Only  way  OUT  to  save  STATUS  Reg  ????? 
;   Save  STATUS  Reg 

:  RTCC  Interrupts  enabled  only  if  Clock  Stretching  is  Used 


movwf 

SaveWReg 

swapf  _ 

status,w 

movwf 

Saves  tatus' 

if  _CLOCK_STRETCH_CHECK 

btfSB  _ 

rtif 

goto 

MayBeOtherlnt 

bsf  ^ 

bcf  _ 

rtif 

endif 

;  other  Interrupts 
,„  .  ,i  jKft,  this  .Flag,  can  take  other  desired  actions  here 

,       Sbkt  --I   c      ■5.    ^1  ,j.Jf  L  1-C'l'.  -  I'l" 

Check  For  Other  InterHflffce  Here,  This  program  usesd  only  RTCC  &  INT  Interrupt 

HayBeOther  Int  t 
NOP 

RestorelntStatus:  ;  Restore  Interrupt  status 

swapf  SaveStatttS(|(    .  . 

movwf  _  status  ;  restore  STATUS  Reg 

swapf  SaveWReg  ^   _ 

swapf  SaveWReg, w  '*  ;  restore  WREO 

retfie. 

********************************************************************************************************* 
Include  I2C  High  Level  &  Low  Level  Routines  if  _njCLODEJlIGH_LBVEL_iaC 
^btUiJ^SOiude  •J.2oJiigh.aam' 


endif 


. ********************************************************************************* 


ReijdSlavel : 


EEPROH  (24C04)  may  be  in  write  mode  (busy),  check  for  ACK  by  sending  a  COTtrol  bsrte 
L0M)_ADDR_8  _Slave_l_Addr 

waitl: 

1 2  C_TEST_0EVICE 

btfss     _  Slaveftstlva       ;  See  If  slave  is  responding 

goto  waitl  ;  if  stuck  for  ever,  recover  from  WDT,  can  use  other  scheines 

clrwdt 

I2C_READ_SUB    8,  DataBegin+1,  0x50 
Read  8  bytes  oi  data  froiil  slave  2  starting  from  SUb-Address  0x60 
L0AD_ADDR_8  _Slave_2_Addr 

w4it2 : 

I2C_TEST_DEVICE 

btfss     _  SlaveActive        ;  See  If  slave  is  responding 

,         goto  wait2      ^       ;  If.  siask  txsm  wmist  wm^mm  iM»  ^Hr       mm^  '«^m 


I3C_SEAI)_StIB    8,  BataBegia+l,  OtcBS 

"f  -*«  "       •  #*>...--•».  r  ■•+■-- -       .  *•««**«*•««•»•••»»««* 


return 

L0AD_ADDR_8  _Slave_3Jid*: 

wait3: 

I2C_TEST,^EVICE  ,  ^ 

^         btfss     _  , SlaveJkefe'iw*       p         it  slave  is  responding 

,  y  goto  waits  if  stuck  for  ever,  recover  from  WDT,  can  use  other,  schemes, 

If  clrwdt 

I2C_READ_SUB     8,   DataBegin,  0 

return 

t ****************************************************************************  **************************** 
  Fill  Data  Buffer  With  Test  Data  (  8  bytes  of  0x55,   OxAA  pattern) 


CO 


tlllDataBuf  3 


movlw 

Biovwf 

movlw 

movwf  _ 

movlw 

movwf 

movlw 

movwf 

xlV  - 

comf 
movf 
movwf 
inc  i  _ 
decfsz 


0x00 

DataBegin 
DataBegln-fl 

fsr '  ' 
8 

byteCount 
0x55 

HoldData 

HoldData 
HoldData, w 
indf 
fsr 

byteCount 
XI 


;  start  address  location  of  EEPROM  array 

;  1st  byte  of  data  to  be  sent  is  start  address 

;  data  starts  following  address   (RAM  Pointer) 

;  fill  RAM  with  8  bytes  ,  this  data  is  written  to  EEPROM  (slave) 


;  point  to  next  loosticm 


***********************  **»ll******«*****»*Mr**«**«»**<r*«**************««**********»***** 


01  um* 

dose 


*«****«»»***«»»#*«#»»««**»«****«*««*«#»««.ii»4Mi»»a«««»***1M>*«»*#«»»W 


start: 
call 
bsf 


;   initialize  I2C  Bus 

;  enable  global  interrupts 


call  FillDataBuf 


I  Vae  high  level  Macro  to  send  9  bytes  to  Slave  (1  £  2  :  TWO  24C04)  of  8  bit  ftMe 
;    Ibrito  9  tytas  to  Slmm  1,  startina  «t  RAH  aaite  poiatar  SataSegij^ 


btf sc  _  Bus_Busy 
goto  $-1 


is  Bus  Free,  ie.  has  a  start  &  stop  bit  beoi  dstacted  (<aily  for  sulti  master  aystam) 
a  very  single  test,  unused  for  now 


LOAD_JU5DR_8  _Slave_lJUWr 

I2C_WR  0x09,  DataBegin 


JH^^  8  bytes  of  Data  to  slave  2  starting  at  slaves  nanory  address  0x30 


f 


btfBC  Bus_Busy  ;  la  Bus  Free,  le.  has  a  start  £  stop  bit  been  daitected  (only  for  ualtl  master  system) 

goto  $-1  ;  a  very  aliic>le  test,  unused  for  now 

L0AD_ADDR_8  _Slave_2_Addr 
I2C_WIL.SUB       0x08,  DataBegin+1,  0x30 

,,>:0«11  RieadSlavel  ;  read  a  byte  from  slave  from  current  address 


:  ._Slave_3_Addr.    ..«•«  

raovlw  OxCC 

novwf    DataBegln           eutj  it9L(  i 
.l^MJ^.  . ,  .  9»5?  ^  «  ,   ,  

I 

qall   ReadSlave3  ;  Read  From  Slave  PIC 

'  .yl  ■ 

'9C9fm*  1    :  .177  LSA 

self  clrwdt 
goto  self 

•  ******************************************************************************************************** 


CO 


Appendix  C-LOW.ASIi 


******************************************************************************************************** 

Low  Level  I2C  Routines 

single  Master  Transmitter  s  Single  Master  Receiver  Routines 

These  routines  can  very  easily  be,  converted  to  Multi-Master  System 

vhsa  FIC16C6X  with  on  chip  IX  Slave /Hasdimre,  fitart  ft  Stop  Bit 

detection  is  available. 

1!he  generic  hi#i  level  soutlnes  are.  given  In  iSCJIIGH.ASil 
jfc***** ******************************** **************** ************ *****#****»** 


,  ***»#**m*i**»*****#**#*'«*ft*»***»#*«*#*Hlt»'****»****«^ 

;  lie  :Bl«t'  MttitAiwmtiem 

. ******************************************************************************************************** 

Ini  tI2CBus_Mas  ter ; 

bcf     _  rpO 

■}m%.^,.,,*jm^*'«.^..  

andlw  (n^FC  ;  do  not  use  BSF  &  BCF  on  Port  Pins 

Bovwf  ^  .  portb  ;  set  SDA  s  SCL  to  zero.  Piram  »QW  on,  sijagily  plsy  trls 

RELEASEJUS 

clrf  Bus_Statas         ;  reset  status  reg 

clrf  Bus„@H»6»ei        ;  clear  the  Bus.Control  Im^,  tmm.  m.  f  «9l&li<IWitaS 

return  _  —   ,  ^.  - 

*«******•*«•*********•*******•***•*•♦**•**•***»*«»«*#*#«*»»*♦»•*■»»«*«•'*'*  *-*»***»^^^ 
,  Send  Start  Bit 

***(r**************j^J*^*.1J^*j^***************************  *********************************************  ****** 

TxmtStartBit!  ■  --■  ■    .    ■  ; 

bsf  _rpO  ;  select  page  1 

bsf  _SDA.  set  SDA  high 

,j     3»Bj.-  _SCI.-  '.  -  ■.  'qx    I  clock  is  high 

;  tlet^  time  for  a  REPEATED  START  condition  (4.7  us) 

call      Bela^iOuSac       ;  only  neoet^  for  setup  tine 


bcf        _SDA  ;  give  a  falling  edge  oa  {SDJV  while  clock  is  high 

call      Delay47uSec        ;  only  necessary  fox  START  HOLD  time 

'  jf-  .-r 

u,.  _Bi}s_Busy  ;  on  a  start  condition  bus  is  busy 

1 

********************************************* ***************«********4*******lk*4******************** 

r-L'..-  '  ^i^p-     ;.>..^      Sand  Stqp  ^t,,-  „,„  f.  ^.^  .p.,:  :c.i 

******************************  **,*f  *****************««*****;*******«•.*«***«*«*#**************************** 

TxmtStopBit;  ^  ^jg^ 

bsf  _rpO  (  Miesfe  BASe  1.,  ..  .^.,0  juun  ot  m  ptr  »W  tj.A. 

bcf  _SCL  , 

^  bcf  _SDA  ;   set  SDA  low 

bsf  _SCL  ;  Clock  is  pulled  up 

call        Delay40uSec  ;  Setup  Time  For  STOP  Condition 

bsf  _SDA  ;  give  a  rising  edge  on  SDA  while  CLOCK  Is  high 

if  _ENABLE_BUS_PREE_TIME 
;  delay  to  make  sure  a  START  bit  is  not  sent  immediately  after  a  STOP,  ensure  BUS  Free  Time  tBUF 

'  '         '    '.    'I  I -.ie- '-^  ' 

call  Delay47uSec 

I 
t 

*%*********************************************★***** 


Abort  Transmission 


Send  STOP  Bit  &  set  Abort  Flag 

t********************************«**'**«*f  ******#*#***«#i|t*4^*-^^ 

Abor  tTransini  ss  ion : 


call  TxmtStopBit 

bsf        _Abort    "   "' " 

return 

******************************************************************************************************** 

Transmit  Address  (1st  Byte)&  Put  in  Read/Write  Operation 

%t^[)S^t^  g^i^vf  jiddr  On        ist  1^/Xfij^,^t        to  R/W  c^>eration 


CO 


;     Slave  Address  must  be  loaded  into  SlaveAddr  reg 

f    Hm  R/W  cperatioa  must  be  set  in  Bus_status  Reg  (bit  _SIjAVE_RW)  :  0  for  Write  &  1  for  Read 

!  ^    '  ' 

I    on  Success,  retui&  pSXS  In  HREG,  else  FALSE  in  WREG 

If  desired,   the  failure  may  tested  by  the  bits  in  Bus  Status  Reg 

Txmt_Slave_Addr : 

bcf  ACK_Error 
btfss  lOBitAddr 
goto  SevenBitA|^.  i  6  r«« 

btfss  Slave_RW  ^ 

■  fpfo      ,  _    _  ftB^ifeM**R 

;  Required  to  READ  a  10  bit  slave,  so  first  '^M.  tm  W-.  t- 9bm- Hm^'^  Start 

;  and  then  Hi  Byte  Only  for  read  opreation 
S 

T«iBitAd<JrRdi  j      .  . 


bcf  siave_Rw  mm^^^M''     >lar  nut  tsgmmAm 

call  IenBitA4^HR 

btfss  Tjmt_SucoesB  ;  skip  if  successful 

retlw  FALSE  _  .  .,  ^   ,^  -. 

call  TxmtStartBit  ;  send  A  REPEATED  START  condition 

baf  Slave_RW  =,.       {  s^j-  10  bit  alave  R^i^,s  r    ^-j:  pi^ 

movf  SlaveAddr+l,W 

movwf  DataByte 

bsf  DataByte, LSB  ;  Read  Operation 

call  SendData  ;  send  ONLY  high  byte  of  10  bit  addr  slave 

goto   _  AddrSendTest  ;  10  Bit  Addr  Send  For  Slave  Read  Over 

;  if  successfully  transmitted,  expect  an  ACK  bit 

btf  ss  _  Txmt_Success  i^^ot  siiceessfal,  generate  STOP  £  abort  tcamfMC 

gotQ  ^  ^  AddrSsndFall 

TmsBi  tA4d^Wg^ , 

movf  SJ,9^#^+1,M  ,.  .^,„  ^  -  7B  pr;,- 

movwf  DataByte 

bcf  DataByte, LSB  ;  WR  Operation 


;  Jlea%       tpaji^^  data  :  If  Jn||ppigt  griy^  ^sj^^Pge^^^  ^M^^^ledl 


;  reset  Acknowledge  error  bit 


!  Fox  %i  sit  siinl^ 


;  than  aava  RETDSN  Address  Pointer 
call  SendData  ;  send  high  byte  of  10  bit  addr  klave 

;  if  successfully  transmitted,  expect  an  ACK  bit 


Txmt_Success 
jl^ltSendFail 

SlaveAddr.W 
DataByte 
EndTxmt 


btfes 
goto 

movf 
movwf 
goto 

SevenBitAddr : 
movf 

movwf 
bcf 

btf so  _ 

BndTxmtAddr : 
call 

!  If  suaeetas''fully  txiu>iil^4ted,  mxpmek  ''mi'MiVid'' 

;  skip  if  successful 


if  not  successful,  generate  STOP  &  abort  transfer 


SlaveAddr.W 
DataByte 
DataByte,LSB 
SlavB_pw 


SendData 


;  load  addr  to  DatByte  for  transmission 


;  load  addr  to  DatByte  for  transmission 


7  if  skip  then  write  operation 


sand  8  bits  of  address,  £tts  is*  vm'm 


_Addr  SendTes  t : 

btf ss  _  Txmt_Sucoass 

goto  AddrSendFall 
drwdt 

retlw  TRDE 


_AddrSendFail : 
clrwdt 

btf ss  _  ACK_Error 

retlw  FALSE. 


ASdress  Not  Acknowledged,  so  send  STOP  bit 


call 
I4>tiw ' 


;  Jtilir  9hnt  Dtasuoceesful,  so  return  0 


***lili***^***^*'thiit^*m***ii*****  **************** 
"    ■  Transmit  A  Byte  Of  Data 


*********************************************** 


************ 


The  data  to  be  transmitted  must  be  loaded  into  DataByte  Reg 

Clock  stretching  is  allowed  by  slave.  If  the  slave  pulls  the  clock  low,  then,  the  strata  ia 
and  INT  Interrupt  on  Rising  edge  is  enabled  and  also  RTCC ' tliHsSat  interrupt  is  enSKlAd 
;  The  clock  stretching  slows  down  the  transmit  rate  because  all  flecking  is  done  in 
;  software.  However,  if  the  system  has  fast  slaves  and  needs  no  clock  stretching,  than 


detected 
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o 

CO 
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t 

to 
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this  feature  can  be  disabled  during  Assembly  time  by  setting 
_CLOCK_STRETCH_ENABLED  must  be  set  to  FALSE. 


************************************************** 


S^kdDfttat 


kit*********************  ***************  *******tt********* 


TXmtByte  &  Send  Data  are  same,  Can  check  errors  here  before  calling  TxmtByte 
For  future  compatibility,  the  user  MUST  call  SendData  &  NOT  TxmtByte 

goto    TxmtByte'      '  ■  ,  ;  ^     - ..  .  ■     i  - .    -  o 


^ontByte: 


movf 

DataByte , w 

;  make  copy  of  DataB^t^ 

movwf 

DataByteCopy 

bsf 

Txint_Progress 

;  set  Bus  status  for  txmt 

bof 

Txmt_Success 

;  reset  status  bit 

mere-iw 

0x08 

movwf 

BitCount 

bsf 

_rpD 

If  _CLOCK_STRETCH_CHECK 
set  RTCC  to  incUCf^^out  for  1  x^ee 

do  not  distur^i^lOr%i3fl»et:iei)  of  RtiQ^' In' eP^^t^^tg^tear 


movf 
andlw 
movwf 
endif 

TxmtNextBlt: 

clrwdt 
bcf 
rlf 


option,  w 
OPTION_INIT 


11 


DataByteCopy 
SD& 

Delay47uSec 

SCL 

Delay40uSec 
.CLOCK_STRETCH_CHECK 
rpO 
rtcc 
rtif 
rtie 

TiBE_OUT_ 

TIM^OUT_ 
Bus_Fatal_Error 


btf  sc 
bsf 

call 

bsf 
call 

if 

bcf 
clrf 
bof 
bsf 
Bof 
Check_sa:._l : 
btfsc 
goto 


defined  in  I2C.H  header  file 


;  clear  WDT,  set  for  18  mSec 


MSB  first.  Note  DataByte  Is  Lost 


I  nlk;  IiOW  TIKE  tliOW  &  Setup  tine 

if  clock  is  mgb,  els*  clock  huiag  str^^ted 


;  clear  RTCC 

;  clear  any  pending  flags  f  t.c-*i 

;  elable  RTCC  Interrupt 

;  reset  timeout  error  flag 

;  if  RTCC  .tiiMpit^^iis  'mtix  «%ini  Omi^U  «  wmm- 


O 

a? 

I 

o 
3 

¥ 

3 

(D 
3 

0) 

o" 

3 


to 

o 

c 

(0 


0) 
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bcf  rpO 

btfss  SCL 

goto  Check_SCL_l 

bcf  rtie 

bsf  xpO 

endif 

decfsz  BitCount 

goto  TxmtNextBit 

f  Check  Fox  Acknowledge 

■a 


bcf 

bsf 

call 

bsf 

call 

bcf 

btfsc 


bsf 
bcf 


SCL 
SDA 

Delay47uSec 
SCL 

Del^lOii^eti 

$m 

gets  _'. 


rpO 
SCL 


if  clock  not  being  stretched,  it  must  be  high 
loop  until  SCL  high  or  RTCC  timeout  interrupt 
Clock  good,  diable  RTCC  interrupts 


reset  clock 

Release  SDA  line  for  Slave  to  pull  down 
guareentee  min  LOW  TIME  tLOW  £  Setup  tXms  ' 
clock  for  slave  to  ACK 
guareeBt,ee  ifdA  {(i<^.  TI|IE  t^IQB 
select  PMSB  0  to  test  Fort?  pin  SDA 
0^  ISho^ld  be  polled  low  b/  MMf^  If  OK 


reset  clock 


bcf 
bsf 
bcf 
return 
_5?3ontErrorAck  j 

RELEASE_BUS 

bcf  Txmt_Progress 

bcf  Txint_Success 

bsf  2kCK_Srr^ 

return 


Txmt_Progress    ;  reset  TXMT  bit  in  Bus  Status 
Tx^t_Success      ;  transmission  successful 
ACk^rror  ;  AC^  OK 


;   reset  TXMT  bit  in  Bus  Status 
;   transmission  NOT  successful 
;  No  ACK  Wxm  #4*** 


**ii******ii'**1r***1i**1t*1t*1t**1i****Tk*ii****************  ******  ************* 

keeeive    A  ^te  of  Data  Frcoi  Slave 
assume  address  is  alread/  sent 

if  last  byte  to  be  received,  do  not  acknowledge  slave  (last  byte  is  testted  from 
_l,ast_Byte_Rcv  bit  of  control  reg) 

Data  Received  on  sudc^ssful  reception  is  in  DataReg  register 


***************************************************** 


*********************************************** 


GetDat^: 


goto  RovByte 


CO 


bsf 
bcf 


Rev _Progress 
Rcv_Success 


set  Bus  status  for  txrot  progress 
reset  status  bit 


movlw  0x08 

movwf     BitCount  .  ^  ,  . 

iSr^CL0CK_STRETCH_CHEC;8''   '       ,'  "     -    ""'  '     '  - 

bsf  _rpO 
set'RTCC  to  INT  CLK  timeout  for  1  mSec 

do  iiot  disturb  user's  selection  of  RPUB  in  OPTION  Register 


movf 
andlw 


opti(»i,w 
OPT10H_IIIIf 


;  dsfined  ia  12c.%  liea<ier  file 


endif 


RcvNextBi  t : 

clrwdt 
bsf 

bcf 

bsf 

call 
bsf 
call 


rpO 
SCL 
SDA 

Delay47uSec 
SCL 

Delay40uSec 


if  _eLOCK_STRETCH_CHE(dl  " 


bcf 
cjrf 
bcf 
bsf 
bcf 
Check_SCL_2 : 
btfsc 
goto 
bcf 
btf  ss 
goto 

bat 

bsf 

^dif 

bcf 
bcf 
btfsc 
bsf 


rpO 
rSoc 
ritf 
rtie 
TIME  OUT 


TIME_OUT_ 

Bus_Fatal_Error 

rpO 

sci;. 

<fflec*_sct_2 

f€ie 

rpO 


clear  WDT,  set  for  18  mSec 
page  1  for  TRIS  manipulation 

can  be  resnoved  from  loop 

guareentee  min  LOW  TIME  tLOW  &  Setup  time 
clock  high,  data  sent  by  slave 
guareentee  min  HIGH  TIME  tHIGH 


)  clear  RTCC 

;  clear  any  pending  flags 

;  elable  RTCC  Interrupt 

;  reset  timeout  error  flag 

;  if  RTCC  timeout  or  Error  then  ^imk  -tt 

;  Possible  FATAL  Error  on  Bus 

;  if  clock  not  being  stretched,  it  must  be  hic^ 

;  loop  until  SCL  High  or  tCKiC  timeout  iri^^rupt 

;  clock  good,  diable  RTCC  interrupts 


rpO 


rlf  DataByte 
decfsz  BitCount 


select  page  0  to  read  Ports 


;  TEMP  ????  DO  2  out  of  3  Majority  detect 
;  left  shift  data  (  MSB  first) 


Generate  &CK  bit  If  not  last  }^te  te  be  read, 

if  last  byte  Gennerate  IKCK  ;  do  Bot  send  RCK  an  last  t^te,  main  romtlpe  will  se»d  a  SSOP  bit 


bsf 

rpO 

bcf 

SCL 

bcf 

SDA 

;  ACK  by  pslliiig  SDH  low 

btfsc 

Las  t_By  te_Rcv 

bsf 

SEA 

!  if  Icuit  byte,  send  mCK  by  setting  SBh  high 

call 

Dela3r47uSeG 

1  gmrimtBe  min  Wff  tJiSB  tSM  a  Setusi  time 

b^ 

cafti 

1  'paMsM'iM'  WM^  iMi  MME. 

bcf 

)  WHifi  mhaeik 

bcf        Rcv_Progress  ;  reset  TXMT  bit  in  Bus  Status 

bsf        Rcv_Success  ;  transmission  successful 

return 
if  _CLOCIL.STRETCH_CHECK 

*1,1r*****-k1,A*ic*:*it*******  ************  ******************* 

Fatal  Error  On  I2C  Bus 
Slave  pulling  clock  for  too  long  or  if  SCL  Line  is  stuck  low. 

this  occurs  if  during  transmission,  sca,  is  stuck  low  for  period  lis^rager  than  ai^ox  taS 
,  awd.RS'CC  times  out  (  sepox  4096  egfciea  i  2S6  *  16  -  jtr^ealra  of  16) . 

Bus_Fatal_Error : 

.ji^.di^iftij^e  iiikerragt 

bcf        rtie  ;  disable  RTCC  interrupts,  until  next  TXMT  try 

:  'rELEASE_BUS 
I 

;     Set  the  Bus_Status  Bits  appropriately 

;  transmission  was  aborted 
;  FATAL  Error  occured 
;  Transmission  Is  Not  in  Progress 
;  Transmission  Unsuccesful 

,  Try  sending  a  STOP  bit,  may  be  not  successful 


bsf 

Abort 

bsf 

Fatal_Error 

bcf 

Txmt_Progress 

bcf 

Txmt_Suooe8S 

call 

IMtStepBlt 

endif 


"    ■  ".>".'£  -'^I'  ,  t'V  ■  '^'-j^ 

;  Qeneral  Puirpose  Delay  Routinas.. ..r  ' 

I  ■    Tf     ■  i    -ay  T  .1 

Delay4uS  is  wait  loop  for  4.0  uSec 
;  Delay47uS  is  wait  loc^  ^or  4.7  uSec 
;    DelaySOuS      is  wait  loop  for  5.0  USec 

f  f**^**  ***********  **^(^^***~*# 

Delays OuSec: 

movlw  ( (_50uS_Delay-5) /3  +  1) 
DlyK 

inovwf  DelayCount 


goto  $-1 

ireitw  a->f  •1'  »cr        •  ;iic|r  JCM  ICJ  MKTOO  TOO^f  nw»  •a.tKn  jrfg 

'-8)/: 

goto  DlyK 


return  ■  •    .a  urr  ,  cUkx  e^;-!*  :  jf?  .  H  -  ir^vtowft/k  on  )f) 

Delay47uSec=  ^  r>7Ue  ».  I 

movlw  (  (_47uS_Delay-8)/3  +  1) 


Delay40uSeci 
novlw  ((_40uS_13ieiay-8)/3  +  1) 
goto  piyK 

« 

j.W*«»M'****************«*«#«**M**l>M***********«*««««****«'4*«*M****.«*«^ 

*         r  i      '. '".j^  .1--  *  ,  ,->v 


I  (tj>«ra)f0«  mill  (>o«>.  lXt85  ""trm  T  «»t  t.  ern>» 


Appendix  D  -  HI6RASM 


J  *********************************************** Alt***** ************************************ **************** 

;  I2C  Hastez  I  General  Fuipoae  Kacros  &  Subroutines 

;  -Hi^  LevelrReutines,  Oeea  hem  level  Soutlnes  (in  I2C_|iOW.A8II) 

; 

^  *******************  ***************************-**********'***************************************#********** 

,  *  **it*1iii  *  11  *****  *^  *******************  **********  1^****11  ************ 

;  MACRO 

;      If  Slave  Device  is  listening,  then  _SlaveActive  bit  is  set,  else  is  cleared   , 

;  Parameter  :    NONE  ^    ^  , 

•1 

t      Seq(uence  Of  Operation  i 

If  A  is  +VB  devisee  t»  ih^m&i^!,-  else  either  bu^,  mm  vtmm0t  <0f  'UrmH'  mii^SMm 

.   - .  ■  i'>  •)      i;    •  • '    V     .  ■•    '  ■ 
This  test  may  also  be  used  to  dieck  for  eanple  If  a  Serial  Wmm  Is  in  iemmM,  'H^mgliiam^imii 

mode 

NOTE  :  The  address  of  the  slave  must  be  loaded  into  SlaveAddress  Registers,  and  10  or  8  bit 
I    I     '  ■   L.  s  •  SKxIe  addressing  mist  be  set 

J  **************************************************************************** ****************4##ii^*##^«#lkif 

•    I  .  jf«  -  •        vs.    -I  :  pTo.":*,  .    -  -.   I.  r  "^-v 

 .tm*. .  *mmmm^^!^.  »i  mi^MWi.%jm^mmm^mj^^emi,.*,  

ENDH 

;  B»r       Bf««s«w-:*»  ,t  vac  Maeilea'  VBtra*  ksaioof  T  rf^*"!^ 

The  Slave  Address  Is  put  on  the  bus  and  if  ACK  it  is  present,   if  NACK  not  present 

or  may  be  device  is  not  responding.  The  presense  can  be  checked  constantly  by  a  master 

(for  ex.  the  Operating  Syston  on  an  Access. Bus  may  constantly  issue  Uile  earauand) 

Aasijae  the  Slave  Address  (10  or  8  bit)  is  loaded  in  SlaveAddr 

Set    _10BltAddr  bit  In  Control  Reg  to  1  if  10  bit  Address  slave  else  « 

r 

I      Returns    1  in  _SlaveActlve  Bit  If  slave  Is  responding  else  a  0 


CO 


IsSlaveActivei 

bof  SXave_RW 
aail  Txmtst«rtBlt 
,  jj-esijl  rj.iTjcmt_Slave_Adete. 

bcf  SlaveActive 

btfss  ACK_Error 

bs£  SlaveActive 

call  TxintStopBlt 
return  m 


;  set  for  write  operati<»i 
;  send  ST^ISP  tott  - 


;  skip  if  NACK,  device  is  not  present  or  not  responding 
;  ACK  received,  device  present  &  listening 


*************** 


I2C_WRITE 

A  basic  macro  for  writing  a  block  of  data  to  a  slave 
Parameters  i  -  ?tk^ 


S-SlvAW-A-DtOl  -A  A-D[N-11  -A-P 


If  an  error  occurs  then  the  routine  sinply  returns  and  user  should  check  for 

NOgi^  .i<The  ail^sss  of  the  slave  mast  be  loaded  Into  SlaveAddfess  Registers,  and  10  or  8  bit 
node  addressing  mist  be  set 


 f¥>y}-f>,  .  ,BYTES_   ,  ,  ,   ,  .  .  , 

mcmit  tenpCount 
movlw  SourceFoint«!_ 
>     .      laovwf     f  sr   

call       i2c_block_wriifc#,:  • 

call       TxmtStopBit  ;  Issue  a  stop  bit  for  slave  to  end  transmission 

-  -  -    ^-ry  -6-     I     ■  i  ,  -         -;  ,  r 

ENDH 

_i2c_block_wr i  te i 

call      TxmtstartBit  ;  send  STABT  bit 

l  -,^^    bcf        SlaveJlW  )  sat  for  write  oparatlein 


call      T3Siit_Slava_Addr  ;  if  (uecsBsful,  tbem  _XxBit_Suae«0B  bit  la  set 


_)3lock_wrl_loop : 


btfss 

Txmt_Success 

movf 

indf  ,w 

aiovwf 

DataBl^te 

incf 

f  sr 

call 

SendOata 

deqfsz 

tempCount 

goto  _ 

block_wrl_loop 

return 

I  start  from  the  first  byte  starting  at  _paJ:aPol;it^^ 

;  send  next  byte,  bus  is  our's  ! 

;  loop  until  desired  bytes  of  data  transmitted  to  slave 


^  **********************  *********  *****«*********************1k-********«**««*****4r 

J  ****************************************************************#***•**************★*******************#*# 

>c«UR  maq  niufa  caaeic  {ml 

;    Writes  a  message  just  like  I2CJHRITE,  exces>t  tt»  Mft  iS-  ■pAwiltta'  » 

;     to  a  slave  device. 


Eg. 


A  serial  EEPROM  would  need  mi-ti^^mm  ai  WMWCy  tocatti^  iNv  RMM  MDSM* 


Banninnsi  : 


_BYTBS_  tof  bytes  starting  from  HAM  pointer  _SourceFointer_  (constant) 

^JSw^eai^ist»t_  C{f|^{i^|tj^Jt,.Bu|f«r, Jointer  in  BAM  (file  Registers) 

:.JAjkddr«(B»^,  jSto-addresB  of-Siawe  (cepstsn.^^    ,         ^^  .j,. ,.; 

S-SlvAW-A-SubA- A-D  [  0  ]  -A  A-D  [N- 1  ]  -A-  P 


If  an  error  occurs  then  the  routine  sinply  returns  and  user  should  check  for 
flags  in  Bus_Status  Reg  (for  eg.  _Txint__Success  flag 

Returns  :  WREG  =  1  on  success,   else  WREG  =  0 

SUlj 

NOTE  :  The  address  of  the  slave  must  be  loaded  into  SlaveAddress  Registers,  and  10  or  8  bit 
mode  addressing  snift  ba  ^^^D^^r^       ._  .       ,  .  j,. 


I2C_NR  may  prove  to  be  more  efficient  than  this  macro  in  most  situations 
Advantages  will  be  found  for  Random  Address  Block  Writes  for  Slaves  with 
Auto  Incranmt  Sub-Ad4Eawe%  (J4J^:!PM<sEocbip<' s  4^<ICXX  s^ies  Sasla^  Bg{!EtOMS) 


J  *************  *****;^#*^*.*****************t4t*%*J^-***>*** 

I2CJWR_SUB  HACRO     _BYTBS_,  _SoureePointer_,  _Sub_AaareBS_ 


BlOVlVf 

novwf 


(,3!ra«s_  +  1) 

tenq^jCount 


moylw  (_SourcePoiiit6r_ 

movwf  fsr 

movf  indf , w 

movwf  StoreTemp_l 

movlw  Sub_Address_ 

movwf  indf 


1) 


call 


;  tfiopprarlly  store  contents  of  (^Source|'ointer_, -y 

;  store  teinporarily  the  sub-address  at  {_SourcePointer_  -1) 


S  toreTeo5! J ,  w 

(,^«3(iJtr^faBi?j*ttefe-uJ,i,        EHfttore  contents  o£  (_SourcePointer_  -  1) 


call 


TjontStopBit 


Issue  a  stop  bit  for  slave  to  end  fcransaaieslon 


*  ****!**  ^ 


cipsr-y-ptol- 


_BYTES_ 

_SourcePointer_ 
_Sub_Address_ 


#o£  bytes  starting  from  RAM  pointer  _SourcePointer_  (constant) 
Data  Start  Buffer  pointer  in  RAM  (file  Registers) 
Sub-address  .  of  Slave  (constant) 


S-SlvAIW-A-  (SubA+0 )  -A-D  [  0  ]  -A-P 
S-«lvJ«-A-  (SubA+1 )  -A-D  [  1  ]  -A-P 

and  so  on  \intil  #of  Bytes 


f     If  an  error  occurs  then  the  routine  sirtply  returns  and  user  should  check  for 
;  flags  in  Bus_Status  Reg  (for  eg.  _Txmt_Success  flag 

;  Returns  :  WREG  =  1  on  success,  else  WREG  =  0 

I     COMMENTS  :  Very  In-efficient,  Bus  is  given  up  after  every  Byte  Write 

;  Seme  I2C  devices  addresed  with  a  sub-address  do  not  increment  automatically  v^^^^i 

after  an  access  of  each  byte.  Thus  a  block  of  data  sent  must  have  a  sub-l^^^^s^ 
;  followed  by  a  data  byte. 

.  ****************************************************************************** 


Variable  i  ;  TEK"  ????  s  Assasibler  Does  Not  Support  This 


■>  .while  (i  <  _BVTBS_)  .  •     •  -f" 

<_SdUrce_Pointer_  +  i)  ,w  — 

movf  (_Sab.J^ddresa_  +  1) ,» 

movwf  Subadde     '  - 

call   12esJvt^w^s<>l>    ■    —1-  ^Ito  a-  lsyt»  of  data,  at  sub.  addi;^a>  >  . 

aniA.  i++ 
.endw 


Mite  1:  t£:  Sats  (in  SrcPW)  ts«litM^'«ii  t^lx^idMiW*  (8«iK#3K^        •  "      "  • 

.i2c_by  te_wr_sub : 


eall. 

■l^WKt!S'taa^t!»Ifc  •  -  ,  « 

1 

send  START  bit 

hot 

SlavB_JlW              '  ^  *«'-iri~^ 

» 

set  for  write  operation 

call 

Txmt_Slave_Addr 

; 

if  sn«eassful,  tiM^  JE»i#_^htoeess  bit  is  sat 

btfss 

Txmt_Success 

goto 

block_wrl_£ail 

; 

end 

movf 

SubAddr ,  w          )  ■' 

movwf 

DataByte 

start  from  the  fixst          starting  at  _DataPointer_ 

}aall 

SencSData    '    -wi         3*^^^^^      '  > 

■» 

-•*B»  a«ct  by**-  '  •'-  • ' 

btfss 

Txmt_Sucoes8 

QQbO  - 

ble^^wrl^f  all 

movf 

SrcFtr.w 

movwf 

DataByte 

start  from  the  first  byte  f at  JOiiltjsfeizitmL. 

call 

SendData 

sotd  next  byte 

btfss 

Txmt_Success 

goto 

block_wrl_fail 

failed,  return  0  in  HREG             ■  imjtm  €0  ^MTMq 

goto 

bloclc_wrl_pass 

successful,  return  1  in  WREG 

return  back  to  called  routine  frcmi  either  _block_wrl_pass  or  _block_virl_fail 
■■  t«».-fn. 
block_wrl_faili  o>f  :  - 

call      TxratstopBit  t    >  Issue  a  st<q>  bit  for  slave  to  end  e£afi<ml«Bloa-      '  '  i  ' 

retlw  FALSE 
j3lock_wr l_pass : 

call       TxmtStopBit  ;  Issue  a  stop  bit  for  slave  to  end  transmission 

retlw  TRUE 

***>*^*««*««**ft«4t*f  ************^  ****** 

I2C_MIUra(_BYTE 


Some  I2C  devices  like  a  EEPROM  need  to  wait  fo  some  time  after  every  byte  write 

(tihea  aataxad  late  lakwBal  jtregxainniBg  mods) ,  This  MACRO  is  same  as  I2C_HICSBB^SWINC ,  ....... 

but  in  addition  adds  a  delay  after  each  byte. 

Some  EERPOM  memories  (like  Microchip's  24Cxx  Series  have  on-chip  data  buffer),  and  hence 
this  routine  is  not  efficient  in  these  cases.   In  such  cases  use  I2C_WR  or  I2C_WR_S0B 
for  a  block  of  data  and  then  insert  a  delay  until  the  i^ole  buffer  is  written. 

Parameters  : 

r       _BYTES_  iof  bytes  starting  frm  BAH  folnter  .SoureepeinlMlC  fcewstant) 

_SourcsPointer_  Data  Start  Buffer  pointer  in  RAH  (file  Registers) 

_Sid3_|kdd3tess_  Sub-addxess  of  Slave  (c(»istaiit) 

#e^ence  : 

S-SlvAW-A-  (SubA+0)  -A-DIOl-A-P' 

Delay  1  mSec  ;  The  user  can  chnage  this  value  to  desired  delay 

S-SlvAW-A-  (SubA+1)  -A-Diaj-iiHf 
'  Delay  1  mSec  ^     -  . 

ci-vf.' ;      <>,"iui.v»  and  so  em  uatll  tef  tjuai*  IV*  tcncoi  ec  ttai^boiu^' 

.  c    ■  ;       ^  * :  i  c  r  r-^ 

i,i,**it*1r1tiiitt*1ttt1f,****1i1t1i1i**1t*  **************************  *********** 

I2Cjni_BVTE_HKM       •.        HACRO      _BYTES_,  _SoureePointer_,  _Sub_AddresE_ 

variable  i  ;  TEMP  7?77  i  Assembler  Does  Not  Support  This 

' 

!'  1  =  0 

.while  (i  <  _BYTES_)  <■■'  vA»i.ii7ew 

movf        (_Source_Pointer_  +  i)  ,w  '  VBHH  Pit 

msmit  SrcPtr 

movf         {_Sub_^ddress_  +  i)  ,w 

movwf  SubAddr 

call       _i2c_byte_wr_sub  ;  write  a  byte  of  data  at  sub  address 

•  emit  jMli^OwSiM; 

1 


ENDM 

.  ******** *******************************************************.^*****************i************************* 
!  I2C_WRJffiHJBUF 

!    ■      '  , 

;      Iteta  Hacro/PUlSction  writes  #of  _BYTES_  to  an  I2C  manory  device.  However 
;   "-some  devices,  esp^.  '^FROHis  must  wait  while  the  device  enters  into  programming 
f     mode.  But  some  dwidM  l&tve  :an  oacdiip  benip  data  hold  buffer  and  is  used  to 
■f    store  data  before  the  device  actually  liters  into  prospmmilng  noiile. 


for  escancilai  the  24C04  ancles  ;9S  Seflal  ^vmHa  from  Hicrochlp 
Isave  an  8  Tayte  data  buffer.  So  one  can  s^d  8  l^es  of  data  at  a  time 
and  then  the  device  enters  prograioid.^  :9Kxle .  The  master  can  either  wait 
until  a  fixed  time  and  then  retry  to  program  or  can  continiously  poll 
for  ACK  bit  and  then  transmit  the  next  Block  of  data  for  programming 

Parameters  : 

-vjT       ■   r  :,     3iYTES_:  #  of  bytes  to  write  to  memory 

_  SouroePointer_  Pointer  to  the  block  of  data 

K.^.MXt  Suhhi3iteess_  iSsilar'mSi^smmm  ns^itibm  SBbs^  ■■  i- 

■  >oA'.      --_         Deirlt!e_BOF_SIZB  The  on  chip  buffer  size  of  the  i2c  slave 

r.'-^A-V  004.      ■    .  -'jfc 

Seqaemieefot  operations 

I2C_SUB_WR  operations  are  performed  in  loop  and  each  time 
data  buffer  of  BUF_SIZE  is  output  to  the  device.  Then 
the  device  is  checked  for  busy  and  when  not  busy  another 
block  of  data  is  wrltt^ 

*'Mf**'*^*^'**-*****!l^'**^^***  **********  ********* 

I2C_WR_BUP_11EM    HACRO     _BYTES_,  _SourcePointer_,  _SuhAddress_,  jftil*^iEjliiLj6WaiL. 
variable  i,  j 

if  (  1_B1TES_) 

exitm  '-.rii;         .fV,"   ■  .  | 

elif   (  _ByTES_  <=  _Device_BUF_SIZE_) 

.  -   J2C_WR_SUB         _BYTES_,  _SourcePointer_,  _SubAddress_ 
exitm 

i  =  0 

j  =  (_pyTBS_  /  _Devioe_BUF_siZE_) 

I2C_WR_saB        _Device_BDF_SIZE_,  (_SourcePointer_  +  i*_Device_BOF_SIZB_) ,  (_afl>ftadEe»8_ 

i*_Device_BDF_SIZ?_) 

call  IsSlaveActive 
btfss  _SlaveActive 

.  ig^ip'       $-2  ■.  .  ■ 


CO 


.  endw 


j  =  (JYMS;^  -  i*_PeviceJOF_SIZB_) 
tf  (j)  , 

I2C_WR_S0B        j,  (_SourGePGiiiter_  +  i*_DevleeJDF_SlZE_) ,   (_Suh&cldre«s_  +  i*_pevioaJBUF_SIZB_) 
endlf 

endif 
EN13H 

J  ft**************^^!^,************* ********************************* ********************************* 

I2C_READ 

The  basic  M^VCRO/procedure  to  read  a  block  message  from  a  slave  device 
Parcanstars  :  i 
!  -jp^^iolnter.      i    daatinatioa  pci£tft«r      tOUi  (Mle  Registers) 

Sequence  : 

S-SlvAR-A-D|01  -A-  -A-D[N-11  -N-P 

If  last  byte,  then  Haster  will  NOT  Acknowledge  (send  NACK) 

Note  ;  The  address  of  the  slave  must  be  loaded  into  SlaveAddress  Registers,  and  10  or  8  bit 
mode  addressing  must  be  set  .  . 

*******************************************  *i-*****ii*1tii*1i*1iii1i1t*ii*****i,*t*iiittii1^iiiHi* 

I2C_READ  MACRO      _BYTES_,  _DestPointer_ 

I  uovHf     tempCouBt  ;  -1  because,  the  last  l:yte  is  used        e>i  Ksae 

mmMa     fur         3~PflfL'---         I  FIFO  ctM«te«!M*»«4N<NM««te«C 

'  -  ■      ,  ■JV^^-    ■  I  ri  -.  p;  .  :n»r" 

call       12c_bloc|IL.^iwd  .s.  ... 

ENDM 

_i2c_blocd^ead  I 

call    ,  ItantStartBit    -  ;  sand  START  bit    -  '  < 

1  IpC'.^  '  SJbKVtbiW'.'       i'<>:  '      i  f  aafe  lias  soa^  j^aakatloa.  / 

bee       Lat«>^J^ptM|iJ|M»  '      ■  ti-  .i  iwt  •  la»t  feytaii  to  jrov's 


call 

Txmt_S  1  ave_Addr 

;  if  successful «  then  _T3Cittt_S!uccess  bit  is  set 

btfsc 

Txint_Success 

goto 

block_rdl_loop 

'*  ^"                     .     ,                                      .  . 

call 

TxmtstopBit 

;   Issue  a  stop  bit  for  slave  to  end  transmission 

retlw 

FALSE 

;  Error  :  may  be  device  not  responding 

_rdl_loop : 

eall 

CtotData 

Bata^ta.w 

movwf 

indf 

;  start  receiving  data,  starting  at  Destination  PQlntt«s 

incf 

far  - 

decfsz 

tempCount 

goto 

block_rdl_loop 

;   loop  until  desired  bytes  of  data  tra^iB^tte4  to  ^lt0e 

bat 

Las  t_By te_Rcv 

;  last  byte  to  rev,  so  send  NACK 

call 

GetData 

movf 

DataByte^w 

indf  . 

call 

TxmtStopBlt 

t  Issue  a  sti^  bit  for  slave  to  moA  transmission 

-MB 

f 

}  O  I2C_READ_SUB 

;  This  MACRO/ Subroutine  reads  a  message  from  a  slave  device  preceeded  by  a  write  of  the  sub-address 

;  BetWB^  the  stfb^ddzers  wftitW^  the  following  reads,  a  STOP  condition  is  not  issued  and 

;  a  ;*REPEATfflJ  START'  condition  is  use<t  »©  that  an  other  master  will  not  take  over  tfce»*w», 

;  and  also  that  no  other  master  will  overwrite  the  sub-address  of  the  same  salve. 

;      This  function  is  very  commoHly  used  in  a«ee£(siSi9.Kandom/ Sequential  reads  frcxn  a 

■      '  mmmv-'^t^Mm'^-iiiiii-v  memcmtt^'iBeTaeitmi  rnmrnt'^'Mnemmkm^sm-  ■'^•^ 

i    ?ar«mee«HrB  i  :'.  '  :•  i  ' 

t  _BYTES_  #  Of  bytes  to  read 

if    ->>■      > . .  .^BestSelntev^ .         d«s:timliMn  .dq1»%<k  .4at*   

f  _B«fl!Address_  The  sub-address  of  the  slave 

;     Sequence  : 

S-SlvAW-A-SubAddr-A-S-Sl"^.,A-D [ 0 ]  -A-  -A-D  [N-1 J  -N-P 

I2C_READ_SUB      MACRO      _BWBS_,  _pestPointer_,  _SubAddress_ 

bcf         Slave_RW  ;  set  for  write  operation 

call       TxmtStartBit  ;  send  START  bit 

call       Txmt_Slave_Addr  ;  if  successful,   then  _Txmt_Success  bit  is  set 


CO 


movlw  SubAddress_ 

movwf     DataByte  ;  START  address  of  EEPROH(slave  1) 

call      SendData  ;  write  Bob  address 

I 

I  do  not  send  S!FOF  aftex  this,  use  RBPSATED  START  condition 

r  ■"        '            '        "  -.  -  '     ■     -  '    r  , 

 jaCJRBAD  JflXBS^,  _p«stBoaatej^  ... 


ENDM 


This  Macro /Function  reads  a  status  word  (1  byte)  from  slave.  Several  I2C  devices  cma 
send  a  status  byte  upon  reception  of  a  control  byte 

Ais  is  basically  same  as  I2C.^EAD  MACRO  for  reading  a  single  byte 

-Fear  axuapae.  In  a  Serial  txesmHUarot^pfs  24Siai  serial  mmmM  will,  said  thei memnry 
■    d«t*  *t  tbeN  «ivirzttnt  aadeesss  lecation       -  -  -     •  7  i 

QD  success  HREO  =  1  else  »  0    ?,;>.'  'zci; 
^_IIB»D_STATUS  MACRO  JSestPointW^ 


call  TxmtStartBit 

bsf  Slave_RW 

call  Txmt_SlaveJ^d<fc 

btfsc  Txmt_Success 

goto  byte_rdl_loo9lb 

call  TxmtStopBit 

Mtlw  FALSE 
_^?*e_Jtdl:_loop : 

bsf  Last_BytaJlov 

call  OetData 

movf  DataByte,w 

movwf  DestPointer_ 

call  TxmtStopBit 

btfsa  Rcv_Succes8 

retlw  FALSE 

Kattw  asms  <.  -'^- 


;   send  START  bit 

;  set  for  read  operation 

;  if  successful,  then  _T3ant_Success  bit  is  set 


I  read  a  li^te  , 

;  Issue  a  st^  bit  for  slave  to  end  tranranission 
I  iUcQt  <       ]>•  diiKtca  net  m^mSiaa 

I  last  bsrte  to  rev,  so  sand  t&lCK 


;  Issue  a  stop  bit  for  slave  to  end  transmission 


J  ********************************************************************************************************** 


l2CJXmB^JJSn     MftSSO  _Pe8tPQinter_ 
■  -.   u  '■ 

I2C_J«AD_STATaS  MJkCRO  _postPolnter_ 

ENDM 


J  ******* t'it^^it'k*''**-'^***********^^^*'****^****'*-***************^ 

~    f     -  ,  .  . 

This  Macro  write  2  Blocks  of  Data  {variable  length)   to  a  slave  at  a  sub-address.  This 
may  be  useful  for  devices  which  need  2  blocks  of  data  in  which  the  first  block  may  be  an 
extended  address  of  a  slave  device.  For  example,   a  large  I2C  memory  device,  or  a  teletext 
device  with  an  extended  addressing  scheme,  may  need  multiple  bytes  of  data  in  the  1st  block 
that  represents  the  actual  physical  address  and  is  followed  by  a  2nd  block  that  actually 


ParamSfWrs  i 


Sequence  i 


BYTES1_ 

SourcePointerl„ 
SubAddress_ 

BYTES2_ 

SourcePointer2_ 


S-SlvW-A-SubA-A-Dl  [0  ]  -A- . 


1st  block  (of  bytes 

Start  Pointer  of  the  1st  block 

Sub-Address  of  slave 

2st  block  #of  bytes 

Start  Pointer  of  the  2nd  block 


-Dl  [N-1]  -A-D2  [0]  -A-  A-D2  [M-l]  -A-P 


Note  i  niis  MACRO  is  basically  same  a*  eiUtMS^  i|^P(,,9E)B  twice,  teM!  <      '<ii>.j  . 
a  STOP  bit  is  not  sent  (bus  l«  nsifc  ^)  in  batMalip 

the  two  I2C_WR_SUB 

Check  Txint_Success  flag  for  any  transmission  errors 
********  vir*'***W9^^l^ffS**M**'it***'****'****'***************^****-**^ 


I2C_WR_SnB_WR  MACRO 


_C0UNT1_ 
+  1) 


_SouroePointerl_ 


_Sub_Address_,  _C0UNT2_,  _SourcePoint«r2_ 


movlw  (_C0UNT1_ 

movwf  tempCount 

iievlH  CSonre«foiiii*fl_  -  l) 

iiavwf  fsr 


iSSvf  iaaCiW 


CO 


movwf 

StoreTemp_l 

;  tetti|po3:a£ily  st©re  eraite^ts  ©f  (_S<xcir©ePointer_  -1) 

movlw 

Sub_Addr  e  s  s_ 

jnovw£ 

indf 

;  store  tezBiporarily  the  sub-addreiQs  at  (_SoUrceI"ointer_ 

call 

12  c_blbck_wr  1 te 

;  write  _BYTES_+1  block  of  data 

St03^^«mp_l ,  w 

movwf 

( _Sour  cePointer  1_- 

1)    ;  restore  G<^t>^ts  of  (_^SourcePointer_  -  1) 

;  Block  1  write  over'  '".r.'r.-jir 

;  Send  Block  2 
'  *  movlw 

■  movwf 

tempCount 

-|teu^eeE©inter2_ 

Ci.Wt>^  XfT'^V  «J.tut.« 

*  movwf 

fsr 

call 

b 1 ock_wr 1 _ 1 oop 

call 

TxmtStopBit 

;   Issue  a  stop  bit  for  slave  to  end  transmission 

ENDM 

3     «e«oa»uc«  i 

*************  ****** 

i  ~        "  - 

•  I2C_WR_SUB_RD 

;     This  macro  writes  a  block  of  data  from  SourcePointer  of  length  _C0DNT1_  to  a  slave 

at  sub-address  an^.  ^^i|||i..3|Mg»     |gMtt  ■0i  MM  ^ffHMi.  W  <#WWMN%i<M 

;  address  pointer 

t 

;    Message  Structure  i 

S-SlvW-A-SuhA-A-Dl  tO]  -A-  -A-Dl  [N-1  ]  -A-S-SlvR-A-D2  [ 0 1  -A-  A-D2  [M-1 1  -N-g'' 


Parameters  : 
_C0UNT1_ 
_SourcePointer_ 
_Sub_Address_ 
_C0UIJT2_ 


Length  Of  Source  Buffer 
Source  Pointer  Address 
The  Sub  Address  Of  the  slave 
The  length  of  Destination  Buffer 
%e  starte  address DestiBatisB  Feia<sjas>«>> 


,  ********##********;jlHS***afr«#******************************************************** 

I2G_WR_SXJB_RD     MACRO      _C0UNT1_,  _SourcePointer_,  _SubJiAetee9B_,  _C(Xm:2_,  _I)eat!.Spin6er_ 

movlw     (_coraJTl_  +  1) 

Hiovwf  tei^G^unt 

"Bovlw     (_SouroePointer_  -  1) 

-     ■     -  mOVWt        fsr     -  V  ■     t     ■  -        .1.  .  .  ^  ,  •  .  ,  ,  .  =    -  -  : 


movwf     storeTenip_l  ;  toporazlly  8tor«  contents  of  (_SouroePointer_  -1) 

movlw  Sub_Address_ 

movwf     indf  ;  store  temporarily  the  sub-address  at  (_SourcePointer_  -1) 

call       i2c_bloc)c_write  ;  write  _BYTES_+1  block  of  data 

movf  StoreTaic)_l,w 

movwf     (_SourcoPointerl_-  1)  ;  xestoxe  contents  of  (_SoiircePointer_  -  1) 

Without  sending  a  STOP  bit,  read  a  block  of  data  by  using  a  REPEATBD 
Stact  Condition 


This  Hacro  write  2  blocks  of  data  buffer*  '«»  w -MaMf' mm.  Mwsage.  This  m^-  M  mmtd  to  ^gtet 
tba  bus  after  sending  the  first  block. 
]  For  exanple,  this  kind  ef  mmsm^m  im         ^  m       &;i««Ht  «i^a  * 

a  block  of  control  &  address*  it  -mmtllSi  .mt  Am  m^^m  %t0^       mmmi  Albs' 

to  be  displayed  is  needed. 

Message  structure  : 

S-SlvW-A-Dl  [  0  ]  -A-  A-Dl  (N-1  ]  -A-D2 1 S 1  -A-  -A-D2  [M-1 )  -A-P 

HDTB  I  This  message  is  same  as  calling  two  I2C_HR  Macros,  except  that 

the  bus  is  not  given  up  betwe«i  the  sending  of  2  blocks  (this  is 

done      'neit  «BnctiBg  K  >S^^  bit  inbetween} 


Parameters  :   ...k. .•.-•>•>.«  

_C0UNT1_  Length  Of  Source  Buffer  #1 

..    ,  _SourcePointerl_  Source  Pointer  Address  of  1st  buffer    .>  1 1  ..,...,.>..•,..,>.' w  ••>.•<..,• 

I  _C0UNT2_  The  length  of  Destination  Buffer 

;  _SourcePointer2_  Source  Pointer  Address  of  2nd  Buffer 

■  r    .    r  ,     :  n    '      -  ii'  f 
12C_WR^C0H_WR     MACRO     _C00NT1_,  _SoureePointerl_,  _C0DMT2_,  _SourcePointer2_ 

SnOV^lw  C0UNT1_ 

movwf  tempCount 

movlw  SourcePoint«rl_ 

movwf  f  sr 

call  i2c^lock_write 


00 


First  block  sent,  now  Bend  2nd  block  of  data 

ttesvlv  G0I]NT2_ 

movwf  tempcount 

movlw  SourcePointer2  

movwf  fsr 

call  block_wrl_loop 


call  TxmtStopBit 


End  of  Double  buffer  txmt 


******************** 


*************************************************** 


INCLUDE  I2C  Low  Level  Routines  Here 
********************************************************************************************************** 

include  ''i2c_low.asiii' 

.-•Ji  :  >ic»«»ao  jp  a«K«  «•  c«7fiua  I.M  :Tr~!»  Hscxw  aooMfcr  rpffr 

>  a-arAd-v-DT  Ic: '  v-d        j -lui   -'-:>^:i-j    ,  ^-fe 


nC'h-!.-'-, 


Appendix  E'PC  testtet 


MPASM  BO. 2 4 

Master  Mode  Implemetation' 
'Rev  0.1  :    01  Mar  1993* 


Title 
SubTitle 


*I2C  Master  Mode  Inplemetation' 
•Rev  0.1  :    01  Mar  1993- 


***************************************************************** 


Software  Inpleraentation  Of  I2C  Master  Mode 

*  Master  Transmitter  &  Master  Receiver  Iir{>lag:>ented  in  softwaire  ^ 

*  Slave  Mode  implemented  in  hardware  uwi 

*  Refer  to  Signetics/Philips  I2C-Bus  Specification 

The  software  is  implemented  using  PIC16C71  &  thus  can  be  ported  to  all  Enhanced  core  PIC16CXX  products 


RBI  is  SM. 
Sm/Wa  la  SCL 


(Any  I/O  Pin  Hay  Be  used  Instead) 
(Any  I/O  Fin  May  Be  used  instead) 


0OP4  2400 


OOAO 
00  AC 
00D6 
0046 

mi 


,»«*»%|»<W;*«««***«*****«**************»****»**»****»******^ 


FrocesBor 
Radix  DEC 


_ClkIn 
include 


egu  16000000 
•d: \pictools\lSCxx.h' 


#define  _Slave_l_Addr  OxAO 
♦define  _Slave_2_Addr  OxAC 
♦  define  _Slave_3_Addr  0xD6 
tdefine  _ENABLE_BOS_FREE_TIME 


TRUE 

fdefine  mtixa3B_niaa_i.EvtL_iSe  fttem 


t^in*  _CIiQCK_S^tETCKj;:H^CB.. 

 —^_&e 


Input  Clock  Frequesoy  Of  PIC16G71 


;  Serial  EEPROM  #1 
;  Serial  EEPROH  12 
;  Slave  PSgtSgK-: 


003D  0900 


include 
************* 


"i2c.h' 

t******************** 
I2C  Bus  Header  File 


**************** 


*********************** 


*********************************************************************************************** 


_ClkOut 


eqja      .  ^  (_ClkIn  »  2) 


CO 


•  Ccn^ut^  the  delay  constants  for  setup  &  hold  times 


0010 
0012 
0014 

0049 


_40uS_Delay 
_47uS_Delay 
_50uS_Delay 


set 
set 
set 


(_ClkOut/250000) 
(_ClkOut/212766) 
(_ClkOut/200000) 


♦define  _0PTI0N_IHIT        (OxCO  |  0x03) 


;  Prescaler  to  RTCC  for  ippox.  1  mSec  tiiieout 


004A 
004B 


»de£ine  _SCL 
# define  _SDA 


portb, 0 
portb, 1 


po*c 


mm 


OOOC  0001 
OOOD  0001 
OOOE  0001 
OOOF  0001 

0010  0001 

0011  0001 

0012  0001 

0013  0001 

0014  0000 

0014  0001 

0015  0001 

0016  0000 

0016  0001 

0017  0001 

0018  0000 

eQi«  0001 


Idefine  _SCL_TRIS 


trisb,  0 


Register  File  Variajllm 


CBLOCK  OxOC 
SlaveAddr 
SlaveAddrHi 
DataByta 
"fiitCount 
Bus_Status 
Bus_Control 
DelayC;o>mt  . 
DataByteCbiy 

SubAddr 
SrcPtr 

ten^ount 
StoreTemp_l 


Slave  Addr  must  be  loader  into  tM* 
for  10  bit  addressing  mode 

load  this  rag  with  the  data  to  be  transmitted _ 
The  bit  nuiribar  (0 si) '  transmitted  or  recalveS" 
Status  Reg  of  I2C  Bus  for  bott  <6-B0in 
control  Register  of  I2C  Bus 


eepy'  of  DataByta  for  I«f t  Shifts  (destructive) 

sub-address  of  slave   (used  in  I2C_HIGH. ASM) 
source  pointer  for  data  to  be  transmitted 

a  temp  variable  for  scratch  RAM 

a  temp  variable  for  scratch  RAM,  do  not  disturb  codtaats 


^yfni  iSPlg^'^PJ^  °*         °*  allocatioo 


;  I2C  Bus  Status  Reg  Bit  Definitions 


004E 
004F 
0050 
0051 
0052 
0053 
0054 


•define  _Bus_Busy 
idefine  _Abort 
#define  _Txmt_Progress 
•define  _Rcv_Progress 
Idefine  _Txmt_Success 
idefine  _Rcv_Succesa 
Idefine  _Fatal_Error 


Bus_Status,0 
Bus_Status , 1 
Bus_Status , 2 
Bus_Status,3 
Bus_Status,4 
Bus_Status,5 
Bus_StatUB,6 


#define    ACK  Error 


Bus_StatUB,7 


0056 
0057 
0058 
0059 
005A 


. ********************************** ********************tk*** 
;  I2C  Bus  Control  Register   ^       r_.j    j,*, " 

,  ***********************************  ***********~dr*A*'^************>*********************** 


#define  _10BitAddr 
# define  _Slave_RW 
^define  _Last_Byte_Rcv 
#define  _SlaveActive 
#de£ine  _TIME_OUT_ 


Bus_Control,  0 
Bus_Control,l 
Bus_Control , 2 
Bus_Control, 6 
Bus  Control,? 


************ 


******** 


*************************************** 


^b************* 


General  Purpose  Macros 


***************************************************************** 


*************** 


RELEASE_BUS  MACRO 
bsf  _rpO 
bsf  .SDA 
.    bsf  _SCL 

bcf  _Bus_Busy 
ENDM 


;  select  page  1 

;   tristate  SDA  _  -,v  '  ■  >      .i  •  o  ),'..,---•,'  ■ 


********************************************************************************************* 


<&  MACRO  ^  S^iS  8  OR  lO  Bit  Addraaa  To  The  Address  S^MSSi 

SLAVE_ADDRESS  is  a  Constant  and  la  loaaed  into  t|ie  Slave&ddrms  Itagistar (e)_ 
depending  on  8  or  10  bit  addressing  modes      '        '  " 

*************************************  *************************************«Mil*d*-##*#«**#4#*#* 


LOM)*jM)DR_10 


bsf  _  lOBitAddr 

movlw  ( SLAVE_ADDRESS  4  Oxff) 

movwf  SlaveAddr 

movlw  ( ( ( siAVE jj::ii^ii^^7 )  ■*  t»rf)«j  J  p^Of 

movwf  SlaveAddr+1 


Slave  has  10  bit  address 

load  low  byte  of  address 
10  bit  addr  is  UllOXXtt 
hi  order  address 


ENIM 
LO»DJU3DR_8 


MACRO 


bcf  _  lOBitAddr 

movlw      (SLAVE_ADDRBSS  &  OxII) 

movwf  SlaveAddr 


ENDM 


Set  for  8  Bit  Address  Mode 


QQ^  gaol 


GBIiOCK  _Bnd_I2C_Ram 
J  JtnoMIReg 


.;  copy  of  STATUS  Reg 
;  copy  of  MRBO 


CO 


a 

03 


0^1^  QOOf 


Hol<S)ata 


ENDC 


0020.  0003, 


CBLOCK  0x20 

DataBegin 

ENDC 


Data  to  be  read  or  written  is  stored  here 


ORG 


0000  2956 


goto 


^3 
a 


o 

s 


#1 1 


0004  0099 

0005  0E03 

0006  0098 

0007  IDOB 

0008  280B 

0009  1791 


OOOB  0000 


OOOC  0E18 
OOOD  0083 
OOOE  0E99 


ORG  0x04 
, ******************************* 


************************* 


Interrupt  Service  Routine 


T&c  12c  routines,  only  RTCC  interrupt  is  used 
RTCC  Interrupts  enabled  only  if  Clock  Stretching  is  Used 
On  RTCC  timeout  Interrupt,  disable  RTCC  Interrupt,  clear  pending  flase, 
MUST  set  _TIME_OUT_  flag  saying  possibly  a  FATAL  error  oeured 

;         user  may  clioos©  to  retry  the  operation  later  a^in^  •  t*mt 

1 


^M*^^Mi^^4*****^*****.***4Mi#*^1^^:*f^ 


Interrupt : 

4  Smm  Interrupt  Status  (HREG  &  STATUS  regs) 

i 

movwf     SaveWReg  ;  Save  WREG 

swapf     status, w  ;  affects  no  STATUS  bits   ;  Only  way  OUT  to  save  STATUS  Reg  ????? 

movwf     SaveStatus  ..j  Save  STATUS  Reg  if  _CLOCK_STRETCH_CHECK  RTCC  Interrupts  enabled  only 

btfss  rtif 

goto      MayBeOtherInt  ;  other  Interrupts 

TIME_OUT_  ^  _         ;  MUST  set  this  Flag,  can  take  other  desired  actions  here 


bsf 


Check  For  Other  Interrijpts  Here,  This  program  nltwN!  g^ly '11^  S  ISF  JS(6*!*i8t 


IfeiyBeOther  Int : 
NOP 

RefitorelntStatus : 

swapf  SaveStatus, w 
movwf  status  ^- 
swapf  SaveWReg 


[felte^feore  Internet  Statu* 
J;  restore  STATUS  Reg 


OOOF  0E19  -  -      swapf  ;  naatesgB  ip^S. 

0010  0009  :       .        -  i»tfie 


. ***************************************************************************************************** 

.  Include  I2C  High  Level  &  Low  Level  Routines  if  _INCLUDE_HIGH_LEVEL_I2C 
ineXuiie       ■iZeJtdf^.asmT  . 

j  ************************************************************************* 

; 

I  I2C  IDtiij^.  (  Q^aral  Purposa  Mac^oa  &  Subxoutines 

t  (IK  n_  ^  cwui^raoBf 

;  si|^ lii^tnes,  xtees  Low  ItM.  MMM'  (I»  tiS;jM#''.JM 

I 

I2C_TESTJJBVICB 

;  MACRO 

;      If  Slave  Device  is  listening,  then  _SlaveActive  bit  is  set,  else  is  cleared 
a;c    I>«zaiiietex  ;  NONE 
jsfnir.SfBSWioe  Of  Operations  i  u  . 

;      Itii  is  +VB  dovioe  is  listwilnsr,  else  aitber  busy,  not  present  or  arror  condition 


;  NOTE  :  The  address  of  the-  slave  must  be  loaded  into  SlaveAddress  Registers, 
;  ,  and  10  or  8  bit  mode  ^ddresflng.inust  be  sa^ 

. ********************************** 

I2CjrBST_PEWICE  ■ 


f  call       IsSlaveAcbiva  ;  TEHF  ????  i  Assenbler  Error  with  this  HACRO 

;  Test  If     Device  of  SlaveAddr  Is  Present  on  Bus 

,     ,  ;  The  Slave  Address  Is  put  on  the  bus  and  if  ACK  it  is  present,  if  NACK  not 

.      I  present  or  may  be  device  is  not  responding.  The  presense  can  be  checked 

;  constantly  by  a  master(for  ex.  the  Operating  System  on  an  Access.  Bus  may 

;  constantly  issue  this  command) 

;  Assume  the  Slave  Address  (10  or  8  bit)  is  loaded  in  SlaveAddr 
•HlrilciV^    .tOBlim^  liit  in,  Control  »ss  to  1.  if       Mt  Address  slava  alsa  0 


CO 


Returns    1  In  _SlaveActlve  Bit  if  slave  is  responding  else  a  0 


0011  1091 

0012  2057 

0013  206B 

0014  1311 

0015  1F90 

0016  1711 

0017  205F 

0018  0008 


IsSlaveActive : 

bcf  Slave_RW 

call  TxmtStartBit 

call  Txmt_Slavo_A<3d)f 

bcf  SlaveActive 

bUjyWi  ACK_Error 

ij^E^  SlaveActive 

e>ll  TxmtStopBit 
return  ..t  ;  .  • 


set  for  write  operation 
;  send  START  bit 

;  if  successful,  then  _Txmt_Success  bit  is  set 


;  Bititi  M  (MIf  |fR4^  !•       0setmi:      not  rasponding 


.  1r***t**********  **************************************************  *******************1t1etiit*1tit*******if****** 

I  ;  I2C_WRITE 


I  ; 

;  A  feftele  macro  for  writing  a  block  of  data  to  a  slave  v    i ,  - 

)  t 

!  ^-  'i^^^-h                       bytes  starting  from  RAH  pointer  _SourcePointer_ 

t  S^^mSHStMIStllL^i  yim:mcfvam  i  IMW>  Se«ete  ^Citt' $Oi»ti*z  in         (file  Rs^l^WM)'' 


S-Slv»W-A-D(01  -A  A-D[N-11  -A-P 

If  an  error  occurs  then  the  routine  sinply  returns  and  user  should  c^eck 
for  flags  in  Bus_Status  Reg  {for  eg.  _Txint_Success  flag) 

!  The  address  of  the  slave  must  be  loaded  into  SlaveAddress  Registers, 


a»a.iq    9r  8  bit, 5iod¥  addressing  wist  bf.fft  ^^u,,...   ,         ...     •   ■.  . 

********************************************************************************************************** 

I2C_WR  MACRO     _BYTES_,  _SourcePointer_ 


movlw 

movwf 

movlw 
movwf 

call 
call 


BYTBS_       ^o,-,,:     ■  ; 
tempCount 
_Souro«ife>i»fces^ . ; 
_fsr 

_i2cj3lock.jwrite 
TxmtStopBit 


Issue  a  stop  bit  for  slave  to  end  transmission 


00«« 


_i2c_blook_wri6%t  . 

eaXl  .  ^  ' 


bit 


OOIA 

1091 

•  ascf  ■  : 

;  set  foe  mrite  operation 

OOIB 

206B 

e»H.  • 

aSBIiti.SlaveJdiJr 

;  if  successful,  then  _Txmt_Succaas  bit  is  set 

_  block_wr  l_loop  1 

OOlC 

lElO 

btfss 

Txint_Succesa 

OOID 

0008 

Ai' :  - ;  (  -   ;  return 

OOIE 

0800 

movf 

indf , w 

OOlP 

008E 

M-:.    ■  mOVWf 

DataByt^A^  :  :  \ 

.         -  j;  'Btart  Xiw^ihe  ^rat  byte  starting  at  DataPointer_ 

0020 

0A84 

incf 

fsr 

0021 

2095 

■  e«H-  •  • 

SemdBata 

•  •  1  -ma^  oetcfe          bam  -i*  oue''»  i  . . .  -  •    ^  -  ■ 

0022 

0B9« 

decfaz 

tesiiCount 

0023 

281C 

goto 

bloekL.v«rl_lo6p 

;  loop  until  desired  l^ea  ot  data  trwaaiaitfefli>  ^  Itimm 

0024 

0008 

return 

************************************  ********  ********it*************1,1,1,1,**M4tMttif1f1fil^^ 

*****************************  *****«****««1«#jK#.#ptt«'f1»9* 
•       '  .       .    -  I2C_WRITE_SUB 

twitea  a'-ni^ssacre  just  IlKe  I2C_WRITE,'  except  chat  the  data  Is  preceeded  by  a  sub-aditresa    to  a  •iU(M  AtwiM. 
^g.  '-i^A  aerial  EEPROM  would  need  an  address  of  memory  location  for  Random  Wsitep 
Paraneters  : 

BYTES  #of  bytes  starting  from  RAM  pointer  _SourcePointer^  (conatuit) 

SourcePointer_  Data  start  Buffer  pointer  in  RAM  JiSfttii  i 

Sub_Addre3s_  Sub-address  of  Slave  (constant) 


Sequence  i 


S-SlvM»-ft-SttbA-A-DtO]  -A. 


.A-D[N-1]-A-P 


-it^i^jl  flags  In  Baa.^tatits  Reg  (for  eg.  _Txiiit_Sueeeas  flag 


Returns  i 


WREG 


1  ^  success,  else  WREG  =  0 


NOTB  I  The  address  of  tbe  slave  must  be  loaded  into  SlaveSddz^s  Registers, 
and  10  or  8  bit  mode  addressing  must  be  set 

COMMENTS   :  ' 

I2C_WR  may  prove  to  be  more  efficient  than  this  macro  in  most  situations 
Advantages  will  be  found  for  Random  Address  Block  Writes  for  Slaves  with 
Auto  Increment  Sub-Addresses  (like  Microchip's  24CXX  series  Serial  EEPROMS) 
) 

J  **Wli^**^***fr^1t.**** ********* ***************1t1t**i^*1t-*itr1t**t *********************** *****1t*:1t*.* 

I2CJWRJSDB         flMAOl    JBytES_,  _SouroeiiaiBe«f^;n.jft|b_Adair«B8^    •     -.     .    '   :  ' 
movlw     (_BXTBS_  +  1) 

ll'./i  ;  •       '  "  ,-        -  •  .  -Mill  : 


03 


movlw 

( _SourcePo  lnter_ 

movwf 

fsr 

movf 

indf  ,w 

movwf 

Storenenp.l 

movlw 

Subjiddress_ 

-movwf 

Indf        .       ..  . 

call 

i2c_block_write 

movf 

StoreTemp_l,w 

movwf 

(_SourcePoint«r_ 

call 

TxmtStopBlt 

1) 


iri'CMg^tari-ljr  wSecOi'Edntwita  of  {_SourcePoint:or_  -1) 
■  •I  store  temporarily  the  sub-addreas  at  (.jBeare«PoiiUt«r_>  rl)  v 
;  write  _ByTKS_+l  block  of  data 


1)  ;  restore  contents  of  (_SourcePointer_  -  1) 

;  Issue  a  stop  bit  for  slave  to  end  triinsmission 

:   ton  '  t?*  "w***  At  tp*  ir^M  «»*t  p»  T««<r^<i  t<'.    " ? •AerTC****  ir*Qr".-  - 

;  ; 

;  ^urameters  ; 

•  BYTES     #of  bytes  starting  from  RAM  pointer  _SourcePointer_  (constemt) 

;      '      SourcePointer    Data  Start  Buffer  pointer  in  RAM  (file  lUR^MlMie*) 
;  Sub address       Sub-address  of  Slave  (constant)  i' 


'  ■  S-SlvAW-A-  (SuhA+0 )  -A-D  [  0 1  -A-P 
S-SlvAW-A-  (SubA+1)  -A-D  [  1 J  -A-P 

and  so  on  until  #of  Bytes 


If  an  error  occurs  then  the  routine  sinply  returns  and  user  should  chedte*  ■  - 


Returns  i  WREG  =  1  on  success,  else  WREG  =  0 

CCniHENTS  I  Very  In-efficient,  Bus  is  given  up  after  every  Byte  Write 

 »•«*• 

-       Some  I2C  devices  addresed  with  a  sub-address  do  not  increment 

automatically  after  an  access  of  each  byte.  Thus  a  block  of  data 

sent  must  have  a  sub-address  followed  by  a  data  byte.  -  -i    i  -  w..         -  '  'j-^ 

<il»vV^  »»iii<..inirt. 


I2C_W!!_SOTL.SWINC' 
variable  i 


MACRO     JYTBS_,  _SoiiroePoint«*_,  _StU3>_A^e<%^  ^   ' '         '       '  " 

1  TWP  ????  I  Assenibler  Does  Not  Support  ibis 

i  >  0 


roov£ (_SourcaLjMntMr_  -f  i),w 


movwf  SrcPtr 

movf  (_Sub_Addre3s_  +  i )  ,  w 

movwf  SubAddr 

call  i2c_j3yte_wr_sub 

.iit:  ,  ■..  .    :  •    if*- 1 

.'.lit  fX"  ■  ^  -i-'a  q>;:«ndw 


write  a  byte  of  data  at  sub  address 


RFlte  1  Byte  Of  Data 

3«l 


(in  SrcPtr)  to  slave  at  sub-address  (SubAddr) 


0025  2057 

0026  1091 

0027  206B 

0028  lElO 

0029  2835 
002A  0814 
002B  008B 
0020  2095 
002D  lElO 
002E  2835 
002F  0815 

0030  008E 

0031  2095 

0032  lElO 

0033  2835 
OOM  2837 


0035  205F 

0036  3400 


0037  205P 

0038  3401 


iSB^(*eL.wr_sub  I 

eali  <rxintStartBlt 

bcf  Slave_RW 

call  Txitit_Slave_Addr 

btfss  Txint_Success 

goto  block_wrl_fail 

movf  SubAddr,  w 

movwf  DataByta , 

call  S&aSDtm' 

btfss  Txiiit_9neaesB  ( 

goto  block_wrl_fail 

movf  SrcPtr,  w 

movwf  DataByte 

call  SendData 

btfss  Txmt_Success 

goto  block_wrl_fail 
goto   i  JaleoH^ilBEluVMiB 

;  return  baok  to  called 
block_wrl_fail : 
call  TxmtstopBit 
retlw  FALSE 
block_wrl_pass : 
call  TxmtstopBit 
retlw  TRUE 
t   .  • 


I  send  bit 

;  set  for  writ*  c^aratloD 

;  if  sucoeaaful,  then  _TXmt_sacoeas  bit  is  set 


■tt.TJ 


M-Tce  •  f»4»  OS  q*t9  «{  Mia  tlMMW 


'  r  wtairt'froni  the  flrat  byrte  wIsietMt'' 
;  aend  next  t^e 

J  end   irr*       •  ^VUOf^ 

;  start  from  the  first  Toft*  starting  at  DataPolnter_ 

;  send  next  byte 

;  failed,  return  0  in  WREG 

!  Bije«M«»ful,.';M*um  l.^n'ftMei'JCM.^'  ^a.  > 3c  ; 


routine  -frtan  either  _block_wrl_pass  or  blook_wrl_fadtL  . 
;  Issue  a  stop  bit  for  slave  to  end  treinsmission 


Issue  a  stop  bit  for  slave  <^  eii$. 


. ********************************************** *****ik*****************ik***A*** 


iaC_WR.J4EICBYTE 


Sc»ne  I2C  devices  like  a  EEPROH  need  to  wait  fo  some  time  after  every  byte    write  (iriien  entered  into 
internal  programning  mode).  This  H&CRO  is  same  as  12C_TO_SUB_SWINC ,  but  in  addition  adds  a  delay 
after  each  byte.      Some  EERPOM  memories  (like  Microchip's  24Cxx  Series  have  <»i-oliip  data  buffer), 
and  hence  this  routine  is  not  efficient  in  these  cases.  In  such  cases  use  I2C.j8R  or  I2C_WR_SDB  fox  a 
block  of  data  and  then  insert  a  delay  until  the  whole  buffer  is  written. 
Parameters  : 

BYTES_   #o£  bytes  starting  from  RAM  pointer  _SourcePointer_  (constant) 
SQurceeointer_       Oatat  Start  BuCfer-  peintaz'-  in  RAM.  4Mi»  KesisibacB>)< .  . « . .  ■ 
Sub.^Mdre8s_  Sub-address  of  Slave  (constant) 

Sequence  : 

S-SlvAW-A- (SubA+0) -A-D[0] -A-P 
Delay  1  mSec  ;  The  user  can  chnage  tSte  Wfti 

S-SlvAW-A-  (SubA+1)  -A-D(l]  -A-P 
Delay  1  mSec 


I2C_ 

WR_BYTE_ME 

M                  MACRO  _BYTES_, 

variable  i                ;  TEMP  ????  : 

*:w  r 

■  'i 

■  iiAile  (i  <  _J0! 

movft 

(_Souroe_Pelnter_  +  i)  ,w 

a ' 

movwf 

SrcPtr        -.J      -  MftCe- 

I 

movf 

(_Sub_AddSWBB_{*:.;t),-lW?  f- 

movwf 

SubAddr 

call 

i2c_byte_wr_sub 

call 

Delays OuSec 

.Oct 

r-'C 

!  S61.'  -    :    ■'.  t+lt:; 

t3*-t 

.i~  »npt 

WW: 


I2C_WR_J1EM_BUF 


******************  ****** 


This  Macro/Function  writes  #of  _BYTES_  to  an  I2C  memory  device.  However  seme  devices,  esp.  EEPROHs  must 
wait  while  the  device  enters  into  programming  mode.  But  aarae  dwices  have  an  onchip  temp  data  hold  Isuffer 
and  is  used  to  store  data  before  the  device  actually  enfeerff  t*l€o  programming  mode.     For  example,   the  24C04 
series  of  Serial  EEPROMs  from  Microchip  have  an  8  byte  data  buffer.  So  one  can  send  8  bytes  of  data  at  a 
time  and  then  the  device  enters  programming  mode.  The  master  can  either  wait  until  a  fixed  time  and  then 
'  retry  to  program  or  can  continiously  poll  for  ACK  bit  and  then  transmit  the  next  Block  of  data  for  programming 


Parameters  i 

BYTES_  _  (of  bytes  to  write  to  memory 

SoareeFointer_  Pointer  to  the  block  of  data 

aiihaddrasa_  Sub-adsbress  of  ^e:  •alava  ' 

Deivi<m:^mF_BlZ^  The  on  chip  buffer  alia  of  the  i2c  slave. 

Sequence  of  operations 

I2C_SUB_WR  operations  are  performed  in  loop  and  each  time  ^  ■ 

data  buffer  of  BHF_S1ZE  is  output  to  the  device.  Then 
the  device  is  checked  for  busy  and  when  not  busy  another 
block  of  data  ia  ^tten     .  ^moq  bXMU  KC 
I 
1 

J  *****************  ************* 

■-^•■1 

I2C_WR_BOTJMEM    WHSlO     JBIITSS_,  _SouroePointer_,  _SubAddress_,  _Deis*asU^_a*ialL 
variable  i,  j 

J3e~it»        exitm  "?.,rf." 

elif   (  _BYTES_  <=  _Device_BUP_SIZE_) 


I2C_WR_SUB  _BYTBS_,  _SourcePointer_,  _SubAddress_ 
exitra 

tt  i»M  ..-.j,  •        ■       I-.--!  .ivt.-- 

else 

»»  .  i  =  0 

j  =  (_BYTES_  /  _Pevice_BUF_SIZE_) 

.MiKli*  {*"  «l**if&o?i:f»i.-  |»t!*t»> 

cr.i.i-'  ,  . 

»»i*»«f«acj«R_SIJB         _Pevice_BOT_SlZ?_,   (_SS«*B*ilfi«*W_  ♦  i*J3mimJim'.M!tKJ  , 
(_SubAddress_  +  i*_pevice_?DF_SlZBL) 
W"  •  vroaf  ■  ivifv""'   t«-     ••  St'""'?  -is  .  .€• 

call  IsSlaveActive 
btfss  _SlaveActive 
goto  $-2 


1++ 

.endw 

j  =  (_BVTBS_  -  i*_Deviee_BOF_SIZE_) 
•    if  <d) 


0) 

o 

a? 

0} 

S 

3 
■o 

(D 

3 

(D 
3 

0) 

o" 

3 
O 

o 

CD 
c 

(0 


0) 


CO 


0039  2057 
003A  1491 
003B  1111 
003C  206B 
003D  lAlO 
003B  2841 
003F  205F 

0040  3400 


0041  20CC 


I2C_Vnt_SUB  i,   ( JSourceFoiater_j »  l*_DewioejroF_SIZ5_) ,   (_8ulAddxes8_  +  i*J3evioe_B0F_SIZE_) 
endlf 


ENDH 
*************** 


*********************************************************************************** 


I2C_READ 

^le  basic  mCRO/procadur*  ta  read  a  block  message  tzam  a  slave  device 

BYTBS_  ;    constant  >  fof  bytes  to  receive 

_  DestPolnter_      :    destination  pointer  of  RAM  (File  Segisters) 

Segueme  : 

S-SlvAR-A-D[0]-A-  -A-D[N-11-N-P 

Zf  last  byte,  then  Master  will  Mb^  Aeltoowladge  ts«nd  iMC) 

MdTE  :     The  address  of  the  slave  must  be  loaded  into  Slaveftddress  Registers,  and 
10  or  8  bit  mode  addressing  must  be  set 

********************************************************************************************************** 


MACRO      _ByrES_,  _DestPointer_ 


movlw  (_BYTBa_  -1) 

aiovwf  tenpCoiaafe 

nsvlw  DestPoiat|at|_ 

movwf  fsr 

call  i2c_block^read 


;  -1  because,  the  last  byte  is  used  out  of 
;  FIFO  destination  address  pointer 


_i2c_block_read: 

call  TxmtStartBit  . 

bsf  Slave_RW 

bcf  Last_Byte_Rcv 

call  Txmt_Slave_Addr 

'.btfsc  Txmt_Success 

goto  block_rdl_loop 

call"  ItetStQpBlfc' 

retlw  PAL  SB 


_block_rdl_loop» 
call  QetOata 


;  send  START  bit 

;  set  for  read  operation 

;  not  a  last  byte  to  rev 

;  if  successful,  then  _Txmt_Success  bit  is  set 

;  end 

;  Issue  i»  atep  bit  fox  slave  to  end  transmission 

;  Sciox  t  ^nayrjje  device  not  responding 
;      It-  rr»  pioG|c 


(/) 

0) 
—I 

(D 

3 
■o 

(D 

3 

(D 
3 

l-H 
&) 


ro 

o 

CD 
c 

(0 


Q) 
0) 


0042 

080E 

movf 

DataByte.w 

0043 

0080 

movwf 

Indf 

0044 

0A84 

inof 

f  sr 

0045 

0B96 

decfsz 

tempCount 

0046 

2841 

goto 

block_rdl_loop 

0047 

1511 

bsf 

Last_Byte_Rcv 

0048 

20CC 

call 

GetData 

0049 

080E 

movf 

DataByte.w 

004A 

0080 

movwf 

indf 

004B 

20SF 

TxmtStopBlt 

mm 

Ml 

xetlw 

TRUK 

;  start  receiving  data,  starting  at  Destination  Pointer 


loop  until  desired  bytes  of  data  tran^itted  to  slave 
last  byte  to  rev,  so  send  NACK 


Issue  a  stop  bit.  for  slave  to  ^ui  tranraniseion 


,  **************** 


I2C_READ_SUB 

;    This  MACRO/Subroutine  reads  a  message  from  a  slave  device  preceeded  by  a  write  of  the  sub-address  Between  the 
;     aub-addrers  write  &  the  following  reads,  a  STOP  condition  is  not  issued  and  a  "REPEATED  START'  condition  is 
;    used  so  that  an  other  master  will  not  take  over  the  bus,  and  also  that  no  other  master  will  overwrite  the  sub- 
;    address  of  the  ■am^^-mmmi.  iWtMtK'ftcS^^^iMMidlWiNiMWxK  ■mmasa^mf'9mStKKl!S»^m^Sst%  .SiMi  a 

I    memory  device  (e.jr  >  HBnx  SwfKl  eM  '^mitii  AMMb  <fyismf^"" 


Parameters  : 

BYTES_  #  of  bytes  to  read  - . 

DestPointer_  The  destination  pointer  of  data  to  be  XB&e^^^$^, 

BubAddress_  The  sub-address  of  the  slave 

S^tBenee'i'"  ••  •  '     ^.^ j.: -i' 


Ifct       SlaWBjlW    ■  -■  — 
'o»ll      TxmtStartBit  ' 
call  Txmt_Slave_Addr 


set  for  write  operation 
Bead  START  bit 

if  successful,  then  _T»ntJSuccess  bit  is  set 


movlw  SubAddress_ 
movwf  DataByte 
call  SendData 


START  address  of  EEMl®(t*l*v«a 
write  sub  address 


do  not  send  STOP  after  this,  use  REPEATED  START  condition 


I2CJtEft9  _ByrES„,  _DestPointos„' 


CO 


. ********************************************************************************************************** 


I2C_RE*D_STATUS 

This  Macro/Function  reads  a  status  word  (1  byte)  from  slave.  Several  I2C  devices  can  send  a  status  byte 
upon  reception  of  a  control  byte.        This  is  basically  same  as  I2C_READ  MACRO  for  reading  a  single  byte. 

For  exainple,  in  a  Serial  EEPROH  (Microchip's  24Cxx  serial  EEPROHs)  will  send  the  memory  data  at  the 
;    currant  addxeas  looatlon  -  ■\  a.,  k  ' 

;    OK  tuccetni  mSSvx  1  else  =  0.     ■     '^t  r        :  -■■       ■     ■  .~ 
; 

^       ^ff^f^'f^f!^  *  *  « i^K'frjlif^  *  *  CftA^f^  *  *'« 

tS^IUSAI^tflftfillS  W3t(>> '  ^JSmtPaiittnrii  ■•.  .-..•••»•..     ...   ...  .   .....   .. 


;  send  START  bit 

;  set  for  read  operation 

;  if  successful,  then  _Txmt_SuceeS8  bit  is  set 

;  read  a  byte 

{  limm  a  ets^  bit  -for  slave  -to  end  transmission 


;  last  byte  to  rev,  so  send  HACK  :\ 


;  **************«#****«*********** ********«*^|#«!#])t9lr«»«i«:iiei&*^N^ 

I2C_READ_BYTE     MACRO  _DestPointer_ 
12C_READ_STATUS  MACRO  _DestPointer_ 
EHDM 


call 

TxmtStartBit 

bsf 

Slave_RW 

call 

T3ant_S  lave^ddr 

btfsc 

Txmt_Success 

goto 

byte_rdl_loop 

call 

TxmtStopBit 

retlw 

FALSE 

_by  te_rdl_loop ; 

bsf 

Las  t_By  te_RcV 

call 

.QetSetta ' 

aovf 

BataSyteiV 

movwf 

DestPointerJ- 

call 

TxmtStopBit 

btfss 

Rcv_Succes8 

retlw 

retlw 

TRUE 

I2C_WR_SUB_WE 

; 

,-  This  Macro  write  2  Blocks  of  Data  (variable  length)  to  a  slave  at  a  sub-address.  This  may  be  useful  for 

;  dfl^4ses  idlich  need  2  blocks  of  data  in  which  the  first  block  may  be  an  extended  address  of  a  slave  device. 

;  For  exaxr^le,  a  large  I2C  memory  device,  or  a  teletext  device  with  an  extended  addressing  scheme,  may  need 

;  multiple  bytes  of^ta  in,  the  1st  block    that  represents  the  actual  physical  address  and  is  followed  by  a 

;  2nd  block  that  actually  te0¥B0em/tB  the  <jUlta. 


SourcePointerl 
SubAddress_ 
ByTES2_ 
SourcePointer2 


1st  block  #ef  bytes  jc-^iBf*  Oi{ 

Start  Pointer  of  the  ti^i  Wfe* 

Sub-Address  of  slave 

2st  block  #of  bytes 

Start  Pointer  of  the  2nd  block 


-I) 


Sequence  :  _  i.  .  •     ,  -  '  -Tl 

t    mimiit    W.S  MACRO  is  basiqally  swne  a«  calling  l2C_'iR_SiV 'M^,;  Mitt 

m..  ■     9.^ST0P  bit  is  not  seiit  (bus  is  not  giv^  up)  In  lilS^MW 
I      ui.3a;       the  two  I2C_WR_SUB 

(■ 

f     Check  Txmt_Success  flag  for  any  transmission  errors 

,**************************************************************************************************** 


movlw  (_C0UNT1_ 

movwf  tenpCount 

movlw  (_Sourc^^ 

movwf  fsr 

movf  indf.w 

movwf.  StGreTemp_l 
IB^lw  ,  _S!iliijMdress_ 

movwf  _indf 

call  i2c_block_write 


;  -tat5)orarily  store  contents  of  (^SourcePointesc^  -1) 

;  store  temporarily  the  sub-address  at  (_,So«jrBePointer_l) 
!  write  _BYTES_+1  block  of  data 


movf        StoreTemp_l ,  w  c    .  ..v 

^s*W»tj»ct{i.SourcePointerl_-  1)   ,-  rest&cs.  em^mst^.       i^<!mm^0ij^m9i^  r' lA- 
;  Block  1  write  over 

.    S«ld  Block  2j;,  -;;ii~ar, 

movlw  C0X)IJT2_ 

l^vwf      tsj^ppup.t,   .   ,.  .  .. 

movlw  SourGePointer2_ 
movwf  fsr 

Gall  block_wrl_loop 


call  TxmtStopBlt 
mUCM  .  b 


Issue  a  stop  bit  for  slave  to  end  txansmlssltm 


********************************************************************************************************** 

I2C_WR_S0B_ja) 

I 

;    "Hiis  macro  writes  a  block  of  data  from  SourcePointer  of  length  _C0UMT1_  to  a 
;    slave  at  sub-address  and  then  Reads  a  block  of  Data  of  length  _C0UNT2_  to 
;    destination  address  pointer 

1  H7.«  -11'.  'r«  ■cq"  -  --  sc   '~:  cal^gTWfWt'IJ 

Message  Structure  i 

a-5lJ*»-A-S«b&-*rBifO]-A  -A-Dl  [H-l]-Arfe«l,1«TATS2t81,T*-.»»-»  •AT©2JM-ll^':Pr  .  i.-,  fli- 

;    QM^Nqeters  i 

t  t*.COUNTl_  Length  Of  Source  Buffer 

f      Ar-f  ^Sourc«Pointer_       Source  Pointer  Address 

I      ...  ^Sub_Jiddress_  The  Sub  Address  Of  the  slave 

;  _C0aNT2_  The  length  of  Destination  Buffer 

t'-  iW^^NiMWi^     -cJ|it-yW%(»<Mwg'nj  ,afcOe»tt^|^tqf^,ifBhaWc  %aat<smio- Cf^j- 

. ** ft ************************************************************************** *************************^*** 

I2C_HIUSUB_RD      MACRO      _COaiWl_,  v,JtPHtWfW^|«»E^i,jjMuW^^e»e  „C00NT2_,  J>M>^laK*tU 


;  tsngporarlly  store  contents  of  (_SourcePointer_  -1) 
store  temporarily        sub-addresa  at  (_SourcePointer_  -1) 


3;^, tore  contents  of  (_SourcePointer_  -  1) 

■i 

I  Without  sending  a  STOf  bit,  read  a  block  of  data  b^r  wsisg  a  KEPBATBD 

start  Condition 

I2C_PEAD  .  _C0UNT2_,  _DestPointer_ 

mm 

J  !*****•*****  *****#****:*#*%##***i^^#*^*^^^=*.f,  *********************************************  **********.t^^ 

I 


movlw 

(C0UNT1_  +  1) 

movwf 

tempCount 

movlw 

( SourcePointer_  - 

1) 

movwf 

fsr 

movf 

indf.w 

nsvwf 

StoreTemp_l 

; 

movlw 

Sub.jvddress_ 

ncwwf 

indf 

■mil 

12c_block_write 

movf 

StoreTenp_l,w 

movwf 

( Sourca^ointer 1_- 

1) 

;  I2C_WR_C0M_WR 

;  niia  Maciro  virlte  2  blocks  of  data  buffers  to  a  slave  in  one  message.  This 

;  way  no  need  to  give  up  the  bus  after  sending  the  first  block. 
;  For  exai^le,  this  kind  of  transaction  is  used  in  an  LCD  driver  where  a 

;  block  of  contzol  &  addresss  Info  is  needed  and  then  another  block  of  actual 

r  'data  ee  be  displayed  ilW«MM'.i     •  •        •  --  0 


;    Message  Structure  : 

(  8-SlvH-A-Dl  [OJ-A- . .  .  ..iA-Dl  tN^ll-A-l»|0]        .  ^-UZfM-r]  -A-» ' 

;    NDT8  I  lUs  neasage  is  same  as  calling  two  I2C_WR  Macros,  exc^t  that 
f>'-"  >'.tfibe  ^t^mJIm  mat  given  Up  between  the  sanding  of  ?  ^1400.  i» 

f>" '  !iOaa»  t>f        Blending  a  STOP  bit  Inbetween) 

;  Parameters  : 

;  _C0UNT1_  Length  Of  Source  Buffer  #1 

;  _SourcePointerl_  Source  Pointer  Address  of  1st  bu£tMW<  . 

;  _C0UNT2_  The  length  of  Destination  Buffer 

!  _SourcePointer2_  Source  Pointer  Address  of  2nd  Buffer 


. ******************** 


i,*****************************************  *  **  **#iir^4;i|4()^#^^ifc*#f 


I2C_WR_C0M_WR  MACRO 


_C0UNT1_ 


movlw 
novwf 
Biovlw 
aiovwf 
call 


_SourcePointerl_,  _C0UNT2_,  _SourcePointer2_ 


C0UNT1_ 
tempCount 
SourcePointerl. 
far 

i2e_block_write 

>ES«st  block  sent,  natit  gm^^m^mSSa^m  Wlue»  MM  >■ 

movlw  _  C0UNT2_ 
movwf  tempCount 

■  novlw  SourGePointer2  

novwf  _.    far  .... 

call  ^  block_wrl_loop 


call 


TxmtStopBit 


I  Bnd  of  Double  buffer  txmt 


.  ********************************************************************************************************** 
;i  INCLUDE  I2C  Low  Level  Routines  Here 

..************************************************•********************************************************* 


include  '*i2c_low.asii>' 

,'im*it:itim****************************************************************************'*^^ 


CO 


004D  1283 
004E  080S 
004F  39FC 

0050  0086 

0051  1683 

0051  1486 

0052  1406 

0054  01M-" 

0055  0191 

ms»  mm 


0057  1683 

0058  1486 

0059  1406 


005A  210D 
005B  1086 
OOSC  210B 
0Q5Q  1410 


Low  Level  I2C  Routines 

Single  JSaster  Transmitter  t  Single  Master  Receiver  Routines 
These  routines  can  very  easily  be  converted  to  Multi-Master  System 
vdien  FIC16C6X  with  on  chip  I2C  Slave  Hardware,  Start  &  Stop  Bit 
detection  is  available. 

The  generic  hls^  level  routines  are  given  in  I2C_|II0H.A5M 
;  I2C  Bus  Initialization 


********** 


********#**************************************•********************************************* 


mi  tI2CBus_Mase»  1 
bof         _  rpO 

^mm^'  :'r(<i^|^l^v  ■  tKM,       bob  use  BSF  «  BGT  ion  Weet  Wim 

■kaiVfi.  p^tb  ;  set  m  &  8CU  to  zero.  Fren  How  on,  singly  play  with  tris 


drf       Bus_Status        ;  reset  status  reg 

olrf       Bus_Control       ;  clear  the  Bus_Control  Reg,  reset  to  8  bit  addressing 
return 

*if***fi^^ff *********************************************  ************************************************** 
-  Send  Start  Bit 

I  |-«i>ViS  X  »o"i  - 


Txmt3t«rtBlti 

bsf  rpO 
bsf  SDA 
bsf  SCL 


call  Delay40uSec 

bcf  SBA 

call  Delay47uSec 


select  page  1 
set  SDA  high 
clock  is  high 


Setup  time  for  a  REPEATED  START  condition  (4.7  uS) 
only  necesry  for  setup  time 

give  a  falling  edge  on  SDA  while  clock  is  high 
only  necessary  for  START  HOLD  time 

;  '  -  ■ 


; 

Of  SS  0008  reton 

*************************  *******************************#***********************#********'^^^ 

Send  Stop  Bit 

***j^*******^***i^A>****^**  **************************  ************* 
;  select  1 


005F  1683 

bsf 

rpO 

0060  1006 

bcf 

SCL 

0061  U>8« 

toe* 

SDft 

0062  1406 

bsf 

SCL 

0063  21019 

call 

DeXay40uSec 

0064  1486 

bsf 

soft 

a- 

0065  210B 

Gall 

Delay47uSec 

sfiidlf 

Bus_ii!uiK 

ciof  7  oie  c^ 

-■,  I 

;  set  SDA  low 

;  Clock  Is  pulled  up 


give  a  rising  edge  on  SOK  while  CLOCK  is  high 


delay  to  majf^  sure._.f  ST^T  bit  is  not  sent  iinmediately  after  a  STOP, 
emeuire  ^ 


St<*  e«aittcai  feus  iM  oeaasidlered  Wwem 


0068  205F 

0069  1490 

O:0»  m» 


********************************************************************************************************* 

Aoft  Ttrwanlssion 

SmA  STOP  Bit  £  set  Abort  Flag  cv  •.-b^j  ^  ;o  °>  •   ■-'-■■3         ,---^t  ^  ■-•'i  l:   BTi  t--    j.  ^  U-^ - 

***********»**#***********************************#**** ****^^ 


.jlla^;^9?r<»Mi.si^^^|y. 

t 

sail  TxmtStopBit 
bsf  Abort 

.  return  .     -.i,-.       ^.-^  .r, 

********************************************************************************************************* 


.,,  V  .jFSPPPj-M'?'!^???.         Byte))S  Put  jfl  R^aa^5^J,te  Opf  ratio? 


i    ^lawg^^^lasie;  A^^.  C^.  t!^>  Ist  byte  and  set  LSB,  to,.,B^W; j^eraM^ft 
;     Slave  Address  must  Ise  loaded  into  SlaveAddr  reg 

;    Ihs  K/W  operation  mustsbpt-aii^^  8Mb.SitfM:ii$  ^a,..j^t  _SLAVB_I!W) :  0  for 


!    Write  &  1  for  Read 


******** 


************************************************************************************************* 


Txint_Slave_Addr : 


13^ 

006E  1C91 
006P  287D 


0070  1091 

0071  20.7]| 

0072  lElO 

0073  34fl.^ 

0074  2057 

0075  1491 


bof 
goto 


TenBi  tAddrRd  i 


ACK_Error 
;iPBitAddr 


!  reset  AcImowled0e  error  bit 


SlaveJRW 
TenBi  tAddrWR 


bcf 


bsf 


;  For  10  Bit  vm  singly  send  10  bit  addr 

,J* " i'lS^'ired  to'  mSIt  «*  Wilt  slave', '  io'  ilHV  send  10  Bit  for"  iik  s"  ttwaa 
t  iHSMted  aimet  awa  Mbmn  Hi  Byte  0»ly        sMd  qpreation 


glave_RW 
TenBi  tAddrWR 
Txiiit_Suaces8 

TCTitStartB** 

Slave_RW 


sa.-  « 


;  ten^orarily  set  for  WR  operation 

;  skip  if  successful 

;  send  A  REPEATED  START  CO^^&BH 

;  For  10  bit  slaw  Bead 


0076  080D 

0077  008E 

0078  140E 

0079  2095 
a07A  288C 


007B  lElO 
007C  2890 


007D  080D 
007E  008E 
007F  lOOE 


movf 

movwf 

bsf 

call 

goto 


btfss 
goto 


SlaveAddr+l,W 
DataByte 

DataByte.LSB   _ .  ,^         ;  Read  pperation        ,  „ 
S^^3ata      -vs    '  I  B&aA  WILY  high  l^te  of  10  bit  addr  slaM 

AddrSendTesb  i  10  Bit  Addr  Send  For  Slave  Read  Over 

'       ■  ■'  ■ 

,  Tmt_Sttccese  m(  gp*  j0tM       MiaeMHiM'  'ilM^Mf^^         C  dM«  Wetm^m 
^  AddrSandPall 
ttO  I  Mracc  bete  r 


-      ^  -  -f,  ■  19  ?' 

|:»^g»5fB4JyjJfan«BilttBd, 


movf  SlaveAddr+l,W 
movwf  DataByte 
bcf        DataByte,  I.SB 


;  WR  Operation 

;  Ready  to  transmit  data  :  If  Interrupt  Driven  (i.e  if  Clock  Stretched  LOW 
I  Enabled)  t^an  save  ItBTt^  Address  Pointer 


0080  2095 


0081  lElO 

0082  2890 

0083  080C 

0084  008E 


0086  080C 

0087  008B 

0088  lOOB 

0089  1891: 
OOSA  140B 


008C  lElO 
008D  2890 
008E  0064 
008F  3401 


0090  0064 

0091  1B90 

o'$9%  im 


0093  205F 

0094  3400 


call 


btfas 
goto 

movf 

movwf 

goto 


SendData 


Txmt_Suqeaas 
AddrSehdFall 

SlaveAddr.W 
DataByte 


ScivenB  i  tAddr  i 

movf  SlaveAddr,W 

tjata^.'iJi 
Htaa  Slavajaj 
iai        DataBy  te ,  ISB 

EndTxm  tAddr : 

call  SendData 


_AddrSendTes  t : 

btfss  Tmt^^soBmm 
goto  hddi'^mb. 
clrvnit 

retlw  TRDB 

_AddrSendFail:       ^i.'  fJSrv 
clrwdt 

ratlw  I'i^aE 


call  TxmtStoi^i^t 
^^rptl!»  FALSE 


send  high  l^te  of  10  bit  addx  slave 
.j.^  14'aK^°*^^^H.\%  taananl.t;.tft4.  jn^^t  fn  ACK  bit 

if  not  successfujL,  getwrata  STOP  £  abort  transfer 

load  addr  to  DatByte  for  transmission 

OMi^^-  .loa<l         to  tlat^te  for,  trani^|^si'on 

;  if  skip  than  toritie  ^eiratiea 
I  Read  (^ration 

;  send  8  bits  of  address,  bus  is  our's 

; 

)  if  successfully  transmitted,  aig^t  an  ACK  bit 
; 


;  Addr  Txmt  IMauceesefal,  so  return  0 

;  Address  Not  Ackncjjgj;i{j|B^  so  mad  STOP  bit 


Addr  Txnit  Unsuccessful,  so  return  0 


Transmit  A  ^te  Of  Data 

The  data  to  be  transmitted  must  be  loaded  into  DataByte  Reg 
Clock  stretching  is  allowed  by  slave.   If  the  slave  pulls  the  clock  low, 
then,  the  stretch  is  detected  and  INT  Interrupt  on  Rising  edge  is  enabled 
and  also  RTCC  timeout  interrupt  is  enabled  The  clock  stretching  slows  down 
the  tremamlt  rate  because  all  checking  is  done  in 

software.  However,  if  the  sys tan  has  fast  slaves 'ayid  nedds  no 'cloiik  "  ...... 

stretching,  then  this  feature  can  be  disabled  daring  Assanibly  time  by  setting 


CO 


_CLOCK_STRETCH_ENABLED  must  be  set  to  FALSE. 

*******************************************************************************.********#*******»♦******** 
SendData: 

TXmtByte  £  Send  Data  are  same.  Can  check  errors  here  before  calling  TxtntByte 
For  future  compatibility,  the  use.!  KUST  ga}.l  Sep^ata  &  NOT  TxmtByte 


0095  2896  goto  TxmtByte 

TxmtByte  J 


0096 

080E 

mov£ 

DataBy te , w 

0097 

0093 

movwf 

DataByteCopy 

0098 

1510 

bsf 

Txmt^Progress 

0099 

1210 

bcf 

Txmt_Success 

009A 

3008 

movlw 

0x08 

009B 

008F 

movwf 

BitCount 

bsf 

rpO 

if  _CLOCK_STRETCn_CHBCK 

009D 

0801 

movf 

option, w 

009E 

39C3 

andlw 

OPTION_INIJ^ 

609P 

OOtl 

9pjti^ 

endlf 

TxmtNextBiti 

00  AO 

0064 

clrvnat 

OOAl 

1006 

bcf 

SCL 

00A2 

0D93 

rlf 

DataByteCcw 

00A3 

1086 

bcf 

00A4 

1803 

btfsc 

C 

00A5 

14SS 

bsf 

SDA 

00A6 

210B 

call 

Delay47uSec 

00*7 

1406 

bsf 

self 

00A8 

210D 

call 

Delay40uSee 

if  _CLOCK_STRET<a,CHBCK 

00A9 

1283 

bcf 

rpO 

OOAA 

0181 

clrf 

rtcc 

OOAB 

HOB 

bcf 

rtif  ^ 

00  AC 

168B 

bsf 

rtie 

00  AD 

1391 

bcf 

TIME_OOT_ 

Chec!)c_SCli_ 

1> 

OOAE 

1B91 

btfsc 

TIME_OOT_ 

OOAF 

28FC 

goto 

,c  r ; 

Bu«_Fatal_Error 

; 

;  make  copy  of  DataBytE*: 

;  set  Bus  status  for 

;  reset  status  bit 


i  act         kS'  wa  out.  'tteHswt  tm  1  Mm 


defined. in  I2C.H  header  file 


clear  WDT,  set  for  18  mSec 


;  MSB  first.  Note  DataByte  Is  Lost 


;  guarantee  min  LOW  TIKE  tLOW  &  Setup  ^i>t«  ^ 

;  set  clocik  high  ,  check  if  clock  is  iK^^,'  m$mm 

I  clock  being  stratehed 

;  guaremtaw  ate  flXi 


o 

3 
3 

"D 
Q 

3 

n> 

3 
i-t- 

Q) 
i-t- 

O 
3 

a 

o 

CD 
c 

V) 


0) 
(A 


;  clear  RTCC 

;  clear  any  pending  flags 

;  elable  RTCC  Interrupt 

;  reset  timeout  error  flag 

!  if  RTCC  timeout  or  Error  then  Abort  &  return 

;  Possible  FATAL  Error  on  Bus 


OOBO  1283 
OOBl  1C06 
00B2  28AE 
00B3  128B 
00B4  1683 


bef 

btfss 

goto 

bof 

bsf 


rpO 
SCL 

Chec<.SCIj_l 
rtie 

rpO  I 


.f  if  clock  not  being  stretched,  it  must  be  hl^ 
f  le^  until  SCL  high  or  RTCC  timeout  internet 
t  flioeit'  gooAi  disable  RTCC  interrupts 


00B5  0B8F 
SOBfi  28A0 


00B7  1006 
00B8  1486 
00B9  210B 
OOBA  1406 
OOBB  210D 
ODBC  1213 
OOBO  1886 
OOBE  28C5 

OOBF  1683 

ooco  logs 

OOCl  1110 
00C2  1610 
0a£3  1390 
00C4  0008 


00C5  1683 
00C5  1486 
00C6  1406 
00C8  1110 
00C9  1210 
OOCil  1790 

oesB  0009 


endif 

decfsz  BitCount 

goto  TxmtNextBlt 

bcf  SCL 

bsf  SDA 

call  Delay47uSec 

bsf  SCL 

call  Delay40uSec 

bcf .  rpO 

btfsc  SDA 

goto  TxmtErr«8ai^||rSlK«iarr 

bsf  rpO 


T}aiit_Progre8S 
Txmt_Success 
ACI^rror 


bof 

bsf 

bcf 

return 
TxmtErrorAck 
RELEASE  BUS 


bcf  Txint_Progre8s 

bcf  T»nt_Success 

bsf  ACK_Error 
return 


;  Cheek  For.  .l^HmanHmSgvn  i  gam 

;  reset  clock 

;  Release  SDA  line  for  Slave  to  pull  down 
f  guareentee  min  LOW  TIME  tLOW  &  Setup  time 
J  ©lock  for  slave  to  ACK 
I  guareentee  min  HIGH  TIME  tHIGH 

*»iwitli06B  'Q'  tio>  'test  f^m  .pin  SEA 
;  'SSIl  iim  pulled  lo»  W  slawt  if  0K 


reset  clock 


reset  TXHT  bit  In  Bus  Status 
transmission  sucoessfu). 


;  reset  TXKT  bit  in  Bus  Status 


»  OUCW 


;  Receive    A  BVte  Of  Data  From  Slave 

{  assume  address  is  alrea^  smt 

;  if  last  byte  to  be  received,  do  not  acknowledge  slave  (last  byte  is 

;  tested  fzeni,£ast_Byte_jlcv  bit  of  control  reg) 

t  Seta  Received  on  successful  reception  is  in  DataSeg  register 


CO 


t 


OOCC  2 SCO 


GetDatai 
goto 


RcvSyte 


RcvBy  te : 

OOCD  1590  bsf  Rcv_Progress 

OOCE  1290  bcf  Rcv_Success 

OOCF  3008  movlw  0x08 

OODO  008F  movwf  BitCount 

if  _CLOCH_SI«BTCH_ClffleK 

eODi  168$  baf  rpO 


;  set  Bus  status  for  tXBit  progzess 
;  reset  status  bit 


;  set  RTCC  to  INT  CLK  timeout  for  1  mSec 

I  do  not  disturb  user's  selection  of  RFDB  in  OPTION  Register 


00D2  0801  movf       option, w 

00D3  39C3  andlw     OFTION_INIT  ;  defined  in  I2C.H  header  file 


RcvtlextBiti 


00D5 

0064 

clrwdt 

; 

clear  WDT,  set  for  18  mSec 

00D6 

1683 

bsf 

rpO  ; 

page  1  for  TRIS  manipulation 

00D7 

1006 

bcf 

SCL 

OODS 

148S 

bsf 

SDh  ; 

can  be  removed  from  loop 

nm 

call 

Delay47uSec  i 

guarantee  nin  LOW  TIKE  tLOW  £  Setup  time 

urn 

bsf 

SCI.  ; 

clock  hiM<;  'i»m.  '«aa|  3aif'  «|im«». 

OODB 

2im 

call 

Delay40uSec  ; 

guarante*  win  SHH  tSIIB  &aSSIa 

"     "  J- 

-•is  jmia^_STRIBTGIL.CBBeK 

OODC 

1383 

bcf 

rp6 

OODD 

0181 

clrf 

rtoc  ; 

clear  RTCC                            ,  ^, 

CODE 

llOB 

bcf 

rtif        :  ^. 

clear  any  pending  flags^ 

OODF 

168B 

bsf 

rtie 

elable  RTCC  Interrupt 

OOEO 

13?* 

bof 

TI!JB_aW^i.  ; 

reset  timeout  error  flag                     .  :\it. 

-C 

OOEl 

1B91 

btfse 

TIIE_OOT_  ; 

if  RTCC  timeout  or  Error  then  Abort  S  ratwen 

00E2 

28PC 

goto 

Bus_Fatal_^rer 

Possible  FATAL  Error  on  Bus 

00E3 

1283 

bcf 

rpO 

00E4 

1C06 

btfss 

SCL 

if  clock  not  being  stretched,   it  must  be  high 

00E5 

28E1 

goto 

Check_SCIt^ 

loop  until  SCL  high  or  RTCC  timeout  interrupt 

00E6 

128B 

bcf 

rtie  ; 

Clock  good,  diable  RTCC  interrupts 

00E7 

1683 

bsf 

rpO 

endif 

O0B8 

izm 

bcf 

rpO  ; 

select  pagis  0;  te.^ead  FCarts  ^ 

00B9 

100% 

bcf 

o  I 

oen 

ia»s 

0«B 

i4m 

'M 

<m 

;  TSISP  7777  DO  2  oiit  of  3  Majority  detect 


OOBC 

0D8B 

rlf 

t   lafk  aMfk  daka   f  MSB  firefcl 

OOED 

decfsz 

BitCeunt 

OOBE 

2805 

goto 

RcvMextBit 

.  2f  last  byte  Gen6X3t6  NACK 

do  iiQ't  send  ACK  on  last  )3ytAf  main  routine  will  send  a 

OOEF 

1683 

bsf 

upO 

OOFO 

1006 

bcf 

SCI. 

OOFl 

1086 

bcf 

SDA 

;  ACK  by  pulling  SDA  low 

00F2 

1911 

btfsc 

Last_Byte_Rcv 

00F3 

1486 

bsf 

SDA 

;   if  last  byte,   send  NACK  by  setting  SDA  hi^ 

00F4 

210B 

call 

Delay47uSec 

;  guarantee  min  LOW  TIME  tLOW  &  Setup  time 

00F5 

1406 

bsf 

SCL 

00F6 

210D 

call 

Delay40uSec 

;  guarantee  min  HIGH  TIME  tHIOU 

RcvEndi 

0OF7 

1006 

bcf 

SCL 

OOFS 

1190 

bcf 

Rcv_ProgresB 

;  reset  TXHT  bit  in  Bus  Status 

00F9 

1690 

bsf 

Rcv_Success 

;   transmission  successful 

OOFA 

1386  iU'.i 

bcf 

i  ACiCiOKc  ■   .   '  ,\ 

OOFB 

ooos  • 

if  _CLOCK_STBBS!GR_Can!CK 


:  F&tttl  Error  On  I2C  Bus 


3MC 


OOFC  12  8B 


OOFD  1683 
OOFO  1486 
OOFE  1406 


0100  1490 

0101  1710 

0102  1110 

0103  1210 


Slave  pulling  clock  for  too  long  or  if  SCL  Line  is  stuck  low. 
This  occurs  if  during  Transmission,   SCL  is  stuck  low  for  period  longer 
than  approx.  ImS  and  RTCC  times  out  (appox  4096  cycles  :  256  *  16  — 
;    prescaler  of  16).  Mt  . 

,  ******** 

l«"»i»»TS»T"A-il\3  ♦  II 

Bijta_Fatal_jb;ror  I 
;  disable  RTCC  InterzusK: 
bcf  rtie 
.BOS 


;  disable  RTCC  internets,  until  ncMfi. 


Set  the  ButuStatus  Bits  appropriately 


bsf 
bsf 
bcf 
bcf 


Abort 

Fatal_Error 

Txint_Progress 

Txmt_Success 


transmission  was  aborted 
FATAL  Error  occured 
Transmission  Is  Not  in  Progress 
Transmission  Unsuccesful 


(/) 

o 

Q} 
-t 
(D 

3 
■o 

(D 

3 

(D 
3 

fi) 

mmm 

O 
3 


lo 

o 

DO 
c 

(0 


Q) 

(0 


x       it  .. 


0104  205F 

0105  0008 


0106  3006 

0107  0092 
OlOB  0B92 
0109  2908 
OlOA  0008 


OlOB  3004 
OlOC  2907 


01$D  3003 
eiOS  2907 


call  TxstSCopBlt 


Txy  sending  a  STOP  bit,  nay  be  not  suocassful 


o 


.************************************************* 

endif 

.************************************************* 
;  (3«ieral  Fuipose  Delay  Routine^ 

;    Delay4uSis  wait  loop  for  4.0  uSec 

•    Delay47uS      is  wait  loop  for  4.7  uSec 

;    DelaySOuS      is  wait  loop  for  5.0  ttSec 


*********************** 


.*********«***************************•******** 

.  .. 

DelayBOuSec: 

movlw  (  (_50uS_Delay-5) /3  +  1) 

DlyK   •       .  ■  ■ 

movwf  DslayCount 

goto  $-1  i         BC  "  ■<"»cr  T'  -  :o    t^-i-  .-.ihii 

return  it      ;-     .-f.  ,  - , 


**********************************************< 


********** 


Delay47uSec: 
movlw 
goto 


( (47uS_Delw,|ia.+  ,ll. 
DlyK 


Delay40uSecs 

'WWlw  ( (_40uS_Dela3ir-'8) /3  +  1) 

goto  -  ■  DlyK 

.*•************ 
endif 


3 

■a 

(5" 

ID 


ro 

o 

(0 


*Q} 


.    HSPROM  (24C04)  may  be  in  write  mode  <busy) ,  check  for  ACK  by  sending  a 
;    control  byte 
IiO»DJU)DR_8  _Slave_l_Addr 


OlOF  1011 

OlOF  30A0 

OlJiO  008C 

■  ^tiT,  v'i'f.. 

■asc  ••■4-. 


waitl : 
I2C_TEST_DEVICE 


0112  2011 

0113  IFll 

0114  2912 

0115  0064 


btfss  slaveActiva 
goto  waitl 
clzHdt 

I2CUtBftI)j5aB    S,  OataBeglafl,  0x50 


0116  1091 

0116  2057 

0117  2068 
0119  3050 

0119  008E 
OllA  2095 
one  3007 

one  0096 

OllD  3021 
OllE  0084 

0120  2039 


I,0M)JU)DR_8  _iSi«ve_2,.AS4f ;  ■  j 

0121  1011 

0121  30Ae  jsCim 

0122  008C 


0124  2011 

0125  IFll 

0126  2924 

0127  0064 


walt2: 
I2C_TBSTJ3BVICE 


goto  walt^ 
olrwdt 


0128  1091 

0128  2057 

0129  206B 
012B  3060 
012B  008E 


I2CJlBftD_St]B    8,  9K^gBegin+l,  0x60 


See  If  alave  is  respeniUng 

if  stuck  for  ever,  recover  from  WDT,  can  use  other  schemes 


Read  8  b/tes  of  data  fron  Slave  2  starting  from  Sub-Address  MM 


it  Btmik  tot  ever,  reeisvar  fccn  M9,  cait  use  other  si^enes 


CO 


012C  2095 
012E  3007 
012E  0096 
012F  3021 
0130  0084 

0132  2039 

0133  0008 


0134  1011 
0134  3006 

mm  mac 

"    ..  ICS. 

J-       ■  jV. 

0137  2011 

0138  IFll 

0139  2937 
013A  0064 


013B  1091 
013B  2057 
013C  206B 
013E  3000 
013E  008E 
013F  2095 
0141  3007 

0141  0096 

0142  3020 

0143  0084 
0145  20^9 


0146  0008 


return 

.  *************************************************************************************************** 

ReadSlave3:  ^  i.  . 

IiOADJkDDR^S  _Slav*_3_Aadr 


waits  I 
I2C_TEST_DEVICB 


goto      <mSM  '  I       i^Me        mme'^,.  m^t^me  tiem  tBS,  can  use  other  echenes 

olrvwlt  V  g  tA(«a  •»  a»f«  £!-■•  awfj   '  m..,     ■  t  v-.     •  - 


"turn  ,  ,  ._ 

J ****************************************************«'* 

^  Fill  Data  Buffer  With  Test  Data  (  8  bytes  of  0x55,  OxAA  pattern) 

*************************************************************** 


FillDataBuf : 


0147  3000 

movlw 

0x00 

;  start  address  location  of  EEPROM  array 

0148  OOAO 

movwf 

DataBegin 

;  1st  byte  of  data  to  be  sent  is  start  address 

0149  3021 

novlw 

OafcaBegin-fl 

;  data  starts  following  address  (RAM  Pointer) 

014A  0084 

novwf 

far 

014B  3008 

movlw 

8 

;  fill  RAH  with  8  bytes  ,  this  data  Is  welttton 
BBPROH  (slave) 

014C  009A 

movwf 

byteCount 

014D  3055 

movlw 

0x55 

,■  pattern  to  fill  with  is  0x55  &  OxAA 

014E  009B 

m* 

014F  099B 

0150  081B 

novf 

HoIdData.w 

0151  0080 

movwf 

indf 

0152  0A84 

incf 

fsr 

;              mxt  location 

0153  0B9A 

decf sz 

byteCount 

0154  294F 

goto 

XI 

0155  0008 

,  ^ return 

I 

; 

;  Main  Routine     (Test  Program) 

;  --SINGLE    MASTER,  MULTIPLE  SLAVES 

. *************************«.********«********************************************* 


0156  204D 

0157  178B 


Start! 

i^tmt  InitI2CBtts_l(as6er 
iMtf  gle 


;  initialize  I2C  Bus 

;  enable  global  interrupts 


0158  2147 


call  FillDataBuf 


;  fill  data  buffer  with  8  bytes  of  data  (0x55,  OxAA) 


^  ;  Use  high  level  Macro  to  send  9  bytes  to  Slave  (1  &  2  :  TWO  24C04)  of  8  bit 

- '  -  '   ■  r  Mrito  9  %«aa  t«  Slave  I,  s^xttog  at  SXH  a^k  peinter  Oataliegin 


0159  1810 
015A  2959 


015B  lOll 


btfsc  Bus_Busy 
goto  $-1 
L0AD_ADnR_8  _Slave_l_Addr 


;  is  Bus  Free,  ie.  has  a  start  £  stop    bit  been 
;  detected  (only  for  multi  master  system) 
;  a  very  sinple  test,  unused  for  now 


mm  m  »a*> 


015B  30A0 
015C  008C 


015E  3009 
015E  0096 
015F  3020 
0160  0084 
0162  2019 
01S2  205W 


Qt64  1810 

mm  29««  1 . 


0166  1011 

0166  30AC 

0167  008C 


0169  3009 
0169  0096 
016B  3020 
016B  0084 
016D  0800 
016D  0097 
016E  3030 
016F  0080 
0174  2019 
0172  0817 
0172  OOAO 

0174  205P 

0175  210F 


0176  1041 
017C  30it 


OK09ii.  OatoBegin 


bcf  sc  Bua_jBusy 
•   a<>M>,. ,$?}...... 


Write  8  bytes  of  Data  to  slave  2  starting  at  slaves  memory  address  0x30 


is  Bus  Free,  ie.  has  a  start  &  stop  bit  been 
detected  (only  for  multi  master  system) 

»,  y<vx  j^maiA        mvfioi  Am  .'m  


(/) 
O 

Q) 
t 
(D 

3 

(D 

3 

(D 

3 
I-+ 

0) 


=1  :*r'-  "rr 


ro 

o 

c 

0) 


Q) 
(0 


call  IteadSlavel 


read  a  byte  frcHii  slave  from  current  address 


0177  008C 
0179  30CC 
017A  OOAO 


017B  3002 

017B  0096 
017D  301F 
017D  0084 
017F  0800 
017F  0097 

0180  3033 

0181  0080 

0183  2019 

0184  0817 
0184  009F 

0186  205F 

0187  2134 


0188  cost 

0189  29m 


movlw  OxCC 
movwf  DataBegln 
I2C_WR_S0B  0x01, DataBegln,  0x33 


Gsll       ReadSlave3  ;  Read  From  Slave  PIC 


goto  self 

1 


NOTES: 
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Microchip  AN578 

Use  of  the  SSP  Module  in  the  FC™  Multi-Master  Environment 


INTRODUCTION 

The  Inter-IC  (1^)  bus  is  a  two-wire  serial  interface 
developed  t>y  Phillips/Signatics™.  The  spepifiGatfon 
supports  data  transmission  up  to  400  Kbps. 

Tlie  PC  interface  employs  a  comprehensive  protocol  to 
ensure  reliable  transmission  and  reception  of  data. 
When  the  bus  is  active,  one  device  is  the  Master  (gen- 
erates the  clock  and  the  handshal<ing  signals),  while  all 
the  other  devices  are  Slaves.  The  current  bus  Master 
can  both  read  from  and  write  to  any  of  the  Slave  units  by 
addressing  them  individually.  On  a  Multi-Masterbusthe 
Masters  follow  an  arbitration  scheme  to  ensure  that  the 
bus  is  not  corrupted. 

Each  device  attached  to  the  PC  bus  is  assigned  a  unique 
address.  When  a  Master  wishes  to  initiate  a  data 
transfer,  it  first  transmits  the  address  of  the  device  that 
it  wishes  to  "talk"  to.  All  devices  'listen"  to  see  if  this  Is 
thelraddress.  Within  this  address,  aM^p^ifies  whether 
the  Master  wishes'tt(^^^MliMMniirWtt«%awi 
device. 

The  output  steiges  of  each  device  on  the  bus  attached  to 
the  cSodk  (SCL)  and  data  (SDA)  lines  must  have  an 
open-diain  or  open-coNector  in  order  to  peifbmi  the 

wired- AND  function  of  the  bus.  External  pull-up  resistors 
are  used  to  ensure  a  high  level  when  no  device  is  pulling 
the  line  dovm.  The  only  limitation  on  the  number  of 
devices  that  may  be  attached  to  the  bus  is  limited  by  the 
maximum  bus  loading  specification.  For  complete  bus 
specifications,  refer  to  Philips/Signetics™  document 
"The  PC-bus  and  how  to  use  it".  The  order  number  for 
I  ttiis  document  is  98-8080-575. 


-J.  .V  lO,  u  =  


INITIATING  AND  TERMINATING  DATA 
TRANSFER 

Duringtimes  of  no  data  transfer  (idle  time),  t)oth  SCL  and 
SDA  are  pulled  high.  A  Master  device  which  wishes  to 
take  control  of  the  bus  must  first  generate  a  START 
condition.  The  START  condition  is  defined  as  a  high  to 
low  transition  of  SDA  when  SCL  is  high.  When  the 
Master  has  completed  all  data  transmissions  and  wishes 
to  relinquish  the  bus,  it  generates  a  STOP  condition. 
The  STOP  condition  is  defined  as  a  low  to  high  transition 
of  SDA  when  SCL  is  high.  Because  the  START  and 
STOP  conditions  are  defined  as  transitions  of  the  SDA 
when  the  SCL  is  high,  the  SDA  line  can  only  change 
when  SCL  is  low  during  the  actual  data  transmission. 
Figure  1  shows  the  relationshfp'betMMiil  SOtaM  S0>^ 
for  the  various  conditions. 


FIGURE  1:  START  AND  STOP  CONDITIONS 


SOA 

i  k 

/ 

SCL 

s 

\ 

/ 

p 

start        Change  Change  Stop 

Condition      of  Data  ofl^ata  Condition 


I 

J 
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ADDRESSING  PC  DE^^S 

There  are  two  address  fonmats.  The  simplest  is  the  7-bit 
address  format  with  a  FVW  bit  (see  Figure  2).  The  more 
complex  is  the  10-bit  address  with  a  R/W  bit  (see 
Figure  3).  For  10-bit  addressing,  two  bytes  must  be 
transmitted  with  the  first  five  bits  specifying  this  to  be  a 
10-blt  address.  Only  7-bit  addressing  is  used  in  this 
application  note. 

'..u  , .  •  


FIGURE  2:  7-BIT  ADDRESS  FORMAT 


MSB 

LSB 

s 

1   1   1   1    1  1 

1   1   1   1    1  1 

R/W 

ACK 

LsLAVEADDRS-' 

1 

Sent  by 

Slave 

s 

-  Start  Condition 

R/W 

-  Read/Write  bit 

TRANSFEfT  ACfOlOWLEDGE 

Slave  as  receiver. 

All  data  is  transmitted  as  bytes,  with  no  limit  to  the 
number  of  bytes  transmitted  per  data  transfer.  After 
each  byte,  the  slave-receiver  generates  an  acknowl- 
edge bit  (ACK)  by  pulling  the  SDA  line  low.  When  a 
slave-receiver  doesn't  acknowledge  the  slave  address 
or  received  data,  the  master  aborts  the  transfer.  Whether 
the  ACK  bit  is  generated  or  not,  SDA  must  be  released 
by  the  slave  so  that  the  master  can  generate  the  STOP 
condition. 

Master  as  receiver: 

If  the  master  is  receiving  the  data,  it  generates  an 
acknowledge  signal  for  each  received  byte  of  data 
except  for  the  last  byte.  To  signal  the  end  of  data  to  the 
slave-transmitter,  the  master  does  not  generate  an 
acknowledge.  The  slave  then  releases  the  SDA  line  so 
the  master  can  generate  the  STOP  condition.  The 
master  can  also  generate  the  STOP  condition  during  the 
acknowledge  pulse  for  valid  termination  of  data  transfer. 

If  the  slave  needs  to  delay  the  transmission  of  the  neaA 
byte,  holding  the  SCL  line  low  will  force  the  master  iilD 
a  wait  state.  Data  transfer  continues  when  the  slave 
releases  the  SCL  line.  This  allows  the  slave  to  move  the 
received  dataorfetch  the  data  it  needs  to  transfer  before 
c^wjp9the<;jip^,tg  ftait,  ]2]|||p^|t^  technique  can 


FIGURE  3:  KKBTT  ADDRESS  FORMAT 


(f't.  ;:>f'.-i  •  -■•  r   A.  ■ 


-.1  =1-1. ■  .  ■!  ...  •ilj! 
rff  f  it  i. 


.1 

1 

1 

0 

A9 

A8 

R/W 

ACK 

A7 

A6 

A5 

A4 

A3 

A2 

A1 

AO 

ACK 

j.+v.:  /(I 


-Sent  by  slave- 
's;! Q  for  wittt 


S  _  -  start  Condition 
R/W  -  Read/Write  bit 
ACK  -  /Acknowledge 
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MULTI-MASTER 

The  PC  protocol  allows  a  system  to  have  more  than  one 
master.  When  two  or  more  masters  try  to  transfer  data 
at  the  same  time,  aibitration  and  synchronization  occur. 

Arbitration: 

Arbitration  tal<es  place  on  the  SDA  line  while  the  SCL 
line  is  high.  The  master  which  transmits  a  high  when  the 
other  master  transmits  a  low  loses  arbitration  (see 
Figure  4)  and  turns  off  its  data  output  stage.  A  master 
which  lost  aibitration  can  generate  clock  pulses  until  the 
end  of  the  data  byte  where  it  lost  arbitration.  When  the 
master  devices  are  addressing  the  same  device,  arbitra- 
tion continues  into  the  data. 


Clock  Synchronization: 

Clock  synchronization  occurs  after  the  devices  have 
started  arbitration.  This  is  performed  using  a  wired-AND 
connection  to  the  SCL  line.  A  h  igh  to  low  transition  on  the 
SCL  line  causes  the  concerned  devices  to  start  counting 
off  their  low  period.  Once  a  device  clock  has  gone  low, 
it  will  hold  the  SCL  line  low  until  its  SCL  high  state  is 
reached.  The  low  to  high  transition  of  this  clock  may  not 
change  the  state  of  the  SCL  line,  if  another  device  clock 
is  still  within  its  low  period.  The  SCL  line  is  held  low  by 
the  device  with  the  tongest  low  period.  Devices  with 
shorter  low  periods  enter  a  high  wait-state,  until  the  SCL 
line  comes  high.  When  the  SCL  line  comes  high,  all 
devices  start  counting  off  their  high  periods.  TTie  first 
device  to  complete  its  high  period  will  pull  the  SCL  line 
low.  The  SCL  line  high  time  is  determined  by  the  device 
'Will^1^'illsiiMiMlBNP''tMk'  IFMS-ls  diown  In  Figwe  5. 


FIGURE4:  MULTI-MASTER  ARBITRATION 
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FIGURE  5:  CLOCK  SYNCHRONIZATION 
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IMPLEMENTATION  IN  THE  PIC16CXX 

This  Application  Note  uses  tlie  PIC16CXX  in  a  Multi- 
Master  PC  environment.  The  PIC1 6CXX  acts  as  both  a 
Master  and  a  Slave  on  the  bus. 

Hardware: 

The  denionstration  hardware  consists  of  a  keypad  mul- 
tiplexed with  eight  LEDs  on  Port  B  and  connections  to 
the  through  the  RC3/SCL  and  RC4/SDA  pins.  (See 
Figure  6). 

Software: 

The  software  transmits  in  Master  mode  and  receives 
data  in  Slave  mode. 


The  transmit  routine  scans  the  keypad;  debounces  the 
keypresses,  and  transmits  their  encoded  value  in  Mas- 
ter mode  over  the  IK>  bus  to  slave  address  A6.  Before 
transmitting,  the  status  of  the  Synchronous  Serial  Port 
(SSP)  Is  checked';  No  datats  sentiinttt  tie  SSP  status 
register  indicates  that  a  Stop  bit  was  received.  If  the 
transmission  causes  any  errors,  the  error  code  will  be 
displayed  on  the  LEDs,  and  transmission  will  again  be 
attempted. 

Data  received  in  Slave  mode  at  address  A2  f  rom  the  bus 
is  displayed  on  the  LEDs.  Slave  reception  is  interrupt 
driven.  When  a  complete  word  is  received  with  the 
proper  address,  the  processor  is  interrupted,  and  the 
program  verities  that  an  SSP  interrupt  was  received. 
Once  it  has  been  verified  that  the  interrupt  was  caused 
by  the  SSP,  and  that  the  buffer  is  full,  the  data  word  is 
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+5V 
0  C9 
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13 


14 


8 


IfiJ 
J3. 


23 


VDD  U1 

RB7 

Vss 

RB6 

mclRa/pp 

RB5 

OSCI/CLKIN 

RB4 

OSC2/CLKOUT 

RB3 

RAO/ANO 

RB2 
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RBI 

RA2/AN2 

RBO/INT 

RA3/AN3 

RD7/PSP6 

RA4/T0CKI 

RD6/PSP6 

RA5/AN4/SS 

RD5/PSP5 

RE0/RD/AN5 

RD4/PSP4 

RE1/WR/AN6 

RD3/PSP3 

RE2/CS/AN7 

RD2/PSP2 

RC0/T1CKI 

RD1/PSP1 

RcimcKO/ccra 

RDO/PSPO 

RC2/CCP1 

jRC7/RX/DT 

RC3/SCK/SCL 

RC4/SDI/SDA 

Vss 

HC5/SDO 

Vss 

PIC16CXX 


4fl 
39 
38 
37 
36 
3^ 
34 

2a 

23 
22 
11 
|2il 
19 
26 
25 
12 


ijz^  l_rT£ 
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MPASM  01.00.02  Alpha  SCAPPNOT\Iie-  -fctte* 
Demonstration  of  I2C  MultiMaster  mode 


2iI4 


LOC     OBJECT  CODE 


LINE  SOURCE  TEXT 


r 


1 


0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
Q02A 
S02B 
002C 
002D 
002E 
002F 
0030 
0031 


0000 


0001 
0002 
0003 
0004 
0005 

0006 
0007 
0008 
0009 

0010 

0011 
0012 

0013 

■0014 
0015 

0016 
0017 
0018 
0019 
0020 
'  0021 
0114 
0115 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
004:9 
OOSO 


TITLE  "  Demonstration  of  I2C  MultiMaster  mode' 
LIST  P=16C64,  F=INHX8M 


************** 


************* 


*************************************** 


**  Two  wire/I2C  Bus  MultiMaster  sample  routines  for  MievQC^ip's  | 

**  PIC16C64  8-bit  CMOS  single  chip  microcoitputer 
RflVis0d. 'VWMW  P/iM^94). 

**      M**:  weed  =  picieesi     '  . 

*•  ttBSfe  1)  All  timings  are  Based  on  a  reference  crystal  frequency  of 
**  4MHz  which '  is  equjivalent  to  an  instruction  cycle  time  of 

**  of  1  usee. 

**  2)  Address  a^  li^e>rpl  values  are  read  in  decimal  unless  ^ 


***«^***********************:*****A***********r 


File  Register  Assignment 


include  * \picmas tr \picdemi i \picreg . equ* 


n  ! 


FLAG 

EQU 

2  Oh 

Common  flag  bits  register 

EEPROM 

EQU 

21h 

Bit  buffer 

ERCODE 

EQU 

22h 

Error  code   (to  indicate  bus  status) 

ADDR 

lao 

Address  register 

DATAI 

2m 

Stored  data  input  register 

DATAO 

EQU 

25h 

Stored  data  ou.^ut  register 

SLAVE 

EQU 

26h 

Device  address  (lOlOxaocO) 

TXBtJF 

EQU 

27h 

TX  buffer  u 

RXBUF 

EQU 

28h 

RX  buffer  ^ 

COUNT 

EQU 

29h 

Bit  counter 

TEMP  1 

Temporary  storage 

ROW 

Keypad  row 

NEW_KEY 

EQU 

2Ch 

Storage  for  latest  key 

OLD_KEY  ' 

KQU 

2Dh 

Storage  for  last  key  pressed 

DISPVAL 

EQU 

2Eh 

Value  displayed  on  LEDs 

TEMPI 

EQU 

2Fh 

Scratchpad  register 

TEMP_W 

EQU 

3  Oh 

Storage  for  W  register- 

TEMP_STAT 

EQU 

31h 

Storage  for  SArM^  m^Btei 

Bit  Assignments 


;    FLAG  Bits 

ERROR  EQU  0 

I.. 


J^ror  flag 


m 
'J 

J? 
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LOC 

cm 

LING 

se&KSS  "Mats 

'  TT  rMO'Tit  stuu  sac 

0051 

0007 

0052 

DI  EQO 

7 

;  EEPROM  input 

ooos 

-. 

0053 

DO       ; Sea 

6 

0054 

:                       "  .' !  . 

0055 

J  I2C  Dewioe  Bits 

0056 

0004 

0057 

SDA  EQt; 

4 

J  RB7,  data  in/©ut 

0003 

0058 

SCL  EQU 

3 

;  RB6,  serial  clock 

0059 

0060 

;End  of  files /bits  equate 

0061 

ORO 

UUH 

0000 

2810 

0063 

goto 

msM 

006S 

ORG 

04h 

;  Interrupt  Vector                     » '  *"      • "  " 

0004 

006€ 

goto 

service_int 

•0067 . 

0Q6S 

ORG 

lOh 

;  Begining  of  Program  space 

0069' 

0010 

OlAE 

0070 

-  -cl-rf 

;  Blank  out  LEDs 

0011 

OlAO 

•ifc 

0071 

N  elrf 

FLAG 

'  j'-Cls^ar  error  register 

0012 

0187 

0072 

olrf 

PORT_C  ■ 

-  ;  Set  SDA,  SCL  low  when  not  is  tri-state 

0013 

3008 

0073 

movlw 

08h 

0014 

OOAB 

0074 

movwf 

ROW 

;  Set  initial  row  to  be  strobed 

0015 

303E 

007& 

movlw 

B '  00111110 ' 

;   I2C  7  bit  slave  mode  with  master 

0016 

0094 

SSPCON 

;     mode  enabled  ' 

0017 

1683 

0077 

llXS'f 

;  Select  page  1 

0018 

0186 

007t 

olrf 

TRIS_B 

;  Set  PORT_B  to  all  outpats 

0019 

3008 

0079 

movlw 

B'OOOOIOOO ' 

;  Enable'  SSP  interrupt 

OOIA 

008C 

0080 

movwf 

PI  El 

OOIB 

30A2 

0081 

movlw 

a  i.UJ.UUUJ.U 

;  Slave  address 

OOlC 

0093 

0082 

movwf 

o    n  3\  T^r> 
bbFAJJU 

OOID 

1587 

0083 

bsf 

TRIS_C,3 

;   Set  SCL  high 

OOIE 

1607 

0084 

bsf 

TRIS_C,4 

;  Set  SDA  high 

OOIF 

1283 

0085 

bof 

STATUS,  RPO 

;  Select  page  ©  • 

0020 

118C 

0086 

PIR1,3 

;  ca^ar  SSP  ix^d^c^t  flag 

0021 

3000 

!■ 

0087 

movlw 

0022 

oots 

0088 

movwf 

^ii^Ml^  ftp 

0089 

0090 

KbdWait 

0023 

OlAA 

0091 

clrf 

TEMP 

0024 

216B 

0092 

call 

SetapDelay 

0025 

2102 

0093 

call 

;  Checdc  for  k^  jessed 

0026 

1283 

0094 

bcf 

STATUES  ;.StP@ 

0027 

082C 

0095 

movf 

NEW_KEy,W 

J  Get  latest  key 

0028 

39FF 

0096 

andlw 

OPFh 

;  Key  pressed? 

0029 

1903 

0097 

btfso 

STATUS , Z 

002A 

2823 

0098 

goto 

KbdWait 

;  No,  go  check  again 

002B 

00A5 

0099 

;  Yes;  out^t        on  I2C  bus 

002C 

3  OAS 

0100 

movlw 

B'lOlOOllO' 

;  i^dress  of  d^ice  being  addressed 

002p 

O0A6 

0101 

movwf 

SLAVE 

002B 

1693 

0102 

bsf 

STATOS^RPO 

0103 

CheckAgain 

'    -.ii-.l  r:.;. 

.  '10                         ■  / 

J?0  Mnlti^Master  Erivir'onmerit 
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LOC    OBJECT  C0D8         LINK  SOORCE  TIXT  ■^■^  rno^-"  iti*T  T 


002F 

1A14 

0104 

btfsc 

SSPSTAT, 4 

;If  STOP  bit  received  last... 

0030 

2833 

0105 

goto 

Goxmit 

;     OK  to  transmit 

0031 

1994 

0106 

btfsc 

SSPSTAT,  3 

;If  START  bit  recieved  last...         i'j  'j 

0032 

282F 

0107 

goto 

CheckAgaln 

;    wait  for  STOP  bit 

0108  Goxnlt 

0033 

1283 

0109 

bcf 

STATOS,RPO 

0034 

138B 

0110 

bcf 

INTC0N,7 

;  Disable  interrupts                          *'.'>'  c 

0035 

203F 

0111 

call 

WRBYTE 

;  Output  byte                                      '.  lO 

0036 

1C20 

0112 

btfss 

FLAG, ERROR 

;  Check  for  error 

0037 

283D 

0113 

goto 

Checkout 

;  No  error,  go  on 

0038 

0822 

0114 

movf 

ERCODE.W 

;  Get  error  code 

0039 

0086 

0H!Sti,rr«rt  .- 

siaovwf 

PORT_B 

;  Put  error  code  on  LEDs 

003A 

OOAE 

OllS 

movwf 

DISFVAL 

OOBB 

1020 

0117 

lxi£ 

ttMS.ESStaCL 

;  Cle^  mi^^  #l*sr 

003C 

282F 

0118  - 

isto 

CkeckAgain-  *  * 

0119  Checkout 

iiC:                                  i  ^ 

003D 

178B 

0120 

bsf 

irrTC0N,7 

;  Enatda  iilteEtl^Cs 

003E 

2823 

0121 

goto 

KbdWait 

I. 

0122 

0123  ;  

—   oja«  1 

BTTE-mUTE,  tfrlte  oae  byte  to  I2C  (Ifastei:  Ifode)                      j .  / 

0i25  ;  — 

0126  ; 

Ir^ut 

:  DATAO= 

data  to  be  written 

0127  ; 

ADDR 

-  destination  address 

0128  ; 

SLAVE 

=  device  address  (lOlOxxxO) 

0129  ; 

Output 

:             Data  written  to  EEPR(^  device 

0130  :  

0131  ; 

0132  WRBYTE 


003F 

1283 

0133 

bcf 

STATUS,  RPO. 

0040 

0826 

0134 

mpvf 

SLAVE, W  ; 

Send  SLAVE  address 

0041 

00A7 

0135 

movwf 

TXBUF 

to  TX  buffer 

0042 

20BF 

0136 

call 

BSTART 

Generate  START  bit 

0043 

2071 

0137 

call 

TX 

Output  SLAVE  data  address 

0044 

1283 

013S 

bcf 

STAin>S,8P0-.  ' 

0045 

0825 

i  .u'!»i39.. 

.  .wsnrt. 

DATAO.H:       :  -  ; 

Move  DATA                                                •  ,  r 

0046 

00A7 

into  transmit  buffer                       ,  \{ 

0047 

2071 

0141 

emi 

Output  DATA  and  detect  ' 

acknowledgement 

0048 

20CD 

0142 

call 

BSTOf 

Generate  STOP  bit 

0049 

0008 

0143 

return 

t  V  - 

0144 

0145  J — .  ■  ■  

0146 

BXTE-RISD,  Imad  one  byte 

frcn  I2C  (Master  Mode) 

0147 

0148 

Input 

:  ADDR 

source  address 

0149 

SLAVE 

device  address  (lOlOxxxO) 

0150 

Output 

:  DATAI 

data  read  ficm  serial  EEPROM 

0151 

0152 

'  '  .1                                           ■'     •  ' 

0153  SDBYTB 

:.  ■  1. 

004A 

1283 

0154 

bcf 

004B 

0826 

0155 

movf 

SIAVB.M  « 

004C 

00A7 

0156 

movwf 

IKBUP  } 
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LINE  SOGRCB  '^!!CT 


OMD  20BF 
004E  2071 
004F  1283 

0050  0823 

0051  00A7 

0052  2071 

0053  20BF 

0054  1283 

0055  0826 

0056  00A7 

0057  1427 

0058  2071 

0059  205P 
005A  20CD 
005B  1283 
005C  0828 
005D  00A4 
005E  0003 


005F  1283 

0060  3008 

0061  00A9 

0062  01A8 


0063  0DA8 

0064  1C03 

0065  1028 

0066  1803 

0067  1428 

0068  2087 

0069  1283 
006A  IBAl 
006B  1428 
006C  0BA9 
006D  2863 
006E  1721 
006F  209E 

0070  3400 


0157 

call 

BSTART 

;  Generate  START  bit 

0158 

call 

TX 

;  Output  SLAVE  address.  Check  ACK. 

01S9 

hct 

STATUS,  RPO 

0160 

aovf 

ADm.W 

;  Put  slave  data  address  into 

0161 

movwf 

TXBUF 

;     Xmit  buffer 

0162 

call 

TX 

;  Output  WORD  address.  Check  ACK. 

0163 

call 

BSTART 

.   START  READ 

0164 

bcf 

STATUS , RPO 

0165 

movf 

SLAVE,  W 

; 

0166 

Biovwf 

TXBUF 

0167 

.-,  .bsf 

TXBUF, 0 

;  Specify  READ  mode  (R/W  =1) 

TX 

;  Output  SLAVE  address  .! 

oim 

B.  isf-  •*»eB3!l 

RX 

,  AciAij  in  Qata  anu  acjuiowxeoy^ 

0170 

call 

BSTOP 

;  Generate  STOP  bit 

0171 

bcf 

STATUS , RPO 

0172 

movf 

RXBUF,W 

;  Save  data  from  buffer 

0173 

ffiovwf 

DATAI 

;   to  DATAI  file. 

0174 

return 

0175 

6176; 

 ■- — 

0177 

;            RECEIVE  eight  data  bits 

subrouti.)r|#  bito 

0178 

'}  

 ICS'i 

0179 

;  Input 

!  None 

0180 

;  Output 

:               RXBUF  = 

S-bit  data  received 

0181 

0182<i»>KEKO»  aH 

-i  .1 

0183 

m 

,  ■ 

0184 

bef 

STATUS, RPO 

01«S 

movlw 

.8 

;  8  bits  of  data 

0186 

movwf 

COUNT 

0187 

olrf 

RXBUF 

0188 

0189 

KXLF 

0190 

rlf 

RXBUF 

){TShi£t  data  to.  Jsuffer 

0191 

-  btfss 

3,0 

0192 

bcf 

RXBUF,  0 

I  carry  — >  f  (0) 

0193 

btfsc 

3,0 

0194 

bsf 

RXBUF, 0 

OlSi 

call 

BITIN 

0i96 

]9Cf 

STATUS,  RSO 

0197 

btfsc 

EEPROM,DI 

0198 

:£»£ 

RXBUF,  0 

;  Zx^ut  bit  =1 

01»9 

COUNT 

;  8  bits? 

0200 

goto 

RXLP 

0201 

bsf 

EEPR0M,DO 

,•  Set  acknowledge  bit  =  1 

0202 

call 

BITOUT 

;  to.  STOP  further  input 

0203 

« 

0204 

020S. 

OjtO^. 

■             !CIiANSIIIT  8  data  bits  subroutine  - 

0207 

02^)8 

;  Input 

;  TXBUF 

0209 

;  Output 

:            Da,ta  X'mitted  to  EEPROM  device 

..Ji  ':"|D«I 

PC  Miitti^Matter  Envirbniil^nt 
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Demonstration  of  I2C  HultiMaster  mode 

LOC     OBJECT  CODE  LINE  SOURCE  TEXT 


0210 

 t£  

0211 

0212 

TX 

0071 

1283 

0213 

tat 

STATUS, RPO  '  :■ 

0072 

300»' 

0214 

aevlw 

.8 

0073 

00A9 

0215 

Id.  ^ 

0216 

M.'- 

0217 

TXLP 

0074 

1321 

0218 

bcf 

EEPROM.DO 

;   Shift  data  bit  out. 

0075 

1BA7 

0219 

btfsc 

TXBUF,7 

;  If  shifted  bit  =  0,  data  bit  =  0 

0076 

1721 

.  0^20 

bsf 

EEPROM.DO 

; -Otberwise  data  bit  =  1 

0077 

209E  ^ 

0221 

call 

eiTODT 

;  Sazlal  data  o^t 

0078 

1283 

0222 

bcf 

0079 

0DA7 

0223 

rlf 

;  Rotate  TXBDP  left 

007A 

1C03 

0224 

btf  ss 

3,0          .  .  ■--!- 

;   f(6)  ->  f(7) 

007B 

1027 

0225 

bcf 

TXBUP,0  USKf 

;   f ( 7 )  — >  carry 

007C 

1803 

0226 

btfsc 

3,0 

;  carry  — >  f  ( 0 ) 

007D 

1427 

0227 

Haf 

^XBDF,  0 

007E 

0BA9 

0228 

-^eotaw  — 

;  8  bits  done? 

007F 

2874 

0229 

goto 

TXLP 

;  No. 

0080 

2087 

0230 

call 

BITIN 

;  Read  acknowledge  bit 

0081 

1283 

0231 

bcf 

STATUS, RPO 

0082 

3003 

0232 

movlw 

3 

0083 

IBAl 

0233 

btfsc 

EEPROM.DI 

;  Check  for  acknowledgement 

0084 

2  ODE 

0234 

call 

ERR 

;  ii&  M^mewledge  from  device 

0085 

1283 

0235 

bcf 

STATUS, RPO 

0086 

3400 

0236 

Q    -  • 

0237 

i  >  1 

0238 

0239 

Single  bit  rocoivw' S*om  120  %o  PIC 

0240 

0241 

Input 

:  None 

0242 

output 

:              Data  bit 

receiited        ^  ■ 

0243 

0244 

'IT? 

••■■•e 

0245 

BiTm 

0087 

1683 

0246 

bsf 

STATUS,  RPO 

0088 

1607 

0247 

bsf 

TRIS_C,SDA 

;  Set  SDA  for  input 

0089 

1283 

0248 

bcf 

STATUS,  RPO 

008A 

13A1 

0249 

bcf 

EEPR0M,D1 

008B 

1683 

02sa[ 

lid 

-■)m  ■ 

STATUS,  ape 

008C 

1587 

0251 

TRIS_C,SCL 

;  Clock  high 

008D 

3001 

0252 

movlw 

1 

OOSB 

1283 

0253 

bcf 

STATUS,  RPO 

008F 

1987 

0254 

btfsc 

PORT_C,SCL 

;  Skip  if  SCL    ia-  hic^i 

0090 

2895 

0255 

goto 

BITl  6 

0091 

1283 

0256 

bcf 

STATUS,  RPO 

0092 

1C20 

0257 

btfss 

FLAG, ERROR 

!  Remain  as  first  error  encoiintared 

0093 

O0A2 

0258 

■  ^  niovwf 

ERCOfiE 

;  save  error  codte 

0094 

1420 

0259 

bsf 

FLAG,  ERROR 

;  Set-«s«8arfl'a#>i 

0260 

BITl 

0095 

1283 

bcf 

0096 

1E07 

0262 

btfss 

;  mm     wtia.  sm  tm  itm 

3-306 
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LOC 

OBJECT  CODE 

I 

0097 

289A 

0263 

goto 

ACKOK 

0098 

1283 

0264 

bcf 

STATUS,  RPO 

0099 

17A1 

0265 

bsf 

EBFSOH.DI 

;  DI  =  1 

0266 

ACKOK 

009A 

1683 

0267 

b»£ 

009B 

0000 

0268 

nop 

;  Delay 

009C 

1187 

0269 

bcf 

;  KStum  SCL  to  low 

009D 

3400 

0270 

0 

0271 

0272 

0273 

single  bit  data  transmit 

from  PIC  to  I2C 

0274 

0275 

I'           ESmt9(  register,  Mt  DO: - 

0276 

Output 

:             Bit  transmitted  over  I2C 

0277 

Error 

bits  set  as  necessary 

0278 

0279 

-  ' 

0280 

BITOOT 

009E 

1283 

0281 

bcf 

STATES, - 

0Q9P 

1F21 

0232 

l^tfss 

EEPR^/BO 

OOAO 

28AB 

0283 

goto 

BITO 

OOAl 

1683 

0284 

bsf 

STATaS ,  RPO 

00A2 

1607 

0285 

bsf 

TRIS_C,SDA 

;  Output  bit  0 

00  A3 

3002 

0286 

movlw 

2 

00A4 

1283 

0287 

bcf 

STATUS ,  RPO 

0OA5 

1A07 

0288 

btf  sc 

PORT_C ,  SDA 

;  Cbeck  Cor  eri?^''code  2            .<  v 

00A6 

28B0 

0289 

goto 

CLKl 

J  "  Li                            '  .      "  1 

00A7 

1C20 

0290 

btf  8S 

FLAG,  ERROR 

;  RtikBain  as  first  error  ^icountefted' 

00A8 

00A2 

0291 

novwf 

ERCODE 

;  Save  error  code 

00A9 

1420 

0292 

bsf 

FLAG,  ERROR 

;  Set  error  flag 

OOAA 

2880 

0293 

goto 

CLKl 

;  SOA  locked  low  by  device 

0294 

0295 

BITO 

OOAB 

1683 

0296 

bsf 

STATUS, RPO 

OOAC 

1207 

0297 

bcf 

TRIS_C,SD* 

;  Out^st  O"" 

OOAD 

0000 

0298 

nop 

;  Delay 

OOAXcOOOO  ' 

0299 

tiap 

■  -  j.^  1  -  ..■ 

OOAF 

0000 

0300 

nop 

0301 

CLKl 

OOBO 

1683 

0302 

bsf 

STATUS , RPO 

I-   .  a 

OOBl 

1587 

0303 

bsf 

TRIS_C,SCL 

f  ■ 

00B2 

3001 

0304 

1 

;  i^Mor  code  1- 

00B3 

1283 

0305 

bcf 

s'rATOs,Rpo  ^' 

00B4 

1987 

0306 

btfsc 

PORT_C , SOL 

;  SCL  locked  low? 

0OB5 

28BA 

0307 

goto 

BIT2 

;  No. 

00B6 

1283 

0308 

bcf 

STATUS ,  RPO 

0OB7 

1C20 

0309 

btfss 

FLAG, ERROR 

;  Yes. 

00B8 

00A2 

0310 

movwf 

ERCODS 

;  Save  error  code 

00B9 

1420 

0311 

;  see  error  flag 

0312 

BIT2 

OOBA 

0000 

0313 

nop 

OOBB 

0000     -  .-.-it' 

0314 

nop 

OOBC 

1683 

0315 

bsf 

STSSDS.RPO 

O  liQM^|ylK3i0^4|[^ViMidllidiHk^  Mb. 


mm 
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ISGE  7 

OEl  ?c 


LOC     OBJECT  C20DE 


LIKE  SOTXteS' ^91$ 


OOBD  1187 
OOBE  3400 


OOSI'  1683 
OOCO  1607 

OOCl  1587 
00C2  3001 
00C3  1283 
00C4  1D87 
00C5  20DE 
00C6  1683 
0OC7  1207 
00C8  0000 
00C9  0000 
OOCA  0000 
OOCB  1187 
OOCC  3400 


bcf 
retlw 


TRIS_C,SCSCj 
0 


Return  SCL  to  low 


START  bit  generation  routine. 


0316 
0317 
0318 
0319 
0320 
0321 
.6322 
0323 
0324 

0325      ---   

0326  :aen&eait^  '^nm.'^tiiA  .ltS^::_lB  Mgh  y^iie  SBA  goes  f earn  to  low 
transition) 

0327  ;and  check  status  of  the  serial  qlock. 

0328  BSTART 


no^e 

initialize:  baa'.«@MWsie>tloa; 


03m 

0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
0344 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 

0354  ESTOP 


-i»S8f 

im£ 
fflovlw 

bcf 
btfss 
call 
bsf 

^99^  - 

nop 
nop 
nop 

bcf 
retlw 


g^TIJS,RPO 
TRIS_C,SnA 

TRIS_C,SCL 
1 

STATUS, RPO 
PORT_C,SCL 
ERR 

STATUS,  RPO. • 
TRIS_e,,SDA 


TRIS_ 
0 


Make  «ure  SpA  is  hl^ 

Set  clock  high 

Ready  error-  status  code  1 

Locked? 

SCL  locked  low  by  device,  flag  error 

SE>A  goes  low  during  SCL  high 
Tislng  adjustment,  l.SuS  02HHz 


;  Start  clock  train 


3TQP  bit  generation  routi^&~v^ 


Input 
Output 


None 

Bus  conmunication,   STOP  condition 


Generate  STOP  bit  (SDA  goes  from  low  to  high  Surlng  SCL  high  state) 

and  che^,  3jsBa  conditions,  c  .-"" 


OOCD 

1683 

0355 

bsf 

STATUS,  RPO 

OOCE 

1207 

0356 

bcf 

TRIS_C,SDA 

;  Return  SDA  to  low 

OOCF 

1587 

0357 

bsf 

TRIS^e.SCL 

;  Set  SCL  high 

OODO 

0000 

0358 

nop  , 

OODl 

0000 

0359 

nop 

0  0D2 

0000 

0360 

nop 

00D3 

3001 

0361 

movlw 

1 

;  Ready  error  code  1 

0  0D4 

1283 

0362 

bcf 

STATUS , RPO 

00D5 

1D87 

0363 

btfss 

PORT_C,SCL 

;  High? 

0OD6 

20I« 

0364 

call 

ERR 

;  No ,  SCL  locdced  low  by  device 

00D7 

1683 

0365 

bsf 

STATUS, RPO 

00D8 

1607 

0366 

bsf 

TRIS_C,SDA 

;  SOA  goes  fxam-  Inm  to  high  durdAgo  as 

SCilti^ 

00D9 

3004 

0367 

movlw 

4     V,;,  .  :  !,..-  . 

;  Rea^  error  mmS^-i  ' 

OODA 

1B07 

0368 

;Bigh7 
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Dememistration  of  I2C  MaltUIasteir  ^b'^  .a.!«iK-.j       ru       ,i  ^ji-..-iCi 

LOC    OBJECT  OXS         tjUtt  «GmiaK  iMfel  ■;  s?  i  .  1,   :  n;>  laoi   raS-  :w 


OODB 

2  ODE 

0369 

call 

ER£                     ;  No,  SDA  bus  B^t  releeuse  for  STOP 

OODC 

1283 

0370 

bcf 

STAT(XS,IVO 

OODD 

3400 

,  0371 

■  "BStlw 

0           .  la                          ti''                 -'    '■  - 

0372 

:  y 

,■•    w\       •  -  "  1                ■"  ■■  j.'i 

0373 

0374 

T«6  wl»/I2C 

-  CPU  ccmnunicatlon  error  status  t2tble  and  subroutine 

0375 

0376 

input  : 

W-reg      =  error  code                     -  '  ^' 

0377 

output  : 

ERCODE    =  error  code 

0378 

FLAG(BtilOR)  s.l  V           i    ■                                                   i  . 

0379 

0380 

code 

e^or  status  mode 

0S81  ; 

0382 

1 

:       SCL  loclced  low  by  device  (bus  is  still  busy) 

0383 

2 

:       SDA  locked  low  by  device  {bus  is  still  busy) 

0384 

3 

:      No  acknowledge  from  device  {no  handshake) 

0385 

4 

:      SDA  buS  not  released  for  master  to  generate 'I^C^'Mt 

0386 

0387 

"jiiT  0388" 

SaKBeti;«iaii  to  identify  the  atatusJof  the  serial  ^#lock  (SCL)  and  serial 

0389 

data 

iiLtfiilK; .according  to  the  error  status  table.  Codes 

0390 

WittdC'  for  bus/device  diagnosis. 

0391 

0392  ERR 

CODE 

1283 

0393 

bcf 

STATUS,  RPO 

OODP 

1C20 

0394 

btfss 

FLAG, ERROR           ;  Keep  first  er±er  r^>orted      ^  "'"^    :  '■ 

OOEO 

00A2 

039S 

movwf 

ERCODE                  ;  Save  error  code 

OOEl 

1420 

0396 

bsf 

FIAO,  ERROR           ;  Set  error  flag 

00B2 

3400 

0397 

retlw 

0 

0398 

0399 

0400 

DELAY, 

Provide  a  1.54mS  delay  (8  4  KHz  clock) 

0401 

0402 

Zx^ut 

I             None                  "''■i-  — 

0403 

Output 

:  None 

0404 

0405 

0406  delay 

00B3 

1283 

0407 

bcf 

STATUS,  RPO 

0OE4 

OlAA 

0408 

clrf 

TK<P                    ;  cleacjika^fe-  loeation 

0409  dlyl 

00E5 

0000 

0410 

0OE6 

0000 

0411 

nop 

00E7 

0000 

0412 

nop 

00E8 

OBAA 

0413 

decf sz 

TEMP                       ;  reduce  count 

00E9 

28E5 

0414 

goto 

dlyl                     ;  lo^ 

OOEA.  3400 

0415 

retlw 

0416 

0417 

.>i-     •:  0418 

■  Interrupt  service  routine 

0419 

Only  the  SSP  interrupt  is  enabled.    This  routine  will  read  the  I2C 

0420 

data  and  output  it  on  the  LEDs. 

0421 

.JI1»|MJlMtWth»m(NlimMWIW. 
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I^C  Multi-Master  Environment 


MPASM  01.00.02  Alpha    SCAPPNOTMIC      5-10-1994  13:2:14 


PAGE  9 


11.  a.  -;,:r-!>C 


liOC 

OBJECT  Cp]0& 

him 

.  -  mm 

0423 

service. 

_int 

OOEB 

118C 

0424 

bcf 

PIR1,3 

;  Clear  SSP  interrupt 

OOEC 

OOBO 

042S 

movwf 

TEMP_W 

;   Save  W  register 

OOED 

0E03 

0426 

swapf 

STATUS, W 

;  Get  STATUS  register 

OOEE 

OOBl  1 

OOEF 

1683 

0428 

< 

STAiTOS.RPO 

OOFO 

1C14 

0429 

SSVSTAT.O 

}  €he^-  :Baf fer  F^ll  Flag 

OOFl 

28FA 

043O 

goto 

Intout 

;  Ho  ^&ir received,  so  exi% 

0OF2 

1283 

0431 

bcf 

STATUS,  RPO 

0OF3 

0813 

0432 

movf 

SSPBUF,W 

;  Get  I2C  data 

00F4 

1683 

0433 

bsf 

STATUS,  RPO 

OOFS 

1E94 

0434 

btfss 

SSPSTAT, 5 

;   If  Address  received  last... 

00F6 

28FA 

0435 

goto 

IntOut 

;     exit  without  saving  it 

0OF7 

1283 

0436 

bcf 

STATUS,  RPO 

OOFS 

00S6 

.-.  043r7 

movwf 

PORT_B 

;  Display  raceltreil  data  on  LEQs 

0SF9 

sms 

movwf 

DISPVAL 

OOFA  1683 
OOFB  158C 
OOFC  1283 
OOFD  0E31 
OOFE  0083 
OOFF  OEBO 

0100  0E30 

0101  0009 


0102  1283 

0103  OlAC 

0104  032D 

0105  1D03 

0106  291C 

0107  1003 

0108  ODAB 

0109  le03 
01 OA  290D 
OlOB  3010 
01 OC  OOAB 

OlOD  0186 
OlOE  1683 
OlOF  300F 

0110  008« 

0111  1283 

0112  0S2B 


bsf 
bsf 
bcf 

movwf 
swapf 
swapf 

retf ie 


Keyboard  scan  routine 
This  routine  scans  the  keypad  connected  to  PORT_B, 
ret!B«»st^t^e.-pi!5e»ssd-J«By-,i»-l?««3,B<^s.  


0439 
0440 
0441 
0442 
0443  ■ 
0444 
0445 
0446 
0447 
0448 
0449 
0450 
0451 
0452 

0453  f  jCi' t  ■  ■■"  '  ■ — " 
0454 

0455  ScanKbd 

0456  bcf 

0457  <:l,r£ 

0458  movf 

0459  btfss 

0460  goto 

0461  Kbdloop 

0462  bcf 

0463  rlf 

0464  btfss 

0465  goto 

0466  w^^w 

0467  I$sMf 

0468  Sotdone 

0469  clrf 

0470  bsf 

0471  movlw 

0472  movwf 

0473  J5e«.«<i3. 
0474 


STATUS, RPO 
PlEl, 3 
STATUS,  RPO 

STATOS 
TB!*_W,  1 
TEMPl:W,W' 


;  Re-enable  SSP  interrupt 
-■t(Mmmlms-ai!S^iWS  register 

;  Restore  W  register 
■LC 


and 


STATUS ,  RPO 
NSW_KEY 
OLD_KEY,w 
STATUS, Z 

Oebomce 

STATUS ,  C 
ROW 

STATUS,  C 
Notdone 


PORT_B 
STATUS ,  RPO 
OOFh 
TRIS_B 

S«MJ,t»-  


Clear  key  register 
If  key  was  pressed  last  pass 
goto  ^^^fanedr  . 


Select  next  row  to  strobe 


'  -.SfeenJt'  MM!  'M'^sftest  row 


Set  PORT_B  for  keypad  read 


through 


.»<9 


I^C  Multi-Master  Environment 


HPASH  01.00.02  Alpba    SCWIHOTMSe     S»l#-t9»t    tltBtti  PASK  10 

Dannstratioa  of  IJCr^lMtiMMteiMr  SlNtc       »X4£>Ct  0!  ->:' 


liOC 

OBJECT  COBE 

LI19E 

0113 

0086 

047$ 

movwf 

PORT_B 

;  Read  colums 

0114 

300F 

0476 

movlw 

OFh 

;  Mask  out  ro«n  . 

0115 

0506 

0477 

andwf 

PORT_B,S   ;  ' 

;  Checdi  for  Key  jneea 

0116 

1903 

btfsc 

STATOS.Z 

0117 

2933 

0479 

goto 

KBDOUT 

;  No  key  pressed,  exit                .a*.'  - 

0118 

0186 

0480 

clrf 

PORT_B 

'  ^  ^, 

0119 

042B 

0481 

iorwf 

ROW,W 

;  Key  pressed,  save  it 

OllA 

00  AC 

0482 

movwf 

NEW_KEY 

OllB 

OOAD 

0483 

movwf 

OLD_KEY 

?£50 

0484 

; ;  »lt80 

one 

0186 

0485 

clrf 

PORT_B 

OllD 

1683 

0486 

bsf 

STATUS,  RPO 

QUE 

0186 

0487 

clrf 

TRIS_B 

OllF 

1283  » 

«49S 

bcf 

STATUS ,  RPO 

0120 

082E 

0489 

movf 

DISPVAL.W 

;   Set  LEDs 

0121 

0086 

0490 

movwf 

PORT_B 

0122 

OlAA 

0491 

clrf 

TEMP 

0123 

216B 

0492 

call 

SetupDelay 

0124 

216B 

0493 

SetupDelay 

^i«De3gay  for  Icey  ^Qbouxice 

0125 

0186 

0494 

elir* 

P0RT_B 

0126 

1683 

0495 

bsf 

STATUS ,  RPO 

0127 

300F 

0496 

movlw 

OFh 

;  Set  PORT_B  for  keypad  read 

0128 

0036 

0497 

movwf 

TRIS_B 

0129 

1283 

0498 

bcf 

STATUS,  RPO 

012A 

082B 

0499 

movf 

ROW,W 

012B 

0086 

0500 

movwf 

P<MIT_B 

.  ou^nit  Row 

012C 

082D  „„ 

movf 

OLD_KEY,W 

012D 

0606 

0502 

xorwf 

PORT_B , w 

■  Coiic>are  key  with  last  key  pressed 

012E 

1903 

0503 

btfsc 

STATUS , Z 

012P 

2933 

0504 

goto 

KBDOUT 

0130 

0186 

0505 

clrf 

PORT_B 

;  Key  released,  clear  registers 

0131 

01  AC 

0506 

clrf 

NEW_KBY 

0132 

OlAD 

0507 

OLD_KBy 

0508 

KBDOOT 

0133 

082E 

0509 

movf 

DISPVAL,W 

;  Set  LEDs 

0134 

0086 

0510 

movwf 

PORT_B 

0135 

1683 

0511 

bsf 

STATUS ,  RPO 

0136 

0186 

0512 

clrf 

TRIS_B 

0137 

1283 

0513 

bcf 

STATUS , RPO 

0514 

K8T_PBC 

0138 

300F 

0515 

movlw 

OOFh 

0139 

052C 

0516 

andwf 

NEW_KEY,W 

t  Set  column  of  key  pressed 

013A 

OOAA 

0517 

movwf 

TEMP 

■  I  .  1.- 

013B 

1903 

0518 

btfsc 

STATUS , Z 

;  If  no  key  pressed,  exit 

013C 

goto 

DECOUT 

013D 

3  OFF 

0520 

movlw 

OFPh 

;  Initialize  the  H  register 

013E 

3E01 

^addlw 

OOlh 

013F 

OCAA 

0523 

rrf 

TEMP         ;  < 

i»  »«flteitife^imaijWa»^<e»il  It  la  found 

0140 

1C03 

 o®a4******"»' 

btfss 

STATUS,  C'»- 

0141 

293E 

0525 

goto 

DECLl 

0142 

OOAA 

0526 

movwf 

TEMP 

0143 

0E2C 

0527 

swapf 

NEW_KEY,W 

;  Get  row  of  key  pressed 

■8       SM»  a«M 
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LOC     OBJECT  CODE  LINE  SOURCE  TEXT 


0144 

390F 

0528 

andlw 

OOFh 

0145 

1903 

0529 

btfso 

STATUS, Z 

0146 

2955 

0530 

goto 

DBCODf 

;If  &o  Icey  pressed,  exit 

0147 

OOAF 

0531 

movwf 

?Mei 

0148 

yOFV 

0532 

movlw 

n.i.  ,1 

0533 

DECL2 

0149 

3E01 

0534 

addlw 

OOlh 

;  Count  row 

014A 

OCAF 

0535 

rrf 

TEMPI 

;  Rotate  row  until  it  is  found 

014B 

1C03 

0536 

btfss 

STATUS, C 

014C 

2949 

0537 

goto 

DECL2  ' 

014D 

OOAF 

0538 

SB9VW£ 

TEMPI 

014E 

1003 

0539 

Toet 

STATUS,  C 

014F 

ODAF 

0540 

rlf 

TEMPI 

;  Move  row  to  upper  niJidsle 

0150 

ODAF 

0541 

rlf 

TEMPI 

0151 

082P 

0542 

movf 

TEMPI,  W 

0152 

072A 

0543 

addwf 

TEMP,W 

;  Add  column  to  row  value 

0153 

2156 

0544 

call 

DEC_TABL 

;  Get  ASCII  value  of  key 

0154 

OOAC 

mts 

DEW_KEir  ' 

0546 

0155 

0008 

0547 

return 

0548 

DECJTABL 

0156 

OOAA 

0549 

movwf 

TEMP 

;   Save  key  value 

0157 

3001 

0550 

movlw 

Olh 

0158 

008A 

0551 

movwf 

PCLATH 

;  Setup  for  second  page  of  RAM 

0159 

0S2A 

0552 

''90Vt  • 

015A 

0782 

0553 

addwf 

•PCL  •■•  vs'. 

'  '  '      ;  OUap,  return  with  ASCII  value 

015B 

3446 

0554 

retlw 

■F' 

015C 

3442 

0555 

retlw 

'B' 

015D 

3430 

0556 

retlw 

'0' 

015E 

3441 

0557 

retlw 

'A' 

015F 

3445 

0558 

retlw 

'E' 

0160 

3439 

OSSS 

'9- 

.  :13                       ■  ..-0 

0161 

3438 

0560 

tettv 

•8' 

0162 

3437 

0561 

retlw 

>7' 

0163 

3444 

0562 

retlw 

•D' 

0164 

3436 

0563 

retlw 

'6' 

0165 

3435 

0564 

retlw 

■5' 

0166 

3434 

0565 

retlw 

•4' 

0167 

3443 

0566 

retlw 

•e* 

0168 

3433 

0567 

ratlw 

0169 

3432 

0568 

retlv 

♦2' 

..;£:" 

016A  3431 

0569 

retlw 

*1' 

0570 

0571 

************************************************* 

0572 

;  *This  routine 

is  a  software  delay. 

0573 

;*At  4Mhz  clock,  the  loop 

takes  3uS,  so  initialiie  TH4P  with 

0S74 

; *a  value  df  3 

to  give  9u3 

,  plus  the  move  etc  should  result  in 

OiS75 

of  >  lOuS. 

0576 

0577 

.'  j 

0578 

SetupDelay 

016B 

OBAA 

0579 

decfsz 

TEMP 

ai6c 

29SB 

0580 

goto 

^fet^Delay 

■a 
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TO  Multi-Master  EnviNnfllMMt 

MPASH  01.00.02  Alpha  gmmiumtm   %-%«»ti*t  ■u^m.  ms»  u  ^.-jr  ,'^ 

Danonstrati<»i  of  I2C  Malt^Glii'lMa:  «M3a 

LOC    OBJECT  CODB         LIKB  SdOROS  MSF 

OlfiD  0008  0581  ««MW 

0582 

0583  003 
0584 


MEMORY  USAGE  MAP   CX'   =  Used,    '-'   =  Unused) 


0000 
0040 


0100 
0140 


*j3tiiiixxxxxxjtx*x3t 
iflBWutxxxxifintlH 


All  otibffir  amocy  bloda  tiinia«d. 


Errors  :  0 
(Mmlags  :  0 


4S^  l!iSMdikvi>sh|p^Mwultw^  loe. 


PC  Multi-Master  Environment 


NOTES: 


tu  ■  fmttl)  •!   'X'l   "fa      ..At  ■  1 


.••vx---:s;:'.-;iococeot 
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AN534 


Saving  and  Restoring  Status  on  Interrupt  (Implementing  a  Parameter  Stack) 


INTRODUCTION 

The  PIC1 7C42  has  a  1 6  level  deep  hardware  stack.  The 
program  counter  is  pushed  into  this  stack  on  inten-upts 
and  subroutine  calls.  However,  other  key  registers  are 
not  saved  in  the  stack.  Registers  such  as  W,  ALUSTA 
(which  has  carry,  zero  and  other  flag  bits)  and  the  bank 
select  register  (BSR)  must  be  saved  in  an  interrupt 
service  routine.  The  following  macros,  PUSH  and  POP 
implement  a  pamm^s^Btl/tMgtitmm^ 
pllsh  this. 


The  indirect  addressing  register  FSRO  is  used  to  imple- 
ment this  parameter  stack.  It  is  assumed  that  FSRO  and 
its  control  bits  are  not  used  or  nKxiified  elsewhere.  The 
stack  pointer  (FSRO)  is  blitiarized  at  tti^l^^eilt  ,^AM 
location  (FFh).  ' 


Maix^_prog 


SETF 

FSRO 

BCF 

BCF 

• 

MACRO 

BCF 

ALUSTA,  FSO 

MOVFP 

ALUSTA,  niDO 

MOVFP 

BSR,  imo 

MOVFP 

W,  INDO 

MOVFP 

RAM_X ,  INDO 

MOVFP 

RftM_y,  INDO 

ENDM 

MACRO 

BSF 

ALUSTA, FSO 

INCF 

FSRO 

MOVPF 

INDO ,  RAM_Y 

MOVPF 

IMDO,  RAM_x 

MOVPF 

INDO , W 

MOVPF 

INDO,  BSR 

MOVFP 

INDO,ALU^il^ 

SBCF 

FSRO 

;Ilittialize  and  dedicate  FSRO  as  stack  pointer 


!SBt-vp  FSRO  for  auto-dec 


;  Set-up  FSRO  for  auto-dec 
;Save  ALUSTA  first 


;Now  save  general 
; Purpose  registers 


;  Set-up  for  auto-inc 


restore  ALUSTA  last 
;Adj«»6  atack  pointaar 


interrupt_routlne 

POSH  }a«if»  molatm* 


.•main  bo4r  of  Intern^  fwri^UMi 


pop  ; restore  status 

RETFIE  ; return 


Saving  and  Rei 


MOVPF  does. 

2.  MOVFP  and  movpf  are  used  such  that  any  register 
can  be  saved  and  restored.  Note  that  register  being 
saved  or  restored  has  address  f  (which  can  be  OOh  to 
FFh)  and  other  address,  INPB  ^ftdim^  ihaiVlmitk 
can  be  any  address. 

3.  FSR  auto-increments  or  auto-decrements  after  the 
operation  Cpost').  Therefore,  in  the  POP  macro  pre- 
increment is  simulated. 

4-  All  jiteiTiff>ts  should  be  disabled  wtien  executing  the 
PUS^  and  POP  instructions.  While  PUSH  will  have 
the  GIE  bit  disabled,  POP  may  not  necessarily  have 
the  GIE  bit  disabled.  The  user  should  disable  the  GIE 

bit  when  executing  the  POP. 

Using  this  scheme,  interrupts  and  subroutine  calls  can 
be  nested,  since  the  stacl<  will  grow  and  shrink.  The 
stack  can  be  used  to  pass  parameters  to  subroutines. 


AMhor.  Stan  D'Souza 

Logic  Products  Division 
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AN548 


Implementing  Table  Read  and  Taj^le  Wrjte 


INTRODUCTION 

This  application  brief  discusses  how  to  read  data  from 
program  memory  to  dsda  memory  and  write  data  from 
data  memory  to  program  memory. 

RETLW  K  Instruction 

As  In  all  PIC17CXX  family  parts,  the  simplest  method 
used  to  retrieve  data  from  program  memory  to  data 
memory  is  to  use  the  RETLW  K  instruction.  fotmittTpSi: 

;  siiiple  program  to  trass  fef 
;  table  values  to  POrtB" 
itain  ' 


movlw 
call 
movwf 


5,W  ; load  offset 

SimpleTableRead 


PortB 


Siiiii>l  eTabl  eRead 
addwf  PC 
Table   retlw  0 


; output  to  PortB 


;add  offset  to  PC 

;  return  a  knoiA-n 
;  table  value  based 

rem  ilm  fiffsn,.' 


retlw  10 

hi  the  example  above,  OFFSET  is  loadad  with  ttte 
required  offset  to  the  Table  and  the  subroutine 
SImpleTableRsad  is  called.  The  table  value  is  letumed 
in  ttie  W  register.  InthisinannerprogiainfflMCMy  ^BMi 
be  transferred  to  data  memory. 


T^bW  Read  Instruction 

The  PIC17C42  has  an  expanded  hstruction  set  which 
includes  the  tablrd  and  tlrd  instructions.  These 
instmctions  are  specifically  constructed  to  transfer  data 
from  program  memory  to  data  memory. 

Ifthe  instruction  syntax  is:  TABLRD  t,i,  f, the  sequence 
In  which  this  Instruction  is  executed  is  as  follows: 

•  if  t  =  1  then  the  high  byte  of  the  table  latch  (TBLATH) 
is  loaded  in  the  file  register  f . 

•  else  (if  t  =  0)  the  low  byte  of  the  table  latch  (TBITVTL) 
is  loaded  in  the  file  register  f. 

•  next,  the  16  bit  data  pointed  to  by  the  table  painter 
(TBLPTR)  is  loaded  into  the  table  latch. 

•  lastly,^fi=1thetablepoi^^^fT^P^f^f1«»«M^^ 


Note:    The  first  time  this  instruction  is  exed 

asequence,  the  table  latch  will not  t>e  inftij 
ized,  hence  an  unknown  value  will  be  loadi 
inthetilereglster.  Thislsnotaproblemifth^ 
user  overwrites  the  same  f  register  in  the 
next  subsequent  instruction 


If  the  instruction  syntax  is:  tlrd  t ,  f ,  the  sequence  in 
which  this  instruction  is  executed  is  as  follows: 

•  if  t  =  1  then  the  high  byte  of  the  table  latch  (TBLATH) 

is  loaded  in  the  file  register  f . 

•  else  (if  t  =  0)  the  low  byte  of  the  table  latch  fTBLATH) 
is  loaded  in  the  file  register  f . 


FI6URi1  -  lABLE  READ 
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Read  In  Line 

A  simple  method  of  transferring  data  from  program 
memory  to  datamemoiy  is  to  use  ttie  tablrd  and  tlrd 
instnjction  in  sequence  as  sfiown  in  tfie  example  below: 

Itransfer  6  bytes  of  data  in  program  neqory  at 
;0x500,  to  data  Aanory  at""  '^'*"-  " 

IteadmLine* 

raovlw  05 


tttdvwf  ^  flBLPTRH 
clrf  TBLPTIO, 
tablrdO, 1,0x80 

tlrd  0,0x80 
tablrdl, 1,0x81 
tlrd  0,0x82 
tablrdl, 1,0x83 
tlrd  0,0x84 
tablrdl, 1,0x85 


load  table  poijifc^  vif^ 
0x500 

/ 

/ 

get  16  bit  value  in 
table  latch, 
low  byte  (1st)  @  80 
high  byte  (2nd)  8  81 
3rd  byte  8  82 
4th  byte  S  83 
5th  byte  9  84 
6th  byte  9  85 


Roii^gaBioefc  of  OtfSr. . 

In  instances  wfiere  a  block  of  N  bytes  needs  to  be 
transferred  from  program  memory  to  data  memory,  the 
TABLRD  and  TLRO  instruction  need  to  be  included  in  a 
loop  which  checte  for  N  transfers. 

; transfer  'COUNT*  bybes  (isven  values  only)  of 
,- data  at  program  BWinory  ']$BSSAQR>''  to  data  meoozy 

-  -   -  .  — t  *— ^ 

;  'RMCBOFFER' 

movpf  W.TBLPTRH 

movlw  low  MESSAGE 

movpf  W.TBLPTRL 

bcf  ALUSTA.S 


movlw     RAM  BUFFER 


movfp 
movlw 


W,FSRO 
COONT/2 


tablrd  1 , 1 ,  RAM_BtJFFER 

Reads 1 ockLoop 
tlrd  1,0x00 

tablrd  0,1,0x00 

decfsz  W 

goto  ReadBlockLoop 

3?VlvUXfi   ~  " 


load  table  p6±ntiix 

/ 
/ 
/ 

enable  post  auto 
increment  of  FSRO 
initialize  FSRO  to 
RASi.BUFFER      »  .  i 

/ 

initialize  count 
initialize  table 
latchf  'J  -^  \  j 

i 

;do  indirect  read  of 
;high  byte  | 

;  do  indirem  tmtsaip^ 
J  low  byte 

; check  if  count  =  0 
;no  then  do  next 
;else  end  of  — 
; transfer . 


Program 

Code  Size 

Transfer  Rata 

Simple  Table  Read 
(using  RETLW) 

N  +  3 

6  cycles/byte 

Read  In-Line 

4  +  N  +  N/2 

1 .5  cycles/byte 

Read  Block 

14+MS 

3  cycles/byte 

N=  Number  of  bytes  to  transfer 


-    ■    -  3t 

Code  Size 

Simple  Table  Read 

Real  In-Line 

Readeiock 

N  =  10 

13 

19 

19 

N  =  20 

23 

34 

24 

Conclusion: 

In  cases  where  the  number  of  bytes  to  be  transferred  is 
small,  the  Read  In-Line  offers  small  code  size  for  fast 
transfer  rate.  However,  as  the  number  of  bytes  to  be 
transferred  Increases,  the  Read  Block  offers  optlRilitm 
code  size  for  a  decent  transfer  rate. 


Implementing  Table  Read  and  Write  in  PIC17C42 


Table  Write  Instruction 


Write  in  Line 


The  PIC17C42  has  a  tablwt  and  a  TLWT  instruction 
which  transfer  data  from  data  memory  to  program 
memory.  Note  in  cases  where  the  table  pointer  points  to 
internal  EPROM,  the  table  write  instruction  will  try  to 
program  the  EPROM,  hence  the  programming  voltage 
must  be  preserrt  on  the  Vf9  Wie^tiMiiMlfWIPli 
the  part. 

The  instruction  syntax  is:  tabiM  t ,  i ,  f . 

The  sequence  In  which  this  Instruction  is  nmariad  isas 

follows: 

•  if  t=  1  then  the  file  registerf  is  loaded  to  te^iy^ 
of  the  table  latch  (TBLATH). 

•  else  (if  t  =  0)  the  file  register  f  is  loaded  to  the  low  byte 
of  the  table  latch  (TBLATL). 

•  next,  the  1 6  bit  data  in  the  table  latch  is  transf en-ed  to 
the  program  memOiy  point«ii»lylM!|lMKplilNir 
(TBLPTR). 

•  lasMy,  it  i=  1  the^lepoihter(filt]PW|^incf«twi(ed. 


A  simple  method  of  transferring  data  from  data  memory 
to  program  memory  is  to  use  the  TABLWT  and  TLWT 
instruction  in  sequence  as  shown  in  the  ej@mple  below: 

•  transf  er  6  bytes  of  data  In  data  neraory  at  Oxf  0 , 

to  ijixogtam  mecmxy  at  0x5000 : 

Seadlt^ine 

BBSvlw    SO  jload  table  poiBter  with 

; 0x5600 


movwf 

clrf 

tlwt 
tablwt 

tlwt 

tablwt 
tlwt 


TBLPTRH 
TBLPTRL 


0x80 
1,0x81 


1,0x83 
0x84 


tablwt  0,1,0x85 


/ 
/ 

high  byte  @  table  lat^. 
low  byte  @  table  latch; 
latch    @  prog.  mem. 
3rd  and  4th  byte  @  prog, 
mem. 

/ 

SOa  and  6tb  byfce  8  prog. 


The  instruction  syntax  is:  tlwt  t ,  f 

The  sequence  in  which  this  instruction  is  executed  is  as 

follows: 

•  if  t=  1  then  the  file  register  f  is  loaded  to  the  high  byte 
of  the  table  latch  (TBLATH). 

•  else  (if  t  =  0)  the  file  register  f  is  loaded  to  the  low  byte 
of  the  tat>le  ltdch  CTHJkTL). 


FIGURE  2  -  TABLE  WRITE 


Writing  a  Block  of  Data 

In  instances  where  a  blocl<  of  N  bytes  needs  to  be 
transferred  from  data  memory  to  prograri  mentoiy,  the 
tablwt  and  tlwt  Instruction  need  to  be  iheluded  in  a  tap 
which  checks  for  N  transfers. 

;  transfer  'COXJNT'  bytes  (even  values  only)  of 
,;data  at  program  mmBXy  at    '  SSH^WtUfWBS. '  to 


vpregram  memory  ;at  'UESi 

ASS' 

SteiteBloek 

movlw 

high  HBSSAiSE 

load  table  pointer 

raovpf 

M.TBLPTitH 

/ 

movlw 

low  l^SSAGE' 

/ 

movpt 

W,  TBLPTRL 

/ 

bcf 

ALUSTA,  5 

enable  post  auto 
increment  of  FSRO 

movlw 

mAM_BUFFER 

initialize  FSRO  to 
RA1LBU7FER 

movfp 

W.FSRO 

/ 

movlw 

cooiiT/2            ^'t»||61aliz«  eount 

WriteBlockLoop 

tlwt      l.OSeOQ  ;high  byte  8  table 

; latch 

l^i^lHt  0,1,0x00  ;low  byte  8  table 

;  latch; 

; table  latc^  8  prog. 
;mem. 

decfsz  W  ; check  if  count  =  0 

goto      WriteBlockLoop  ;no  then  do  next 
retum  ;  else  end  of  transf  er . 


Author:  Stan  D'Souza 
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Frequency  and  Resolution  Options  for  PWM  Outputs 


INTRODUCTION 


The  PIC17C42  is  equipped  with  two  high  frequency 
Pulse  Width  Modulation  (PWI^)  outputs.  In  a  pulse  width 
modulated  signal  the  period  of  the  signal  is  (usually)  kept 
fixed,  while  the  duty  cycle  is  varied.  In  this  application 
note,  we  will  discuss  options  In  selecting  their  frequency 
and  resolution. 

This  application  brief  assumes  that  internal  clock  is  used 
forthe  time-base,  which  is  typically  the  preferred  set-up. 
Also,  throughout  this  application  brief,  PWM1  output  is 
used  in  examples,  timerf  is  assumed  to  be  the  time- 
base. 

Definition  of  terms: 

Period  of  a  PWM  output  is  the  duration  after  which  the 
PWM  pattern  will  repeat  itself. 

Frequency  of  a  PWM  output  is  =  1/Period. 

Resolution  of  a  PWM  output  is  the  granularity  with  which 
the  duty  cycle  can  be  modulated. 

In  the  case  of  the  PIC17^,1WHanitl^  PWM1  with 
timerl  as  time-base  the: 

PWM1  period  =  [(PR1)  +  1]  X  4tosc 

PWM1  duty  cycle  « (DC1 )  x  tosc 

PR1  =    period  register  for  timerl 

DC1  =  PW1DCH,  PW2DCL  concantenated 
(10-bit  value) 

tosc  =    oscillator  period 

At  16  MHz  oscillatorfrequency,  tosc = 62.5  ns.  TTie  user 
carreontrol  the  frequency  of  the  PWM  output  by  altering 
the'periQd'>alueafthetime-base.  For  example,  if  period 
Is  chosen  to  be  100  tosc  (PR1  =  18h),  then  PWM 
frequency  Is  1 /(100  x  62.5)  ns  =  1 60  KHz.  Note  however 
that  duty  cycle  resolution  is  a  little  less  ttiari  ^ 


'en*: 


Useful  and  Common  PWM  Modes 

While  a  variety  of  period  values  can  be  selected,  the 
following  modes  would  be  most  commonly  used: 

ICBit  Made:  In  this  mode  PWM  duty  cycle  has  full 
10^it  resolution  (maximum  offered  by  the  PIC17C42). 
TTie  period  register  PR1  is  set  at  FFh.  PWM  period  is 
1024tosc  =  64  us.  PWM  frequency  is  1 5.625  KHz.  The 
user  must  write  both  PW1 DCH  and  PW1 DCL  to  update 
PWM  output.  See  Appendix  A  for  an  exannple  that  code 
modules  10-bit  resolution  PWM  output  (PWM10.LST). 

8-Blt  Hi-Resolution  Mode:  In  this  mode,  the  user  has 
only  an  8-blt  quantity  to  write  to  the  duty-cycle  register. 
Period  register  is  set  3Fh  (63  decimaQ ,  such  ttiat  PWM 
period  is  2S6  tos&  fo  writs  th&&4)it  diily«cycle  value, 
first  ttw&MistigMsttifted  two  bits.  The  upper  six  bite 
are  written  to  PW1  DCH  and  ttte  lowertwo  bits  are  written 
to  PW1  DCL  as  follows: 

;S-bit  duty-cycle  value  is  in  W  reg 
CLRF  TEMP 
RRCF  WREG 
RRCF  TEMP 
RRCF  WREG 

RRCF    TEMP  ;  Shift  right"  twice 

ANDLW  00111111b  ;Mask  off  two-high  bits 
MOVPF  WREG,  PWIDCH  .-Write  duty-cycle  val- 
ues 

MOVFP  TEMP,  PWIDCL  ; 

Ntits  that  In  6-bll,  hl-re^olutlbn  rrioi^e,  makimuni^'PWM 
frequency  is  attained.  For  example,  at  16- MHz  clock, 
PWM  periods  256  tosc  =  16  jis;  PWM  frequency =62.5 
KHz.  See  appendix  B  for  an  example  code  that  gener- 
ates 8-bit  low  high  resolution  PWM  output 
►J0WM8HI.LST).  ; 


P^Rl  1  -  PWM  OUTPUT 


PWM 

(MM 

k  ► 

1  Duty-cycle 

'  -                  *  '       irim'dn  if'  ^ 

1^  'rwNKI 

1 

 ► 

PWM  frequency  =  1/period 
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FIGURE  2  -  VARIOUS  PWM  MODES 


DC9 

DC2 

DC1  DCO 

'      1      1      1     1  1 

1  1  1  M 

1      1  ] 

1  ■HHI 

1  10  bit 

PWIDCH 

PWIDCL 

■  i  A. 

DC9 

0C2 

DC1  DCO 

1  0  1  0  pilllllllimilll 

1  SbitkW 

PWIDCH 

PWIDCL 

DC7 

DC2 

DC1  DCO 

1  0  1  0  1    1  1 

1 

1  8  bit  high 
1  resolution 

PWIDCH 

PWIDCL 

Note:  DC  registers  suited  for  1 6  bit  computation;  utilizing  1 0  MSB  only. 

'  .*'       t  ■  ■ 

8-Bit  Low  Resolution  Mode 

In  this  mode,  the  user  still  has  only  an  9-blt  quantity  to 
write  to  duty  cycle  register.  However,  the  desired 
frequency  of  the  PWM  output  is  less,  due  to  the  nature 
of  the  application.  For  example,  If  the  PWM  outptit  te 
being  used  to  drive  a  motor  through  a  power  stage,  the 
powertransistors  (or  devices)  due  to  their  switching  time 
will  prefer  PWM  frequency  not  to  exceed  certain  fre- 
quency. In  the  previous  section,  we  derived  an  B-bIt 
resolution  PWM  output  at  62.5  KHz. 

To  attain  a  low-resolution  PWM  output,  the  PW1DCL  is 
always  kept  at  zero.  The  8-bit  value  is  written  (o 
PW1 DCH.  The  period  (PR1)  is  set  at  FFh,  i;e.  256  Tcy 
equals  1 024  tosc  (1 5 .625  KHz).  See  Appendix  C  for  an 
example  code  that  produces  8-bit  low  resolution  PVIM 
output  (PWM8LO.LST). 

Choosing  Resolution  and  Frequency  of  PWM 

Actually,  the  rasohiHan  and  the  frequenpy  Of 'ihe  PWM 
output  is  selectable  within  certain  Unds.  The  user  wHI 
need  to  first  define  the  requirements  ba^  on  ttw 
applicatton.  There  may  be  an  upper  limit  to  the  fre- 
quency if  the  PWM  is  being  used  to  drive  motors.  On  the 

FIGURE  3  -  PWM  FREQ  VS  RESOLUTION 


other  hand,  if  the  PWM  is  being  filtered  to  generate  an 
analog  signal,  higher  frequency  may  be  desirable.  In 
any  case,  the  lowest  frequency  achievable  (using  inter- 
nal Clock  for  the  timer)  is  (OSC  freq/1 024).  At  1 6  MHz 
oscfllator  inptCAe  towas/l  PWM  (feifiency  possible  is 
15.625  KHz.  Ai  'M^tUtlbns  'fess  than  ttf'-bit,  hlj^her 
frequencies  are  possible  (see  Figure  3).  For  example, 
if  7-bit  resolutton  is  chosen,  then  the  PWM  frequencies 
can  be  15-625  KHz,  31 .25  KHz,  62.5  KHz  or  125  KHz. 
The  reader  will  note  that  it's  how  the  7-bits  are  placed 
within  the  10-bit  possible  duty  cycle  value. 

Conversely,  if  a  certain  frequency  is  desired,  such  as 
44  KHz,  then  refeMigto  F^Ute  1 ,  i«t»olHU6neanh»8J- 
bit  or  7.5-bit  or  6.5-Wl 

The  frequency  and  resolution  of  the  PWM  outputs  of  the 
PIC1 7C42  can  be  traded  off  against  each  other  to  best 
suit  the  application .  The  oscillator  frequency  can  also  be 
varied  to  adjust  PWM  frequency,  If  necessary.  External 
dock  sfwuld  be  used  as  timer  time-t>ase  to  generate 
very  low  frequency  PWM  output. 


Authors:  Stan  D'Souza 
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PWM  frequency  vs  resolution 
foroscfreq  =  16MHz 
Timer  tjm»-base  >  Internal  dock 


TU1TUO  iWWS 


PWMregQimion 

At  a  given  oscitlator  frequency  (16  MHz  in  this  figure). 

a  family  of  curves  represents  the  PWM  freq/resolution  combinations  possible. 
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APPENDIX  A:  PWM10.LST 


HPA^  BO. 54 


TITLE 
•  -LIST 


"PULSE  WIDTH  MODULATION  10  BIT 
P=17P42,   C=80,  T=ON 


0021 
0020 
0022 


0000  cess 


0010  C04C 


0020  C03E 


0030  B802 

0031  2910 

0032  2B14 

0033  B803 

0034  7221 

0035  7020 

0036  2916 

0037  BOIB 

0038  4A17 

0039  B801 
003A  2917 
003B  2916 
003C  8307 
003D  O005 


PWM_HI  equ  0x21 
P»t_LO  equ  0x20 
equ  0x22 


ttIL 


The  user  would  generate  a  16  bit  value  which  is  saved  in  r 
locations  PW1(_HI  and  PWM;_L0  byte.  In  10  bit.;>>Qde,  the  prog 
tranafera  these  values  directly  t^vt^  Duty  ftfCfcs  .(961: 
ganerj^  j^is  required  10  bit  FHH. 


This  is  a  short  program  to  demonstrate  how  to  generate  PWM 
10  bit  resolution.  Since  a  lOHhz  crystal  was  used  in  the  t 
The  max.  period  =  1024xl00nS  =  102.4  us  or  9.8  KHz.  This  p 
keeps  th£i  period  constant  and  varies  the  duty  cycle  (which 
to  the  most  significant  10  bits  of  the  16  bit  value  PWM_LO 
This  program  is  interrupt  driven,  i.e.  the  update  to  the  D 
is  done  in  the  rtcc  interrupt,  which  then  enables  the  pwm 
The  period  update  is  done  during  the  pwm  interrupt.  The  pw 

;raBIPS!  W  from  0%  to  100%  duty  cycle  and  then  repeats:*  lltei 

;swe^  takes  £^prox.  52  sees. 


ORG 
goto 


rtcc_iat 


goJ;^> 


0, 

start 

0x10  .-vector  for  rtce  i»£4Mi|^ 

seicV'ace.^tcc  ,    ;  service  rtcc 


pwiH_int 


goto 


0x0020 

service_pwm 

0x0030 


;  initialize  .internal  hardware 
-^^11^0^-10  bit  resolution  pwm. 
iait_piggg.O  , 


setf 

movlb 

movfp 

movfp 

clrf 

movlw 

movpf 

movlb 

mlg.f. 

clrJ 


i 

PWM_HI,pwia« 
PWK_LO,pwldcl 
tconl 

OOOIOOOIB 

wr^^^imi: 
1 

ifiii 


/vector  for  pwm  inter^i^^. 
;  service  pwga  o&ly 


IMS 

to .  g^er a  te  t^e. .  QU^U-fr 


; clear  timer  1 

;used  to  "drive"  pwml 

; set  period=9 . 8  khz 

;  load  duty  cyl .  hi  byte 
;  load  duty  cycle  lo  byte 
; tmrl  inc.  internally 
;as  8  bit  counter 
;  start  tmrl  and 
I  ensile  pmH 

;clr  all  int.  enables 
;clear  all  interrupts 
,;exci^.t  peripheral  int. 
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003E  B802 
003F  2B14 

0040  B801 

0041  8C17 

0042  0005 


004C  8D07 

004D  8804 
004E  BOOB 

004F  0F20 

0050  9804 

0051  1521 


0052  B803 

0053  7020 

0054  7221 

0055  B801 

0056  8417 

0057  0005 


tmrl  interrupts  is  enabled.  The  DC  value  are  written  just 
the  "pwm  interrupt'  is  enabled.  Here  the  new  period  regist 
updated.   In  this  example,  period  is  kept  constant  at 
aervice_pwm 

;if  the  period  changed,  write  new  value  here 
movlb      2  ; select  bank  2 

prl  ; period  <—  Oxff 

1  '  ftSlsttU^  IM^*^^ 

_tmlie  )  A 


setf 

feci 

retf ie 


This  ^^rt  ot  the  program  is  bajsically  used  to  simmulate 

whi(4«  'whkM  !>«-. -AiM'tMe  .pwq  output. 


the  --sMse  tm  mm  'tip) 
init_rtoe 


!3p-5 


0043 

BOOB 

movlw 

00100000b 

set  up  rtcc  timer 

0044 

esoA 

movfp 

Wreg,r testa 

/ 

0045 

290B 

elrf 

rtccl 

clear  rtcc 

0046 

290C 

I  ' 

clrf 

rtcch 

/ 

0047 

B080 

movlw 

0x80 

start  pwm  at  50% 

0048 

0121 

movwf 

PWM_HI 

/ 

j  0049 

2920 

clrf 

PVIM_LO 

/ 

1  004A 

8107 

SV  -1  ■  : 

bsf 

_rteie 

enable  rtcc  int. 

004B 

0002 

^  return 

Every  rtcc  interrupt,  the  PWM_HI&PWM_LO  bytes  are  incremen 
Only  the  10  most  significant  bits  are  incremented.  Once  th 


service_rtcc 
-    -  bcf 


*!3_i^ir      '  ;  reset  Int  flag  * 

do  a  pseudo  inc  of  the  10  bit  PWjI_HI,  mmj^'' 


bcf 

movlw 

addwf 

btfsc 

incf 


_carry 
01000000b 
PWM_LO , 1 
_carry 
PWM  HI 


; clear  carry 
; load  Isb  for  10 
; add  to  LSB 
;  carry? 
;yes  then  inc  PWM_HI 


sfmism:  3.m&         ma,im»  tM»         'Sm^  cycle  regisCwCS' 


0*cf(  "T'' 

movlb 
movfp 
movfp 
movlb 
bsf 


3 

PWM_LO,pwldcl 
PWM_HI,pwldch 
1 

_tmlie 


; bank  3 

;  load  lo  valte* 
; load  hi  value 


; enable  tmrl 


int 


0058  8406 

0059  S043 


005A  B030 
005B  C05B 


loop 


bsf 
call 


call 


_glintd 
init_pwmlO 


disable  interrupts 
"'■"'«;initailize  the  RTCC 
; for  test  purposes 
;  initialize  p««^ 
;spili  wheels- ' 


Errors 
Warnings 


lasruvs'  .lid  S  •  * ; 

bait  '  It!-' 
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Appendix  B:  PWMJJ^U-ST 


MPASM  BO. 54 

pause  WIDTH  vaDOLMHtxi  8  BIT  Hi^  8iisqp$Mr 


TITLE  "PULSE  WIDTH  MODULATION  8  BIT  HIGH  RESQLOTKMr" 
LJST  P=I7C42,  C=80,  .T=pi} 


0021 
0020 
0022 


0000  C063 


0010  C054 


PWM_HI    equ  0x21 

PWM_LO    equ  0x120 

TEMP        equ  0x22 
The  user  would  generate  a  16  bit  value  which  is  saved  in  r 
locations  PWM_HI  and  PWM_LO  byte.  In  8  bit  hi-res  mode,  th 
transfers  the  8  bit  values  to  the  lo  Duty  Cycle  (DC)  regis 
generate  the  required  8  bit  hi-res  PWM. 


This  is  a  short  program  to  demonstrate  how  to  generate  PWM 
8  bit  resolution.  Since  a  lOMhz  crystal  was  used  in  the  te 
The  max.  period  =  256xl00nS  =  25.6uS  or  39KHz.  This  progra 
keeps  the  period  constant  and  varies  the  duty  cycle  (which 
to  the  most  significant  10  bits  of  the  16  bit  value  PWM_LO 
This  program  is  interrupt  driven,  i.e.  the  update  to  the  D 
is  done  in  the  rtcc  interrupt,  which  then  enables  the  pwm 
The  period  update  is  done  during  the  pwm  interrupt.  The  pw 
raat^a  up  frcan  0%  Co  100%  duty  cycle  and  then  repeals. .  The 
sweep  tajc«:i«^^.  lj,3  s^.      ^- \^ 

goto  staaft 

for  rtcc  interrupt 

rtca_int 

goto        service_rtcc        ; service  rtcc 


0020  C046 


0x0020 


goto  8ervice_pvan 


;vector  for  pwm  interrupt 
; service  pwm  only 


i initialize  in|;0 
init_pwm8h,i 


a:te  thf  p«m  out^t 


0030 

B802 

movlb 

2 

0031 

2910 

clrf 

tmrl 

; clear  timer  1 

;used  to  "drive"  pwml 

0032 

BO  62 

movlw 

62 

;set  period=39khz 

0033 

0114 

movwf 

prl 

/ 

0034 

B803 

movlb 

3 

0035 

2922 

clrf 

TEMP 

;TEMP  =  mask  for  pwldcl 

0036 

eA21 

movfp 

PWH_HI,«W»SF 

;get  duty  cyl.  hi  byte 

0037 

190A 

rrcf 

wreg 

; rotate  hi  through  carry 

0038 

1922 

rrcf 

TEMP 

;  rotate  into  lo  byt^^^^^ 
;  repeat  for  2nd  Isb 

0039 

190A 

rrcf 

wreg 

003A 

1922 

,  rrcf 

TEMP 

/ 

003B 

B53F 

andlw 

b'OOllllll' 

;mask  hi  bits 

003C 

4012 

movpf 

W,  pwldch 

;save  in  high 

003D 

7022 

movfp 

TEMP ,  pwldcl 

; save  in  low 

003E 

2916 

clrf 

tconl 

;tmrl  inc.  internally 
;as  8  bit  cowgfeeiE 

003F 

BOll 

WMii 

;  start  tmrl  ancT 

0040 

4017 

;  enable  p«ail 

0041 

BBOl 

1 

e  19^3  Mici!ocUp  HeehnolQgy  Ine. 
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0042  2917 

0043  2916 

0044  8307 

0045  0005 


0046  B802 

0047  B062 

0048  0114 

0049  B801 
004A  8C17 
0046  0005 


004C  B020 
004D  650A 
004E  290B 

004F  290C 

0050  B031 

0051  0121 

0052  8107 

0053  0002 


clrf  pie 

clrf  pir 

bsf  _pei« 
retfle 


;clr  all  int.  enables 
;clear  all  interrupts 
!&ccept  peripheral  ln]£< 


everytime  a  new  value  is  written  to  the  PWM_HI,  PWM_LO  reg 
tmrl  interrupts  is  enabled.  The  DC  value  are  written  just 
the  "pwm  interrupt'  is  enabled.  Here  the  new  period  regist 
updated.  In  this  exan^le,  period  is  kept  consteuit  at  62  Tc 
servteStJMB 

fit  tlm  ''prntiait  ^MMaed, 
movlfi  2 
62 
prl 


movlw 

movwf 
movlb 
bcf 


write  new  value  iuHi*. 
select  bank  2 
period  =  62  Tcyl . 


_tinlie 


disable  titirl  Int 


;This  part  of  the  program  is  basically  used  to  siioiuiaite  a 


which  would  be  used  to  drive  the  pwm  output. 


the  rtcc  is  set  up  to  interrupt  every  52  mS. 
init_rtcc 

movlw     b' 00100000' 
movfp  wreg,rtcsta 
clrf  rtccl 
clrf  rtcch 
movlw  31 
movwf 
bsf 

return 


fid  8 


;set  up  rtcc  timer 
/ 

; clear  rtcc 

/ 

;init  pwm  at  50% 
;save  in  high 


;  Every  etoe  im^meag^i  ttS'  IWUII&FHHL1<0  bytes  are  incremen 
;Only  the  8  most  significant  bits  are  increnente4>  ' 


0054  8D07 

0055  1521 


0056  B803 

0057  2922 

0058  6A21 

0059  190A 
005A  1922 
005B  190A 
005C  1922 
005D  B53P 
005E  4A12 
005F  7022 

0060  BSOl 

0061  8417 

0062  0005 


aervice_r  tec 
bcf 


incf 


movlb 

clrf 

movfp 

xrcf 

Met 

rrcf 

rrcf 

andlw 

movpf 

movfp 

movlb 

bsf 

retf  ie 


_rtcir 
PWM_HI 


3 

TEMP 

PWM__HI ,  wreg 
wxeg 

"  ■  - 

wreg 
TEMP 

b'OOllllll  ■ 
wreg,pwldch 
TEMP.pwldcl 
1 

_tmlie 


; reset  int  flag 

}do  a  pseudo  inc  of  the  8  bit  PWJt. 
;inc  PWKJtl 

;n6w  load  the  vtiL^g,  iMB  *^  Duty  Cycle 


;bank  3 

;TEMP  =  mask  for  pwldcl 
;get  duty  cyl .  hi  byte 
j!£Qt«te  h^  through  carry 
•f&tifeS' ihto  lo  byte 
;  repeat  for  2nd  1^ 
/ 

;mask  hi  bits 
; save  in  high 
.-save  in  low 

;  enable  tmrl  int 


0063  8406 

0064  B04C 


0065  B030 

0066  C066 


start 


loop 


bsf 
call 


call 
goto 


_glintd  ;  disable  interrupts 

initjrtec  .-initailize  the  RTCC  tM; 

;for  test  purposes 
lnit..piam8hi       ^jinitialize  8  bit  s$m 
loop  ;spln  tdieels. 


Errors  :  0 
VDumlnss  I  0 
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MPASI  BO. 54 


PAGE  1 


•1'. 


0021 
0020 
0022 


0000  C053 


WTLE  "POLSE  WIDTH  MODUIATiO*-*  BW'l.*  IWSSIOTWr' 
LIST        P=17C42,  T=ON,  C=80  '  '    '  ;* 

PWM_HI     equ  0x21  Mi —1 

PWM_LO     equ  0x2  0 

TEMP        equ  0x22 

The  user  would  generate  a  16  bit  value  which  is  saved  in  r 
locations  FtOl^I  and  FUKJiO  tiyte.  In  8  bit  lo-res  mode,  th 
transfers  the-S  bl-4:yte  value  directly  to  the  FWIDCSI 'regis 


This  is  a  short  program  to  demonstrate  how  to  generate  PWM 
8  bit  low  resolution,  since  a  5.068Mhz  crystal  was  used  in 
The  max.  period  =  1024xlO0nS  =  102.4  uS  or  9.8  KHz.  This  p 
keeps  the  period  constant  and  varies  the  duty  cycle  {which 
to  the  most  significant  8  bits  of  the  16  bit  value  PHM_LO& 
This  program  is  internet  driven,  i.e'.  the  update  to  the  D 
is  done  in  the  rttae  Interrupt,  whicA  then  enatsiles  the  pwst 
The  period  update  is  done  during  the  pwm  interrupt.  The  pw 
raitps  up  from  0%  to  100%  duty  cycle  and  then  repeats.  The 
sweep  takes  «^^rox.  52  sees. 


ORG  0 
goto  stiai^t 


lad 


ORG 


0x10 


;veee%#  'i^-^oerit:  tetMBx^K 


0010  C04C 


0020  C03B 


t 


goto  service_rtcc 
ORG  0x0030 


; service  rtcc 

;Wctox  for  pum  lnterr\vt 

;secvlce  pwi  cmly 

35t  t' 


;lMltiallze  ise^ttnal  hudware  to 
;for  8  -b^  low  resoluti'on  p«m 
inlt^pw^lo 


gi^ie£&«e  the  oiit^iil 


0030 

B802 

movlb 

2 

0031 

2910 

clrf 

tmrl 

; clear  timer  1 

;used  to  "drive"  pwml 

0032 

2B14 

setf 

prl 

;set  period=9.8  khz 

0033 

B803 

movlb 

3 

0034 

7221 

movfp 

PVOL^.pwldch 

;load  duty  cyl.  hi  byte 

0035 

2910 

clrf 

;  clear  lo  byte 

0036 

2916 

clrf 

«<3otil 

jfamrl  inc.  internally 

; as  8  bit  counter 

0037 

BOll 

movlw 

b'OOOlOOOl' 

; start  tmrl  and 

0038 

4A17 

movpf 

wreg, tcon2 

;  enable  pwml 

0039 

B801 

movlb 

1 

003A 

2917 

elrf 

pie 

;clr  all  int.  enables 

003B 

2916 

;elear  all  interin^ts 

003C 

8307 

Wit 

; except  peripheral  int. 

003D 

00  OS 

PWM  Frequency  and  Resolution 


003E  B302 
003P  2B14 

0040  B801 

0041  8C17 
0&42  aOQS 


;everytime  a  new  value  is  written  to  the  PWM_HI,   PWM_LO  reg 
; tmrl  interrupts  is  enabled.   The  DC  value  are  written  just 
;  the  "pwm  interrupt"  is  enabled.  Here  the  new  period  regist 

r'..Ci^.9it^>^^tii9^Slt^i^''^S')SB&ir.write  new  value  hsms. 

;  select  bank  2 
.•period  <—  O^ff 
.■disable  ttntti'SIBmrrvti 


IKSVlb 

setf 
movlb 
bcf 

mkM$m: 


prl 

1 

_tmlie 


;This  part  of  the  program  is  basically  used  ta-siiniaulafcB;  a 
;vdiich  would  ,baja«ed  %&■  drive:  the  pwn  output,        ,  .      o_  . 
<■  -iK-i  a  «jt    •  .    !  ci»1»ovi- 

;the  rtoc  is-meW.'^'ld'^^^iirapt  esr^ixy  S$  mS.  -t-.  ,tirt  • )  ; 
init_rtcc 


0043 

B020 

movlw 

b'OOlOOOOO' 

;set  up  rtcc  timer 

0044 

6500 

movfp 

W.rtcsta 

/ 

0045 

290B 

clrf 

rtccl 

; clear  rtcc 

0046 

290C 

clrf 

rtcch 

/ 

0047 

B080 

...  fssm^ 

0x80 

'tissgla  sm.  &t  SMt  ^^ox 

0048 

0121 

' ,'!  r.  tmf»^- 

PWICHI 

0049 

2920 

olrf 

/ 

004A 

8107 

bs£ 

_rtcie 

.•enable  rtcc  int. 

004B 

0002 

return 

Every  rtcc  interrupt,  the  PWM_HIliPWtl_LO  bytes  are  incremen 
Only  tbe  8  moat  signiflcatit  bits  are  is^g^m^ss^^,  • 


004C  SD07 

0041)  1521 

004E  B803 
004F  7221 

0050  B801 

0051  8417 

0052  0005 


serviGe_rtcc 
teof 


movlb 
movfp' 
movlb 
b»f  - 
xetfie 


; reset  int  flag 

;do  a  inc  of  the  8  bit  PWM  HI 


.■now  load  the  values  into  the  Duty  Cycle 

,i'IStJ8i.-^ld<^   .  ilsai*  hi  byte  ; 
l  r 
><<H!iH«  tmx-l 


WOO 


0053  8406 

0054  E043 


0055  E030 

0B56  cose 


loe^ 


kef 
call 


call 
goto 


_glintd  ;  disable  interrupts 

init_rtcc  ;  initail-ize  the  |EJ®S  tmr 

;  for  test  purpoj^eis 
init_pwm81o         ;  initialize  pumuaim^.'  -ru 
loop  ;  splft  vilMieJjB*.  m 


Errors 
Warnings 


It.'    il»    Vl  ^; 


'■'It 
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Using  PWM  to  Generate  Analog  Output 


Pulse  Width  Modulated  (PWM)  waveforms  which  are 
basically  digital  waveforms,  can  be  used  as  cheap 
Digital-to-Analog  (D/A)  converters  with  few  extemal 
components.  A  wide  variety  of  microcontroller  applica- 
tions exists  that  need  analog  output  but  do  not  require 
high  resolution  D/A  converters.  Some  speech  applica- 
tions (talk  back  units,  speech  synthesis  systems  in  toys, 
etc.)  also  do  not  require  high  resolution  D/A  converters. 
For  these  applications.  Pulse  Width  Modulated  outputs 
may  be  used  to  convert  to  analog  outputs. 

Conversion  of  PWM  waveforms  to  anatog  signals  in- 
volves the  use  of  analog  k>w-pass  filters.  This  brief 
application  note  describes  the  design  criteria  of  the 
analog  filters  necessary  and  the  requirements  of  the 
PWM  frequency.  Later  in  this  application  note,  a  siin|lle 
RC  low-pass  filter  is  designed  to  convert  pulse-^vMli 
modulated  speech  signals  of  4  KHz  bandwidth. 

In  a  typical  PWM  signal,  the  base  frequency  is  fixed,  but 
the  pulse  width  is  a  variable.  The  pulse  width  is  directly 
proportional  to  the  amplitude  of  the  original  unmodu- 
lated signal.  In  other  words,  in  a  PWM  signal,  the 
frequency  of  the  wavefomi  is  a  constant  while  the  duty 
cycle  varies  (from  0  %  to  100  9^  aooortlH)  to  9» 
amplitude  of  the  original  signal.  A^pe8A'#ilMl%iMtil 
shown  in  Figure  1 . 


FIGURE  1  -  A  TYPICAL  PVmi  WkW^mm 


FixBd  period 

T 

2T 
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3T 

A  Fourier  analysis  of  atypical  PWM  signal  (like  the  one 
depicted  in  Figure  1)  shows  that  there  is  a  strong  peak 
at  frequency  Fn  =  1/T.  Other  strong  harmonics  also  exist 
at  F  =  K/T,  where  K  is  an  integer.  These  peaks  are 
unwanted  noise  and  should  be  eliminated.  This  requires 
that  the  PWM  signal  be  low-pass  filtered,  thus  eliminat- 
ing these  inherent  noise  components  (see  Figure  2). 


FIGURE  2  -  FREQUENCY  SPECTRUM  OF 
A  PWM  SIGNAL 


Frequency 
hindwnd  iIiimI 

Fundamental 

component  HafmonicB 

Tl^^^«niil^|B)«(tt«^dasired  signal  shou^  . 

fbw  <=  (  fpwm  =  1/T  ) 

If  fbw  is  selected  such  that  fbw=fpwm,  then  the  extemal 
low-pass  filter  should  be  a  brick-wall  type  filter.  Brick- 
wall  type  anakig  fitters  are  very  difficult  and  expensive  to 
buiki.  So,  for  practical  purpose,  the  extamal  low-pees 
filter  should  be  as  shown  in  Figure  3. 

FIGURE  3  -  EXTERNAL  LOW-PASS  FILTER 


Freq  »• 


This  means,  fbw«fpmn 
or   fpwn  » fbw 

=>  fp«iim=K*few  (1) 

where,  K  is  a  constant  such  that  K  »  1 

The  value  of  K  should  be  chosen  depending  upon  by 
how  many  dB  the  inherent  fundamental  noise  compo- 
nent of  PWM  be  rejected.  An  example  follows  : 

Beample :  It  is  required  to  design  a  simple  RC  low-pass 
filter  to  obtain  an  evtalog  output  from  a  pulse 
wktth  modutaiod  speech  signal  of  bandwidth 
4  KHz. 

Ftom  eqn  (1),  choosing  aibttrartty  K = 5, 
fpwin  =  letMs  5*4  KHz  =  20  KHz. 
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FIGURE  4  -  RC  FILTER  CONNECTED  t© 
PWM1  OFPIC17C42 

—  '  ^^4^  


PWM1  hAAA- 

R 


PIC17C42 


+10V 

OPAMP 


•  Analog 
out 


.Ml   lie:  i  '  "<i  A 


Choosing,  the  -3  dB  point  at  4  KHz,  and  using  the 
relation  RC  =  1/(2*jt*f),  we  get  R  =  4  Kn,  if  C  is  chosen 
as  0.01  \lF  : 

R  =  43m  TxV^i 

C  =  0.01  fiF-'  I 

Since  the  PWM  frequency  is  selected  as  20  KHz,  the 
fundamental  noise  peak  to  be  filtered  is  at  20  KHz.  Now, 
lets  calculate  by  how  many  dB  the  rriiMHMiM<Mll 
signal  is  cut-off  at  20  KHz  : 

CdB)20KHz  =  -10*tegI1*  (23i  f.RQ^  =  -14  dB.  h 


For  mariy  applications,  this  rejectioii  of  -14  dB  will  not 
suffice.  Therefore  instead  of  a  sin:iple  RC  low-pass  filter, 
a  higher  order  active  low-pass  filter  rnay  be  necessary. 
Or  if  the  microcontroller  Is  ci^asftle  ot  moduJaiting  at 
higher  PWIVI  frequencies,  the  reje^piMettlc«8t4e: 
more. 

For  example,  using  8-bit  resolution,  the  PIC17D^cm 
generate  PWIW  frequency  of  62.5  KHz. 

At  this  fr^msney  ttie  attsnui^on  of  the  PWM  (requQtK^i 
is: 

(dB)62.5KHz  =  -10*log[1+  (2itf.RC)2]  =  -24  dB. 

The  higher  frequency  of  the  PIC17C42  PWR^f^ 
makes  it  easier  to  generate  analog  ou^ut. 
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INTRODUCTION 

The  PIC16/17  family  of  RISC-like  microcontrollers  Inas 
been  designed  to  provide  advanced  performance  and  a 
cost-effective  solution  for  a  variety  of  applications.  This 
application  report  provides  examples  which  Illustrate  the 
uses  of  Pulse  Width  Modulation  (PWM)  using  the 
PIC17C42  Timerl  orTimer2  modules.  These  examples 
may  be  modified  to  suit  the  specific  needs  of  your 


This  Application  Note  describes  the  operation  of  the 
PWM.  They  include  the  following  topics: 

1 .  Simple  PWM  Operation 

2.  VariE^e  Period  /  Variable  Duty  Cycle  PWM 

3  Ej^emai  Clocl<  for  Timer  Timebase 
(ramifications/issues) 

The  listing  file  for  the  Variable  Period  /  Variable  Duty 
Cycle  example  can  be  found  in  Appendix  A.  The  source 
files  can  be  found  on  the  Microchip  BBS.  On  directions 
on  how  to  access  the  Microchip  BBS  please  refer  to 
DS30128,  which  can  also  be  found  in  the  Microchip 
Embedded  Control  Handbook  (Literature  Number 
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TABLE  1  -  REGISTERS  ASSOCIATED  WITH  TIMERS  AND  CAPTURE 


Name 

BANK 

ADDR 

bit  7 

bite 

bits 

bit  4 

bits 

bit  2 

bit1 

bitO 

INTSTA 

0x06 

PEIR 

RTXIR 

RTClfi 

INTIR 

RTXIE 

RTCIE 

IMTIE 

CPUSTA 

0x07 

- 

GLI'JTP 

TMR1 

2 

0x10 

Timerl  Register 

TMR2 

2 

0x11 

Timer2  Register 

PR1 

2 

0x14 

Timerl  Period  Register 

PR2 

2 

0x15 

Timer2  Period  Register 

PIR 

1 

0x16 

IRB     I  TMSiR  , 

TM2IR 

TM1IR 

CA21R 

CAIJi^  l.TBMT.i  ABFL 

PIE 

1 

:  TM2IE 

TMliE 

CA2IE 

PW10CL 

3 

0x10 

PWM1  Duty  Cycle  Low  Register 

PW20CL 

3 

0x11 

PWM2  Duty  Cycle  Low  Register 

PW1DCL 

3 

0x12 

.<-  ,  ..       PWM1  Duty  Cycle  High  Register 

PW2DCL 

3 

0x13 

PWM2  Duty  Cycle  High  Register 

TC0N1 

3 

0x16 

CA2ED1 

CA2ED0 

CA1E01 

CA1ED0, 

1R/H 

TVR3C 

TIVIR2C 

TIMR1C 

TC0N2 

3 

0x17 

CA20VF 

CA10VF 

PWIVI20N 

PWM10N 

-  CA1/TO 

- 

TMR20N 

TIVIR10N 

Care  must  be  taken  when  loading  values  into  the  PWM 
registers.  These  registers  are  the  duty  cycle  registers 
(PWxDCH:PV)M}CL)  and  the  period  register  (PRx). 
FigurB2shows  the  proper  update  timing  ofthese  values. 


FIGURE  2  -  TIMING  FOR  UPDATING  THE  DUTY  CYCLE  REGtOTESiS^D  PERtpO  REGISTER 


Tuner  Overflow 
Intempt  (old  period  value) 
A 


Duty  Cycle         Timer  Overflow 

compare  equal     Intemp  (MvpMed  value) 


PWM 

output 


Load  duty  cycle  value  for  next  pulse 

Load  new  period  value  for  this  cycle 
C  =  new  desired  period 


NOTE:  When  updating  the  period  register,  the  value  loaded  must  be  greaterttianthetimervalue.  iftheperiodvalue  is  less  then 
the  timer  value,  the  duty  cycle  value  is  not  latched  and  the  timer  is  not  reset  (to  OOh)  urrtil  the  next  Timer  >  Period  match. 
This  causes  the  current  cycle  to  not  output  as  expected  and  cause  a  "glitch'. 

NOTE:  K  is  generally  good  practice  to  load  the  new  period  Wtlue  tiatoihe  Pi%c  ragister  as  soon  asfnaslble  after  PoM  A. 
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SIMPLE  PWM  OPERATION 

Simple  PWM  operation  is  where  the  period  of  the  PWM 
output  remains  constant,  and  only  the  duty  cycle  is 
modified.  The  PWM  can  operate  in  either  of  two  modes: 

Hi-resolution  mode-the  PWxDCL.register  Is  modified 

•  Standard  issolution  mode  -  fip  PVM}CL  register  is 
not  modified 

When  operating  in  the  standard-resolution  mode,  only 
the  PW-DCH  registeriis  ever  modified.  Since  this  takes 
only  a  single  cycle,  this  can  be  done  at  any  time.  Alsa 
since  the  period  is  remeunind  constant  this  rpay  be  done 
without  any  PWM  irrtemipt  $eMWi  MMiiad. 

When  operating  in  the  high-resslution  mosto  both  the 
PWxDCH:PWxOCL  register  pair  is  modified.  Since  this 
is  a  multicycle  update,  care  needs  to  bft4a|(en.  ttiat  tbe 
"new"  PWM  duty  cycie  value  is  not  latched  until  the 
Update  is  complete.  If  the  duty  cycle  is  latched  before 
ttiis  update  is  complete,  the  duty  cycle  will  display  a 
"glitch''.  If  the  PWxDCH  Is  written  first,  the  maximum 
errorisSQ-cycles (187.5ns  @  16MH2).  IfthePWxDCL 
is  written  first,  the  maximum  error  is  also  3  Q-cycles 
(18/.5  rti«  16  MHz),  with  the  PWxDCH  delayed  by  one 
PWM  period.  This  may  be  acceptable  for  some  applica- 
tions. If  this  is  not  acceptable  for  your  application  then  a 
subroutine  can  be  written  to  ensure  that  these  duty  cycle 
writes  are  not  done  when  the  timer  will  equal  the  period. 
One  implementatipn  of  this  subroutine  (PWM_UD)  is 
used  in  the  Variable  Period/  Variable  Duty  Cycle  PWM 
example.  This  is  discussed  in  the  following  section,  with 
the  listing  in  Appendix  A. 

Additionarcode  eikmples  £afiWTcH^M^^«^t 
note  AN539  in  the  Embedded  ContrrfraraBBsP^ ' 


VARIABLE  PERIOD  /  VARIABLE 
DUTY  CYCLE  PWM 

In  a  variable  period  /  variable  duty  cycle  PWM  both  the 
duty  cycle  of  the  PWM  as  well  as  ttie  frequency  (perbd) 
of  *«  WWM  are  modifieds  - 

The  P IC1 7C42's  hardware  double  buffers  the  duty  cycle 
registers,  but  the  period  registers  are  not  double  buff- 
ered. What  this  means  is  that  you  can  modify  the  duty 
cycle  registers,  but  the  value  will  only  be  latched  when 
the  timer  register  equals  period  register.  Since  the 
period  register  is  not  buffered,  as  the  period  register  is 
modified  this  becomes  the  "new"  period.  This  means 
that  care  must  be  taken  when  modifying  the  period 
register.  The  most  common  problem  would  be  to  modify 
the  period  register  resulting  In  a  "glitch"  to  occur.  This 
"glitch"  occurs  when  ttie  period  register  is  modified  wifli 
a  value  that  is  less  than  the  present  timer  value.  The 
tinwr  does  not  have  a  match  with  the  old  period  value, 
and  continues  to  count  until  the  timer  register  equals 
period  register. 

Figure  3,  shows  an  example  where  the  period  (PR1) 
register  =  7Fh.  Then  the  period  is  modified  to  a  smaller 
value  (PR1  =  1  Fh)  without  checking  that  the  value  in 
Timerl  (TMR1)  register  =  3Eh.  Since  the  new  period 
(PR1)  value  is  less  then  the  present  timer  (TMR1 )  value. 


FIGURE  3  -  IMODIFYING  PERIOD  REGISTER  "GLITCH" 


PWM1 


1 

[  t 

Duty  Cycle 

registers.  B^1>_ — 

Duty  Cycle 

[  t 
TMR1  =  7Fh 

[      t  1 
Duty  Cycle 
re^era.5  Ttmt 

\  t 

Duty  Cycle 
registers  =  TMR1 

TMR1=PR1=7F^  TMR1=3Eh  ^  TMR1=PR1=1Fh 

00h-»TMR1  ^    0    —  ModifyPRI  =1Fh  00h->TIVIR1 

Duty  Cyds  registers  MMM  Stl^  %sle  registers  latched 


#<1  in  MSM^IdnrTa^ 
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Care  mud  be  taken  when  writing  a  10-bit  duty  cycle 
value.  Since  this  requires  two  register  writes,  the  Timer 
equals  period  could  occur  between  these  two  writes, 
which  would  give  a  duty  cycle  that  was  not  as  expected. 

The  cases  are  as  follows: 

1 .  If  the  duty  cycle  low  (DCL)  register  is  written,  and  then 
the  Timer  equals  period.  The  old  DCH  register  and 
the  new  DCL  register  becomes  the  duty  cycle. 

2.  If  the  duty  cycle  high  (DCH)  re^er  is  written,  and 
thm  tha  nnar  equals  period.  The  new  DCH  register 

"^and  the  old  DCL  register  beconnes  the  duty  cycle 

At  the  following  occurrence  of  the  timer  equaling  the 
period,  the  second  register  written  would  be  updated. 
The  subroutine  PWM_UD  (Appendix  A)  ensures  that 
these  duty  cycle  writes  are  not  done  when  the  timer  will 
equal  the  period. 

A  software  example  of  a  variable  period  /  variable  duty 
cycle  is  shown  in  Appendix  A.  In  this  example  the 
period  is  double  buffered  in  software,  and  the  new 
period  value  is  loaded  in  the  timer  overflow  interrupt 
service  routine.  When  the  new  duty  cycle  needs  to  be 
baded.  The  device  connections  are  shown  in  Figure  4. 
This  program  has  two  PWM  settings  (period  /  duty  cycle 
combinations)  that  are  switched  between  depending  on 
the  level  on  pin  RBO.  A  frequency  generator  was  used 
to  give  a  low  frequency  signal  on  the  RBO  pin.  Figure  5 
shows  an  example  of  the  input  and  output  wavefomis. 


FIGURE  4-  APPLICAm^HiiMfllliMtlC    •  ^ 
SETUP 


PIC17C42 

Vdd  RBO 
MCLR  ,  . 

Vss 


Frequency 
Geneiator 


The  program  listing  in  Appendix  A  implements  this 
example,  Figure  8  is  the  flowchart  of  the  program.  This 
example  may  be  nnodified  to  suit  the  particular  needs  of 
your  application.  The  Table  3  is  a  summary  of  the 
requirements  for  this,  program  (@  16  MHz): 

TABLE  3  -  PROGRAM  REQUIREMENTS 


Code  Size: 

52  Words 

RAM  used: 

11  Bytes 

Interrupt  Service  Routine  time 

3.0  usee 

Subroutine  time 

4.5  usee 

6.0  usee 

Maximum  PWM  frequency: 

200  KHz 

PWM  Accuracy:  ' 

62.5  n$ec 

FIGURE  5  -  EXAMPLE  APPLICATION  WAVEFORMS 
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EXTERNAL  CLOCK  FOR  TIMER 
TfMEBASE 

The  counters  used  forthe  time  base  of  the  PWM  outputs 
can  be  software  selected  to  operate  from  an  external 
dSek source.  This  allows  a  lowerfrequency  PWM  to  be 
aAHMa^  Doing  this  Mngs  up  new  issues  that  must  be 

One  of  these  issues  is  clocl<  synchronization.  All  exter- 
nal clocl<s  must  be  synchronized  to  the  intemal  operat- 
ing speed  of  the  microcontroller,  as  shown  in  figure  9. 
When  this  synchronization  occurs  the  PWM  output  is  not 
truly  operating  from  the  extemal  clock,  but  actually  the 
intemal  synchronized  cloclt.  This  leads  to  a  "jitter"  of  the 
output  to  the  clock.  This  jitter  is  caused  from  the  delta 
tfme  between  the  extemal  clock  and  the  synchronized 
dock  not  being  constant.  The  synchron^Eatkm  errors 
are: 

Duty  cycle  error  =  +/-Tcy  '  | 
Period  error  =  V-Tcy   | 


If  you  needed  to  run  the  PWM  at  a  low  frequency,  and 
also  want  to  reduce  the  "jitter  from  the  use  of  an  extemal 
asynchronousclock,  a  PWM  output  could  be  used  as  the 
synchronous  clock  soutce.  When  the  clock  is  synchro- 
nized to  the  device  the  ck>d<  error  is  always  constant,  so 
mm  »  BdpiMi'BlBiiit  jlijiwiiiimiijaiianfae. 


fwmm  r-  i»««(r  OUTPUT  to  generate  a 

'     'SYNCHRONOUS  CLOCK 


r 


RB2/PWM1 

TWI1  PWM  output 

TMR2 

RB4/TCLK12 
RB3/PWM2 

TMR2  PWM  output 

FIGURE  6  -  EXTERNAL  CLOCK  SYNCHRONIZATION 
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Another  use  is  where  precise  timing  ot  updates  need  to 
be  done,  but  not  at  the  frequency  of  the  PWM  output  In 
this  discussion,  TMR1  Is  used  as  the  time4>ase  of  m 
constant  frequency  PWM  ou^nit.  TMR1  uses  the  inter* 
nal  clock  of  thed0vieeanct?MR2usestheeactaB»lcledc 
input.  TMf^wUh<g«^^th»olaii&4np^reiMita»«lMi' 
output. 

The  PWM  output  is  a  constant  frequency  variable  duty 
cycle  output.  The  PW1  DCH:PW1  DCL  register  pair  con- 
tain the  variable  duty  cycle  value  of  PWM1  output.  The 
PW2DCH:PW2DCL  register  pair  is  set  for  a  fixed  duty 
cycle  00%)  for  tie  PWKHg  output. 


_  .   I 


The  PWM^'oUQKits  could  be  programmed  to  have  a 
frequency  of  20  KHz,  so  to  reduce  audible  noise.  The 
PWM2  signal  is  connected  to  the  RB4/TCLK12,  as 
shown  in  Figure  8.  The  PR2  register  could  be  loaded 
with  14h  (20),  to  give  an  interrupt  every  1  KHz.  This 
intemjpt  can  then  trigger  tasl<s,  such  as  updating  the 
duty  cycle  of  PWM1 .  This  is  useful  in  motor  control  as 
well  as  other  applications  where  the  update  rate  is  less 
then  the  PWM  frequency. 

CONCLUSION 

The  PIC17C42's  PWM  features  offer  a  high  perfor- 
mance solution  at  a  lower  system  cost  then  previously 
available.  The  versatility  of  PWMs  make  the  PIC1 7C42 
kleal  for  nvstor  control  applications  (ses  AN532)  and 
many  industrial  control  application^. 


FIGURE  8  -  SAMPLING  SCHEME 
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APPENDIX  A:  LISTING  FILE 

mASS.  BO. 54  PkSE  1 


LIST      P=17C42,  T=(Ml,  C=120,  H=0 

;  This  is  the  basic  outline  for  a  program  that  generates  a 

;  variable  PlOf  output.  The  FWM's  period  and  duty  c^cle  can 

;  be  varied.  The  nefv  period  (NEW_PR1)  and  the  new  duty  cycle 

;  (NEW_DC1  and  NEW_DC1Q)  are  loaded  by  the  user  program. 

;  The  peripheral  interrupt  routine  loads  the  new  period  value 

;  (frequency)   into  the  PRl  register.   A  subroutine  (PWM_UD) 

;  is  also  used  to  ensure  that  the  10-bit  duty  cycle  registers 

it'-'  -f  lore  upebated  ia  the  same  FWtC  cycle,  i.e.  the  tiiii»  match  does  not 

;  occur  between  two  duty  cycle  register  writes. 


The  duty  cycle  value  gets  latched  on  the  overflow  (Period  match) 
of  the  timer.  The  period  value  gets  modified  as  soon  as  the  period 
register  is  changed.   Therefore  care  must  be  taken  in  updating 
the  period  register.   In  cases  where  the  period  value  is  modified 
to  a  smaller  value,  we  must  ensure  that  the  Timer  counter  is  less 
thm  this  TOlue  when  the  period  register  is  updated  (THRl  <  new  PRl*) . 
If  1MR1  is  greater  then  PRl,  the  counter  will  count  to  FFh,  rollover 
to  OOH,  and  only  cause  the  dverflcw  interrupt  when  it  th^  reaches 
the  period  value.  This  would  give  a  wrong  PWM  output. 

In  this  example  the  event  which  cause  the  PWM  to  be  updated 
is  an  asynchronous  ev^t.  A  i$w  tre^ae&acy  signal  was  placed  on 
port  pin  RBO. 

For  a  high  level  the  PWM  registers  are  updated  as  follows: 

PRl  =  7Ph,  PWIDCH  =  3Ph,  and  PSJlDCL  =  40h 
For  a  low  level  the  FHM  t^egisters  are  updated  as  follows: 

PRl  =  IFh,  PWIDCH  =  07h,   and  PWlDCL  =  80h 


Do        BQClate  taSsi^ 


0020 

Eoa 

09(20 

0021 

NEW_DC1Q 

EQO 

0x21 

0022 

NEW_PR1 

EQU 

0x22 

0025 

PWM_WIN 

EQU 

0x25 

0026 

CALC_PR 

EQU 

0x26 

0027 

EQU 

0x27 

OOIA 

DCIH 

■-■  i-stSQIf 

OOIB 

DCIQR 

mas 

OOlC 

FRIH 

EQU 

OxlC 

OOID 

EQU 

OxlD 

OOIE 

ixriQi. 

EQU 

OxlE 

OOIF 

I«1L 

EQU 

OxlF 

07FF 

END_OF_PROG 

_MEM  EQU 

OxOVFF 

0004 

ALUSTA 

EQU 

0x04 

0006 

CPUSTA 

EQU 

0x06 

0007 

INTSTA 

EQU 

0x07 

OOOA 

,  (|. 

0x0% 

0011  " 

'  asp 

...  S*ll 

0012 

StSRTB'  - 

'  •0x12 

0016 

EQU 

0x16 

0017 

PIE 

EQU 

0x17 

New  Ftml  duty  cyele  value 
;  New  PWMl  period  value 

;  Register  for  the  PWM  window  cycle  count 

;  Calculated  period  value 

t '  l^egister  for  flag  bits  Jt.i-- 

I  PHH  registers  for  high  time 


PWM  registers  for  low  time 


!  Bank  1 
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0010 

0011 
0012 
0013 
0014 
0015 
0016 
0017 

0010 
0011 

oai2 

0013 
001« 
0017 


0000  C02B 


0008  C07C! 


0010  C07D 


0018  C07E 


THRl 

EQU 

0x10 

;  Bank  2                             -.    .  , 

THR2 

EQtJ 

0x11 

THR31 

EQU 

0x12 

DIRiil 

EQU 

0x13 

PRl 

EQU 

0x14 

PR2 

EQU 

0x15 

PR3L 

EQU 

0x16 

PR3h 

EQU 

0x17 

PWIDCL 

EQU 

0x10 

;  Bank  3 

FW2DGXj 

EQU 

0x11 

FHIOCH 

EQU 

0x12 

FW2BCH 

BQO 

0x1.3 

Tccm 

0x16 

EQU 

0x17 

ORG 

0x0000 

;  Origin  for  the  RESET  vector 

GOTO 

;  On  reset,  go  to  the  start  of 

ORG 


GOTO 


0x0018 


0x0020 


the  program 
Origin  for  the  external  RAO/INT 

interrupt  vector 
Goto  the  ext.  interrupt 

on  RAO /INT  routine 
Origin  for  the  RTCC 

overflow  interrupt  vector 
Goto  the  RTCC  overflow  interrupt 

rputine 
Origin  for  the  external 

RAl/RT  interrupt  vector 
Goto  the  ext.  interrupt  on 

RAl/RT  routine 
Origin  for  the  interrupt  vector 
of  any  enabled  peripheral 


The  interrt^t  routine  for  any  peripheral  interrupt, 
only  deals  with  Timerl  interrupt. 


This  routine 


Time  required  to  execute  interrupt  routine.  Not  including 
interrupt  latency  (time  to  enter  into  the  interrupt  routine) 


c«S9l  -  only  Tl  overflew 
ca«e2  -  Other 


12  eycles 
Infinite  Loop 


0020  B801 

0021  9416 

0022  C022 


PER_II1T 
ERROR 


MOVLB  1 

BTFSS  PIR,4 

GOTO  ERROR 

;  No  other  interrupts  should 
;  be  enabled,  so  error. 


Select  register  Bank  1 
Did  Timerl  overflow? 
Not  a  Timerl  overflow. 


Once  the  enabled  Timerl  overflow  occurs,  the  period  register 
is  loaded.  This  PWM  waveform  will  remain  until  the  PWM  duty 
cycle  and  /  or  period  is  updated.  Until  such  update,   there  is  no 
S/W  overhead  from  Tl  interrupts   (Tl  interrupts  can  be  disabled)  . 


NOTE: 


If  PWIDCH 
is  100%. 


>=  PRl,   then  the  duty  cycle  of  this  PWM  output 


The  new  Period  register   (PRl)  value,  must  always  be  greater 
than  the  value  in  the  Timerl  register   (TMRl)  .   If  a  PRl  value 
is  loaded  that  is  less  then  the  TMRl  value,   the  timer  will 
continue  to  count  until  it  reaches  the  PRl  value.   I.E.  TMRl 
will  overflow  at  FFh  and  the  count  to  the  new  PRl  value. 
Hiniim  PRl  value  is  OAh,  due  to  time  to  load  new  values  and 
execute  the  peripheral  interrupt  service  routizxe. 


0023  8C16 

0024  B802 

0025  7422 


TIOVFL 


BCF  FIR, 4 

MOVLB  2 

MOVPP  NEHLPRl.ntl 


Clear  Overflow  interrupt  flag 
Baiik2 

Load  this  period  value 
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0026  a&H 

0027  8cn 

0028  B800 

0029  3F12 
002A  0005 


r  , 


1 

PIE,  4 


MOVLB  0 

Bm  PORTS,  7 


Bank  0 

Disable  Tl  interrupt 

{until  transition  on  PORTBO) 
Bank  0 

Transition  PortB  7  pin  (H->L, 
Retucn  from  Interrupt 


002B  g40« 


002C  B803 
002D  2817 
002B  B070 
.OD2F<^«116 


0030  BOOD 

0031  0125 

0032  BSOO 

0033  2311 

0034  2912 

0035  8F11 

0036  2927 


0037 
0038 
0039 
003A 
003B 
003C 
003D 
003E 
a03F 


B803 
B03P 
4A1A 
B040 
4A1B 
B007 
4A1D 
B080 
4A1E 


0040  B802 

0041  B07F 

0042  4A1C 

0043  BOIF 

0044  4KLV- 


This  is  the  start  of  the  program. 


MOVLB 
CLRF 
KOVLH 
MOVWF 


OxO?^ 

Tcom 


MOVLW  OxOD 
MOVWF  PWHJWIN 


HOVLB 
SETF 

On-Jiocii   \r--^i  CLRF 
BCF 
CLRF 


PORTB,  1 
DDRB,  7 
FLAG_REG, 


Blsable  ALL  interrupts  via  the 
Global  Internqpt  Dise^le 
(OLDJTD)  bit. 

Place  Main  program  here 

Select  register  Bank  3 

St^  the  timers.  Single  :G«^tui?e 

Initallze  TCCatl  so  that 
Tl  (8-bit) ,  T2  (8-bit) , 
and  T3  run  off  the  internal 
system  clock.  Tiiner3  uses 
period  register 

Load  the  FMK  window  cycle  value 


Select  register  Bank  0 
Port  B  is  an  li^ut 

Set  output  values  to  0  (for 
P0RTB7  is  an  output.  Used  to 
Clear  the  Flag  registers 


Load  registers  with  the  PWM  values  that  we  will  switch  between, 
for  the  tine  PORTBO  is  his^  and  anothsie.  set  for  vhen  low. 


One  set 


For  a  high  level  the  PWM  registers  are  updated  as  follows: 

PRl  =  7Fh,   PWIDCH  =  3Fh,   and  PWIDCL  =  40h 

At  16Mhz  this  gives  a  period  of  31.75  us,  and  a  duty  cycle  of  16.625  us 
For  a  low  level  the  PWM  registers  are  updated  as  follows: 
PRl  =  IFh,   PWIDCH  -  07h,   and  PWIDCL  =  80h 

At  16t&z  this  gives  S'period  of  7.7S  -tis,  and  a  duty  cycle  of  6.00  us 


HOVLB 
MOVLW 

MOVPF 
MOVLW 
MOVPF 
MOVLH 

Movur 

MOVPF 

MOVLB 
MOVLH 
MOVPF 

MOVPF 


3 

0x3P 

W,  DCIH 
0x40 

W,  DCIQH 
0x07 
W,  DCIL 
0x80 

W,  DCIQL 

2 

0x7F 
W,  FRIH 


Bank  3 

The  Duty  Cycle  initial  value  is 
50%  of  the  initial  period 

Duty  Cycle  low  =  01 
The  Duty  Cycle  initial  value  is 
25%  of  the  initial  period 

Duty  Cycle  low  =  10 

Bank  2 


The  initial  period  value  is  50% 
;      of  full  scalis  (for  Hi^) 
OxlF 

W,  PRIL  ;  The  Initial  period  value  is 

;      of  full  scale  (for  Low) 


Default  PWM  values  should  be  set, 
and  the  Interrupts  enabled. 


0045 

BOPO 

MOVLW 

OxFO 

0046 

0114 

MOVWF 

PRl 

0047 

B803 

MOVLB 

3 

0048 

BOCO 

MOVLW 

OxCO 

0049 

0112 

-It  wivO  n  -f  MOVWF 

PWIDCH 

004A 

0110 

MOVWF 

PWIDCL 

and  the  tiflier  lEdaould  be  steurted 


Load  the  Period  register 


Select  register  Bank  3 

Load  the  Tl  duty  cycle  register 

effectively  loaded  with  0 


004c  0117 

004D  8307 
004E  B801 
004F  BOlO 

0050  0117 

0051  8C06 

0052  BSOO 


HOVLW 
MOVWF 

BSF 

MOVLB 

MOVLW 

MOVWF 

BCF 

HOVLB 


0x31 

Tccac 

INTSTA,3 
1 

0x10 
PIE 

CPUSTA,4 
0 


**  Ene»ble  PWMl  and  PWM2  ou^uts 
**      and  turn  on  Timerl. 

Turn  on  Peripheral  Interrupts 

Select  register  Bank  1 

Enable  Timerl  overflow 

Interrupts  (when  GLINTD  =  0) 

Enable  ALL  interrupts 

Bank  0 


0053  8827 

0054  9012  ■ 

0055  C05F 

0056  9827 

0057  C054 

0058  8027 


0059  B803 
OQSA  5*30 
005B  5B21 

005C  5C22 
005D  E06B 
OOSE  C0S4 


^ly  need  to  update  PWM  values  on  the  first  occurance  of  a  new  level  on 
Else  loop  waiting  for  level  to  change. 


HIGHIST  BCF  FLAG_REG,  0 

gIGaCXC    '  BTFSS  FORTB,  0 

>-:  GOTO  LOWIST 

BTFSC  KLASJtBO,  0 

SOTO  mwcfc 

BSF  FLAG_REG,  0 


First  time  in  loop  (this  cycle)  -  True 
Is  PortBO  low 
FOKTBO  =  L 

is  this  the  First  Hij^  tlma  (this  cycle)  ? 
Loop  looking  for  low  signal  on  PbartBO 
Set  First  time  in  loop  (this  cycle)  =False 


Here  is  where  we  update  the  PWM  values   (period  and  Duty  cycle)   for  high 


MOVLB 
IB3VPF 
MOVPF 

MOVPF 

CALL 

GOTO 


DCIH,  HEWLJX:! 
DCIQH,  NEW_DC1Q 
PRIH,  NEWLPRl 
PWM1_UD 
HIGHCYC 


Bank  3 


Loop  looking  for  low  signal  on 


005*  9S27 

0060  9S12 

0061  C053 

0062  9827 

0063  C060 

0064  8027 


LOWIST 
ioIlOMCYC 


BCF 
BTFSC 

GOTO 
BTFSC 
GOTO 
BSF 


FIAG_REG, 
PORTB,  0 

HIGHIST 
FLAG_REG, 
LOWCYC 
FLAG_REG, 


First  tiine  in  loop  (this 
Is  PortBO  high 
PORTBO  =  H 

Is  this  the  First  Low  time 

Loop  looking  for  high  signal  on  PortBO 

First  time  in  loop  (this 


Here  is  where  we  update  the  PWM  values   (period  and  Duty  cycle)   for  low 


0065  6803 

0066  5ES0 

0067  5E21 

0068  5F22 

0069  E06B 
006A  C06O 


HOVLB 

MOVPF 

MOVPF 

MOVPF 

CALL 

GOTO 


3 

DCIL,  NEW_DC1 
DCIQL,  NBW_DC1Q 
PRIL,  NEW_PR1 
PWM1_UD 
LOWCYC 


Bank  3 


Loop  looking  for  high  signal 


006B  8406 
006C  B802 
006D  6A10 
OOeE  0414 
006F  3025 

0070  C06S 

0071  B803 

0072  6A20 

0073  0112- 

0074  6A21 

0075  0110 

0076  B801 

0077  8C16 


'  ?9tis  code  segment  ensure  that  all  PWM  values   (period  and  duty  cycle) 
are  updated  at  the  same  time.  This  is  done  by  ensuring  that  the  Timer 
is  at  least  PWM_WIN  (ODh)   cycles  before  the  PRl  value   (PRl  -  PWM_WIN  > 
If  not  a  "glitch"  could  occur  in  the  PWM  waveform.  When  only  the  1st  duty 
c^le  register  is  latched  for  this  PWM  cycle,  and  the  following  PMH  period 
will  latch  the  2nd  duty  cycle  register. 


PVOJl_aD 


BSF 

MOVLB 

MOVFP 

SUBWF 

CPFSLT 

GOTO 

MOVLB 

MOVFP 
MOVWF 
MOVFP 
MOVWF 
MOVLB 
BCF 


CPOSTA, 

2 

TMRl,  W 
PRl,  0 
PWM_WIN 
PWM1_UD 


W 


NEW_DC1, 
PWIDCH 
NEW_DC1Q,  H 
PWIDCL 
1 

PIR,  4 


Disable  Global  Interrupts 
Bank  2 

Load  W  reg.  with  Timerl  vailue 
PRl  -  TMRl  ->  W  reg. 
Check  if  Timerl  is  about  to 
Overflow  would  have  occurred 

PWM  updates.  Delay  a  few 
Bank  3 

Your  New  PWM  MSB 

Loaded  in  duty  cycle  buffer  ■ 

Your  New  PWM  LSB  , '  i 

Loaded  in  duty  cycle  buffer  ' 

Back  to  Bank  1 

Clear  Tl  Overflow  interrupt 
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PWM  Operatioffr 


0078  8417 

0079  8C06 
007A  BSOO 
007B  0002 


007C  0005 
007D  0005 
007E  0005 

007F  C02B 


07FP  C07F 


ESP  PIE,  4 

BCF  CPUSTA, 

MOVLB  0 
RETURN 


Enable  Tl  int 

Enable  Global  Interrupts 

Bank  0 

'*  this  does  not  need  to  be 
'*    as  a  subroutine. 


Other  Internet  routines.   (Not  utilized  in  this  example) 


EXT_IIJT 
RTCCINT 
RT_I1IT 


RETFIE 
RETFIE 
RBTFIB 

GOTO 


RAO/INT  interrupt  routine 
(NOT  used  in  this  program) 

RTCC  overflow  interrupt  routine 
(NOT  used  in  this  program) 

SAl/RT  Interrupt  routine 
(NOT  used  in  this  program) 

;  If  program  became  lost,  goto 
;      ST3ffiT  and  reinitaXize. 


When  the  executed  address  is  NOT  in  the  program  range,  the 
16-bit  address  should  contain  all  I's  (a  CALL  OxlFFF) .  At 
this  locatim  you  could  branch  to  a  routine  to  recover  or 
shut  down  from  the  invalid  program  execution. 


ORG 


END_0F_PR0GJ1EM 


The  program  has  lost  it's  mind, 
do  a  system  reset 


Errors  :  0 
Warnings  :  0 


NOTES: 


-oita  «ifr.     l  ti... 
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Using  the  Capture  Module 


INTRODUCTION 


TIMERS  DESCRIPTION 


The  PIC16/17  family  of  RISC-like  microcontrollers  fias 
been  designed  to  provide  advanced  performance  and  a 
cost-effective  solution  for  a  variety  of  applications.  This 
application  report  provides  examples  wfiich  illustrate  tfie 
uses  of  input  capture  using  tfie  PIC17C42  Tlmer3  mod- 
ule,  These  examples  may  be  modified  to  suit  the  specific 
needs  of  an  application.  .  i 

jTMs  Application  Note  has  4  eocamples  that  ilWka  the 
irimerS  Input  capture.  They  are: 

1 .  Frequency  Counter  (Period  Measurement) 

2.  Frequency  Counter  (Period  Measurement)  using  a 
Free  Running  Timer 

3.  Pulse  WidHi)  Measiiremant 

4.  Frequency  Countlt^eriod  MeaswenWH^<rt8»Jw. 

put  Prescaler 


Timers  is  a  16-bit  counter  that  has  two  modes  of  opera- 
tion  which  can  be  software  selected.  The  CA1/PR3  bit 
(TCON2<3>)  selects  the  mode  of  operation.  The  two 
modes  are: 

1.  TmnerS  with  Period  Register  and  Single  Capture 
Register  (see  Figure  1) 

2.  Timers  and  Dual  Capture  Registers  (see  Figure  2) 
Timei3  is  the  time-base  for  capture  opattaUans. 


FIGURE  1  -  TIMERS  WITH  PERIOD  REGISTER  AND  SINGLE  CAPTURE  REGISTER 


Timer -f  Period  Reg  +  One  Capture  Mode  (CA1/PR3  =  0) 


imac  . 


OSC/4 


RB5/TCLK3 


TMR30N 
CTCON2<2>) 


Edge  Select 
Prescaler  Select 


CA2ED1.  CA2ED0 
CrCON1<7:6>) 


PR3H/CA1H 

PRSUCAIL 

.  .  ii  . 

Comparator  <ie> 

TMR3H<8> 

TMR3L<S> 



CA2H 

CA2L 

Timer  3  Interrupt 
n'M3IR,PIR<6>) 


Reset 


Capture  2  Intenupt 

(CA2ia  pin<c&) 


Capiurt  Module 


FIGURE  2  -  TIMERS  AND  DUAL  CAPTURE  REGISTERS 


Timer  +  Two  Capture  Mode  (CA1/PR3  =  1) 


CA1ED1,CA1ED0 
(TCON1<5:4>) 

\2 


Edge  Select 
Prescaler  Select 


RBQ/CAP1 


OSCV4  ' 


RBSn"CLK3 


1 


TMR30N 
I  (TCON2<2>) 
TMR3C 
(TCON1<2>) 


Edge  Select 
Prescaler  Select 


RB1/CAP2 


CA2ED1,  CA2ED0 
(rCON1<7«>) 


PR3H/CA1H 


PR3L/CA1L 


Capture 
enable 


TMR3H<8>  TMR3L<8> 


Capture 
enable 


CA2H 


CA2L 


Capture  1  Interrupt 
(CA1IR,  PIR<2>) 


Timer  3  Interrupt 


Capture  2  Interrupt 
(CA2IR.  PIR<3>) 


The  period  regtstarsdKHtsrvnrmirlKBd  of  TMrs  to  be  ~ 
pemettdng  other  than  twg*  counter  overflow  Mdiie, 
jwNcii  cerrespondB  to  PFFRi  (65536)  cycles.  This  |b 
^noanpfalMCtliy  leading Hw  desired  period  value  into 
ihePF»fVeA1H:PR3UCA1trsgisterpaN-.  The  overflow 
time  can  be  calculated  by  this  equation: 

Tofl  =  Tclk  *  (value  in  PR3H/CA1H:PR3L/CA1L 
I     =  register  pair +4).  ' 


A/Vhefe  Tclk  is  either  the  Meihal  ^stem  clock  (Tcy)  or 
the  wdemal  ckx:k  cycle  tinw.  Table  1  shows  time-out 
peiidd  tor  illferent  period  values  at  dWeWiljlroqueri- 
cies.  Tile  values  in  ttie  iBgister  are  Ihe  closest  approxi- 
mation forthe  period  value.  All  examples  in  this  applna- 
tion  report  uses  a  Timers  overftow  value  of  FFFFh. 
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TABLE  1  -  TIMERS  OVERFLOW  TIMES 


Period  Register 

Overflow 

Time 

«  16  iMHz 
(250  ns) 

eiO  MHz 

(400  ns) 

9  8  MHz 

(SOOns) 

6  5  MHz 
(800  (IS) 

®  2MHz 
(2.0  jis) 

6  32  KHz 
(125  MS) 

8.192  S 

NA 

NA 

.  N.A. 

NA. 

NA 

OxFFFF 

131 .072  mS 

N.A. 

N.A. 

N.A. 

N.A. 

OxFFFF 

0x0418 

52.428  mS 

N.A. 

N.A. 

N.A. 

OxFFFF 

0x6866 

0x01  A3 

32.7675  mS 

N.A. 

N.A. 

OxFFFF 

0X9FFF 

Ox3FFF 

0x0106 

26.214  mS 

N.A. 

OxFFFF 

0xCE20 

0x8004 

0x3388 

0X00D3 

16.384  mS 

OxFFFF 

OxAOOO 

0x8000 

0x5000 

0x2000 

0x0083 

10.0  mS 

0X9040  — 

0x6i1A9 

ffi^SZO 

0i^D4 

0(1388 

0x0050 

4.0  mS 

0x3E80 

0x2710 

0x1 F40 

0x1388 

0x0700 

0x0020 

1.0  mS 

OxOFAO 

0x0904 

0x0700 

0x04E2 

0x01  F4 

0x0008 

600  uS 

0x0960 

0X05DO 

0X04B0 

0X02EE 

0x0120 

0x0005 

100  uS 

0x0190 

OxOOFA 

0x0008 

0x0070 

0x0032 

N.A. 

The  uses  of  an  input  capture  are  all  for  time  based 
measurements.  These  include: 

•  Frequency  measurement 

•  Outy  cycle  and  pulse  width  measurements 


The  PIC17C42  has  two  pins  (RB0/CAP1  and  ;,.  i 

RB1/CAP2)  which  can  l>e  used  for  capturing  the  TifnetS 
value,  when  a  specified  edge  occurs.  The  input  capture 

can  be  specified  to  occur  on  one  «f-ttiefonowing  four  '    '  '  ' 

events:  j,      ■  .[i|.";m.bjio'.'i  •■ic,  •  .>    '  ,  „  k.i.' 

•  Falling  Edge  • ,  ' 

•  Rising  Edge  "i  '  I 

•  4«i  Rising  Edge         >-e^)    '•  t  " '"■  r.- •  c  iM  Mn^S;  r"  -  ^ 

•  16th  Rising  Edge 

These  are  specified,  for  t>oth  capture  pins,  l>y  the  regis^ 

t6rTCON1<7:4>. 

This  flexibility  allows  an  interface  without  the  need  of 
additional  hardware  to  rhiinofi|liptndlr  nriiiBilijiiaii 

input  prescaler.  i  , 


-•i"-!  '..ill  a. 


^H^p^i^llft^w^l^^iifl8hlw^li^ylnB 


smut. 


Capture  Module 


The  control  registers  tfidt  am  utilized  for  by  TlmeiS  are 
shown  in Table2.  ShadedBoxesarecontrolbits  thatare 
not  used  by  the  Timers  module,  the  Peripheral  Intemipt 
enable  and  flag  bits,  and  the  Global  Intenupt  enable  bit. 

tt&W^  wdsmwM^SSOCIAJED  WITH  TIMER3  AND  CAPTURE: 


Name 

BANK 

ADDR 

bH7 

btte 

bttS 

btt4 

bits 

bH2 

btti 

bttO 

INTSTA 

All 

6h 

PEIR 

mum 

RTCIR 

PEIE 

CrUSTA 

All 

7h 

GLINTD 

TO 

TMR3L 

2 

12h 

Tim6r3  LSB  Register 

TMR3H 

2 

13h 

Timers  MSB  Registsr 

CA2L 

3 

14h 

TMei3  Capture2  iSBB^teler 

CA2H 

3 

15h 

Timers  OftareZ  MSB  Register 

PIR 

1 

16h 

TMSIR 

TMKtft 

CA2IR 

CA1IR 

TBNSr 

PIE 

1 

17h 

TM3IE 

TM21E 

TMItE 

CA2IE 

CA1IE 

RCI£ 

PR3L7 
CA1L 

2 

16h 

Timers  -  Period  MSB  ReglsterA;aplure1  MSB  Register 

PR3H/ 
CA1H 

2 

17h 

Timers  -  Period  MSB  Register/ Capturel  MSB  Register 

TCON1 

3 

16h 

CA2ED1 

CA2ED0 

CA1ED1 

CAIEtX) 

im 

TMh 

TMR1C 

TCON2 

3 

17h 

CA20VF 

CA10VF 

CA1/PH3 

TMR30N 

This  AK>feaBon  Note  has  4  examples  that  utilize  the 
TimetS  fttput  capture.  They  are: 

1 .  Frequency  Counter  (Period  Measurement) 

2.  Frequency  Counter  (Period  Measurement)  using  a 
Free  Running  Timer 

3.  Pulse  Width  Measurement 

4.  Frequency  Counter  (Period  Measurement)  with  In- 
put Prescaler 

All  these  examples  can  be  mn  from  a  simple  setup,  this 
is  show  In  Rgure  3. 


FIGURES  -  APPLICATION  HARDWAI^  ^ 
SETUP 


+5 

^  Vdd 

(1) 

PI017C42 

(W^hDIPPackags) 

(27) 

Test 

Vss 

(10) 

(31) 

(12)  (32) 

+5 

Vss 

Frequency  ^  RB1/CAP2 

Ganwaur 

MCLR 

EXrctodcIn  osci 

(19) 
(20) 

.  0SC2/ 
CLKOUT 

A  discussion  of  each  i4)plication  with  the  operation  of 
the  software  andapplication  issues.  The  source  livings 
for  these  are  in  appendices  A-D. 


4-32 


0 1993  Microchip  Technologyine. 


Capture  Module 


PERIOD  MEASUREMENT 
(FREQUENCY  COUNTER) 

Period  measurement  is  simply  done  by  setting  tlie 
counter  to  OOOOh,  then  stautlng  the  counter  on  the  1st 
rising  edge.  On  the  following  rising  edge,  the  capture  2 
register  is  loaded  with  the  Timers  value  and  the  Timers 
(TMR3)  register  is  cleared,  if  the  period  is  greater  than 
the  overflow  rate  of  TimerS,  the  timer  overflows,  causing 
an  intemipt.  With  a  TMR3  overflow,  an  interrupt  occurs 
and  the  overfbw  couri^^r  njar  need  to  be  incremented. 
The  overflow  counter  ^lof   ^' '  


>  incremented  if: 

1 .  The  TMR3  overflow  is  the  only  interrupt  source. 

2.  Both  the  TMR3  overflow  and  capture2  interrupts 
occurred  at  near  the  same  time,  but  the  TMR3 
overflow  occurred  first  (Most  Significant  Byte  of  the 
CaptuFe2  register = OOh). 

Once  a  capture2  has  occurred,  the  capture  registers  are 
moved  to  data  RAM,  the  capture2  interrupt  flag  is 
cleared  and  the  TMR3  register  is  loaded  with  an  offset 
value.  This  offset  value  is  the  number  of  cycles  from  the 
time  the  interrupt  routine  is  entered  to  when  the  TMR3 
register  is  reloaded.  In  this  example  a  data  RAM  location 
is  used  as  an  overflow  counter.  This  gives  in  effect  a 
24-bit  timer.  The  software  flow  for  this  routine  is  shown 
inFigure4.         .    ^.    ■  m  y'w -i.vi*»ii.  .v.-iic 


The  program  listing  in  Appendix  A  implements  this, 
assuming  only  Timer3  overflow  and  capture2  intermpt 
sources.  This  example  may  be  modified  to  suit  the 
particular  needs  of  your  application.  The  following  is  a 
performance  summary  for  this  program  (@  16  Ml-lz): 


GoMsbe: 

lUMused:         "  ' 

Maxiimnn  frsquency  tlHt  can  be  nwasured: 

IVIInimum  frequency  ttiat  can  twIMKlllid: 
Measurement  Accuracy: 


4 

130  KHz 

0.25  Hz 

+/-Tcy(±250nsec) 


FIGURE  4  -  SOFTWARE  TIMING  FLOW  RELATIVE  TO  INPUT  SIGNAL  ON  RA1/CAP2 


RA1/CAP2  pin 


K/ICLR  pin 
(reset  or  power 
on  reset) 


Capture  interrupt  Capture  Interrupt 

Initialize  program  Start  timer  routine  (calculate  period),  routine  (calculate  period), 
loop  while  pin  high  wait  loop     dear  timer  clear  timer 


w 

wIlBepIn  low 


4^ 
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PERIOD  MEASUREMENT 
(FREQUENCY  COUNTER)  USING  A 
FREE  RUNNING  TIMER 

In  many  applications  the  timer  (TMR3)  would  need  to  be 
usedformultiple  tasks,  and  could  not  be  reset  (modified) 
by  any  one  of  these  tasks.  This  is  called  a  free  mnning 
timer.  To  do  period  measurement  in  a  free  running  timer 
application,  the  program  needs  to  store  each  capture  in 
a  data  RAM  location  pair  (word).  The  1  st  capture  in  data 
RAM  k)catk>ns  input  captHra£!A0C2AH:IC2AL)  and  the 
2nd  capture  In  data  RAM  locations  input  capture2B 
(IC2BH:IC2BL).  Once  the  two  captures  have  occurred, 
the  values  in  these  two  words  is  subtraded  Sitx»  this  is 
af  ree  running  timer,  the  value  in  input  (^tureZBinay  be 
less  than  the  value  in  input  capture2A.  This  Is  If  the  1st 
capture  occurs,  thm  the  Timers  overflows,  arid  then  the 
2nd  capture  oceurs.  So  an  overflow  counter  should  only 
be  ncmnantod  If  the  Timers  overflow  occurs  after  a 
capturel  biit  b(Hor»1hec8|>ture2  occurs.  With  the  use  of 
an  oMiflow  tmmm  IMs  becomes  an  effective  24-bit 
period  eew^.  the  software  flow  for  this  routine  Is 
sfKiwn  in  Figure  5. 


The  program  listing  in  Appendix  B  implements  this, 
assuming  only  Timer3  overflow  and  capture2  interrupt 
sources.  This  example  may  be  modified  to  suit  the 
particular  needs  of  your  application.  The  following  is  a 
performance  summary  for  this  program  (@  16  MHz): 

Code  size:  41  Wonls 

RAM  used:  7  Bytes 

Maximum  frequency  tliat  can  In  measured:  SO  KHz 

Minimum  frequency  that  can  lie  measured:  0.25  Hz 

Measurement  Accuracy:  4/-Tcy(±250nsec) 


FIGURE  5  -  SOFTWARE  TIMING  FLOW  RELATIVE  TO  INPUT  SIGNAL  ON  RA1/CAP2 


RA1/CAP2pin 


Initialize 
program 
wait  Icwp 


Capture 
interrupt 
1st  capture 


Capture  interrupt 
2nd  capture  (subtract 
1st  capture  from  2nd 
capture  for  period  time) 


Capture  Capture  Capture 
interrupt  interrupt  Intermpt 
1st  capture  2nd  capture     1st  capture 


MCLR  pin 
(reset  or  power 
on  reset) 
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PULSE  WIDTH  MEASUREMENT 
UStfiUS  A  F^^WJfelMiNG  tJMlR 

Applications  that  require  the  measurement  of  a  pulse 
width  can  also  be  easily  handled.  The  PIC17C42  can  be 
programmed  to  measure  eitherthe  loworthehigh  pulse. 
The  software  example  in  Appendix  C  measures  the  H  igh 
pulse  time.  The  program  is  initialized  to  capture  on  the 
rising  edge  of  the  RA1/CAP2pin.  Atterthis  event  occurs, 
the  capture  mode  is  switched  to  the  falling  edge  of  the 
RA1/CAP2  pin.  When  the  capture  edge  is  modified 
(rising  to  falling,  or  falling  to  rising)  a  capture  interrupt  is 
generated.  This  "false"  interrupt  request  must  be  cleared 
before  leaving  the  interrupt  service  routine,  or  the  pro- 
gram will  immediately  re-enter  the  interrupt  service 
routine  due  to  this  "false"  request.  When  the  falling  edge 
of  the  RA1/CAP2  pin  occurs,  the  difference  of  the  two 
capture  values  is  calculated.  The  flow  for  this  is  shown 
ffi  Figure  6. 


iiooM  mom  MxaoaWt  n*>» 


Due  to  the  software  oraMdaclClttie  P«iplieiBl  Intemi^ 
routine  the  following,  are  the  limitaliqns  on  the  input 
signal  on  RA1/CAP2  pin.  This  does  not  include  any 
software  overhead  that  may  be  required  in  the  main 
routine,  or  If  additional  peripheral  intermptfeatures  need 
to  be  ir^piucled„This.is  f^vvo  in  Table  3.  If  you  eissume 
tnaithe  input  is  a  sqiieuiwave  (high  time = low  time),  one 
needs  to  take  the  worst  case  tinrrn  of  the  two  minimum 
pulse  times  US)  Mm  t««d,  deti^ine  the  period. 
The  maximum  continuous  Input  frequency  would  then  be 
approximately  45.5  KHz.  For  a  single  pulse  measure- 
ment, minimum  pulse  width  is  4.5  us. 

The  program  listing  in  Appendix  C  implements  this, 
assuming  only  Timer3  overflow  and  C£ipture2  interrupt 
sources.  This  example  may  be  modified  to  suit  ttie 
particular  needs  of  your  application.  The  following  is  a 
performance  summary  for  this  program  (@  16  MHz): 
Codasber  ■      -  "sijyifoids 

RAM  used:  7  Bytes 

Maximum  frequency  that  can  be  measured:  71  KHz 
Minimum  frequency  ttiat  can  be  measured:  0.25  Hz 
Measurement  Accuracy:  -f/- Tcy  (i250  rsec) 


FIGURE  6  -  SOFTWARE  TIMING  FLOW  RELATIVE  TO  INPUT  SIGNAL  ON  RA1/CAP2 


Capture  interrupt 
Capture  interrupt      i  edge.  Subtract  2 
Initialize       T  edge.  Change       capture  values  to 
program,     capture  edgs  detect  etetmlne  pulse 
wait  loop      to  I  edge  width 


RA1/CAP2pin 


MCLRpin 
(reset  or  power 
onieseQ 


•  •  • 

1 

,                -  -I-   

. .  1     J    1  1    1   1  , 

,  f 

TABLE  3  -  PERIPH|RAL  INTERRy^jr  BOAJTI!^E 

EVEUT               -  _ 

#  of  CydM  - 

1st  CAPTURE 

Capturel  Only 

18 

4.5  uS 

Capturel  and  Timer  Overflow 

30 

7.5  uS 

2nd  CAPTURE 

Capture  Only 

35 

8.75  uS 

Capture  and  Timer  Overflow 

41 

10.25  uS 

Minimum  Pulse  High 

Capturel  and  Timer  Overflow  +  INT  Latency 

33 

8.25  uS 

Mhvnum  Pulse  Low 

Captures  and  Timer  Overflow  +  [NT  Latency 

44 

11  uS 

Minimum  Period 

(square  wave) 

2  *  (Minimum  Pulse  Low) 

88 

22  uS 

6 1993  Microchip  Technology  Inc. 
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PERIOD  MEAStlFIEMENT 
(FREE  RUNNING  TIMER) 
WITH  A  PRESCALER 

Occasionally  the  application  may  require  a  prescaler  on 
ttie  input  signal.  ThiSM^  bedua  to  application  require- 
ments, such  as:     '  -'  i 
.....  I'j  w  I'l  e2»:C 

•  Require  higMMSMliMifieEusufiBmehtof  the  input 
signal 

•  Fieduce  intend  sen/ice  overhead 

•  The  input  frequency  is  higher  than  iFitemipt  seralce 
routine  '  '  • 

The  software  selectable  prescaler  of  ftm  PIC17C4,^ 
allows  the  designer  to  easily  implement, -this  in  their 
system  without  the  cost  of  additional  hatdwara.  Care 
must  be  taken  in  determining  if  this  option  is  appropriate. 
For  example,  if  the  inputtrequency  is  not  stable  (exces- 
sive frequent^  change  per  period)  then  the  prescaler 
wMiiVe  ales8aGcurateiKV>(uFe  value  tharithe  individual 
measurements. 


In  cases  where  the  resolution  of  the  input  frequency  is 
important,  the  Prescaler  can  be  used  to  reduce  the  input 
capture  error.  There  ato  two  components  to  Ihplit  cap- 
ture: 

1.  Resolution  Error 

2.  Input  Synchronization  Error  ' ''  ' 

These  two  errors  add  together  to  fonn  the  total  c^ure 
en<or.  Resolutbn  error  is  dependent  on  the  rate  at  which 
the  timer  is  incremented,  remember  the  timer  may  be 
based  on  an  extemal  clock  (must  be  slower  than  Tcy). 
The  input  ^nchronization  en'or  is  dependent  on  the 
systern  clock  speed  (Tcy),  and  will  be  less  thfn  f(^< 

tt;i8  easy  to  see  that  when  a  capture  occurs  the  synchro- 
nMion  tmor  (Tesync)  can  be  up  to  1  Tcy  (see  Figure  7). 
TMs  i«t#f  is  con^ant  regardl^  of  tie  numberOf  wiges 
that  o^rbefofwftetSE^itire  is  tak«n.  Sea  captM  on 
the  1  ^  edge  gives  asytichrtmteatidn  enw  pi^saihiple  up 
to  Tcy.  While  a  capture  taken  on  ffie  tfith  e^is'^ves  a 
synciironization  error  per  sampleonly  up  toTj^/ 16,  by 
achieving  a  smaller  percentage  of  error,  the  captured 
value  becomes  more  accurate. 


fmms  r-mmmmmATim  error  with  no  capture  prescaler 


Internal 
capture  edge 
detect  latch 


TMR3 


CA1KCA1L 

(Capturel 

register^ 


Q1     02    03  Q4 


01     02     03  04 


(D 


1,75  Te»® 


01     02    03     04     01     02     Q3     Q4     01     02     03    04     Q1     Q2    03  CM 


—  t.-@E^lcli»ad9a  to  aetuahcapture  register  update  latency  Is  1.75 Tcy  niax.,  QJTS  to^nitn. 
Thto  hnplies  that  wl»n  measuring  a  pulse  or  a  period,  themsasuiement  error  Is  ±  T<^. 


2.  WWi  ne  pncaler  on  Hw  input  capture,  two  consecutive  caplun'ng  edges  must  be  apart  by  at  least  Tcy. 
ittt  tilternal  'capture  edge  detect  latch'  to  reset 
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Another  scenario  is  when  the  signal  on  the  input  capture 
pin  is  different  than  the  system  cycle  time  (Tcy),  for 
example  1 .6  Tcy.  tf  you  tried  to  capture  this  you  would 
have  a  capture  value  of  1 .  If  you  set  the  prescaler  to 
actually  capture  on  the  16th  edge  you  would  have 
16*1.6  Tcy  =  25.6  Tcy,  which  would  be  latched  on  the 
26th  Tcy  (see  Figure  8).  This  0.4  Tcy  error  Is  over  16 
samples,  which  therefore  gives  an  effective  error/sample 
of0.02STey. 


The  program  listing  in  Appendix  D  implements  this, 
assuming  only  Timer3  overflow  and  capture2  Interrupt 
sources.  This  example  may  be  modified  to  suit  the 
particular  needs  of  your  application.  The  following  is  a 
petlomranca  summary  for  this  program  (®  16  MHz): 

Code  size:  41  Words 

RAM  used:  7  Bytes 

Mp^murnftequepc^tfutcanbeiiKasured:  80  KHz 

MhiknuflilFeqiieneyltHl  can  be  imasured:  0^5  Hz 

Measurement  Accuiacy:  4/- Tcy  (±16.625 

nsec) 


FIGURE  8  -  INPI2T16APTURE  DIVIDED'BY  16  PRESCM.E  EXAMPLE 


1       2       3      4       5      6      7      a      9      10     11     12     13     t  4     15     16     17     18     19     20     21     22     23     24     25     26     27  26 


Signal  on 
CAP1  Prn 


Internal 
capture  edge 


(input  divided 
by  18) 


■  :  TO 


AMw.  MtukPatmr 

LogkPmducltaDM^on 


«lfiiai3ihtoedlNpif«iMiaMW  me. 


4^ 
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APPENDIX  A  -  PERIOD  MEASUqiMBin'  EXAMPLE  CODE 


01.01  Released    IC_D16_2  .ASM      6-7-1994  11:17:1? 


PAGE  1 


0020 
0021 

0023 
0024 
002S 
0026 


OBJECT  CODE 
0001 
'  0002 
0003 
0004 
OOOS 

-.:  "rmoe 

0007 

^ ' '  0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 


LINE  SOURCE  TEXT 

LIST        p=17C42,  c=132 
This  is  the  basic  outline  for  a  program  that  can  determine  the 
frequency  of  an  input,  via  input  capture.  The  input  capture  has 
been  selected  to  capture  on  the  16th  rising  edge.  This  is  useful 
for  high  frequmcy  ii^uts,  vdiere  an  interrupt  on  each  rising  edge 
would  not  be  able  to  be  serviced  (at  that  rate) .  This  particular 
exanple  can  support  an  ii^ut  signal  with  a  period  of  approximatly 
625  nS.  Without  the  divide  by  16  selected,   this  is  approximatly 
10  us.  This  period  time  increases  (frequency  decreases)  as  the 
overhead  in  the  main  routine  increases - 

Thim  VOUtiaa  VBtm  an  8-bit  register  to  count  the  t&ites  that  timer3 
overflowed.  At  the  Kax  crystal  frequency  of  16  HHz,  this  gives  an 
overflow  time  of  (16)  (2*«8  +  1)  (2**16)  (250  nS)  >  67.37  sec.  If 
measurement  of  longer  time  intervals  is  required,  the  overflow 

counter  could  be  extended  to  16   (or  more)  bits. 

Timer  3  in  this  example  is  a  free  running  timer.  The  input 
capture  is  generated  on  the  RB1/CAP2  pin.  There  is  a  flag 
that  specifies  if  this  is  the  1st  or  2nd  capture. 
The  first  capture  is  the  start  of  the  period  measurement.  The 
second  ca^iture  value  gives  the  end  of  the  period.  In  this  typ^- 
of  measurement  If  the  2nd  capture  value  <  the  1st  captue  value 
then  the  overflow  counter  should  be  decreonnted. 

Program:  IC_D16_2.ASM 
Revision:  1.0 


Do  the  EQUate  table 


IC20F 

IC2BH 

IC2BL 

IC2AH 

IC2AL 

T30FLCIITR 

PLAG_REG 


EQU 
EQU 
EQU 
EQU 
EQU 
EQD  0x25 
EQU  0x26 


0x20 
0x21 
0x22 
0x23 
0x24 


FLAG_REG  bit 


T3  overflow  register 

T3  ICA2  MSB  register   (2nd  Cap) 

T3  ICA2  LSB  register 

T3  ICB2  MSB  register  (1st  Cap) 

T3  ICB2  LSB  register 

Temperay  T3  overflow  register 

Register  that  has  the  Flag  bits 

2  10 
-    XIFL  CAPl 


CAPl  =  0,     1st  Capture 
=  1,    2nd  Capture 

OFL  =  0,    No  Underflow 

=  1,    Underflow  during  subtract 


07PF 

0048  END_OF_PROQ_>!EM 

EQU  Ox07FF 

0049  ; 

0050  ; 

0004 

0051  ALUSTA 

EQU 

0x04 

0006 

0052  CPtrSTA 

EQU 

0x06 

0007 

0053  INTSTA 

EQU 

0X07 

OOOA 

0054  W 

EQU 

OxOA 

0055  ; 

0012   

0056  PORTS 

EQU 

0x12 

;   Bank  0 

0057  ; 

0016 

0058  PIR 

EQU 

0x16 

;  Bank  1 

0017 

BQO 

0x17 

—  0060  ; 

0012 

0061  TMR3L 

EQU 

0x12 

;  Bank  2 

0013 

0062  TMR3H 

EQU 

0x13 

0016 

0063  T3PRL 

EQU 

0x16 

0017 

0064  T3FRH 

EQU 

0x17 

0 1993  Micradil|i-T«ehiwlbgjr  Inc. 
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0065 

'-  ■XA  •- '.^'J                             -■■  -  '>■-' 
awiKi^  tt                         :  '■.  -■  C  ' 

0014 

"  0066 

CA2L 

EQU 

0x14  ' 

UUi.D 

t- 

0067 

CA2H 

EQU 

0x15 

0016 

uuoo 

TCONl 

EQU 

0x16 

0017 

0069 

TC0M2 

EQU 

0x17 

0071 

ORQ 

0000 

C028 

0072 
0073 

GOTO 

START 

0074 

,  .  ;  OSS  . 

Origin  for  the  external  RAO/INT 

0075 

interrupt  vector 

0006 

C068 

0076 

SOTO 

lSXT_iriT  , 

Goto  the  ext .  interrupt 

0077 

0078 

ORG 

0x0010 

Origin  for  the  RTCC 

0079 

overflow  internet  vector 

0010 

C069 

0080 
0081 

GOTO 

Goto  tlie  RTCC  overflow  internet 
routine 

0082 

n-v-n  n  i  r 

0083 

RAl/RT  interrupt  vector 

0018 

C06A 

0084 
0085 

GOTO 

DTI  TKirn 

Goto  the  ext •   interrupt  on 
tuu. /  t\x  roub xne 

0086 

ORG 

0x0020 

Origin  for  the  interrupt  vector 

0087 

,of  any  enabled  periph^«l 

0020  e&i^B 

0088 

ps!ii_iwp 

Goto  the  interrupt  from  a 

0089 

OX002S 

peripheral  routinej,^;,      ^,  , 

0091 

1 

ORG 

Origin  for  the  top  of 

0092 

program  memory 

0028 

8406 

0093 
0094 
0095 
0096 

0097 

START 
MAIN 

BSF 

CPUSTA#4 

Disable  ALL  interrupts  via  the 
Global  Interrupt  Disable 
(GLINTD)  bit. 

Place  Main  program  here 

0029 

B803 

0093 

MOVLB 

3 

Select  register  Bank  3 

002A 

2817 

0099 

CLRF 

TC0N2 , 0 

Stop  the  timers ,   Single  Capture 

002B 

BOFO 

0100 

MDVLW 

OxOFO 

•   Initalize  TCONl  so  that 

002C 

0116 

0101 
0102 

MOVWF 

Tcorn 

Tl   (8-bit),  T2  (B-bit), 
-  f^xidr  T3  i^un  off  the  internal 

"  « ' 

0103 
0104 
0105 

systeatD  clock.  C^ture2 

captures  on  the  16th  rising  edg 

0106 

;  Initalize 

Timer  3,   load  the  timer  with 

the  nximber  of  cycles  that 

0107 

;  the  device  executes 

(from  RESET)  before  the  timer  is  turned  on 

0108 

;  Therefore 

the  offset 

is  required  due  to  software  overhead. 

0109 

0020 

B802 

0110 

MOVLB 

2  ' 

;  select  register  Bank  2 

002E 

280A 

0111 

CUtF 

W,  0 

;  Clear  the  W  register 

002F 

0126 

0112 

msvWf 

FLAG_REG 

;    Initalize  to  0             ■    .   ■  ■ 

0030 

0113 

0113 

MOVWF 

TMR3H 

;  Timer3  MSB  =0 

0031 

BOOO 

0114 

MOVLW 

0x00 

;  Timers  LSB  =  Offset 

0032 

0112 

0115 
0116 

MOVWF 

TMR3L 

0117 

;  Xioad  the  Timer  3  period  register  with  OxFFFF,  .  ii^ich  will  give  an 

0118 

;  is^ex^iig^t: 

on  the  overflow  of  Tiiner3 

0119 

0033 

BOFF 

MOVLW 

OxFF 

0034 

0117 

0121 

MOVWF 

T3PRH 

0035 

0116 

0122 
0123 

MOVWF 

T3PRL 

0124 

;  the  timer 

should  be 

started  and  interrupts  enabled. 

0125 

0036 

B803 

0126 

MOVLB 

3 

;  Select  register  Bank  3 

0037 

8217 

0127 

BSF 

TC0N2,2 

;  Turn  on  timer  3 .  ; 

0038 

8307 

0128 

BSF 

INTSTA, 3 

;  Turn  on  Peripheral  Interrupts 

0039 

B801 

0129 

MOVLB 

1 

;  Select  register  Bank  1 

003A  B048 

0130 

MOVLW 

0x48 

;  Enable  Caputure  2  and  TisierS 

003B 

0117 

0131 
0132 

HOVWF 

PIE 

;         Interrupts  {when  GLINTD  =  0) 

0133 

;  This  is  «diere  you  would  do  the  things  you  wanted  to 

0134 

this  exaiqple  vlll  only  Ipop  ivaiting  for  the  interrtqpts. 

mis 

003C  8C06 
003D  C03C 


rims'  ■ 


003G  B801 
003F  9E16 

0040  C0S5 

0041  ^tfti*  '^" 

0042  OOOS  "  '" 


0043  8B16  • 

0044  B803' 
"0649 '9826 

0046  C04B 

0047  5424 

0048  5523 

0049  8026 
004A  0005 

0A4B  S422'' 
004C  SS21 


The  interrupt  routine  for  any  peripheral  interrupt, 
only  deals  with  Ti]ner3  (T3)  interr\Q>ts. 


Time  required  to  ejcecute  interrupt  routine .  Hot  including 
interrupt  lateiiay  (time  to  enter  into  the  interrupt  routine) 


cases  - 
case4  - 
cases  - 


easel  -  only  T3  overflow 
case2  -  1st  capture 
2nd  capture 

T3  overflow  and  1st  capture 
T3  overflow  and  2nd  capture 


T30VFL 
PIR,3 


0136  HMT  BCF 
0lS7'^'  GiSid 

0138 
0140 
0141 
0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
0150 
0151 
0152 
0153 

0154  PER_INT  MOVLB  1 

0155  BTFSC 
0156 

0157  GOTO 
eiBs'cKwCAP  BTFSS 
0159 

0160  RETFIE 
0161 
0162  ; 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 

0176  CAPl 
0177 
0178 
0179 
0180 

0182  CM>2 
0183 
0184 
0185 


CFUSTA,4 
HAIT 


Enable  ALL  interrupts 

Loop  here  waiting  for  a  tit^r 

Interrupt 


This  routine 


12  cycles 
14  cycles 
30  cycles 
34  cycles 
50  cycles 


Select  register  Baidc  1 

Did  T3  overflow? 

If  not  skip  next  Instruction 
Inc  overflow  cntr  and  clear  flag 
Did  the  RB1/CAF2  pin  cause  an 

interrupt? 
No  ItBl/CAF2  Interrupt, 

Returft  from  Interrupt 


This  potion  of  the  code  takes  the  1st  capture  and  stores  its 
value  in  register  pair  IC2AH:IC2AL.  When  the  2nd  capture 
is  take,   its  value  is  stored  in  register  pair  IC2BH;IC2BL. 
A  16-bit  subtract  is  performed,  with  the  final  24-bit  result 
being  stored  in  IC2QF:IC2]^:IC2BL.  tbis  value  will  ra?  loziger 
be  correct  after  tKe  n^t  culture  odcars  (IC2BHsIC2BL  will 
change),  so  the  iaain  rolitlne  must  utilize  this  value  before 
it  changes . 


CAPTDRE  BCF 


MOVfF 


FIR, 3 
MOVLB  3 

BTFSC      FLAC_|iEG,  0 
GOTO  CAP2 
CA2L,  IC2AI, 
MOVPF  CA2H,IC2AH 
BSF  FLAG_REG,0 
RETFIE 

CA2L,  ICZBE. 
MOVPF      i:k2H,  IC2BH 


0200 
0201 
0202 
0203 
0204 
0205 
0206 


Clear  Capture2  interrupt  flag 
Select  register  Bank  3 
1st  or  2nd  capture2? 
It  was  the  2nd  Capture 

Move  the  captured  value  to 

temporary  registers 
Have  1st  capture2 
Return  from  Interrupt 

Ifove  the  captured  value  to 
tengporary  registers 

(to  pervent  being  overwritten) 

Call  routine  which  subtracts 

2  16-bit  nuinbers. 
underflow  during  St)B16? 
Since  underflow,  decreni«it  the 

overflow  couxlter. 
Clear  the  flag  bits  t^lc 

underflow  and  2nd  c&^tur^ 
Store  the  T3  input  capture 

overflow  value  in  IC20F 
Clear  the  Data  register  which 

counts  how  many  times  Timer  3 

overflows. 
Return  frcm  interciqpt 


When  Timer  3  has  overflowed,  the  overflow  counter  only  should 
be  increinented  when  the  overflow  occurs  after  a  capture  1 
but  before  the  capture  2.   The  4  possible  cases  when  entering 
the  T30VFL  section  of  the  PER_INT  routine  are  as  follows: 

Case  1:  T3  overflow  (only)  and  FIiAG_REG.O  =  0  (waiting 

for  Capttire  1  to  occur) .  Do  Hot  increment  counter 

Case  2:  T3  overflow  (only)  and  FLAG_REG.O  =  1  (waiting 


004D 

E061 

0186 

CALL 

SUB16 

0187 

004E 

9926  ' 

0188 

BTFSC 

PLAG_REG,1 

004F 

0725 

0189 

BBCF 

$30FLCHTR,1 

0190 

0050 

2926 

0191 

CUSF 

FLAG_}IEG,1 

0192 

■  ;  ■  f 

0051 

6A25 

0193 

MDVFP 

T30FLCNTR,W 

0052 

4A20 

0194 

MOVPF 

W, ICJOF 

0053 

2825 

0195 

CLRF 

J30FLCI1TR,  0 

01»6 

■  ^r"  -I 

''»;^6l9"7 

0054 

0005 

0198 

RBTFIE 

0199  ; 

imfKStmSmmm-  ei993Mi6»ch^T«elwiology'lti:- 
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:  0207 

'1*1^5' Capture  2  to  occur).  Inctemfent  counter 

0208 

Case  3:  T3  Overflow  happened  after  Capture.  Do  Not 

0209 

increment  overflow  counter 

0210 

Case.  4:  T3  Overflow 

oocured  before  Capture  2  and  FLAG_REG.0  -  1 

0211 

{waiting  for  Capture  2  to 

occur) .  Increment  counter 

0212 

0213 

0055 

0214  T30VFL'  BCP 

PIR,6 

Clear  Overflow  interrupt  flag 

0056 

0215 

BTFSS 

PIR,3 

Did  the  RB1/CAP2  pin  also 

0216 

cause  an  interri5>t? 

00S7 

COSE 

0217 

GOTO 

FRO 

No,  Check  if  betwemi  1st 

0218 

and  2nd  capture 

0058 

B803 

0219 

MOVLB 

3 

Bank  3 

0059 

280A 

0220 

CLRF 

W,0 

W  =  0 

005A 

3115 

0221 

CPFSEQ 

CA2H 

if  CA2H  =  0,  overflow  happened 

OOSB 

C05E 

0222 

'  GOTO 

FRO 

first,  must  check  PLAG_REG 

0223 

bit  0 

005C 

BSOl 

0224 

MOVLB 

1 

Back  to  bank  1 

OOSD 

C043 

0225 

GOTO 

CAPTURE 

Capture  happened  first,  do  NOT 

0226 

Increment  overflow  counter 

0227 

and  do  capture  routine 

OOSE 

9826 

0228  FRO''"'*"  BTFSC 

FLAG_REG,  0 

Between  Capture  1  and  Capture  2 

OOSF 

1525 

0229 

INCF 

T30FLCNTR, 1 

Yes,  Inc.   the  overflow  counter 

0060 

0005 

0230 

'  Returti  from  overflow  interrupt 

0231 

1  i     I*            ■  o 

0061 

6A24 

0232  SUBle      MBVFP  IC2AL,W 

Bo  t^e  _16-blt  subtraction 

0062 

0522 

0233 

SUBWF 

IC2BL,1 

0063 

6A23 

0234 

MOVFP 

IC2AH,W 

0064 

0321 

0235 

SUBWFB 

IC2BH,1 

0065 

9004 

0236 

BTFSS 

ALUSTA.O 

Is  the  result  pes.  or  neg.  ? 

0066 

8126 

0237 

BSF 

FLAS^REO, 1 

neg. ,  Set  the  xinderf  low  flag 

'wSi 

m92  •=     ■  -  - 

0238 

RBT6RN 

Return  from  the  subroutine 

0240 

0241 

Otiter  laterrupf 'saatineB.^'-'lftjot  utiri«ea  In  this  exmple) 

1S068 

0242 

0243  ESLTjasiT  BgWlS 

RAO/INT  interrupt  routine 

0244 

{NOT  used  in  this  prograin) 

0069 

0005 

02  45  RTeemr  ret#ie 

RTCC  overflow  interrupt  routine 

■«46 

(NOT  used  in  this  prograin) 

006A 

0005 

0247  RT_INT  J^lWtlS'' 

RAl/RT  interrupt  routine 

0248 

(NOT  used  in  this  program) 

0249 

0O6B 

C023 

0250  SRESET  GOTO 

START 

If  prograin  became  lost,  goto 

0251 

START  and  reinitalize. 

0252 

02S3 

0254 

When  the  executed  address  is  NOT  in 

the  program  range,  the 

0255 

-  16-bit  address  should  contain  all  1 

s 

a  CALL  OxlFB^)  .  At 

0256 

this  location  ytm  could  bj?aEneh  to  a 

routine  to  recover  or 

0257 

shut  down  frcoi  Qte  iiwalia  'program  fficeeutioh. 

0258 

0259 

SBS  ■|iSD^OP_PROG_MEI 

07FF 

C06B 

0260 

GOTO 

SRBSET 

The  program  has  lost  it's  mind. 

0261 

do  a  syst^  re^E 

0262 

E^ 

02^  ' 

.-pa 
'JOS 


Capture  Module 


APPENDIX  B  -  PERIOD  MEASUREMENT  WITH  FREE  RUNNING  TIMER  EXAMPLE  CODE 

MPASM  01.01  Released      IC_FRT2.ASM      6-7-1994     11:16!54  PAGE  1 


LOC     OBJECT  CODE 


3'I  /  r:»jr.  w-X" 


LINE  SOURCE  TEXT 


0020 
0021 

0023 
0024 
0025 

0026 


LIST       P-17C42,  G=132 
This  is  the  bas^ic  qiatline  for  a  program  that  can  determine  the 
frequency  of  an  input,  via  input  capture.  This  routine  uses  an 
8-bit  register  to  coxint  the  times  that  timer3  overflowed.  At  the 
Max  crystal  frequency  of  16  MHz,   this  gives  an  overflow  time  of 
(2**16) (256  +  1) (250  nS)  >  4.21  sec  or  a  frequncy  <  0.25  Hz.  If 
measurement  of  longer  time  intervals  is  required,  the  overflow 
counter  could  be  extended  to  16  (or  more)  bits. 

Timer  3  in  this  eacaiaple  is  a  free  running  timer,  the  input 
capture  is  generated  on  the  RBl/aPS  pin.  Shere  is  a  flag 
that  specifies  if  this  is  the  Isfe  ©r  Sad  ciapture. 
The  first  capture  is  the  start  of  the  period  measurement.  The 
second  capture  value  gives  the  end  of  the  period.   In  this  type 
of  measurement  If  the  2nd  capture  value  <  the  1st  captue  value 
then  the  ove^llow  eounter  should  be  decremented. 


Program: 
Revision: 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018, 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 

0033 
0034 
0035 
0036 
0037 
0038 

0039  ; 

0040  END_OF_PROC_MEM  EQ0 

0041  ; 

0042  ; 


1C_FRT2.ASM 
1.0 


Do  the  EQUate  table 


ie20F 
.IC2Ba 
IC2BL 
IC2AH 
IC2AL 
T30FLCNTR 


E0} 

EQO 
EQU 


FLAG_REG 


EQU 

M^M^^BH  bit 


0x20 
0x21 
0x22 
0x23 
0x24 
0x25 

0x26 


;  t3  owejrflow  register  i 

;  T3  iGA2  MSB  register  (3^  Cap) 

!  t3  ICA2  LSB  register 

;  T3  ICB2  MSB  register  (1st  Cap) 

;  T3  ICB2  LSB  register 

;  Temeersy  T3  overflow  register 

;,  Register  that  has  the  Flag  bits 

2  10 
-     UFL  OftPl 


CAP! 


0, 
1, 


UFL  =  0, 
=  1, 


1st  Capture 
2nd  Capture 

trtiderflow  during  subtract 


0004 

0043 

ALUSTA 

EQU 

0x04 

0006 

OMi  ,,eSBSTA 

EQU 

0x06 

0007 

0045 

INTSTA 

EQU 

0x07 

OOOA 

0046 

W 

EQU 

OxOA 

0047 

0012 

0048 

PORTS 

EQU 

0x12 

;  Bank 

0 

0049 

0016 

0050 

PIR 

EQU 

0x16 

;  Bank 

1 

0O17 

0051 

PIE 

EQU 

0x17 

0052 

0012 

0053 

TMR3L 

EQU 

0x12 

;  Bank 

2 

0013 

0054 

TMR3H 

EQU 

0x13 

0016 

0055 

T3  PRL 

EQU 

0x16 

0017 

0056 

T3  PRE 

EQU 

0x17 

0057 

0014 

0058 

CA2L 

EQU 

0x14 

;  Bank 

3 

0015 

0059 

CA2H 

EQU 

0x15 

0016 

00  £0 

Tcom 

EQU 

0x16 

0017 

0061 

TC0M2 

EQU 

0x17 

4-42 


@  1993  Micrcxship  Tsdimiagir  Inc. 


0000  C028 


0008  C068 


0010  e069 


0018  C06A 


0020  C03E 


0028  8406 


0029  B803 
002A  2817 
002B  B070 
002C  0116 


002D  B802 
002E  280A 
002F  0126 

0030  0113 

0031  B013 

0032  0112 


0033  BOFP 

0034  0117 

0035  0116 


0036  B803 

0037  8217 

0038  8307 

0039  B801 
003A  B048 
003B  0117 


003C  SCO  6 
003iD  C03C 


0063 
0064 
006S 
0066 
0O67 
OQiS 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
00.81 
0083 
0034 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
.00»6j 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0114 
0114 
0115 
0116 
011,7 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 


ORG  0x0000 
ORG  0X0008 


ORG 

GOTO 

ORG 

GOTO 

ORG 

GOTO 


0x0010 

RTCCIEJT 

0x0018 

RT_INT 

0x0020 

PER^INT 


■mm,  0x0028 


MOVIIB  3 

CLRF  TC0N2 , 0 

MOVLW  0x070 

MOVWF  TCONl 


Origin  for  the  RESET  veotot 
On  reset,  go  to  the  start  of 

the  program 
Origin  for  the  external  RAO /INT 

interrupt  vector 
Goto  the  ext.  interrupt 

on  RAO /INT  routine 
Origin  for  the  RTCC 

overflow  interrupt  vector 
<5o<ts  the  RTCC  overflow  interinjpt 

routine 
Origin  for  the  external 

RAl/RT  interrupt  vector 
Goto  the  ext.   interrupt  on 

RAl/RT  routine 
Origin  for  the  interrupt  vector 

of  any  enabled  peripheiral 
Soto  the  interrupt  from  a 

I>eiipharkil  routine 
Origin  for  the  top  of 

program  itiemory 
Disable  ALL  interrupts  via  the 

Global  Interrupt  Disable 

(GLINTD)  bit. 

Flase'  Mnin  prossam  here 

Select  register  Bank'  3 

stop  the  timers.  Single  Capture 

Initalize  TCONl  so  that 
Tl    (8-bit),   T2  (8-bit), 
and  T3  run  off  the  internal 
system  clock.  Capture2 
captures  on  'the.  rlslngredge. 


Initalize  Timer  3,   load  the  timer  with  the  number  of  cycles  that 
the  device  executes  (from  RESET)  before  the  timer  is  turned  on 
Therefore  the  offset  is  required  due  to  software  overhead. 


MOVLB 

CIMF 

MOVWF 

MOVWF 
MOVLW 
MOVWF 


2 

W,0 

FLAG_REO 
TMR3H 
0x13 
TMR3L 


Select  register  Bank  2 
Clear  the  W  register 
Initalize  to  0 
Timer3  MSB  =  0 
Tlmer3  LSB  =  OffsefiN* 


Load  the  Timer  3  period  register  with  OxFFFF,  which  will  give  an 
interaapt  on  Uie  #f  TiinMi^  "  ' 


MOVLW  OxFF 
MOVWF  T3PRH 

MOVWF  T3PRL 


■'  f 


the  timer  should  be  started  and  interrupts  enabled. 


MOVIlB; 

BSP 

BSP 

MOVLB 
MOVLW 
MOVWF 


TCON2,2 
INTSTA,3 

1 

0x48 
PIE 


■Select  roister  Bank  3 
>T«»rB  on  timer  3. 
Turn  on  Peripheral  Interrupts 
Select  register  Bank  1 
Enable  Caputure  2  and  Timer3 
Interrupts   (when  GLINTD  =  0) 


This  is  where  you  would  do  the  things  you  wanted  to  do. 
this  'axan5>le  wllil  only  loop  waiting  for  the -interrupts. 


BCP 
GOTO 


CPUSTA,  4 
WAIT 


Enable  ALL  interrupts 
Loop  here  waiting  for  a  timer 
Interrupt 


oiaa  # 

'0133- 

'Sim  interrupt  routine  for  any  peripheral  interrupt,  This  routine 

0134  ! 

only  deals  with  Timers  {T3)  interrupts. 

013S  i 

0136  ; 

Time  required  to  execute  interrupt  routine.  Not  including 

0137  ; 

interrupt  lat«icy- (time  to  enter  into  the  interrupt  routine) 

0138  ; 

0139  ! 

isssel 

6^y  T3  overflow                      =  12  cycles 

014  0-  >■ 

cas^  - 

1st  capttif  e 

=  14  cycles 

.    SlU'  ; 

case3  - 

2^4  Capture 

=  30  cycles 

0142  ; 

case4  - 

T3  overflow  and  1st  capture    =;  34  cyetes 

0143 

cases  - 

T3  overflow  and  2nd  capture    =  50  cycles 

0144  ,'■ 

0145  ! 

003E 

B801 

0146  PER_INT  MOVLB  1 

Select  register  Bank  1 

003F 

9E16 

0147 

BTPSC 

PIR,6 

Did  T3  overflow? 

OMK'  ' 

If  not  skip  next  Instruction 

6040 

€«SS 

nm 

SOTO 

T30VFI, 

Ino  overflow  cmtr  and  clear  flag 

0041 

9316 

0150  CK^CAP  BTFSS 

Plll,3 

Did  the  RB1/CAP2  pin  cause  an 

0151 

interrupt? 

0042 

0005 

0152 

RBTFIE 

No  RB1/CAP2  interrupt, 

-  0153 

Return  from  Interrupt 

0154  ; 

0155  ; 

<niis  potion  of 

the  code  takes  the  1st  capture  and  stores  its 

0156  ! 

value  in  register  pair  1C2AK!             When  the  2nd  capture 

0157  ; 

•Is  take,  its  value  Is  stored  in  register  pair  XC2BH3  1C2.BI<. 

0158  ! 

A  16-*-bit  subtract  is  performed. 

with  the  final  24-blt  result 

L  .    0159  ; 

being  stored  in 

IC20P: 1C2BH: 1C2BL.  This  value  will  no  longer 

0160  ; 

be  correct  after  the  next  capture  occurs   (IC2BH:IC2BL  will 

0161  ; 

change) ,   so  the 

main  routine  must  utilize  this  value  before 

0162  ; 

it  changes. 

0163  ; 

0043 

.  .^iP^^iCAFTtmE  BCF  ?IIl,3 

;  Clear  Capture2  interrupt  flag 

0044 

0165 

MOVES 

3 

Select  register  Bank  3 

0045 

9826 

0166 

BTFSC 

FLAG_REG, 0 

1st  or  2nd  capture2? 

0046 

C04B 

0167 

GOTO 

CAP2 

It  was  the  2nd  Capture 

0047 

5424 

0168  CAPl  MOVPP 

CA2L,  1C2AL 

Move  the  captured  value  to 

0048 

5523 

0169 

IJOVPF 

CA2H,  IC2AB 

ten^orary  registers 

0049 

8026 

0170 

BSP 

FLAG_REO,0 

Have  1st  capture2 

004A 

0005 

0171 

SBTFIE 

Return  from  Interrupt 

0172 

004B 

5422 

0174  CAP2.  MQVPF 

CA2L, 1C2BL 

Move  the  captured  value  to 

004C 

5521 

0175 

»OVPF 

CA2H, IC2BH 

ten^orary  registers 

0176 

(to  pervent  being  overwritten) 

01T7 

mm 

80'€1 

0178 

CALI. 

S0B16 

Call  routine  wSileh  subtracts 

0179 

2  16-bit  numbers. 

004B 

9926 

0180 

BTFSC 

FLA(3_REe ,  1 

Underflow  during  SnB16? 

004F 

0725 

0181 

DECF 

T30FLCNTR, 1 

Since  underflow,  decrement  the 

0182 

overflow  counter. 

0050 

2926 

0183 

FLAO_REG,  1 

Clear  the  flag  bits  for 

01S4 

underflow  and  2nd  capture2 

0051 

0185 

IK3WP 

T30FLCNTR,W 

Store  the  T3  input  capture 

0052 

4%20 

otss 

i  MOW 

W, IC20F 

overflow  value  in  IC20F 

0053 

2S2S 

0187 

OjSF 

T30FLCNTR,  0 

Clear  the  Data  register  which 

■0i«8 

counts  how  many  times  Timer  3 

0189 

overflows . 

0054 

0005 

0190 

Return  from  Interrupt 

OlSt.r 

0193  {  Kben  Timer  3  has  overflowed,  the  overflow  counter  only  should 
0193  fi.ka-incaren^iibed  when        eyerflew  oeciws  after  a  capture  1 
0184  f  ib^fc-jfeefore  the  capture  2.  Hie  4  posaitole  eases  when  entering 

0195  ;  the  T30VFL  section  of  the  PER_INT  routine  axe  as  follows  t 

0196  ;       Case  1:  T3  overflow  (only)  and  PLAG_REG.O  =  0  (waiting 

0197  ;  for  Capture  1  to  occur) .  Do  Not  increment  counter 

0198  ;      Case  2:  T3  overflow  (only)  and  FLAO_REG.O  =  1  (waiting 

0199  ;  folr  Capture  2  to  oeour)  .  Increment  counter 

0200  ;      Case  3j  T3  Overflow  happened  after  Capture.  Do  Not 


0 19^  Microoht  |ied!m«ow  me. 


0201 

;                      increment  overflow  counter 

0202 

;       Case  4:  T3  Overflow  occured  before  Capture  2  and  FIiAG_REG.O  =  1 

0203 

;                    Ip^^ii  f^r  C^tnire  2  to  oecu^} .  Xnoreme^t  cotmter 

0204 

0205 

0055 

8E16 

0206 

T30VFL         BCF  PIR 

,  6 

Clear  Overflow  interrupt  f Is^ 

0056 

9316 

0207 

BTFSS 

PIR,  3 

Did  the  RB1/CAP2  pin  also 

0208 

cause  an  interrupt  ? 

0057 

C05E 

0209 

GOTO 

FRO 

No /  Check  i  f  be  tween  1 s  t 

0210 

and  2nd  cs^t^Jrjs 

0058 

B803 

0211 

MOVLB 

3 

Bank  3 

0059 

280A 

0212 

CLRF 

W,  0 

W  =  0 

005A 

3115 

0213 

CA2H 

if  CA2H  ~  0 ,  ovsxflow  IiSi^^^^HGd 

005B 

C05E 

0214 

GOTO 

FRO 

first,  must  g£k6!S^    i . ■  AfS 

0215 

bi  t  0 

005C 

B801 

0216 

]_ 

ocH_  Js.     LtJ    UallK.  J. 

005D 

C043 

0217 

CAPTURE 

Capture  happened  first,  do  NOT 

0218 

Increment  overflow  counter 

0219 

and  do  capture  routxne 

005E 

9826 

0220 

FRO  ^^UrS^C 

Between  Gesture  1  and  Cs^ture  2? 

005F 

1525 

0221 

p^ll^^^TTR/ 1 

YeSr  Inc.  t^e  overflow  counter 

0060 

0005 

0222 

Return  fiTGDi  overflow  internet 

0223 

0061 

6A24 

0224 

OTTD1  tZ  M/^TTT^n 

IC2 AL , W 

Do  the  1  fi'^^bx  t  st^tr ac  t i  on 

0062 

0522 

0225 

SUBWF 

IC2BL, 1 

0063 

6A23 

0226 

MOVFP 

XC2AH  W 

0064 

0321 

0227 

aUaVicO 

i.C^sn/  J. 

0065 

9004 

0228 

BTFSS 

Is  the  result  pos .  ox  neg.  ? 

0066 

8126 

0229 

BSF 

r  LiAU_K£k3  ,  J. 

neg. ,   Set  the  underflow  flag 

0067 

0002 

0230 

RETURN 

Return  from  the  subroutine 

0232 

0233 

;  Other  Interrupt 

routines.  (Not 

utilized  in  this  example) 

0234 

0068 

0005 

0235 

EXT_INT  RETFIE 

RAO /INT  interrupt  routine 

0236 

(NOT  used  in  this  program) 

0069 

0005 

0237 

RTCCINT  RBTFIE 

RTCC  overflow  interrupt  routine 

(NOT  used  in  this  program) 

0&65 

0239 

RT_INT  RBTFIE 

RAl/RT  interrupt  routine 

0240 

(NOT  used  in  this  program) 

0241 

006B 

C028 

•0242 

SRBSET  GOTO 

START 

If  program  became  lost,  goto 

t  C^43 

-  S«EMtT  a3ad  r^l-nitalize. 

0244 

0245 

0246 

;  When  the  executed  address  is  NOT  in  the  program  range,  the 

0247 

;   16-bit  address 

should  contain  all  I's   (a  CALL  OxlFFF) ,  At 

0248 

;  this  location  you  could  branch 

to  a  routine  to  recover  or 

0249 

;  shut  dovm  from 

the  invalid  program  execution. 

0250 

END_OP_^PRO@y*^ 

0251 

ORG 

0252 

(SOTO 

SRESBT; 

:i         ^lEi^ai^m,  feas  lost  it^s  minS, 

0253 

-  - 

1  T  '^.'^  syai4«p  re®i^ 

0254 

"  END 

oasi 

*4« 


APPENDIX  C  -  PULSE  WIDTH  MEASUREMENT  EXAMPLE  CODE 


0001  LIST        p=17C42,  c=132 

0002  ;  This  is  the  basic  outline  for  a  program  that  can  determine  the  ]»■ 

0003  ;  Pulse  Width  of  an  input,  via  input  capture.  This  routine  uses  an  «  ^ 

0004  ;  8-bit  register  to  count  the  times  that  timers  overflowed.  At  the  J  ? 

0005  ;  Max  crystal  frequency  of  16  HHz,  this  gives  an  overflov  Kiina-^ol  V 
000«  ;  (2**16)  1256  +  1)  1250  nS)  >  4,21  sec  or  a  frequncy  <  O.iSiHlr.r-lS  5  - 
0|09  ;  measltr^pnt  of.  llogef  i;i.teC;intirva|B  it  JseSttired,  the  ov^rfl^  \. 

OSOff  ;  counter'  gould  be'  extin^MI  tio^'l^  (of  moire);  bits. 

0009  ; 

0010  ;     Program:  PW02.ASM 

0011  ;     Revision:  1.0 

0012  ; 

0013  ;  Do  the  EQUate  table 

0014  ! 


0020 

0015 

IC20P 

BQD 

0x20 

T3  overflow  register 

0021 

0016 

IC2BH 

EQU 

0x21 

T3  ICA2  MSB  register  (2nd  Cap) 

0022 

0017 

ICZBL 

EQU 

0x22 

T3  ICA2  LSB  register 

0023 

0018 

IC2AH 

EQO 

0x23 

T3  1CB2  MSB  register   (1st  Cap) 

0024 

0019 

IC2AL 

EQU 

0x24 

T3  1CB2  LSB  register 

0025 

0020 

T30PLCNTR 

EQU 

0x25 

Temperay  T3  overflow  register 

0021 

0026 

0022 

FLAG_REG 

EQU 

0x26 

Register  that  has  the  Flag  bits 

0023 

0024 

;  FtAG_REG 

bit 

7      6      5      4  3 

2  10 

0025 

-     OFL  CAPl 

0026 

CAPl  =  0, 

1st 

Capture 

0027 

1                   =  1, 

2nd 

Capture 

0026  ; 

0029  ;        UFL  =  0,    No  Underflow 

0030  ;  =  1,    Underflow  during  subtract 

0031  ; 


07FF 

0032 

ESD_OP_PRO?.. 

EQU 

Ox07FP 

0033 

0004 

0034 

ALUSTA 

EQU 

0x04 

0006 

0035 

CPUSTA 

EQU 

0x06 

0007 

0036 

INTSTA 

EQU 

0x07 

OOOA 

0037 

H 

EQU 

OxOA 

0038 

! 

0012 

0039 

PORTB 

EQU 

0x12 

1  Bank  0 

0040 

t 

0016 

0041 

PIR 

EQU 

0x16 

I  Bank  1 

0017 

0042 

PIE 

IBW 

0x17 

0043 

0012 

0044 

'THS3L 

EQU 

0x12 

;  Bank  2 

0013 
0016 
0017 

0014 
0015 
0016 
0017 

0054  ; 

0000  C028 


0008  e07Z 


obio  coil 


001,8  P074 


0020  C03E 


0045 
0046 
0047 
0048 
0049 
0050 
OOSl 
0052 


TMR3H 
T3PRL 
T3PRH 

CA2I. 
CA2H 
TCONl 
TC01J2 


0057 


EQU 
EQU 
EQU 

EQU 
EQU 
EQU 
EQU 


ORG 
SOTO 


0x13 
0x16 
0x17 

0x14 

0x15 
0x16 
0x17 


0x0000 
START  , 


Bank  3 


.11  }* 


ORG 

GOTO 

ORG 

GOTO 


m 

GOTO 


RTCCIHT 
0x0018 

RT_INT 
0x0020 
PER_INT 
0x0028 


t>0i5 


'  St. 


Origin  for  the  RESET  •vector • 
On  reset,  go  to  the  start  o# 

the  program 
(^igin  for  the  ext«»i«I.  mSD'fWm:  ' 

interrupt  vector 
Goto  the  ext.  interrupt 

on  RAO/INT  routine 
Origin  for  the  RTCC 

overflow  interrupt  vector 
Goto  the  RTCC  overflow  intene^ 

routine 
Origin  for  the  external 

RAl/RT  interrupt  vector 
Goto  the  ext.  interrupt  on 

RAl/RT  routine 
Origin  for  the  interrupt  vector- 

of  any  enabled  peripheral 
Goto  the  Interrupt  from  a 

peripheral  routine 
(ixi^ia  f&  the  top  of. 

program  menory  . 


VFASOlQgS'  8406 


0029  B803 
002A  2817 
002B  B070 

002C  one 


CLRF  TCOil2,0 
MOVLyj  0^15 
MOVWF  TCPSl 


0077  START 
0078 
0079 
0080 

0081  MKW.-  - 
0082 
0083 
0084 

0085 
0086 
0087 
0088 

0089  ; 

0090  ;  Initalize  Timer  3,  load  the  timer  with  the  number  of  cycles  that 


Disable  ALL  interrupts  via  the 
Global  Interrupt  Disable 
(OblNTD)  bit. 


Place  Main  program  here 
Select  register  Bank  3 
Stop  the  timers.  Single  Capture- 
Initalize  TCONl  so  that 
Tl   (8-bit),  T2  (8-bit), 
and  T3  run  off  the  internal 
system  clock.  Capture2 
cmjiture?  on  the  rising  edge. 


O  O  Sm  B80  2 
003S  2«0A 
002?  0126 

0030  0113 

0031  B013 
00.32  0112 


0033  BOFF 

0034  0117 

0035  0116 


0036  B803 

0037  8217 

0038  8307 

0039  B801 
003A  B048 
003B  0117 


003C  SC06 
003P  C03C 


0091 
0092 
0093 
0094 
0095 
009S 
0097 
C098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 


the  device  executes  (from  RESET)  before  the  timer  is  turned  on 
Therefore  the  offset  is  required  due  to  software  overhead. 


CLRF 
MOVWF 

MOVWF 
MOVLW 
MOVWF 


2 

W,0 

FLAG_ReG 

TMR3H 

0x13 
TMR3L 


Load  the  Timer  3  period  register  with  OxFFFF, 
interrupt  on  the  overflow  of  Tiiner3 

MOVLW  OxFP 
MOVWF  T3PRH 

MOVWF      T3  PRL 


the  timer  should  be  started  and  interrupts  enabled. 


S^eot  register  Bank  2 
Clear  the  W  register 
Initalize  to  0 
Timers  KSB  =0 
Timers  LSB  =  O^Met. 


which  will  give  an 


MOVLB 

BSF 

BSP 

MOVLB 
MOVLW 
MOVWF 


TC0H2,2 
1NTSTA,3 

1 

0x48 
PIE 


Select  register  Bonk  3 

Turn  on  timer  3. 

Turn  on  Peripheral  Interrupts 

Select  register  Bank  1 
Enable  Caputure  2  and  Timer 3 
Interrupts  (when  GLINTD  =  0) 


;  This  is  where  you  would  do  the  things  you  wanted  to  do. 
I  this  exanple  will  only  loop  waiting  for  the  interrupts. 


BCF 
GOTO 


CPDSTA,4 


Enable  AUi  Interrupts 
Loop  here  waiting  for 
Interrupt 


a  timer 


0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 


The  interrupt  routine  for  any  peripheral  interrupt, 
only  deals  with  Timer3  (T3)  interrupts. 


This  routine 


Time  required  to  execute  Interrupt  routine.  Not  including 
interrupt  latency  (time  to  enter  into  the  interrupt  routine) 

easel  -  only  T3  overflow  =  12  cycles 

case2  -  1st  capture  =  20  cycles 

case3  -  2nd  capture  =  34  cycles 

case4  -  T3  overflow  and  1st  capture  =  32  cycles 

case5  -  T3  overflow  md  2nd  capture  =  44  cycles 


0137 

003E 

B801 

0138 

003F 

9E16 

0139 

0140 

0040  C05A 

0141 

0041 

9316 

0142 

0143 

0042 

0005 

0144 

0145 

0146 

0147 

0l48 

Dili 

0151 

0152 

0153 

0154 

0155 

0156 

0043 

B803 

0157 

0044 

9826 

0158 

0045 

C04B 

0159 

0046 

5424 

0160 

0047 

5523 

0161 

0048 

8026 

0162 

om9 

SBS.6 

0163 

0164 

60«A  CSS3 

0165 

0166 

0167 

004B 

5422 

0169 

004C 

5S21 

0170 

0171 

0172 

0173 

0174 

0()4B 

9926 

0175 

004F 

0725 

0176 

0177 

0050 

2926 

0178 

0179 

0051 

6A25 

0180 

0052 

4A20 

0181 

0053 

2825 

0182 

0183 

0184 

HOVLB  1 

BTFSC  PIR,6 

GOTd  *SoVPL 

BTPSS  PIR,3 

BETFIE 


Select  register  Bank  1 
Did  T3  overflow? 

If  not  skip  next  Instrilotion 
Inc  overflow  cntr  arid  clear  flag 
Did  the  RB1/Cftp2  pin  cause  an 

interrupt? 
No  EB1/CAP2  interrupt, 
yftetuin  from  Interact 


This  potion  of  the  code  takes  the  1st  capture  and  stores  its 
value  in  register  pair  IC2AH:1C2AL.  When  the  2nd  capture 
is  take,  its  value  is  stored  in  register  pair  IC2BH:IC2BL. 
A  16-bit  subtract  is  performed,  with  the  final  24-bit  result 
being  stored  in  IC20F : IC2BH: IC2BL.  This  value  will  no  longer 
be  correct  after  the  next  captme  pccurs  (IC2BH:IC2BI,  will 
change)  ,  so  the  imain  routine  must  utilize  this  tMiB  ftrtiB*= 
it  changes. 


CAPTURE 


MOVLB 

BTFSC 

GOTO 

MOVPF 

MJVPF 

BSF 

Bor:. 


FLAG_REG,  0 

FALLING 

CA2L,IC2AL 

CA2H, IC2AH 

FLAG_RBG,0 

SCSHn.,6 

FALSE_C 


WDWPF  CA2L,IC2BL 


80316 

PLAGJSEG,  1 
T30FLCNTR,1 

CLRF        FLAG_REG , 1 

MOVFP      T3  OFLCNTR , W 
HQVPF      VI,  IC20F 
CLRF        T30FLCNTR,  0 


Select  register  Bank  3 

Capture  on  rising  or  falling  ed^e? 

It  was  the  2nd  Capture 

Move  the  captured  value  to 
temporary  registers 

Set  flag  for  1st  capture 

Change  edge  from  rising 
to  falling 
**  With  the  changing  of  the  capture 
*♦  edge,  we  have  a  false  capture 

Move  the  captured  value  to 
temporary  registers 
(to  pervent  being  overwritten) 

Call  routine  which  subtracts 

2  IS-bit  numbers. 
tMerllow  during  S0B16? 
Since  underflow,  decrement  the 

overflow  counter. 
Clear  the  flag  bits  for 

underflow  and  2nd  capture2 
Store  the  T3  input  capture 

overflow  value  in  IC20F 
Clear  the  Data  register  which 

counts  how  many  times  Timer  3 

overflows . 


0054  8616 


0055  550A 

0056  540A 

o«ff  aSf 1 
oosa  8b}6 
0059  666s 


6 186 
0187 
0188 
0189 

0190 
0191 
0192 
#1 

0196 
0197 
0198 
0199 
0200 


TCQN1,6 


;.  Change  edge  from  falling 
;      to  rising 


Note  when  you  change  the  edge  of  the  capture,  an  additional  capture 
is  generated.  The  capture  register  must  be  read  before  the  capture 
flag  is  Cleared.  .  .  -  ■  ^  ,  .      .,  '  ~\ 


F2U:^E_C 


MOVPP 


BCf 


CA2H,W 
CA2L,-W 

ei%3 


Dummy  read  of  Capture  2 


Select  register  Bank  1 
Clear  Capture2  Interrupt  flag 
Return  from  interrupt,  wait  for 
T3  overflow  or  falling  edge 

capture  ■;. 


0202 


0203 

When  Timer  3  has  overflowed,   the  overflow  counter  only  should 

0204 

be  incremented  when  the  overflow  occurs  after  a  capture  1 

0205 

but  before  the  capture  2.  The  6  possible  cases 

when  entering 

0206 

the  T30VFL  section  of  the  PEB_INT  routine  are  as  follows: 

0207 

0208 

Case  1: 

T3  overflow  fesW  and  FLaojfflG.0  =  0  (walfcteg 

0209 

for  Capture  1  to  occur) .  Do  Hot  tnceemme  ccnaiter 

0210 

Case  2: 

T3  overflow  (only)  and  F1AG_REO.O  =  1  (waiting 

0211 

for  Capture  2  to  occur) .  Increment  counter 

0212 

Case  3 : 

T3  Overflow,  Then  Capturel  happened. 

Do  Not 

0213 

increment  overflow  counter 

0214 

Case  4; 

T3  Overflow,  Then  Capture  2  happened 

0215 

Increment  counter 

0216 

Case  5: 

Capturel,  Then  T3  Overflow  happened 

0217 

Incsifeneat  coKBter 

0218 

Case  6: 

Captures,  'tkem  13  Overflow  bappeneiS.  Do  Not 

0219 

Increoent  oowiter 

0226 

OOSA 

8E16 

0221  T30VFL 

BCF        PIR, 6 

;  Clear  Overflow  interrupt  flag 

005B 

9316 

0222 

BTFSS  PIB,3 

;  Did  the  RB1/CAP2  pin  also 

0223 

;      cause  an  interrupt? 

005C 

C068 

0224 

GOTO  FRO 

;  No,  only  overflow  interrupt 

005D 

B803 

0225 

MOVLB  3 

;  Banjc  3 

005B 

280A 

0226 

CLRF  W,0 

,•  W  =  0 

605#  9826 

0227 

BTFSC      FtjflGJSiS,  0 

;  T3  overflow  with  Capture  1 

0228 

or  Capture  2? 

0666 

C064 

022$ 

GOTO  0F_C1 

;  Overflow  with  Capture  1 

0061 

3115 

0230  0F_C2 

CPFSEQ  CA2H 

;  if  CA2H  =  0,  overflow  happened 

0231 

first 

0062 

1S25 

0232 

INCF  T30PLCNTR,1 

;  Increment  counter 

0063 

C043 

0233 

GOTO  CAPTOBE 

;  Do  capture  routine 

0064  3115 

0065  C043 


0066  1525 

0067  C043 


0068  9826 

0069  1525 
006A  0005 

006B  6A24 
OOeC  0522 
006D  eA23 
006E  0321 
006F  9004 

0070  8126 

0071  6002 


0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
024S 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
Q2m 
@2SA 


0P_C1 


CPFSEQ  CA2H 
GOTO  CftPTDRE 


INCF 
SOTO 


T30FLCNTR, 1 
CAfTOaS 


if  CA2H  =  0,  overflow  happened 
fixst 

Capture  happened  first,  do  NOT 
Increment  overflow  counter 
and  do  capture  routine 

yes.  Inc.  the  overflow  counter 

Do  captuce  routine 


Only  laerement  overflow  counter  if  betweera  1st  and  2nd  capture 


wm 


BTPSC 

INCF 

RETFIE 

MOVFP 
SOBWF 
MOWP 

BTFSS 
BSF 

tmtm 


FL«3_RBB,0 


IC2AL,W 
IC2BL,1 

ic2aH,w 

1C2BH,  1 
ALUSTA,  0 


FLAfiJiEG.l 


Between  Capture  1  and  Capture  2? 
Yes,  Inc.  the  overflow  counter 
Return  from  overflow  interrupt 

Do  the  16 -bit  subtraction 


Is  the  result  pes.  or  neg.  ? 
negi ,  Set  the  imderf low  flag 
Beeura  fzon  the  subroutine 


0072  OOOS 
W73  6005 

0074  0009 

0075  C028 


07FF  C075 


0256 
0257 
0258 
0259 
0260 
0251 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 


Other  Internet  routines.  (Not  utilized  in  this  exan^le) 


RTCCIHT 
RT_BJT 

SRESET 


RETFIE 
BSTFIE 

GOTO 


STAKT 


RAO/INT  interrupt  routine 
(NOT  used  in  this  program) 

RTCC  overflow  interrupt  routine 
(NOT  used  in  this  program) 

RAl/RT  interrupt  routine 
(NOT  used  in  this  program) 

If  program  became  lost,  goto 
SISiiKT  and  Minitallze. 


when  the  executed  address  is  NOT  in  the  program  range,  the 
16-bit  address  should  contain  all  I's  (a  CALL  OxlFFF) .  At 
this  location  you  could  branch  to  a  routine  to  recover  or 
shut  down  from  the  invalid  program  execution. 


ORG  END_OF_PROG_llEM  ; 

GOTO 


;  l%te  pjregram  has  lost  it's  mind, 
;     ^  a  ^stem  reset 


Microchip 
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Serial  Port  UUUtie^  ^ 


INTRODUCTION 

PIC17C42  has  an  on  chip  high  speed  Universal  Syn- 
chronous Asynchronous  Rec8jverTiansinitter(USART). 
The  serial  port  can  be  configured  to  opeiate  either  in  full- 
duplex  asynchronous  mode  or  half  duptoc  synchronous 
mode.  The  serial  port  has  a  dedicated  8-bit  baud  rate 
generator.  EMier  8-  or  9-bits  can  be  transmitted/re- 
ceived. 

This  application  note  provides  infotmation  on  using  the 
serial  port,  parity  generation,  serial  port  expansion, 
RS-232  interface,  I/O  port  exp»i^sn  isli^  synchro- 
nous mode  of  serial  port.  ,. 


Asynchronous  Mode  Setup 

Asynchronous  mode  set-tip  requires  selection  of 
8/9-bjts  of  data  transfer,  baud  rate,  setting  the  baud  rate 
generator  and  configuring  the  TXSTA  &  RCSTA  control 
registers.  The  baud  rate  generator  is  set  by  writing  ttie 
approprete  value  to  SPBRG  register  (bankO,  file  17h}. 
The  value  to  be  written  to  SPBRG  is  given  by: 


SPBRG  = 


lnput_Clk_Fr6q 


64  *  Baud  Rate 


SERIAL  PORT  USAGE 

Brief  code  to  setup  serial  port ,  receive  and  transmit  data 
is  given  below.  Small  sections  of  code  for  both  asynchro- 
nous artd  synchronous  mode  are  given. 


For  example,  to  select  a  baud  rate  of  9600  bits/sec  wHh 
input  clock  frequency  of  16  MHz,  SPBRG  is  computed 
from  the  above  equation  to  be  25.  Once  the  Baud  Rate 
Generator  is  setup,  it  is  necessary  to  configure  the 
TXSTA  &  RCSTA  control  registers  as  follows  (please 
refertothedHliihoeQ:  ■ 


EXAMPLE  1 


SPBRG 


25 

10010000 


9600  baud  8  16  HHz  Input  clock 

mUg^ttsct,  enable  serial  port,  einable  rec^tlon 


Saaple  Code  For  Asynchronous  Mode  Serial  Port  Seti^ 


*de£ine  ClkFreq  16000000 

fdefine  baud(X)  ( (10*ClkPreq/ (64*X)  )+5)/10  -  1 

# define  TXSTA_INIT  OxBO 

fdefine  RCTSa._INIT  0x90 


ii^ut  elodc  frequency  =  16  MHz 


flnclude 


Seti9_Async_Jlode 


file  Qoatiainlng  tlie  Register  Definitions 


SPBRG,  TXSTA  &  RCSTA  are  in  bank  0 
equals  25  for  9600  baud 

baud  rate  generator  is  reset  &  initialized 

;  8-bit  trananission,  async  node 

;  8-bit  reaction,  mable  serial  port, 
;  enable  reception 


******************************************* 


movlb 

0 

movlw 

baud(9600) 

roovwf 

SPBRG 

movlw 

TXSTA_INIT 

movwf 

TXSTA 

movlw 

movwf 

RCS1% 

return 

4-S3 


Itort  Utilities 


Synchronous  Mode  Setup 

%nchn)nQiii%ni)ode  s^itiAjTequires  salaction  of  8/9-bits 
otdatp  transfer,  bit  rate.'l^^g  the  baud  rate  generator 
<WHl'99nfiguring1he''il^g|«M^-TA  control  registers;-' 
The  baud  rate  generaier  is  sd  by  writing  the  appropriate 
value  to  SPBRG  register  (bankO,  file  1 7h).  The  value  to 
basnBlHWlOiiSIWBHfiHggiwBn  by: 

lnput_Clk_Freq  . 
SPBRG  =  — i—  — — —  -1 


For  example,  to  select  a  bit  rate  of  1  MHz  with  input  clock 
frequency  of  16  Mhz,  SPBRG  is  computed  from  the 
above  equation  to  be  3.  Once  the  Baud  Rate  Generator 
is  setup,  it  is  necessary  to  configure  the  TXSTA  & 
RCSTA  control  regi^ers  as  folk>ws  (please  refer  to  the 
data  sheet) : 


WIS  2 


SPBRG 
TXSTA 
RCSTh 


10110000  (BOh) 
10010000  (90h> 


1  Mbits/sec  @  16  Mhz  input  clock 

8-bit  transmission,  Sync  mode  (MASTER) 

8-blt  ree^kiiSn*  saabl*  mcrlftl  poxtt  eoB'tsimotts  .4,  .if: 

reception  • •  r 


.  ********************************  *ii***1i1i*1t*itm**^.**-k*ii*^*ii*itil^^ 

;  Saiq^le  Code  Fox  ^nphronous  Mode  (HftSTER)  Serial  Port  Setup 

.  **********  *****i*iiiilt^lif^^i^*i^ii*i^t**it*********************************1e***lF 


♦define  CllcFreq 
:»define.baud(X) 
♦define  TXSTA_1NIT 
idef  ine  RCTSL.INIT 


16000000  I 
( (10*ClkPreq/ {4*X) ) +5)/10 

0x90 


input  clo^  frequency  =  16  Mhz 
-  1 


♦include 

-Setliip^S^IXCjIaster_Mode 


"17C42.h" 


file  containing  the  Register  Definitions 


;  SPBRG,  TXSTA  &  RCSTA  are  in  bank  0 

;  equals  3  for  1  Mbits/sec 

;  baud  rate  generator  is  reset  &  initialized 

;  8-bit  transmission,  async  mode 

;   8-bit  reception,  enable  serial  port, 
;  enable  reception 

.  *************,**,************************************************************ 


movlb 

0 

movlw 

bauddOOOOOO) 

movwf 

SPBRG 

movlw 

TXSTA_INIT 

movwf 

TXSTA 

movlw 

RCSTA_INIT 

movHf, 

RCSTA 

return 

bus 


fffm 
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Serial  Port  Utilities 


Receiving  Data  (Software  Polling) 

The  sample  code  provides  a  way  to  read  the  received 
setial  data  by  software  polling  (with  no  serial  port  inter- 
rupts). This  applies  to  both  asynchronous  and  synchro- 
nous mode.  Software  polling  is  done  by  checl<ing  the 
RBFL  bit  (PIR<0>).  IJ  this  btt  Is  set  it  means  that  a  wotd 
has  been  received  ^  t^'iiie#i  |^PE(|#j^#e  9tt^^ 
in  RCSTA<0>).  ^cm 

EXAMPLES 


*************** 


******************* 


r  *****  ** 


Return  The  8-bit  received  Data  By  Software  Polling 
The  received  de^ta  is  returned  in  location  SerlnSata 
********************#****#**ifc-#*****************^ 

Get_Serial_Data_Poll 

1 

PIR,»  ■ 
PollU^ 


PollRev 


movlb 
btfss 
goto 
movlb 
movpf 
return 


PIR  is  in  bank  1 
Chech  the  RBFL  bit 

loop  until  char  received,  assuxrte  WDT  is  off 
RCREQ  is  in  bank  0 


RCREG, SerlnData 


Received  8-bits  are  in  SerlnData 


***************************************************************** 


Transmitting  Data  (Softwrare  Polling) 

The  sample  code  provides  a  way  to  transmit  serial  data 
by  software  polling  (no  serial  port  Interrupts).  Software 
polling  is  done  by  checking  the  TBMT  bit  (PIR<0>  in 
bank  1)to  be  one,  indicatlngthetransferof  TXREGtothe 
seiiial  sMt  reg^OT. 


EXAMPLE  4 


************************************************************* 

Transmit  8-bit     Data  By  Software  Polling 
The  data  to  be  transmitted  is  in  location  SerOutData 

.  ***********************^5****^#:#-**********************************^ 

Send_Ser  ial_Da  ta_Po  1 1 

1 

PIR,  1 
PollTxmt 


PollTxmt 


movlb 
btfss 
goto 
movlb 
movfp 
return 


PIR  is  in  bank  1 

Chech  the  TBMT  bit  of  PIR  register  in  baidsl 
loop  unt-il  char  received,  assume  WDT  is  off 
RCSSB  is  in  baidc  0 


SerOutData , TXREG 


Beeeived  t^blts  mse  is  SerlnSata 


.*********#'A**  **<*-*  *4*  *****  *  ***.*?»j^^<!IMtHt"*.^  *******  ««****  *>*.)il:*  ********* 
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Serial  PcMA  INHities 


Transmitting  ft  Receiving  A  Blocic  Of  Data 
(Interrupt  Driven) 

A  general  purpose  loidirw  ««hlch  is  interrtipt  driven  that 
transniKs  and  ropeives  a  t>lock  of  data  is  provided.  The 
receptioii  ortnnsmission  of  the  blodc  is  ended  when  an 
end  of  l>lod(  diaacter  is  detected.  As  an  exampie,  the 


EXAIWPLE5 

HFASM  BO. 54 


end  of  l>locl(  IS  Mentlfied  fay  a  0.  The  ttfodc^^of  tilaia  to' 
transmitted  is^ored  in  the  program  memory  andTABLto 
ihsitMcHcfll  is  usedtotransferthte  example  data  to  thdfile 
r^i^rs  and  serial  port.  The  user  may  mbdify  this  code 
to  a  more  general  purpose  routine  thsisiHts  his  applica- 
tion. 


PAGE  1 


;  TITLE     'Serial  Interface  Routines 

LIST  P=17C42,   C=80.   I=OM,  RsDEC 

;Thi8  is  a  short  program  to  demonstrate  how  to  transmit  and 

.■serial  data  using  the  FIC17C42. 

;A  message  will  be  transmitted  and  routed  right  back  to  the 
;and  read.  The  read  information  will  be  saved  in  an  interna 

include  "pl7reg.h" 


0080 
OOBO 
0020 
0021 
0022 
0023 
0001 
0000 
00O2 


TX_BUFFER 

RX_BUFFER 

RXPTR 

TXPTR 

SERFLAG 

RTINUM 

RXDONE 

TXDONE 

HILOB 


egu 
equ 
egu 
equ 
equ 
equ 
equ 
equ 
equ 


0x80 

OxBO 

0x20 

0x21 

0x22 

0x23 

1 

0 

2 


0000  C072 


0020  C04D 


0030  2922 

0031  B800 

0032  B007 

0033  770A 

0034  B090 

0035  730A 


ORG 

goto 


ORG 
; rtcc_int 


0 

start 


0x0010 


0x0020 


perf_int 


goto 
ORG 


service_perf 
0x0030 


;veotor  for  rtoo  interrupt 

;not  used  here 

.■vector  for  peripheral  inte 

.■service  the  interrupts 


.-initialize  the  serial  port:  baud  rate  interrupts  etc. 
lnit_serial 

drf       SERFLAO  ;  clear  all  flags 


novlb 
movlw 
movfp 
movlw 
movfp 


0 

0x07 

W, SPBRO 

0x90 

W.RCSTA 


select  bank  0 
select  9600  baud 

/ 

set  up  serial  pins 
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0036 

2915 

clrf 

; setup  transmit  status 

0037 

B801 

movlb 

1 

; select  bank  1 

0038 

2916 

clmt 

PIR 

(■clear  all  interrupts 

0039 

2917 

PIE 

; clear  all  enables 

003A 

8017 

bsf 

PIE.RCIE 

; enable  receive  interrupt 

003B 

BOBO 

movlw 

RX_BUFPER 

;aet  pointer  to  rx  buffer 

003C 

4A20 

/ 

OOBD 

2907 

;  clear  all  liifea^ni^ta 

OOBE 

8307 

Iln!S»,FBIE 

•enable  perlBllap^al  ints 

003F 

0005 

retf ie 

; start  transmission  of  first  two  bytes  f 

start_xinit 

0040 

B800 

movlb 

0 

/select  bank  0 

0041 

8515 

«IIWS 

.•enable  traQwj(t 

0042 

ABOA 

1,1, w 

.■lead  latdi 

0043 

A216 

tlrd 

l.TXREG 

.-load  high  byte        ,  j 

0044 

BSOl 

movlb 

1 

.■select  bank  I 

eai^ty_chk 

0045 

9116 

btfss 

PIR.TBMT 

;TXBUF  empty? 

0046 

C045 

J  L-„  goto 

eir5>ty_chk 

;no  then  keep  checking 

0047 

B800 

>«JITiO«  MtlFlb 

0 

;  select  bank  0 

0048 

A916 

M>lrd 

0,1,TXBEG 

;load  lo  byte 

0049 

B801 

1            ,  8. 

i  mAm^t  batdi:  1. 

a04A 

8117 

htm 

PIE,  9^8' 

'  ;«ii^le  traasnAt  Interntp 

004B 

8222 

SERFLAG.HILOB 

;set  up  next  for  ''j^HMfty** 

004C 

0002 

service_perf 

; check  for  transmit  or  receive 

interrupts  only 

004D 

9816 

btfso 

PIR.RBFL 

;RX  buffer  full? 

004E 

C062 

goto 

servioe_reev 

;^s  then  service 

004F 

9116 

btfss 

PIR.TBMT 

;TX  buffer  CT^ty? 

0050 

C060 

goto 

©xit_perf 

;no.  ignore  otSms  jaMfe> 

service_xmt 

0051 

9822 

btfso 

SERFLAG.TXDONE 

;all  done? 

0052 

C060 

goto 

exit__perf 

;yes  then  quit 

0053 

9A22 

btfso 

SERFLAG.BILOB 

; if  clr,  do  low  byte 

0054 

C057 

goto 

rd_hi 

;else  read  high  byte  i 

0055 

A90A 

tablrd 

0,1, H 

.-read  lo 

0056 

C0S8 

/continue 

0057 

A20A 

tlrd 

l,w 

; read  high  byte 

sx_cont 

0058 

3A22 

btg 

SERFLAG.HILOB 

; toggle  flag 

0059 

B800 

movlb 

0 

;bsr=0 

005A 

4Aie 

movpf 

W,TXREG 

; load  tx  reg 

005B 

330A 

w 

;last  byte? 

005C 

CO  60 

sees 

«clt_p«rf 

;no  then  cont 

;else  end  transmit 

005D 

B801 

aevib 

1 

;  select  bank  1 

005E 

8917 

bcf 

PIE.TXIE 

./disable  tx  interrupt 

005F 

8022 

bsf 

IMWWis'V^KDQKE' 

;8et  dcme  flag 

exit_perf 

0060 

8F07 

/clear  peripMeill 

0061 

0005 

retfle 

servlce_recv 

0062 

9922 

btfsc 

SERFLAG.RXDONE 

;RX  conplete? 

0063 

C060 

goto 

exit_perf 

; exit  int 

0064 

6120 

movfp 

RXPTR,FSRO 

/get  pointer 

0065 

BSOO 

movlb 

0 

/select  bank  0 

0066 

6014 

movfp 

RCRBG.FO 

/  load  received  value 

0067 

290A 

#llcf 

H 

/clr  W 

0068 

3200 

90 

/value  =0? 

•4-S7 


Serial  Port  Utilities 


W69 

cmB 

on4_reev 

;yes  then  end 

msA 

ISOl 

ineS' 

;  Inc  pointer 

006S 

4120 

movpf 

FSRO.BXFTR 

;8ave  pointer 

006C 

C060 

goeb 

«tit_por£ 

; return  frcm  Int 

end_recv 

006D 

8122 

bsf 

SERFLAG.RXDONE 

; set  flag 

0a6E 

2907 

clrf 

INTSTA 

/clear  all  int 

006F 

B801 

movlb 

1 

; select  bank  1 

G070 

8817 

Bof 

FIE.KCIE 

/disable  rx  interrupts 

0071 

coeo 

goto 

exit_per£ 

/return 

; 

start 

0072 

2909 

olrf 

FSRl 

/assign  FSRl  as  S.P. 

0073 

0709 

decf 

FSRl 

/  / 

0074 

movlw 

0x20 

/clear  ram  space 

007S 

eiok 

movfp 

W.FSRO 

/do  indirect  addressing 

startl 

007S 

2900 

clrf  ' 

PO 

/clear  ram 

0077 

IFOl 

incf sz 

FSRO 

; inc  and  skip  if  done 

0078 

C076 

goto 

startl 

0079 

E030 

call 

inic_serial 

/initialize  serial  port 

007A 

BOOO 

movlw 

HIGH  MESSAGE 

/load  table  pointer 

007B 

4A0O 

movpf 

W , TBLPTRL 

/  / 

007C 

BOOl 

movlw- 

LOW  tlESSAGE 

/  / 

007D 

4A0B 

movpf 

W,TBLPTRH 

/  / 

007E 

E040 

call 

start_3anit 

/start  transmission 

007P 

9122 

btfss 

SERFLAG.RXDONE 

/receive  all? 

0080 

C07P 

goto 

chK_end 

/no  then  keep  checking 

0081 

C081 

loop  goto 

loop 

/spin  wheel 

0100  5468  6520  636F 
0103  6465  2069  733A 
0106  2054  6561  2066 
0109  6F72  2074  6865 
OlOC  2054  6960  6C65 
OlOF  726D  616B 
0111  0000 


*The  code  is:  Tea  for  the  Tillerman' 


0' 


Errors  :  0 
Warnings  :  0 
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rqrq  J  Amir.; 


Since  the  serial  port  of  PIC17C42  does  not  have  an  on 
chip  parity  generator,  parity  is  generated  using  software. 
It  takes  only  1 0  program  memory  words  and  executes  in 
10  instruction  cycles  to  generate  parity.  Since  the  serial 
port  of  PIC17C42  can  operate  in  a  9-bit  mode,  the  parity 
bit  can  be  generated  in  software  and  transmitted  as  the 
9th  bit  or  be  compared  with  the  received  9th  bit. 

In  case  of  transmission,  set  TX8/9  to  1  (<  6>  of  TXSTA) 
to  enable  9-bit  transmission  and  write  the  computed 
parity  bit  to  TXD8  (TXSTA<0>).  The  9th  bit  (parity  bit) 
itKist  be  written  prior  to  writing  the  8  data  bits  to  TXR  EG. 


EXAMPLES 


Incase  of  reception,  first  of  all  enable  9-bit  reception  by 
setting  RC8/9  to  1  (RCSTA<6>).  Upon  successful  re- 
ception, the  9  bit  is  received  in  RCD8  (RCSTA<0>). 
Parity  of  the  8  bits  of  received  data  is  computed  using  the 
routine  listed  below  and  compared  with  the  9-bit  r»> 
ceived. 


*************  *********1t*1r**1r*1i1tiiHl**-k1k. 


Generate  Parity  Bit  for  the  8  bit  register  'data' 
The  parity  bit"*^  fttdSB^  itt        d  ^  |plaifity* 


. *********************************************************************** 


swapf 

data,w 

xorwf 

data«w 

movwf 

parity 

rrncf 

parity 

rrncf 

parity 

xorwf 

'parit^,'w 

andlw 

0x03 

addlw 

0x01 

rrncf 

movwf 

parity 

J 


♦  if  ODtUPARlTV 
btg  parAty>,0 
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FIGURE  2  -  RS-232  INTERFACE  TO  MAX232 


The  PIC1 7C42  has  only  one  serial  port.  Foreipplloatlons 
that  require  the  P IC1 7C42  to  communicate  wtth  multiple 
serial  ports,  a  scheme  the  multiplexes  and  demultiplexes 
the  RX  and  TX  pins  is  provided  below.  This  method  is 
suited  only  if  no  more  than  one  UART  is  needed  at  any 
one  time.  This  is  the  case  in  many  applications  where 
the  microcontroller  drives  several  outputs  devices  seri- 
ally. Figure  1  shown  below  suggests  a  way  to  expand 
the  on-chip  seried  port  to  4  serial  ports.  To  use  the 
scheme  as  shown  in  Figure  1 ,  The  PIC17C42  must 
selectttwctssMseMportbyi^pFopriateVsettingthe 
two  pins  erf  PORt-B.  Ttia  samiB  scheme  may  be  Used  to 
further  expand  the  serial  ports  by  using  more  I/O  Ports. 

FIGURE  1  -  MULTIPLEXING  THE  ON-CHIP 
UART 


TX 


RX 


PIC17C42 


1Y0 

1Y1 

1A 

1Y2 

1B 

1Y3 

74HC139 
(DE-MUX) 


A 

DO 

B 

D1 

Y 

D2 

C 

D3 

TXO 
RXO 
TX1 
RX1 


74HC151 
(MUX) 


TX2 
RX2 
RX3 
•TX3 


RS-232  INTERFACE 

Two  circuits  are  provided  to  interface  the  CMOS  levels  of 
PIC17C42  to  RS-232  levels.  Figure  2  provides  interface 
to  MAX232  (MAXIM'S  RS-232  Driver/Receiver)  with  a 
single  +5V  power  supply.  Figure  3  provides  a  low  cost  2 
chip  solution  for  RS-232  level  translation  using  a  single 
+5V  supply  (Note  that  V-  of  MC14C88  is  connected  to 
DTR  of  RS-232  Interface.  By  asserting  DTR  to  low,  V- 
gets  the  negative  voltage  from  the  RS-232  line).  An 
alternative  single  chip  low  cost  solution  is  provided  in 
Figure  4.  Howevar3  yoltiige sources  (+5, -f  12,  -12)  are 
necessary. 


+5V 


TX 
RX 


PIC17C42 


C1  = 
C1  = 


C3 


I  16  2 
3 

4 
5 

II  14 
12  13 

15  6 


Maxim 
MAX-232 

RS-232  Output 


RS-232  Input 
C4 


C1,  C3  =  10  |jF.  6.3V 

C2,  C4  =  10  mF,  16V 


FIGURE  3  -  LOW  COST  2  CHIP  SOLUTION 

USING  SINGLE  POWER  SOURCE 


TX 

+5V 

1 

81 

B2  OutB 

TX  (RS-232) 

■  L 

RTS 

,  OutA 
A 

RTS  (RS-232) 

<DTR> 

V-  GND 

*  Assert 
DTR  Low 

MC14C88 

+5V 

1 

RX  (RS-232) 

V+ 

INA  OutB 

RX 

CTS  (RS|-232) 

INB  OutA 

CTS 

GND 

MC14C89 

FIGURE  4  -  LOW  COST  SINGLE  CHIP 

SOLUTION  USING  3  POWER 
SOURCES 


+12V  +5V 


TX 


RX 


Vdd  Vss 
3 


Vss  GND 


n 

-12V 
MC145406 


T" 


TX(R&-232) 


RX  (RS-232) 
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Electrtoal  Sp«MWIom*r .  KOnMSMYS 

tABL£1  -  SUMMARY  OF  RS-232C  AND 
V.28  ELECTRICAL 
SPECIFICATIONS 


Parameter 

Specification 

Comments 

Driver  Output  Voltags 

0  level 

1  level 
Max.  output 

+5VtO  +15V 
-5Vto-15V 
±25V 

Witti  3-7kn  load 
with  3-7k£2  load 
No  load 

Receiver  Input  Thresholds 
(Data  and  clock  signals) 

0  level 

1  level 

+3Vto+25V 
-3Vto-25V 

Receiver  Thresholds 
RTS,  DSR,  DTR 

On  level 
Offisvef 

+3V  to  +25V 
Open  circuit 
or -3V  to -25V 

Detects  power 
Off  condition  at 
drtw   

Receiver  Input 
resistance 

31(0  to  71(0 

Driver  output  resistance, 

Power  off 
condition 
Driver  slew  rate 

300O  Min. 
30V/|js  max. 

Vout<±2V 

3l(Q<RL<7kQ; 
0pF<CL<2500pF 

Signalling  rate 

Up  to  20l(  bits/sec. 

canie  length 

50715m. 
Recommended 
max.  length 

Longer  cables 
permlssabie,  If 
aoad^  2SO0pF 

EXAMPLE  1 

-   ■:".'OS.J-  - 

trmt  Uttr-.' 

I/O  PORT  EXPANSION  USING 
SYNCHRONOUS  MODE 

Although  the  PIC17C42  has  33  I/O  pins,  most  of  these 
are  multiplexed  with  other  peripheral  functions.  In  case 
more  I/O  ports  are  needed,  the  scheme  provided  below 
expands  the  I/O  port  using  the  synchronous  mode  of 
serial  port  by  serially  shifting  the  data.  Figure  5  shows  a 
scheme  to  expand  the  output  ports  to  16-bjts  using  2 
standard  logic  chips  (741-10595).  The  PiC17C42's  serial 
port  is  configured  in  synchronous  mode  and  set  to  be  the 
MASTER.  Thus  serial  data  is  available  on  DT  (pin  22) 
and  the  clocl<  is  availabie  on  CK  (pin  21).  The  following 
code  will  transmit  1 6-bits  serially  and  clocl<  ailthe  1 6-bits 
at  the  same  time. 

FIGURE  5  -  OUTPUT  PORT  EXPANSION 

USIN®  SYNCHRONOUS  MODE 


74HC59S 


PIC17C42 


SI 

QA 

QB 

SCLK 

• 
• 

QG 

• 

LCLK 

QH 

SO 

t 

SI 

QA 

SCI-K 

QB 

LCLK 

QQ 

• 

QH 

OutO 


•Out  15 


74HC595 


InitSerialPortTsoat J .j^,^  ,0^^  .  ,.-,.„, 
'  •        movlb  0'  '    furiiua  <(  OlDoa  '  j 

clrf  SfS^j^  l»i-i«t^5«S8i'^'^'^S*»««*  baaif  #|*e  =  CLKOOT  =  CLKIH/4 

movlw  OkS^ 

m0"^  *  ''''^%Sm^rSl,LX  port  "     '  ' 

movlw  OxBO  f 

movwf  TXSTA     '~  '  ;  8  bit  synchronous  master  mode  ' 


bcf  DDRB,  0 
return 
SendSerialData 

movlb 
movfp 
nog 

BKJVfp 

wait  btfss 
goto 
Jscf  Ports,  0 
bsf  Ports, 0 
return 


Ports  as  output,  to  be  used  as  Latch  Clk 


OataLo ,  TXREG 


!  ihift  out  OataliO  &  DataKi  serially 


;  wait  for  TXREG  transfer  :  if  slower  baud  rate  is 
;  used  check  for  TBMT  reset 


TXSTA, iPKjT  ,  ,  J  wai^  ii^t|l,HSll  l^jJitjjSj  sl^fted  out 
wait 


;  clock  in  the  serial  data  to  parallel  output  of  RC595 


Silllli«ORbytiHties 


A  similar  scheme  as  shown  above  may  be  implemented 
in  the  reverse  way  to  expand  Input  Ports.  For  this  it  is 
necessary  to  have  a  Parallel  In  and  Serial  Out  device. 
Using  a  standard  logic  chip  {74HC165),  the  scheme  is 
shown  in  Figure  6.  In  order  to  read  the  1 6-bit  input  data, 
the  serial  port  of  PIC17C42  is  configured  to  be  in 
Synchronous  Mode  Reception  (MASTER  mode).  An  I/O 
port  (PortB<0>)  is  used  to  parallel  load  the  16  inputs  for 
reading  serially.  A  sample  code  tp  isasj  the  16  inpute  ts 
shown  below. 


FIGURE  6  -  INPUT  PORT  EXPANSION  U8iN@ 
SYNCHRONOUS  MODE 


74HC165 


PIC17C42 


A 

B 

SCLK 

G 

• 
• 

PL 

H 

SI 

— 3_CLK 

t 

-  INHIBtT 

SO 
SCLK 

A 

B 

PL 

• 

• 

G 

• 

H 

-ri.CLK 

74HC165 


INHIBIT 


-itiL: 


.'JOfc 


Author:  Amar  Palacheria 

Logic  Products  Division 


InitSerialPortRcv 

movlb 

0 

-V    ■  clrf 

SPBRG 

;  set  to  highest  baud  rate  =  CLKOUT  =  CLKIN/4 

movlw 

0x80 

movwf 

RCSTA 

;  enable  serial  port 

movlw 

0x90 

movwf 

TXSTA 

;    8-bit  synchronous  master  mode 

bcf 

DDRB, 0 

;  bit  0  of  PortB  is  output,  to  be  used  as  Parallel 

;  Load 

bs« 

PortB.O 

;  disable  parallel  lK>ad 

return 

RsadSerlalData 

;  shift  out  DataLo  &  DataHi  serially 

movlb 

0 

bcf 

PortB, 0 

:  Parallel  Load  The  Inputs  iato  74HC165 

bsf 

Ports, 0 

;  disable  parallel  Load 

bsf 

RCSTA,  SREN 

;  enable  single  byte  reaction  and  wait  for  data 

i'        -  :  ""-iiiSi^lB 

1 

waitl  btfss 

PIR.RBFI. 

goto 

waitl 

;  check  until  8-bits  are  received 

movlb 

0 

movpf 

RCREG.DataLo 

;  1st  byte  is  read 

movlb 

0 

bsf 

RCSTA,  SREN 

;  enable  another  byte  of  reception  and  wait  for  data 

1 

wait2  btfss 

PIR,RBFL 

goto 

wait2 

check  until  8-bits  are  received 

movlb 

0 

movpf 

RCREG,DataHl 

;  2nd  byte  is  read 

return 

4-62 


e  1993  Microchip  Teehnelonrlnc. 


|.-tli;,-    .  j,T 


Hath  UtiUty  Routines 


INTRODUCTION 

This  application  note  provides  some  utility  math  routines 
for  Microchip's  second  generation  of  hi^  perfomiance 
8-bit  microcontroller,  the  PIC17C42.  Hiree  assembly 
language  nmdules  are  provided,  namely  ARITH^M, 
BCD.ASM  and  FXP_OIV.ASM .  Cun-ently  in  each  file  the 
foll«|^  subroutries  are  implemented: 


ARmi.ASM 

•  Single  precision  8x8  unsigned  multiply 

•  1 6  X 1 6  double  precision  mu  Itiply  (signed  or  unsigned) 

•  16  / 16  double  precision  divide  (signed  or  unsl^ied) 

•  16x16  double  precision  addition 

•  16  X 16  double  precision  subtaaeQon-         _  _ 

•  double  precision  square  root 

•  double  precision  numerical  differentiation  ' 

•  double  precision  numerical  integration 

•  Pseudo  Random  nionber  generation 
•~@iiius^fjrife^uted^  random  mrlimgm^0on  ' 


BCD.ASM  I 

•  JtfattMmyJo  2  digit  BCD  conveistan  . 

•  16-bit  binary  to  5  digit  BCD  conversion 

•  BCD  to  16-bit  binary  conversion 

•  2digitBCDadd«ipn 


AT  AO 


FXPJDIV.ASM. 

the  routines  that  are  implementing  inthissourcefileare 

shown  in  Table  3. 

As  more  routines  are  available,  they  will  be  added  to  the 
library.  The  latest  routines  may  be  obtained  either 
through  Microchip's  bulletin  board  or  by  contacting  your 
nearest  Microchip  sales  office  for  a  copy  on  a  MS-DOS" 
floppy. 


These  routines  have  been  optimized  wherever  possible 
with  a  compromise  between  speed,  RAM  utilization,  and 
code  size.  Some  routines  (multiplication  and  division) 
are  provided  in  two  fomis,  one  optimized  for  speed  and 
the  other  optimized  for  code  size. 

All  the  routines  have  been  implemented  as  callable 
subroutines  and  the  usage  of  each  routine  is  explained 
below.  At  the  end  of  the  application  iiel|N.the  HsIingiHeff 

of  the  above  programs  are  given. 

SINGLE  PRECISION  UNSIGNED 

This  routine  computes  the  product  of  two  unsigned  8-bit 
numbers  and  produces  a  16-bil  result.  Two  routines  are 
.  (-.piQvided:  one  routine  is  optimized  for  speed  (a  straight 
line  code)  and  the  other  one  has  been  optimized  for  code 
size  (a  looped  code  version).  These  subroutines  are 
located  in  ARITH.ASM  and  printed  in  the  listing  file 
ARITH.LST.  The  perfbnnance  specs  are  shown  in 
Tablet. 

DOUBLE  PRECISION  j 

This  routine  computes  the  product 'of  16-  bit  numbers 
and  prcKjuces  a  32-bit  result.  Both^igned  and  unsigned 
arithmetic  is  provided  ^'s  complement  arithmetic). 
-  Whelherteiise  signed  or  unsigned  is  decided  at  assem- ' 
biy  time  depending  on  whether  'SIGNED*  is  set  to  true 
or  false  (refer  to  the  source  code).  These  routines  are 

li^d^ensively  in  the  other  prbg^^^^^led  in  this 
.^.^application  note  (for  example,  the  square  root,  integra- 
-  lor,  differentiator  call  these  routines).  Two  routines  are 
provided.  One  routine  is  optimized  for  speed  ( a  straight 
line  code)  and  the  other  one  has  been  optimized  for 
code  size  (a  looped  code  version).  These  subroutines 
are  located  in  ARITH.ASM  and  printed  In  the  listing  file 
ARITH.LST.  The  perfomiance  specs  are  shown  in 
Table  2. 


TABLE  1:  SINGLE  PRECISION  MULTIPUCATION 


Name 

Comments 

Program  Memory 

Instruction  Cycles 

Scratch  RAM 

W  Register 

mpy8x8_F 

speed  efficient 

36 

36 

0 

used 

'  mpySisJS 

code  efficient 

13 

69 

1 

used 
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The  listing  file  shown  is  assembled  with  'SIGNED  equ 
TRUE".  If  unsigned  arithmetic  is  needed,  the  source 
code  should  be  cha|igat|  Ip  "SIGNED  equ  FALSE'. 
Conditional  assembly^' and  the  advanced  macro  features 
of  the  assembler  are  used. 

The  data  memory  organization  is  explained  in  the  com- 
ment section  of  the  code.  Faster  execution  and  code 
space  saving  can  be  achieved  by  setting  "MODE_FAST 
equ  TRUE".  However,  setting  MODE_FAST  variable  to 
TRUE  restricts  that  operands  and  the  32-bit  result  be  In 
data  RAM  locations  0x18  and  0x1  F  (In  this  mode, 
MOVFP  and  tVlOVPF  Instructions  may  be  used  to  trans- 
fer data  to/from  any  RAM  location  to  addresses  less  than 
0x1  F).  If  MODE_FAST  is  set  to  FALSE,  there  will  be  no 
restriction  on  the  location  of  the  data  RAM  values  used 
in  this  subroutine.  However,  the  code  will  be  slightly 
)ilNiipi)MMC|j|Ms  more  program  memoiy. 

1lMi  fUBng  file  shown  is  assembled  with  'SIGNED  equ 
WiM'.  If  unsigned  arithmetic  is  needed,  the  source 
eo*  iMif'MilMil^  to^SIGNED^e^^^ 

of  the  assembler  are  used. 


DOUBLE  PRECISION  DlVldli^  . » 

This  routine  petfomns  a  2*8  complement  division  ^tm  ^. 
16-bit  numbers  and  produces«»164>lt.c$i^rS«iilfi«^ 
16-bit  ramadndBr.  Beiislgned  aid  unslgwd  aHttiHWlfc 
isprovidedjQ'sporiiplBmentEuithmetic).  Whethertouse 
sijpedor  unsigned  ts  decided  at  assembly  time  depend- 
ing on  whether  'SIGNED"  %  set  to  true  or  feiise  (referte 
the  source  code). 

These  routines  are  extremely  useful  for  high  precision 
computation  and  are  used  extensively  in  the  other 
programs  provided  In  this  application  note  (for  example, 
the  square  root,  integrator,  differentiator  call  these  rou- 
tines). Two  routines  are  provided.  One  routine  is 
optimized  for  speed  (a  straight  line  code)  and  the  other 
one  has  been  optimized  for  code  size  (a  looped  code 
version).  These  subroutines  are  located  in  AppendbcC. 
The  performance  specs  are  shown  in  Table  3. 


TABLE  2:  DOUBLE  PRECISION  MULTIPLICATION 


Name 

Comments 

Program  Memory 

Insbucilon  Cydas 

Scratch  RAM 

WRaglatar 

Speed  ii^, 
Signed  Arithmetic 

T      r.  204 

183 

1 

.  ■  MSWji, . .  ■ 

D_mpyF 

Speed  Efficient, 
Unsigned  Arfthmetic 

176 

0 

used 

D_mpyS 

codeand^. 

Signed  Arithmetic 

254 

4 

used 

DjnpyS 

Coda  Efficient, 
»0IM|pMI  AMtoffiaUo  > 

21 

242 

3 

used 

iiv  ol»i»»  rt'CBHfc  3'  1* 


■^jlfel  ^:  ¥dC|t)^iQ<NtM^D||  DATA 


'MIn.  Cycles 

Program  Mamory 

Data  Memory 

16/8  Signed 

146 

135 

146 

5 

16/8  Unsigned 

196 

156 

195 

4 

16/7  Unsigned 

130 

130 

129 

4 

15/7  Unsigned 

125 

125 

124 

4 

16/16  Unsigned 

214 

187 

241 

7 

16/16  Unsigned 

244 

180 

243 

6 

16/15  Unsigned 

197 

182 

216 

6 

16/15  Unsigned 

191 

177., 

218 

6 

32/ 16  Unsigned 

414 

363  — 

47© 

9 

32/16Unsiiped 

4«S  '  - 

],4W"-^"'''' 

^J.  -608 

32/15  Unsigned 

390 

35a 

451 

8 

31/15  Unsigned 

383 

353 

442 

8 

4«4 
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DOUBLE  PRECISION  ADDITION  AND 
SUBTRACTION 

Two  routines  are  provided.  One  performs  a  2's  comple- 
rfierif  aiidinsil  and  tfis  ^her  one  performs  a  2's  comple- 
ment subtraction  al  two  16-bit  bintdy  niMMs.  TMese 
subroutines  are  locust {niiipiin:j;A$M!8ndt-prii!ited  in 
the  listing  file  ARITH.LST.  The  performance  specs  are 
shown  in  Table  4. 

NEGATE  A  imtBlM  PR^^IiMI  ''''^ 
NUMBER  .,-.,...,,.u.^,..nK.. 

\z 

These  routines  negate  a  double  precision  number' 
(16-bit  and  32-bit).  Two  foutines  and  two  macros  sire 
provided  to  negate  a  16-bit  number.  The  subroutines 
use  indirect  addressing  mode  and  the  macros  use  a 
drect  addressing 'scheme.  A  macro  is  provided  to 
rfiigaty%32^bitfiumben  ' 


DOUBLE  PRECISION  SQUARE  ROOT 

Often  in  many  applications,  one  needs  to  find  the  square 
root  of  a  number.  Of  the  many  numerical  methods 
available  to  compute  the  square  root  of  a  number,  the 
Newton-Raphson  method  is  one  of  the  most  attractive 
because  of  its  fast  convergence  rate.  In  this  method,  the 
sq uare  root  of  nunte,  Nt  ls(Ayi#4 as^m  approidmate 
solution  of  ,  .,.y     "      ,  y-; 

frO  =  Y'-N  =  0 

The  function  f(Y)  can  be  expanded  about  YO  u^h^  tH^' 
first  order  Taylor  polynomial  expansion  as:      ^' ' 

«M  Y^2f"ffY^  '  ' 

f|y'^(^^^^i|^  "  2!  ' 


If  X  is  a  root  of  f(Y),  then  f(X)  =  0:  Therefore 
f(X)  =  f(Y^ 


^(X-Y„)f(Y.).<^-^p)J'(V... 


.  =  0 


Therefore,    f(Y^  +  (X  -  Y„)f(Y„)  =  0 
i.e.,       X  =  Y,+  UYq) 

r\y,     ,.'ion  ' 


wAm^MJmmM  mmmm  Mmmmmo  subtraction 


Progrmn  Msmpiy 

Instru^on  Cycles 

Scratch  RAM 

W  Register 

Dadd 

4 

4 

0 

used 

Dsub 

4 

4 

0 

used 

TABLE  5:  NEGATE  A  DOUBLE  PRfi^K»iimi8ER 


Program  Memory 

Ipstruetlon  Cycles 

Scratch  RAM 

W  Register 

Negate 

7 

7 

0 

unused 

NegateAlt 

7 

7 

0 

used 

5 

NegMac 

5 

0 

used 

AltNegMac 

5 

5 

0 

unused 

ISegM,ac32  (32  bit) 

 11  L. 

.  0 

used 

0:!V 


r  ~ 


MaiirlliiilllMe 


Thus  X  is  a  better  approximation  for  YO.  From  the 
previous  equation,  the  sequence  {Xn}  can  be  generated: 

r'.«:  f'(X„.,) 

F^^sl^  case,  equation  2,  reduces  to: 


The  routine  "Sqrt"  in  ARITH.ASM  Implements  the  above 
equation.  Equation  3  requires  that  at  first  an  initial 
approximation  forthe  root  Is  known.  The  betterthe  initial 
approximation,  the  faster  the  convergence  rate  would 
be.  In  the  "Sqrt"  routine,  the  initial  approximation  root  Is 
set  as  N/2.  This  routine  calls  the  double  precision 
division  routine  (D_divS). 

In  the  code  size,  the  Division  routine  (Ddiv_S)  size  is  not 
included. 

BCD  ROUTINES 

Throe  routines  are  provided  for  general  purpose  BCD 
arittimetic;  ^ 

a.  BCD  to  binary  conversion 

b.  Binary  to  BCD  conversion 

c.  SOI3<i(ldHQn 

The  BCD  to  binary  conversion  routine  converts  a  5  digit 
BCD  code  to  a  1  &4}it  binary  number.  The  BCD  addition 
routine  adds  twK>  BCD  digltedlroet^Hwfthout  converting 
lariflisttb  tiHaiy.  Note  Ml^tase  of  the -DAW!;  >^ 
The  dttMTI^  roubles  jponverf  a  1^^^ 
rtoaiK^Dcode.  The  perfonnahce  specs  forthe.. 
BCD  routines  is  given  in  the  Table  7  below. 

NUMERICAL  DIFFERENTIATION 

This  routine  performs  numerical  differentiation  of  a  se- 
quence of  data  if  the  input  sequence  Is  assumed  to  t>e 
piecewise  lineeu-  with  no  discontinuances  (this  is  the 


case  In  iTiod.«f  the  real  ««r1d  s^n^}^^ough  this 
routine  Is  provided  as  a  tool  to  !rnp,lerfienta  PID  algo- 
rithm for  motor  control.  It  can  be  Used  as  a  i^eial 
purpose  subroutine,  .This  routine  uses  the  |H»  cdljad 
3-fQ|nt,^»nnula  tp  ^impute  ttie  differentMl  -of  a 
sequence  (rf  numbers. 

Given  an  equatldn'f(t),  its  derlvsrtive  Is  given  by 

f(t)=*S) 

dt 

The  aboye  eq{»npn  ,oan  h(atappraidniat«i||  using  the  3- 
Pont  formula  as  given  bielow: 

3-Poinl  Formula: 
-  df(t)  ^^ 

(ft  '  a  tK»b  *  2h) '  Wo'  h)  *m^] 

where  tg  is  the  point  at  which  the  numerical  derivative  is 
desired  and  'h'  is  the  step  size.  The  smaller  ttw.yaJua 
of  ttie  step  size  (h),  the  t>ettertheappro)dmation.  Incase 
of  say,  PtD  motor  control,  ttie  step  size  is  proportiorad  to 
Ihetime  Mervate  at  which  the  new  sample  vedue  of  ttie 
position  (or  speed)  is  olitained.  Using  the  above  equa- 
tion to  compute  ttie  dttferentiai,  ttiree  samples  are  nec- 
essary(presentvaiueandttielasttwopastvaiues).  The 
subroutine  *Diff*  Is  implemented  so  that  1/2h  factor  is 
storadalready  in  a  RAM  location  (location  [}9fK)  as  1/2h 
and  not  as  "h*  because  it  Is  more  ^Icientto  multiply  than 
divide. 

Aftercomputation,  the  routine  does  not  move  the  present 
value  to  the  past  value.  Sotheusermust  update  the  past 
VcUues  before  calling  this  routine  again.  This  way,  if 
necessary,  differentiation  may  be  performed  without 
distutbing  the  present  and  past  values.  Also,  wKen-this 
routkielscalledforthefirsttlme,  It  is  user's  responsibility 
toseitttielnitial  valuesof  ttie  past  data  points  (may  be  set 
to  zero).  This  routine  called  *Diff"  is  located  in 
•  "ARITHiASM". 

In  the  code  size,  the  double  precision  muBiplication 
routine  (Dmpy_S)  used  is  not  included. 


Table  6:  double  preci^on  souare  root 


Name 

Program  Memory 

Instruction  Cycles 

Scratch  RAM 

W  nsgister 

22 

3300  (approx.) 

6 

used 

TABLE  7:  BG&  FKHJTtNES 


Comments 

Program  Itomory 

Instruction  Cycles 

Scratch  RAM 

W  Register 

BCDtoB 

BCD  to  Binary 

30 

112 

0 

used 

B2_BCD_Looped 

Binary  to  BCD  (16  bit) 
looped  code 

32 

750 

1 

used 

B2_BCD_Straight 

Binary  to  BCD  (16  bit) 
straight  line  code 

44 

572 

1 

used 

BinBCD 

Binary  to  BCD  (8  bit) 

10 

62 

0 

unused 

BCDAdd 

BCD  addition 

5 

5 

0 

used 
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NUMERICAL  INTEGRATION 

TTiis  routine  perfotms  numerical  integration  using  Simpson's 
Three-Eighths  Rule.  This  isathird  order  approximation  for 
the  function,  whose  integral  is  to  be  computed  at  a  given 
point.  Although  this  routine  is  provided  as  a  tool  to 
implement  a  PID  algorithm  for  motor  control,  it  can  be  used 
as  a  general  purpose  subroutine.  Given  a  function  f(t),  its 
integral  over  a  range  tg  to  ^  is  represented  as: 

13 

|f(t)clt  TNs  funcUon  is  appioidRMlitf wfMiiiS!; 
10 

i^pson's  Three-Eighths  Rule: 

jf(t)dt  =  ab.[f(y  +  3f(H)+%l6!^M^*«   «  "  13 
8 

- 

The  constant  3h/8  can  be  computed  before  hand  and 
stored  In  a  RAM  location  Qn  location  IntgKLo  and  IntglCHI 
as  a  16-bit  number).  After  computation,  the  routine  does 
not  move  the  present  value  to  the  past  value.  So  the  user 
must  update  the  past  values  before  calling  this  routine 
again.  This  way,  If  necessary,  integration  may  be  per- 
formed without  disturbing  the  present  and  past  values. 
Also,  when  this  routine  is  called  for  the  first  time,  it  is  user's 
responsibility  to  set  the  initial  valusspf  the  past  data  points 
(may  t>e  set  to  zero).  This  tsal^m.^tM^Siitt&Si9'  is 
located  in  "ARITH.ASM'. 

In  IttBcocte^si^'thftdoubleiaieaisiQniiitiap^^ 
(Dmpy-S)  used  is  rwttinekf^  |BWMu*i 

til         •mruoKtoX'   Tilt  -  ;; 

'S.'-  -'r  ito  «  ,11,  .■  r 

TABLE  8:  PlFFERENnAnON 


PSEUDO  RANDOIINUMBER 
GENERATOR 


This  routine  (subroutine  "Random  16"  provided  in 
ARiTX.^k^  generates  a  psaudo  random  number  se- 
quence. Therandompointsaregeneiatedusinga16bit 
regteter  and  left  shifting  the  contents  with  the  USB  srt  as 
shown  t>y  the  foiiowing'Schematic. 

As  a  test,  the  random  points  are  generated  by  calling  the 
subroutine  from  an  infinite  loop,  and  the  data  points  are 
continuously  captured  into  the  real  time  trace  buffer 
using  the  PICMASTER  (the  Universal  In-Circult  Emula- 
tor for  the  PIC16/17  series).  The  autocorelation  of  the 
captured  data  Is  computed  using  a  stand  alone  program 
and  is  shown  in  Figure  2.  From  this  figure,  it  can  be  seen 
that  the  data  has  a  strong  autocorrelation  only  at  the 
origin  and  sharply  approaches  to  zero  within  a  few 
points.  This  demonstrates  the  randomness  of  the  data 
CB^ured.   ^  _  , 


FIGURE  1 


15|14|13|12|    I  3  I  2  I  1  I  0 


Comments 

Program  Memory 

Scratch  RAM 

W  Register 

oifr 

Numerical  [differentiation 

34 

36S 

10 

used 

TABLE  9:  INTEGRATtON 


Name 

Comments 

Program  Memory 

Instruction  Cycles 

Scratch  RAM 

W  Register 

integrate 

Numerical  integration 

38 

370 

12 

used 

O  MIM  Mtiii  iiiilii  TialM  >  iliMMitlllliMMMit 


amm 
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FIGURE  2  -  AUTOCORELAtASM  €F TME  CKATA  POINTS  GENERATED  BY  THE  RANDOM  NUMBER 
GENERATOR 


Autocorrelation  Qf  Pi^       Random  Numbor  Qanerator 

1.20 1 

■(  ■  ■'-  .■ir"  '  jf  -,:r 

1.00 

0.80 

Magnltuda  0.60- 

0.40- 

0.20 

0.00- 

1 

11    21   31   41    51   61    71   81    91  101  111  121 
.  Samplo  Number 

TAB^  m  vmmm  double  generator 


Name 

Comments 

Program  Memory 

Instruction  Cycles 

Scratch  RAM 

W  Register 

Random16 

0 

Pseudo  Raridom 
Number-@eneialor 

12 

12 

0 

used 

Qauss 

Qau^iin  Random 

[|j*$irabi|EGl9nerator 

21 

452 

4 

used 

PN  (pseudo  noise)  sequences  are  widely  used  in  digital 
communicationsyBtemaforfynchionlzation.  These  code 
words  can  also  IM  uMd  for  data  scrambling  because  of 
thatrgsodooti^MonpiOiMMes.  An  interesting applica- 
ticn  oi  tbete  asquancas  is  system  kitegiRy.  For  «c- 
ampl^ttiwa  aiw|uene«e  can  be  nsgulaity  transmitted  to 
a  proceAor  wtiosB  wotdidog  timer  will  time  out  if,  say, 
two  consecutive I^N  sequences  do  not  match. 


FIGURE  3  -  HISTOGRAIM  OF  THE  DATA 
»ta>l        GENERATED  BY  THE  GAU^IAN 
GENERATOR 


Gaussian  Distributed  Samples  Generated 

by  PIC17C42 

100- 

80 

,, 

Relative  eo 

Amplitude 

40 

I 

20. 

^1 

i 

0- 

■        K  tt 

in 
tt> 

s;     ft;  " 

0>  0> 

Sunptos 

GAUSSIAN  DISTRIBUTED  RANDOM 
NUMBER  GENERATOR 

This  routine  (subroutine  'Gauss'  provided  in 
ARITH.ASM)  generates  a  sequence  of  random  num- 
bers with  a  characteristic  of  a  normal  distribution 
(Gaussian  distributed  points).  This  routine  calls  the 
pseudo  random  number  generator  ("randomi  6")  to  ob- 
tain a  near  uniformly  distributed  random  points  and  from 
these  points,  the  Gaussian  dstrlbuted  points  are  gener- 
ated. The  method  of  g^eratlng  Gaussian  points  is 
based  on  the  'Central  Limit  Theorem',  whioh  states  that 
an  ensemble  of  average  weighted  sum  of  a  sequence  of 
unooirelated  samples  tends  to  fiave  a  Gaussian  distri- 
bufion. 

As  a  test,  the  Gaussian  points  are  generated  by  calling 
the  subroutine  from  an  infinite  loop,  and  the  data  points 
are  continuously  captured  into  the  real  time  trace  buffer 
using  the  PICMASTER  (the  Universal  in-Circuit  Emula- 
torforthe  PIC16/17series).  A  plot  of  the  points  captured 
is  shown  in  Figures,  which  shows  that  the  randomppints 
generated  have  the  characteristics  of  a  Gausslan  disM» 
bution. 


Author:  Amar  Palacherla 

Los^  Pmduets  Division 
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APPENW  A:  GENERAL  PURPOSE  MATH  ROUTINES 
LISTING  FILE  OF  ARITH.ASM 


MFASH  BO.  54 

General  Puepose  Math  Routines  For  PIC17C42  :  Ver  1.0 


0001 


♦define  PAGE  EJECT 

TITLE  'General  Purpose  Math  Routines  For  PrC17C42  :  Ver  1.0" 
LIST         P=17C42,   C=120,   T=ON,   L=0,  R=DEC 


include  "17c42.h' 


0001 
0000 


.*****************************************************  ************** 
;  Define  RAM  Locations  necessary  For  the  "ARITH.ASM" 

;      RAM  locsMtMC  «As@ald  be  defined  before  eallli^  tite  library  math 
;  routines  r  , 

-        '';*«3«^^iie«aft:^toip.«tl@^iafs*«**'**********^^f^^  ' 

.  f  .tq  >   -frr'*  ;    >  " 

MOej^FAST  equ  TRUE 

equ  FALSE 


<  0018 ' 0004 
OOlC  0004 


.  ********************************* ************t4^|^;^^** ************ 

-if  JiOJ«_f>&S!f  - 
CBLOCK  0x18 

ENDC 
el^^ 
CSLOGK  0x20 

ACCaLO,  ACCaHl,  ACCbLD,  HCCtMX 
ACCcaO,  IHS&MI,  AECffliO,  l^mi 


0020  0004 


0024  0002 
0026  0001 


CBLOCK 

■tempLo,   tenpHi,  count,  sign 
EWDC  .  »  -  i 

N<±msir:  IM|»  Ji****  ■. 
iterCnt 
ENDC 


0027  0003 
002A  0003 
002D  0002 
002F  0002 


0031  0004 
0035  0004 
0039  0002 
003B  0002 


CBLOCK 

XnLo,  XnHi,  Xn_l_Lo 
T»fT.T.j   xn_l_Hi,  Xn_2_Lo,  Xn_2_Hi 
DiffKLo,  DiffKHi 
DiffLo,  DiffHi 
ENDC 

;  :!)»i«nB  -. 

CBLOCK 

5 -  XOLo,  XOHi,  XlLo,  XlHi 
-''.c'-X2Lo,  X2Hi,   X3Lo,  X3Hi 

IntglSiO,  IntgKHi 

JSitgLo,  IiStgHi 
ENDC 


RAM  locations  for  *Diff'  routine 


DiffK 


Stiep  Size 


RAM  Locations  for  "Integrate* 
•ENTEOSATS  g««F.  =  3*h/8 


.******************************************************************* 


0018 

Btul^id 

equ 

ACCaLO 

0019 

Biulplr 

OOIA 

L_byte 

OOIB 

HJsyte 

equ 

OOOA 

_LUPCNT 

equ 

10 

OOIE 

SqrtLo 

equ 

ACCdLO 

OOIF 

SqrtHi 

equ 

ACCdHI 

;  Set  Desired  Nuniber  of  iterations 


Define  RAM  locations  for  the  Random  Number  Generators 


4m 


IMIttl^iitttlfisi 


0018 
0019 
OOIB 
OOIA 
0020 


RandLo  equ 
Randal  equ 
GaussHl  equ 
GausaLo  equ 
GaxissTtop  equ 


ACCaXiO 
ACCaHI 
ACCMI 
ACCKLO 


;  16  bit'  Pseutio  Random  NUnisex 

;  16  bit  Gaussian  distributed  mmtier 


ORG  0x0000 

******************************************************** 


t********** 


Math  Routines  7est  Program 
******************************************************************* 

Load  constant  values  to  HCCa  £  ACCb  for  testing 


0000  E02D 

0001  E036 


call 
call 


loadAB 
D_add 


result  of  adding  ACCb+ACCa->ACCb 
Here  Accb  =  81FE 


0002  E02D 

0003  E03B 


call 
call 


loadAB 

D_sub 


;  result  of  subtracting  ACCb  -  ACCa->ACCb 

;  Here  Accb  =  7E00 


0004  E02D 

0005  E050 


call 
call 


loadAB 
D_TO>yS 


result  of  multiplying  ACCb*ACCa  >(ACCd,ACCo) 
Here  (ACCd.ACCe)  =  OOFF  7E01 


0006  SOnUr  . 

0007  E065 


eal^.. 
call 


loadAB 

DjupyF 


result  of  sniltiplying  ACCb*ACCa-> (ACCd.ACCe) 
Here  (ACCd.ACCe)  =  OOFF  7E01 


0008  E02D 

0009  E119 


call 
call 


loadAB 
D_divS 


result  of  multiplying  ACCb/ACCa-> (ACCd.ACCe) 
Here   (ACCd.ACCe)   =  0040  003f 


OOOA  E02D 
OOOB  B138 


call 
call 


loadAB 
D_divF 


;  result  of  multiplying  ACCb/ACCa->  (ACCd.ACCe) 
;  Here   (ACCd.ACCe)  =  0040  003f 


OOOC  B0F3 
OOOD  0125 
OOOE  B0F6 
OOOF  0124 
0010  E27D 


movlw 
movwf 
movlw 
movwf 
call 


0xf3 

NumHi 

0xf6 

NumLo 

Sqrt 


Set  input  test  nijinber  =  62454 
=  F3F6h 

result  =  00F9h  =  249  (in  SqrtLo) 
exact  sqrt (62454)  =  249.9 


0011  aOFF 

movlw 

Oxff 

0012  0119 

movwf 

mulplr 

;  multiplier  (in  mulplr)  =  OFF 

0013  9om- 

movlw 

Oxff 

;  multiplicand(W  Reg  )       =  OFF 

0014  0118 

movwf 

mulcnd 

0015  E293 

call 

npy8x8_F 

;  The  result  OFF*OFF  =  PEOl  is 

in 

;  HJVte  &  L_byte 

0016  BOFF 

movlw 

Oxff 

0017  0119 

movwf 

mulplr 

;  multiplier  (in  mulplr)  =  OFF 

0018  SOVF 

movlw 

Oxff 

;  multiplicand(W  Reg  )       =  OFF 

0019  0118 

movwf 

mulcnd 

OOIA  E2B8 

call 

npy8x8_S 

;   The  result  OFF'OFF  =  FEOl  is 

in 

;  H_byte  i  L_byte 

Test  The  Random  Number 

Generators 

Capture 

data  into  trace 

buffer  by  TABLE  WRITES  to  a 

dummy  Program  Memory  location 

OOIB  BOFF                    •  ■ 

movlw 

Oxff 

OOlC  OlOD 

movwf 

tblptrl 

OOID  B05F 

movlw 

0x5f 

OOIE  OlOE 

movwf 

tblptrh 

OOlP  B030 

0x30 

0020  0119 

movwf 

Ran^i 

0021  B045 

movlw 

0x45 

0023  011,8 

movwf 

RandLo 

0023  C028 

goto 

GaussPoint 
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0024  eaii 

0025  A418 

0026  AE19 

0027  C024 


tlwt 
goto 


Randoml6 
_LOW,  RandLo 
_HIGH,0,RandHi 
RandPoint 


0028  E31E 

0029  A41A 
pa2A  AEIB 
002B  C028:' 

002C  C02C 


0g2D  BOOl 
002B  0119 
002?  BOFF 

0030  0118 


GaussPoint 

call.' j_ 
tlwt 
I  tablwt.. 
goto 


self 


loadAB 


goto 


movlw 
movwf 
movlw 

movwf 


Gauss 
JLOW,  GaussLo 
^im.B ,  GauasBi 

SausBFoinb 

self 


0x01 

ACCaHI 

Oxff 

ACCaLO 


;  only  for  data  capture 
;  using  PIOOiSTBa.. 


End  Of  Test  Routines 


loads  ACCa  =  OlFF 


0031  B07F 

0032  OllB 

0033  BOFF 

0034  OllA 

0035  0002 


loads  ACCb  =  iwmi 


movlw  0x7  f 

movwf  ACCbHI 

movlw  OxFF 

ir«tt9zn  ■  ' 

if    ■  ...  1 

********************************** 

Double  Precision  Arithmetic  Routines 


Routines 


Addition,  Subtraction,  Multiplication  , Division 
Square  Root 


r  MQmLFAST  must  Cikst  be  sete  .bel  either 
TRUE  or  FALSE  ' 


MODE_FAST  determines  the  RAH  address  locations  of  ACCa  thru  ACCd 

If  MQpE_FAST  is  set  TRUE,  data  transfers  can  be  done  efficiently- 
using  ^HOVFP*  ^  *UOVPF'  instructions  instead  of  indirectly  moving 
at  £itr|i  tiis  W  ^ma  m^.  then  fee  the  desired  jlMIn  locations  jc 

The  speed  increase  using  this  way  of  locating  ACCa  to 
ACCd  will  result  in  a  saving  of  about  20  Cycles/filter  stage 
In  this  case   (  a  2  stage  filter) ,   it  is  faster  by  40  Cycles 

If  due  to  other  constraints,  ACCa  thru  ACCd  cannot  be  set  at 
a<ldress  0x18  to  Oxlf,  then  the  user  Is  ragniii^  to  set  v. 
MOD^F^ST  to  RjtLSE 

*******#*********************************************************** 

Double  Precision  Addition 

Addition  :     ACCb(16  bits)  +  ACCa(16  bits)   ->  ACCb(16  bits) 

(a)  Load  the  1st  operand  in  location  ACCaLO  &  ACCaHI  (  16  bits  ) 
a»)  Load  the  2ttd  operand  in  location  ACel^  £  ACCbHI  (  16  bits  ) 

tat  A*  irejfeiiti^  in  In  location  ACCldiO<«  ftecifll  (  16  bits  )  j: 


Performance  : 

Program  Memory 
Clock  Cycles 
H  Register 
Scratch  RAH 


4  (excluding  call  &  return) 
4  (excluding  call  £  xstum) 
Used 
0 


*******^*#^*^^^^lg^^i^||i^^*i|d^^.^.{^  #******************  ******************. 


D_add 
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0036  6018 

0037  OFIA 

0038  6019 

0039  lllB 
003A  0002 


003B  6018 
003C  051A 
003D  «S19 
003S  031S' 
003F  0002 


0040  6000 

0041  8D04 

0042  2D00 

0043  8504 

0044  6000 

0045  2900 

0046  0300 

0047  0002 


movfp  ACCaL0,wre9 

addwf  ACCfcIA 

mov^-  ACGaHI,wreg 

addwfc  ACCbBI 

return 


;  addwf  Isb 

;  addwf  msb  with  carry 


************************************** 


«(*****  ******* 


J  Dotible  Precisim  Sttbtraction 

Stdstraetion  >  ACCb(16  bits)  -  ACCa(16  bits)  ->  ACCb(16  bits) 

(a)  Load  the  lat  apesaoiS  in  location  ACCaliO  &  ACCaSI  (  16  bits  ) 
(bV  Load  the  2nd  operand  in  location  ACCbLO  £  ACC33BI  (  16  bits  ) 

(c)  CAIX  OL.sab 

(d)  The  result  is  in  location  ACCbLO  £  ACChHI  (  16  bits  ) 


Performance 


Program  Memory 
Clock  Cycles 
W  Register 


4  (excluding  call  &  return  ) 
4  (excluding  call  &  return  ) 
Used 


scratch  KAH         ;  0 
*************************************************************** 


D_s&b 


movfp  ACCaLO,wreg 

subwf  ACCbLO 

movfp  ACCaBI.wreg 

subwfb  ACCbai 

return 


************* 


******* 


Function  to  negate  a  16  bit  integer 
The  two  8  bit  integers  are  assujned  to  be  in  2  consecutive 
locatiotts.  Before  callim^  this  routine^  FSRO  should  be  loaded  with 
the  address  of  the  lower  byte. 

Assxune  that  ALUSTA  register  is  set  for  no  autoincrCTient  of 

FSRO. 

k****** *********************************************** ************* 


negateAlt 


'.1 


bcf 

negw 

bsf 

movfp 
clrf 
subwfb 
xetum 


indfO.wreg 
_fsl 
indfO 
_fsl 

indf  0 ,  wreg 

indfO 

indfO 


negate 


0048  1300 

0049  8D04 
0Q4A  1500 
004B  8504 
004C  »»0«j:d 
004B  070*^  iu 
004E  1300 
004F  0002 


bcf 

incf 

bsf 

btfsc 

decf 

comf 

return 


ittdfO 

_fsl 

indfO 

_fsl 

_z 

indfO 
indfO 


**********************  ****************************  ***************** 

Double  Precision  Multiplication 

(  Optimized  for  Code  :  Looped  Code  ) 

Multiplication  ;  ACC3>(16  bits)  *  ACCa(ie  bits)  ->  ACCd.ACCc  (  32  bits  ) 

(a)  I^d  the  1st  errand  in  location  ACCaLO  £  ACCaHI  (  16  bits  ) 

(b)  Load  the  2nd  operand  in  location  ACCbLO  £  ACCldll  (  16  bits  ) 

(c)  CALL  D_)i{)yS 

(d)  The  32  bit  result  is  in  location  (  ACCdHI,ACCdLO,ACCdRI,ACCdLO  ) 
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Performance  : 
Program  Memory 

Clock  Cycles 

Scratch  RAM 


21  (UNSIGNED) 

52  (SIGNED) 
242    (UNSIGNED  ! excluding  CALL  &  RETORN) 
254  (SIGNED  :excluding  CALL-  &  RETURN) 
1  (used  only  If  StS^liD  arithmetic) 


;  Note  I  The  above  timing  is  the  worst  case  timing,  when  the 

.y  -  »ia      register  ACCb  =  FFFP.  The  speed  may  be  improved  if 

;  the  register  ACCb  contains  a  number  (  out  of  the  two 

;  numbers  )  with  less  number  of  Is. 

;  Double  Precision  Multiply  (  16x16  ->  32  ) 

;  (  ACCb*ACCa  ->  ACCb.ACCc  )   ;  32  bit  output  with  high  word 

;  in  ACCd  (  ACCdHI,ACCdLO  )  and  low  word  in  ACCc  (  ACCcHI ,ACCoLO  ). 
.********a*a^^#«*^**  *****************************  ********* 

D_Bi>yS  ;results  in  ACCd(16  msb's)  and  ACCo(16 


************** 


if  Sl&SB) 

CALL  s_si<ai 

esdif 

0050  2922 

.  -  '- 

0051  8422 

; 

if  HOE^FASV 

■. 

0052  SA20 

movpf 

ACCbLO,  tempLo            '      '  - 

0053  5B21 

movpf 

-A0^^I ,  tesT^U. 

else 

movfp 

ACCbLO , wreg 

movwf 

tempLo  * 

movfp 

ACCbHI.wreg 

movwf 

tcatpHi 

endif 

0054  291P   '         ■ ' 

■Memi  ■  ■  ■'   '    ■  -  ■    •  ■■  • 

0055  291B 

■ 

nq^^^liOop 

0056  1921 

rrcf 

tempHi 

0057  1920 

rrcf 

tempLo 

0058  9004 

btfss 

_carry 

0059  C05B 

NoAdd                   ;  LSB  is  0,  so  no  need  to  addwf 

005A  6018 

movfp 

ACCaLO , wreg 

005B  OFIE 

addwf 

ACCdLO                    ; addwf  Isb 

005C  6019 

movfp 

ACCaHIfWreg 

005D  lllF 

addWfc 

ACCdKI                  ; addwf  msb 

005E  191F 

^'SCCdftf'      '                           .  ■ 

005F  191E 

rrcf 

ACCdLO 

0060  191D 

rrcf 

ACCcHI 

0061  191C 

rrcf 

ACCcLO 

0062  1722      '  -'• 

decfsz 

count 

0063  C056 

goto 

npyLoop 

if  SKStfBB  " 

btfss 

sign, MSB  ' 

return 

comf 

ACCcLO  -■■>■■'. 

incf 

ACCcLO 

btfsc 

_z 

decf 

ACCoHl 

comf 

ACCcHI 

J« 

ACCdLO 

4^ 

ccin£ 
btfso 
decf 
comf 

return 


ACCdLO 


ACCdHI 


0064  0002 


return 


endif 

;  Assemble  this  ^eetiCTi  «nly  if  Signed  Arithmetic  Needed 
if  SIGNED 


S_SIGN 


movfp 

xorwf 

movwf 

btfss 

goto 

comf 

incf 

btfsc 

decf 

comf 


ACCaHI ,wreg 
ACCbHI.w 
Bi^B  - 

ACCfcKX.MSB 

ACCbLO 

ACCbLO 
_z 

ACCbHI 
ACCMI 


(■MSB  of  sign  detarmineB  lAether  signed 
;  if  KSB  set  go  &  negate  ACCb 


;  negate  ACCb 


btfss  ACCaHI ,  MSB 
return 

comf  ACCaLO 

incf  ACCaLO 

btfsc  _z 

decf  ACCaHI 

comf  ACCaHI 
return 


if  MSB  set  go  &  negate  ACCa 


negate  ACCa 


endif 


************************ 


*********** 


Double  Precision  Multiplication 


(  Optimized  for  Speed  :  straight  Line  Code  ) 


Multiplication   :   ACCb(16  bits)    *  ACCa(16  bits)    ->  ACCd,ACCc   (   32  bits  ) 

(a)  Load  the  1st  operand  in  location  ACCaLO  &  ACCaHI  (  16  bits  ) 

(b)  Load  the  2nd  opeianA  in  location  ACCbLO  £  ACCbHI  (  16  bits  ) 

(c)  CALL  Dji^jy 

(d)  Zhe  32  bit  result  is  in  location  (  ACCdHI, ACCdLO, ACCdHI, ACCdLO  ) 


Performance  i 

Program  Memory    :      179  (UNSIGNED) 

204  (SIGNED) 

Clock  Cycles        ;       176  (UNSIGNED  :  excluding  CALL  S  RETURN) 

:       183  (SIGNED  :excluding  CALL  &  RETURN) 


Note  :  Ibe  aisam  timing  is  the  iHorst  case  timing,  when  the 
register  ACCb  =  FFFF-  VhB  speed  may  be  iieproved  if 
the  re^ster  ACCb  c<^tains  a  nuihber  (  out  of  the  two 

numbers  )  with  less  number  of  Is. 


The  performance  specs  are  for  Unsigned  arithmetic  (  i.e, 
with  "SIiaiED  equ    FALSB  *) . 

Upon  return  from  subroutine,  the  ii^ut  registers 


nwiiiiWiiMiiiit  Iff 


4-74 


e  1 994  MicrocMp  Techndagy  Incoiponited 


Math  Routines 


********************************************************** 

;  MaltipllcatioD  Macro 


mulKac  MACRO 
variable  i 

i  =  0 

if  SIGNED 

else 

.tAile  1  <  IC' 
endif 

.if  i  <  8 
btfss  ACCbliO.i 


.else 
btfss 

.fi 
go6o  - 
novfp 
addwf 
movfp 
addwfc 
NoAdd«v  ( i ) 
rrcf 
rrcf 
rrcf 
rrcf 
bcf 

i  =  i+1 
.  endw 
if  SIGHED 


oidif 


ACCaLO.wref^ 

ACCdLO 

ACCaHI.tireg 

ACCdHI 

ACCdHI 
ACCdI.0 
ACCcm 
ACCcLO 

_carry 


;  test  low  byte 

}  test  high  l>yte 

i  LSB  is  0,       do  need  to  addwf 

; addwf  Isb 
; addwf  msb 


rrcf 

ACCdHI 

rrcf 

ACCdLO 

rrcf 

ACCcHI 

rrcf 

ACCCLO 

bcf 

***************** 


********* 


******** 


Double  Precision  Negate  Macros 
********************************************* 


***********  i 

AltNegMac  MACRO  f  ileRegLo,  f  lleRegHi 

movfp  f  ileRegLcwreg 

negw  fileRegLo  .caci.-  i  i  5 

movfp  f ileRegHi^wreg 

clrf  f ildtegHi  «  . 

subwfb  f  lleRegHi  ^  '> 

Btn3M 


negKac    MACRO      f  ileRegLocvSileRegHi 

comf        fileRegliO  ;  negate  FileReg  (  -FileReg  ->  FileReg  ) 

fileRegLo  >  •  <  .  •■wif. 


inef 
btfsc 
dacf 
ccmf 


fil^es^i 
fileBe^i 


IiBgI(ac32 
mov^p 
negw 


clrf 


MACRO  X3,x2,xl,x0 

x3,wreg 

x3 

x2 
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subwfb 

movfp 

clr£ 

subwfb 

movfp 

clrf 

sabwfb 


x2 

xl ,wreg 

xl 

xl 

xO,wreg 

xO 

xO 


; 


********** 


t**************************** 


. ****************** 

;  Double  Precision  Multiply  (  16x16  ->  32  ) 

;  (  ACCb*ACCa  ->  ACCb.ACCc  )   :  32  bit  output  with  high  word 

;     in  ACCd  <  ACCdHI.ACCdLO  )  and  low  word  In  ACCc  (  ACCcHI.ACCcLO  ) . 


if  SIGNED 


.-results  in  ACCd(16  msb's)  and  ACCc(16 


movfp 

ACCaHI ,  wreg 

xorwf 

ACCbHI,w 

movwf 

sign 

btfas 

ACCtai.MSB 

goto 

chek_AJlSB_MPX 

negMac 

ACCbLO.ACCbHI 

;  if  MSB  set  go  &  negate  ACCb 


0065  291F 

0066  291E 

0067  8804 


0000 
0000 


cheK_A_MSB_MPY 
btfss 
goto 
negMac 

endif 

eontinue_MPY 
clrf 
clrf 
bcf 


ACCaHI, MSB 

continue_JCFY 

ACCaLO.ACCaBI 


ACCcffll 
ACCdLO 
carry 


if  USB  set  go  &  negate  ACCa 


use  the  snilMac  macro  16  times 


BlulHac 


0068  901A 


variable  i 
i  =  0 
if  SIGNED 
  .i*ile  i-  «•  15 

•'  ••    .While  i  <  IS 

endif 

.if  i  <  8 
btfss       ACCbLO,  i 
.else 
btfss 
.fi 
goto 
movfp 
addwf 
movfp 
addwfc 
NoAddtv(i) 

rrcf 
rrcf 
rrcf 
rrcf 
bcf 
i  =  i+1 

.endw 

.if  i  <  8 

btfss      ACCbLO,  i 

.else 


ACCbBI,i-8 

NoAdd#v(i) 
ACCaLO , wreg 

ACCdLO 

ACCaHI , wreg 
ACCdHI 

ACCdHI 
ACCdLO 
ACCCSI 
ACCeLO 
__carry 


i^t  low  byte 
;  test  hi^  byte 
;  LSB  is  0,  so  no  need  to  addwf 
; addwf  Isb 
;  addwf  msb 


test  low  byte 
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btfss 


ACCbHI,i-8 


;  t4st  hi^  ^yte 


.fi 


008A  C08F 
OOSB  6018 
008C  OFIE 
008O  6019 
008E  lllF 


0069 

C06E 

goto 

NoAddO 

;  LSB  is  0,  so  no  need  to 

addwf 

006A 

6018 

novfp 

ACCaXiO  ( wreg 

ooeB 

OFIE 

addwf 

ACCdLO 

;aiadwf  Isb 

006C 

6019 

ACCaBI.wreg 

'  ■ 

006D 

lllF 

■•  iaawffc 

ACCdHI'  1'' 

;a€iaif  Bsb 

a:  K 

■  ■  -  i.s. 

006E 

191P 

-  rrcf 

ACCdHI  ■■ 

006F 

191E 

rrcf 

ACCdLO 

0070 

191D 

i'^      1  t3A#n  Oil  c4 

1 9  rrcf 

ACCcHI 

0071 

191C 

rrcf 

ACCcLO 

0072 

8804 

dufcof' 

_carry         '-•>  ' 

0001 

i  =  i+1 

.if  i 

<  8 

0073 

911A 

btfss 

ACCbLO ,  i 

;  test  low  byte 

■  else 

btfss  ACCbHI,i- 

-8           ;  test  high  byte 

.£i 

;■- 

0074 

C079 

goto 

NoAddl 

;  liSB  is  0,  se  no  need  to 

addwf 

0075 

6018 

movfp 

ACCaLO,wreg 

0076 

OFIE 

addwf 

ACCdLO 

;  addwf  IsliK 

0077 

6019 

mov^ 

ACCaKI.wreg 

0078 

lllF 

addwfc 

ACCdHI 

.-addwf 

.          o  NoAddl 

0079 

1  Q1  V 

rrcf 

ACCdBI  -  • 

007A 

191B 

rrtefr^i" 

ACCdLO 

007B 

191D 

rrcf 

007C 

191C 

■-  »re#" 

ACCcLO          •  "^•i 

007D 

8804 

bcf 

_carry 

0002 

i  =  i+1 

.if  i 

<  8  ' 

007B 

92  lA 

btfss 

ACCM«,tJ  '• 

;  t^t  low  byte 

..  ^ 

.else 

.■  f.  d 

btfss  Acetyl,!' 

-8           ;  test  hlE^  £yte 

w-  ■    J.-,^  ■ 

007F 

C084 

■-■  . 

<<Sotb 

HoAdd2 

;  LSB^  0,  so  no  need  to 

addwf 

0080 

6018 

movfp 

ACCaLO.wreg 

0081 

OFIE 

addwf 

ACCdLO 

;  addwf  Isb 

0082 

6019 

movfp 

ACCaHI.wreg 

0083 

lllF 

addwfc 

ACCdHI 

;  addwf  msb 

liOAdd2 

0084 

191F 

rrcf 

ACCdHI 

0085 

191E 

rrcf 

ACCdLO 

0086 

191D 

rrcf 

ACCcHI 

0087 

191C 

rrcf 

ACCcLO 

0088 

8804 

bcf 

_carry 

0003 

i  =  i+1 

.if  i 

<  8 

0OS9 

931A 

btfss 

ACCbLO, i 

;  t»«t  lew  ]ayte 

.else 

•'h  il  ^' 

btfss 


.fi 


goto  NoAdd3 

movfp  ACCaLO.wreg 
addwf  ACCdLO 

movfp  ACCaBI 
addwfc  ACCdHI 


■    ,•  test  byte 

;  LSB  is  0,  so  no  need  to  addwff 
; addwf  Isb 
;  addwf  msb 
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008F  191F 

0090  191B 

0091  191D 

0092  191C. 

0093  8804 
0004 

0094  «43.& 


0095  C09A 

0096  601S 

0097  OVU 
0O»8  «019 

mm  tiiw 

009A  191P 
009B  191E 
009C  191D 
009D  191C 
009E  8804 
0005 

009F  951A 


OOAO  C0A5 
OOAl  6018 
00A2  071E 
0OA3  6019 
00A4  lllF 

OOi^  191F 
00A6  191S 
00A7  i9U) 
00A8  i9ic 
00A9  8804 
0006 

OOAA  961A 


OOAB  COBO 
OOAC  6018 
OOAD  OFIE 
OOAE  6019 
OOAF  lllF 

OOBO  191F 
OOBl  191E 
00B2  191D 
00B3  191C 
00B4  8804 
0007 

OOBS  971A 


00B6  COBB 
00B7  6018 
OOBS  OFIE 
00B9  6019 
OOBA  lllF 


net 

rrcf 
rrcf 
rrcf 
bcf 

i  =  i+1 
.If  1  <  8 

.else 

btfss 

.fi 

goto 
movfp 
addwf 
movfp 
addwfc 
NoAdd4 
rrcf 
rrcf 
rrcf 
rrcf 
bcf 

i  =  i+1 
■    .if  i  <  8 

btfss 
.else 

btfss 

.fi 

goto 
movfp 
addwf 
movfp 
addwfc 
NoAddB 
rrcf 
rrcf 
rrcf 
•  ft/  V  xrot 
bef 
■  d"     i  =  i+1 

.if  i  <  8 
btfss 

.else 

I^fss 

.fi 

goto 
movfp 
addwf 
movfp 
addwfc 
NoAdd6 
rrcf 
rrcf 
rrcf 
rrcf 
bcf 

i  =  i+1 
.if  i  <  8 

btfss 
.else 

btfss 

.£i 

goto 

movfp 

addwf 

movfp 

addwfc 


ACCdHI 

ACCdLO 
ACCcHI 
ACCcLO 
_oar3V 

ACCbLO.l 

ACCbHI,i-S 

NoAddl 

ACCaLO^wreg 

ACCdLO 

ACCaHI.wreg 

ACCdHI 

ACCdHI 

ACCdLO 
ACCcHI 
ACCcLO 
_carry 


ACCbHI,i-8 

NoAddS 

ACCaLOfWreg" 

ACCdLO 

ACCaHl.wreg 

ACCdHI 

ACCdHI 
ACCdLO 
ACCCHI 
ACCctiQ 
_carry 


ACCfaI.O,i 

ACCbBI,l-8 

NoAddS 
ACCaLO , wreg 

ACCdLO 
ACCaHI , wreg 
ACCdHI 

ACCdHI 
ACCdLO 
ACCc^ 
ACCcLO 
_carry 

ACCbLO.i 
ACCbHI,i-8 


NoAdd? 
ACCaLO , wreg 
ACCdLO 
ACCe4II,wre0. 
ACCdHI 


;  test  low  byte 

;  test  high  byte 

;  LS8  is  0,  so  no  need  to  addwf 

•  adduC  'lab 

;ad<^f  msb 


;   test  low  byte 

;    test  high  byte 

;  LSB  is  0 ,  so  no  need  to  addwf 

; addwf  Isb 

;ad(^f  msb 


;  test  low  byte 

;  test  high  byte 

;  LSB  is  0,  so  no  need  to  addwf 

; addwf  Isb 
; addwf  msb 


:  test  low  byte 
;  test  high  byte 

;  LSB  is  0,  SO  no  need  to  addwf 
; addwf  Isb 
;  addwf  msb 
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IMlRoutines 


NdAddV 

TPf    V  : 

OOBB 

191F 

rrcf 

ACCdHI 

ODBC 

191E 

rrcf 

ACCdLO 

OOBD 

191D 

rrcf 

ACCcHl 

OOBE 

191C 

rrcf 

ACCOM) 

OOBV 

emi 

bof 

ooot 

i  =  i+t 

.if  t  « 

JKCKDO ,  i 

;  test  low  ^Tte 

ooco 

90  IE 

btfss 

.fi 

AGGiai,i-8 

;  test  high  byte 

OOCl 

C0C6 

goto 

NoAddS 

;  LSB  is  0,  so  no 

00C2 

6018 

movfp 

ACCaLO , wreg 

O0C3 

OPIE 

addwf 

ACCdLO 

; addwf  Isb 

00C4 

6019 

niovfp 

ACCaHI,wreg 

00C5 

lllF 

addwfc 

ACCdHI 

NoAddS 

00C6 

191F 

rrcf 

ACCdHI 

00C7 

191E 

rrcf 

ACCdLO 

00C8 

191D 

rrcf 

ACCisHI 

00C9 

191C 

ACCcLO 

OOCA 

8804 

bcf 

_carry 

0009 

1  =  i+1 

- 

.if  i  <  8 

btfss 

ACCbLO , i 

;   test  low  byte 

.else 

OOCB 

911B 

btfss 

ACCbHI, i-8 

;  test  high  byte 

OOCC 

CODl 

.fi 

goto 

NoAdd9 

;  LSB  is  0,  so  no 

OOCD 

6018 

ACQ^^iO.wreg 

■  - 

OOCE 

OFIB 

ACCdLO 

,  ;  addwf  Isb 

OOCF 

6019 

movfp  . 

AOCjAHXfWreg 

OOBO 

lllF 

addwfc 

ACCmi 

;  addwf  msb 

NoAdd9 

OODl 

191P 

rrcf 

ACCdHI 

00D2 

191E 

rrcf 

ACCdLO 

00D3 

19  ID 

ItCCOHI 

00D4 

191C 

tiet 

iteccLo 

00O5 

8804 

bcf 

_Garry 

OOOA 

1  =  i+1 

.if  i  <  8 

;, 

btfss  ., 

.,■  ;ft(^fe..iow  Ssfte 

.else 

00D6 

92  IB 

JK5CWI.i-8 

,-   f  -fefjsit-  Hhigh  i^te 

00D7 

CODC 

;   LSB  is  0,   so  no 

00D8 

6018 

A£CaIiO,wreg 

00D9 

OFIE 

addwf 

ACCdLO 

;  addwf  Isb 

OODA 

6019 

movfp 

ACCaHI ,  wreg 

OODB 

lllF 

addwfc 

ACCdHI 

;  addwf  msb 

HoAddlO 

OODC 

191F 

rrcf 

ACCdHI 

OODD 

191E 

rrcf 

ACCdLO 

OODE 

191D 

rrcf 

ACCcHI 

'  ii  ■                    "  ' 

QODF 

191C 

rrcf 

ACCqLO 

OOEO 

3804 

bcf 

_c«fj^ 

vv  £^: 

OOQB 

i  =  i+1 

.if  i  <  8 

btfss 

ACCbLO,! 

;  test  low  byte 

.else 

OOBl 

93  IB 

btfss 

.fi 

ACCbHI, i-8 

i   .}  id^sb  high  by  te 

00E2 

goto 

NoAddll 

;  LSB  is  0,   so  no 

00E3 

6018 

movfp 

ACCaLO, wreg 

00E4 

OFIE 

addwf 

ACCdLO 

; addwf  Isb 

00E5 

6019 

ACCaHI,  wreg 

4'79 


RMiliiiilifMi 


00H6 

lllF 

; addwf  msb 

NoAddll 

00E7 

191F 

rrcf 

ACCdHI 

0OE8 

191E 

rrcf 

ACCdLO 

00E9 

191D 

rrcf 

ACCcHI 

OOEA 

191C 

rrcf 

ACCcLO 

OOEB 

8804 

hot 

_carry 

oooc 

i  =  i+1 

.if  i  B 

btfss 

ACCbLO,i 

tes  t  low  ibi^te 

.SlSQ 

OOEC 

941B 

ACCbHI, i-8 

;  test  high  byte 

.f  i 

OOED 

C0P2 

NoAddl2 

;  LSB  is  0 ,  so  no 

OOEE 

6018 

movf  p 

ACCaLO , wreg 

ooef 

OFlE 

addwf 

ACCdLO 

; addwf  1 sb 

xnovfp 

ACCaHT ,  wreg 

liiF 

addwf c 

ACCdHI 

; addwf  msb 

NoAddl2 

191P 

ACCdHI 

OOFS 

191E 

rrcf 

ACCdLO 

00F4 

191D 

rrcf 

ACCcHI 

OOFS 

191C 

rrcf 

ACCcLO 

om^ 

bcf 

_carry 

OOOB 

i  =  i+1 

*if  i 

btfss 

ACCbLO , i 

J  fesst  low  byte 

00F7 

9S1B 

btfss 

.  f  i 

•  teat  feig^  byte 

00F8 

COFD 

No  Add  1 3 

J  LSB  is  0 1  so  no 

00F9 

6018 

A^^CLLjV^  /  wx 

OOFA 

ftddwf 

OOFB 

6019 

Ulw  V 

*r*wwCMi.x  /  wx 

OOFC 

lllF 

ACCdHI 

OOFD 

191F 

ACCdHI 

OOFE 

191E 

rrcf 

ACCdLO 

ooff 

19  ID 

ACCcHI 

0100 

191C 

rrcf 

ACCcLO 

0101 

8804 

i  =  i+1 

•if  i  <  8 

btfss 

ACCi&O,  i 

;  test  low  byte 

0102 

961B 

btfss 

.  f  i 

ACCtHI*  i-8 

;  test  high  byte 

•    T.QTt    In    n      *m  Tin 

0104 

6018 

0105 

OFIE 

sddwf 

ACCdLO 

*  addwf  Isb 

0106 

6019 

inov  f  p 

ACCaHI / wrsg 

0107 

lllF 

ciddwf  o 

ACCdHI 

*  addwf  msb 

No Add 14 

0108 

191F 

ACCdHI 

0109 

1912 

rrcf 

ACCdLO 

Oi0A 

19lD 

rrcf 

ACCcHI 

01  OB 

191C 

ACCcLO 

OlOC 

8804 

bcf 

carry 

OOOF 

i  =  i+1 

.if  i  <  8 

btfss 

ACCbLO , i 

;   test  low  byte 

01 013 

971B 

;   test  high  byte 

.fi 

OlOB 

C113 

goto 

NoAa^S' 

;  LSB  is  0/  so  no 

OlOF 

6018 

movfp 

ACCaLO, wreg 

0110 

OFIE 

addwf 

ACCdLO  ■ 

; addwf  Isb 

0111 

6019 

movfp 

ACCaHI « wreg 

4-80 


0112  lllP 

0113  191F 

0114  191E 

0115  191D 

0116  191C 

0117  8804 
OQIO 


addwfc  ACOffil  ;addHf  o«b 

NoAddlS  ■      -         .  Ji  i  .  . 

rrcf  ASCdHI  "  U*S/ - 

rrof  ACCdLO  •  *' *»  ■ 

•••'^^"•TWjir-"*''  *'  ■• 

bef  jmmf 

i  =  j*i  v.-»|j_a 

if  SIGNED 

ACCdHI 


rrcf 
rrcf 


bef 
endlf 


ACCdLO 
_cany 


0118  0002 


if  SIGNED 

btfss  si^.HSB 
cetum 

else 

endif 


Double  Precision  Division 
(  Optimized  for  Code  :  Looped  Code  ) 

*******************************************************************, 
DlvlsfaiP  ^iMi^ifiBI fei^J  /  JISCG»tl6'Mts) ACCb(16  bits)  with 

Remainder  in  ACCc  (16  bits) 

(a)  Load  the  Denominator  in  location  ACCaBI  &  ACCaLO  (  16  bits  ) 

(b)  Load  the  Numerator  In  location  ACCbHI  £  ACCbLO  (  16  bits  ) 
(o)  CALL  D_div 

(d)  The  16  bit  result  is  in  location  ACCbHI  &  ACCbLO 

(e)  The  16  bit  Remainder  is  in  locations  ACCcHI  &  ACCcLO 

Performance  :  '■' 
WagjSBtt  Mtoiory    r'- 31  (DNSIOIED) 
39  (SIGNED) 

Clock  cyc]i|w  i^^-im-  MiSiaiED  :  excluding  CAU.  «  RETURN) 
I  Ma^S^aoiffiD  :  excluding  CALL  t  RETURN) 

MOTE  : 

The  performance  specs  are  for  Unsigned  arithmetic  (  i.e, 
l^tb  >8IGNED  equ    fKUSE  ')  .  ---- 

Double  fkneialeit  mvlde  (  16/16  ->  16  ) 

(  ACCb/ACCa  ->  ACCb  with  remainder  in  ACCc  }  :  16  bit  output 
with  auotiont  in  ACCb  (ACCbHI,  ACCbLO)  and  Remainder  in  ACCc   ( ACCcHI,  ACCcLO )  . 

B/A  s  {#  +  (R)/A 
or  B  =  A*Q  4  R 


Numerator 
Denominator 

Quotiont  (Integer  Result) 


«fe»:e  B 
A 
Q 
R 


Note  :    MMk  £ar  ZERO  Demoiniiutor  or-MaMiratoc  is  nob  perfornht-" 
Jk  tlSSllb  Denominator  will  produce  -i^^^rreet  resulta 

SIGNED  Arithmetic  ; 

In  case  of  signed  arithmetic,   if  either 


^^^^ 


4^1 


mmmmmm 


0119  8404 
OllA  8504 


OllB  2922 
one  8422 
OllB  29tD 
OllB  291C 
OllF  291B 
0120  291P 


0121  9804 

0122  IBIA 

0123  IBIB 

0124  IBIC 

0125  IBID 

0126  6019 

0127  041D 

0128  9204 

q^s  ci?ej.,ic 
012A  eots 

012B  041C 

012C  9004 
012D  C133 

01^  6018 
012F  OSIC 

0130  68i9  -  < 

0131  03 10 

0132  8004 

0133  IBIE 

0134  IBIF 

0135  1722 

0136  C121  -  ■ 


0137  OODi,. 


numerator  or  denominator  is  negative,  then  both  Q  &  R  are 
represented  as  negative  numbers 

-(B/A)  =  -(Q)  +  (-R)/A 
or  -B  =  (-Q)*A  +  (-R) 

******************************************************************* 


set  no  auto-lncimene  for  fscO 


D_divS 

bsf 

_fs0 

bsf 

_£sl 

If  SIONS0 

CAU. 

endif 

clrf 

count 

bsf 

count , 4 

alrt 

.ACCcBI 

clrf 

ACCcLO 

clrf 

ACCdLO 

clrf 

ACCdHI 

;    Looped  code 

dli^^<o^P 

Tact 

—Carry 

rlcf 

ACCbLO 

rlcf 

Accbaii 

rlcf 

ACCcLO 

rlcf 

ACCcHI 

movfp 

ACCaHI ,  wreg 

subwf 

ACCcHI, w 

btfss 

_z 

gotp 

notz 

movfp 

ACCaLOfWreg 

subwf 

ACCcLO, w 

notz 

btfss 

_carry 

goto 

nosub 

subca 

movfp 

ACCaLO.wreg 

subwf 

ACCcLO 

movfp 

ACCaHI,  wreg 

subwfb 

ACCcHI 

bsf 

_carry 

nosub 

rlcf 

ACCdLO 

rlcf 

ACCdHI 

decfsz 

count 

goto 

divLoop 

if  SIGNED 

btfss 

sign, MSB 

return 

movlw 

ACCcLO 

movwf 

fsrO 

call 

negate 

movlw 

ACCdLO 

movwf 

fsrO 

call 

negate 

retiii^ 

else 

return 

endaf 

;  set  count  =  16 


; check  if  a>c 


if  msb  equal  then  check  Isb 


carry  set  if  c>a 
if  c  <  a 


c-a  into  c 


; shift  a  1  into  d  (result) 


*****ik*«dr  ***************  *  *******************  *********************** 

Double  Precision  Division 
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Math  Routines 


(  Optimized  for  Speed  :  straight  Line  Code  ) 


************** 


Division  :  ACCbdS  bits) 


/  ACCa(16  bits)  ->  ACCb(16  bits)  with 
'         Ramalndor  in  ACCc  (16  bits) 


(a)  Load  the  Denisminatok  in  location  ACCaKI  £  ACGaLO  (  16  bits  ) 

(b)  Load  the  Numerator  in  location  ACCbHI  £  ACCbLO  (  16  bits  ) 

(c)  CALL  D_div 

(d)  The  16  bit  result  is  in  location  ACCbHI  &  ACCbLO 

(e)  The  16  bit  Remainder  is  in  locations  ACCc^  £  ACCcLO 


B/A  =  (Q)  + 
9  w  **Q  +  R 


(R)/A 


mmerator 
Dencoiinator 

Quotient  (Integer  KAsult) 
Remainder 


90tB  ;     Check  for  ZERO  Denominator  or  Numerator  is  not  perfonned 
A  ZERO  Denominator  will  produce  incorrect  results 


at  s'lcajED  Arithmetic  : 

In  case  of  signed  arithmetic i 

numerator  or  denominator  is  negative,  then  bot^  Q 
r^resented  as  negative  numbers 


if  either 
&  R  are 


-(B/A)    =  -(2) 
or  -B  =    (-Q)  *A  + 

•  ai:-  - 
;  oxnance  : 

;  Program  Memory 

Clock  Cycles 


+  (-R)/A 
(-R) 


:    325  (DNSIGNED) 

354  (SIGNED) 
:   250   (UNSIGNED  :  excluding  CALL  &  RETURN) 
:  260   {SZasm  :  excluding  CALL  &  RETURN) 


•  *■*.*  ********  ************■******#*#*****  **.*****!****.. 

division  macro  ' ' '  -. 

divMac  MACRO 
-'.^variable  i         ^  ■  -  ■ 


bef 

_oarry 

rlef 

ACCbLO 

rlcf 

ACCbHI 

rlcf 

ACCcLO 

rlcf 

ACCcHl 

ACCaHI  ,wreg 

subwf 

ACCcHI.W 

; check  if  a>c 

btfss 

_z 

goto 

not2»v(i) 

movfp 

ACCaLO.wreg 

subwf 

ACCcLO , w 

;if  msb  equal  then  check  Isb 

notz#v ( i ) 

btfss 

_carry 

;  carry  set  if  OS 

goto 

nosub#v  ( i ) 

;  if  c  <  a 

subcatv(i) 

movfp 

ACCciLO.wreg 

;c-a  into  c 

1.  lei 

«ubwf 

ACCcLO 

movfp 

ACCaHI, W»9 

subwfb 

ACCcHI 

bsf 

_carry 

;  shift  •  <t  biSo  d  (result) 

nosub#v  ( i ) 

rlcf 

ACCdLO 

rlcf 

ACCcffil 

i=i+l 

.m^o^-ij*         1*2'  (- 

■ .  ii  -1' 

Mntanilitton^M^fiiaSMaiiHviiniHiW 


4^ 


. ******************************************************************* 

;  Double  Precision- Divide  (  lSyi6  ->  16  ) 

■  ;.    ,  (  ACCb/ACCa  ->  ACCb  with  remainder  in  ACCc  )    :   16  bit  output 

;  with  Quotient  in  ACCb  (ACCbHI, ACCbLO)  and  Remainder  in  ACCc 

ACCcHI.iWXcLO) . 

; 

;  tKJfrBs  Before  calling  this  routine,  the  user  should  make  sure  that 
;  the  Numerator  (ACCb)  is  sireater  than  Dencminator  (ACCa) .  If 

;  the  case  is  not  true,  -the  user  should  scale  either  Numerator 

or  Denominator  or  both  such  that  Numerator  is  greater  than 
the  Denominator. 


,^  **************  ******  ********* 

D_divP 


************************ 


if  SI 
movfp 
xorwf 
movwf 
btfss 
goto 


ACCaHI , wreg 
ACCbHI, w 
sign 

ACCbHI, MSB 

chek_A_MSB_DIV 


if  HSB  set  go  &  negate  ACCb 


negHac     ACCbLO ,  ACCbHI 

oheKJJ«SB_DIV 

btfss  ACCaHI.HSB 
goto  continue_J5IV 
ne^fac    ACCaLO,  ACCaHI 

oidif 


if  MSB  set  go  £  negate  ACCa 


0138  291D 
013#  SSilC 
013A  291B 
013B  291F 


0000 
0000 


continue_DIV 

clrf  ACCoHI 
•  cl>rf  •       j^COcbO  • 
clrf  ACCdLO 

clrf  ACCdHI 

straight  line  code  :  using  the  macro  divUac 

divMac 
variable  i 

i  =  0 

.tiiile  i  <  16 


lb  us  1  ' 


bcf 

_carry 

rlcf 

ACCbLO 

rlcf 

rlcf 

ACCc^ 

rlcf 

ACCcHI 

movfp 

ACCaHI,  wreg 

subwf 

ACCcHI, w 

; check  if  a>c 

btfss 

_z 

goto 

notz#v(i) 

movfp 

ACCaLO ,  wreg 

subwf 

ACCcLO.W 

;if  msb  equal  then  check  Isb 

notztv(i) 

btfss  _oarry 

;carzy  set  if  c>a 

goto 

nosubtv(i) 

;  if  c  <  a 

subca#v(i) 

movfp  ACCilLO 

wreg     ;c-a  into  c 

subwf 

ACCcLO 

movfp 

ACCaHI , wreg 

subwfb 

ACCcHI 

bsf 

_carry 

; shift  a  1  into  d  (result) 

nosub#v(i) 

rlcf  ACCdLO 
rlcf  ACCdHI 
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013C 

8804 

bcf 

_carry 

013D 

IBIA 

rlcf 

ACd&O 

013E 

IBIB 

rlcf 

ACOBI 

013F 

IBIC 

rlcf 

ACCcLO 

0140 

IBID 

rlcf 

ACCoHI 

0141 

6019 

movfp 

,wr^ 

0142 

04  ID 

su}wf 

ACCCHI, 

'W 

;^heck  if  a>c 

0143 

9204 

btfss 

_z 

0144 

C147 

goto 

notzO 

0145 

6018 

movfp 

ACCaLO ,  wreg 

0146 

041C 

subwf 

ACCcLO, w 

; if  msb  equal  then  check  Isb 

0147 

9004 

notzO 

btfss 

_carry 

;  carry  set  if  oa 

0143 

C14E 

nosubO 

;  if  c  <  a 

0149 

6018 

inovfp 

ACCaLO, 

,w]:eg 

;  c— a  into  c 

014A 

051C 

I*  .'  1  -Uii^  ■ 

Aubwf 

ACCcLO 

014B 

6019 

movfp 

ACCaHI, 

rwreg 

■  ■  ■' 

014C 

031D 

subwfb 

ACCcHI 

014D 

8004 

bsf 

_carry 

y  yi^4  fi-  -a  1  into  d  (result) 

014E 

IBIE 

nosubO 

rlcf 

ACCdLO 

014F 

IBIF 

rlcf 

ACCdHI 

0001 

i   m  1+1 

0150 

8804 

bcf 

_carry 

0151 

IBlA 

rlcf 

ACCbLO 

0152 

IBlB 

rlcf 

ACCbHI 

0153 

IBlC 

rlcf 

ACCcLO 

0154 

IBID 

rlcf 

ACCcHI 

0155 

6019 

jnovfp 

ACCaHI, 

,wreg 

0156 

04  ID 

ACCCHI, w 

;cHeGk  if 

0157 

9204 

btfss 

0158 

C15B 

Sfoto 

notzl 

0159 

6018 

inovfp 

ACCaLO ,  wreg 

015A 

04 IC 

subwf 

ACCcLO, w 

;if  msb  equal  then  check  Isb 

015B 

9004 

btfss 

_carry 

; carry  set  if  c>a 

015C 

C162 

90  to 

^osubl 

015D 

6018 

Inovfp 

ACCaLO, 

r  wrfi®  < 

,        • @— a  into  c 

015E 

051C 

f    .,    '•If  l^e . 

subwf 

ACCcLO 

015F 

6019 

movfp 

ACCaHI , 

•  wrw. 

0160 

031D 

subwfb 

ACCcHI 

0161 

8004 

bsf 

_carry 

•shift  a  1  into  d  (result) 

0162 

IBIE 

nesubl 

rlcf 

ACCdLO 

1 

0163 

IBIF 

rlcf 

ACCdHI 

0002 

i  -  i*l 

0164 

8804 

bcf 

_carry 

0165 

IBlA 

rlcf 

ACCbLO 

0166 

IBlB 

rlcf 

ACCbHI 

0167 

IBlC 

rlcf 

ACCcLO 

0168 

IBID 

rlcf 

ACCcHI 

0169 

6019 

BOVfp 

ACCaHI, 

.wreg 

016A 

041D 

subwf 

ACCcHI , 

iW 

;ehee]c  if  a>o 

016B 

*30# 

btfss 

_z 

016C 

C16F 

goto 

notz2 

r                 ~  -                                                      6  •■  1- 

016D 

6018 

inovfp 

ACCaLO, 

wreg 

oieE 

041C 

subwf 

ACCcLO, 

w 

;if  msb  equal  then  check  lab 

oieF 

9004 

notz2 

btfss 

_carry 

;  carry  set  if  oa 

0170 

C176 

goto 

nosub2 

;  if  c  <  a 

0171 

6018 

aubca2 

movfp 

ACCaLO, 

wreg 

;c-a  into  c 

0172 

051C 

subwf 

ACCcLO 

0173 

6019 

inovfp 

ACCaHI ,  wreg 

0174 

031D 

subwfb 

ACCcHI 

0175 

8004 

bsf 

_carry 

MiMaH  a  l  mm  d  (mmt) 

0176 

IBlB 

nosub2 

rlcf 

ACCdLO 

0177 

IBIF 

ACCdHI 

0003  i  =  i+1 


4^ 


0178  8904 

bcf 

_carry 

0179  IBIA 

rlcf 

ACCbLO 

017A  IBIB 

rlcf 

ACCbHI 

017B  IBIC 

rlcf 

ACCcLO 

017C  IBID 

rlcf 

ACCcHI 

017D  6019 

movfp 

ACCaHl«wreg 

017E  041D 

subwf 

ACCCSI.W 

; check  if  a>c 

017F  9204 

btfss 

_z 

0180  ei83 

goto 

aotz3 

0181  £018 

mov^ 

ACCeiLO.vrreg 

0182  041C 

subwf 

ACCcLO, w 

;  if  msb  equal  then  check  Isb 

0183  9004 

notz3 

btfss 

_carry 

; carry  set  if  oa 

0184  CIBA 

goto 

nosubS 

;  if  c  <  a 

0185  6018  ■ 

subca3 

movfp 

ACCaLO ,  wreg 

; c— a  into  c 

0186  051C 

sulswf 

ACCcLO 

018?  6019 

movfp 

ACCaHI.vnreg 

aiaft  031S 

subwfb 

ACCdHI 

0189  8004 

bsf 

_carry 

.-shift  a  1  into  d  (result) 

018A  IBlB 

nosub3 

rlcf 

ACCdLO 

018B  IBIF 

rlcf 

ACCdHI 

i  =  i+1 

018C  8804 

bef 

_cany 

018D  IBlA 

xlat 

ACCbLO 

018E  IBlB 

rlcf 

ACCbBI 

018F  IBlC 

rlef 

ACCcLO 

0190  IBID 

rlcf 

ACCcHI 

0191  6019 

movfp 

ACCaHI , wreg 

0192  041D 

subwf 

ACCcHI , w 

; check  if  a>c 

0193  9204 

btfss 

_z 

0194  C197 

notz4 

019S  6018 

movfp 

ACCaLO ,  ur€^ 

0196  041C 

subwf 

ACC<SLO,w 

;  if  msb  equal  then  check  lafb 

0197  9004 

notz4 

btfss 

_carry 

; carry  set  if  c>a 

0198  C19E 

goto 

nosub4 

;   if  c  <  a 

0199  6018 

subca4 

movfp 

ACCaLO , wreg 

;c-a  into  c 

01%  osic 

subwf 

ACCcLO 

019B  eoi9 

movfp 

ACCaHI  1  wreg 

019C  031D 

subwfb 

ACCcHI 

019D  8004 

bsf 

_caEry 

;  shift  a  1  into  d  (result) 

019E  IBIG 

nosub4 

rlef 

ACCdLO 

019F  IBIF 

rlcf 

ACCdHI 

0005 

i  =  i+1 

OlAO  8804 

bcf 

_carry 

OlAl  ISIA 

rlcf 

ACCbLO 

01A2  IBlB 

rlcf 

ACCMII 

01A3  IBlC 

rlcf 

ACCcLO 

01A4  IBID 

rlcf 

ACCcHI 

01A5  6019 

movfp 

ACCaHI ,wreg 

01A6  041D 

subwf 

ACCcHI ,W 

;  check  if  a>c 

01A7  9204 

btfss 

_z 

OlAS  miB 

gofeo- 

notzS 

01A9  6018 

movfp 

ACCaLO, wreg 

OlAA  041C 

subwf 

ACCaLO, w 

; if  msb  equal  then  check  lab 

OlAB  9004 

notzS 

btfss 

_carry 

;  carry  set  if  oa 

OlAC  C1B2 

goto 

nosubS 

;  if  c  <  a 

OlAD  6018      '         ~  • 

st2]x:a5 

movfp 

ACCaLO,  wreg 

;c-a  into  c 

OlAE  051C 

subwf 

ACCcLO 

ovm  WIS 

movfp 

ACCaHI,  wreg 

0186  031D 

Accem 

OlBl  8004 

bsf 

_ear*y 

.-shift  a  1  into  d  (result) 

01B2  IBIE 

nosubS 

ricf"- 

01B3  IBIF 

rlcf 

JkCCdBI 

0006  ' 

i  =  i+1 

01B4  8804 

bcf 

_carry 

-6qi»BI«ep|ji%i4  ei994MfcrochlpTeohrnkigylneolpa(Bted 

4-86 


01B9 

6019 

inov  f  ^ 

ACCaJiZ ,  wr€g 

'  ■  i.  : '  i 

041D 

ACCcHI / w 

*  ch6c)c  xf  a>c                       -  ■'■  ^ 

OIM 

9204 

OlBC 

CXBP 

■T. 

OIBD 

6&X8  »"'*->,. 

OXBE 

04XC 

OIBF 

9004 

notz 

btfss 

OXCQ 

CXC6 

no sub o 

;  if  c  <  a 

OXCl 

OUlO 

succai6 

inovf  p 

ACCdXiO  /  wro^ 

f  c^a  xiito  c 

01.C2 

05XC 

subitff 

01C3 

60X9 

WW 

01C4 

subwfb 

ACCcHI 

01C5 

8004 

fasf 

_caj:ry 

rshift  a  -It-'fecto  d  (rasuXt)  • 

01C6 

xbxe 

iiosub6 

01C7 

0007 

1  =  i+x 

01C8 

8804 

 ca.rry 

01C9 

XBXA 

rlc£ 

4'- 

OIGA 

XBXB 

rlcf 

ACCb^X 

OICB 

XBXC 

irlcf 

ACCcLO 

Dice 

XBXD 

rlcf 

ACCcHI 

OICD 

60X9 

rnovfp 

ACCaHX , wr6g 

DICE 

04XD 

subwf 

AC^cnX ,  W 

fCSSACK  XX  a>e 

OICF 

9204 

btfss 

 z 

OlDO 

CXD3 

g'O'^p^  '  • 

iiotal7 

OlDl 

Riovfp 

ACCaliO,wr69  . 

011^ 

04XC 

f. 

subwf 

ACCcItO ,  w 

;  if  msb  e<}uaX'*  tban  citdCK  Xsb 

01D3 

9004 

xiotz7 

btfss 

 carry 

;  carry  set  i  £  Oa 

01D4 

CXD& 

goto 

nosub7 

;  x£  c  <  A  3 

OX^S 

60X8 

movf  p 

ACCaLO , wreg 

;c— a  Into  c 

0XD6 

05XC 

subwf 

ACCdiO 

0XD7 

60X9 

movfp 

-1  - 1 ' '  - 

0XO8 

03  XD 

I.  0-„.    I    >  :i 

subwfb 

XCOMl 

0XD9 

8004 

bsf 

_caifty 

;shl£t  a  1  into  d  (result' 

OXDA 

xbxe 

fiosuib? 

rlcf 

ACCcBLO        • '  - 

OXDB 

XBXF 

rlcf 

ACCdHI 

0008 

i  =  i+X 

1 

J. .  i 

■* 

O  X  DC 

8804 

bc£ 

_carry 

XBXA 

rlcf 

OXD& 

XBXB 

rlcf 

ACCcsiI 

OXDF 

XBXC 

rlcf 

ACCcLO 

OXEO 

XBXD 

- 

a. 

■ 

rlcf 

ACCcHI 

OXEX 

60X9 

movfp 

ACCaHI , wrsg 

0XE>2 

04  XD 

subwf 

At.UClli.  ,  W 

; CQ#CK  if  a>c 

btflBS 

0XE4 

CXE7 

•  t7      '  r 

90to 

0XE5 

60X8 

movfp 

ACCsTiO  f  wro9 

OXE€ 

04  XC 

subwf 

ALCCLiU ,  W 

;if  msb  e<3ual  txien  qrock  Xsb 

0XB7 

9004 

btfss 

;  carry  set  x£  oa 

0XB8 

01  EE 

goto 

nosubS 

;  if  c  <  a 

01E9 

6018 

sutx»8 

inovf  p 

( c~a  into  c 

subwf 

ACCcLO 

OX^ 

60X9^ 

movfp 

I  -imJfaJanl.  ( wr  09 

t .  - 

OXEC 

031D 

subwfb 

XCC<3II        t  -u. 

8004 

bsf 

ima.XTx-  a  X  into  a  |jr«iuici-    '  -— - 

OXBE 

XBXB 

nosubS 

rlcf 

ACCdLO 

OXEF 

XBXF 

f  Icf 

0009 

i  =  i+1 

OlPO 

8804 

bcf 

^carry 

OlFl 

XBIA 

rlef 
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aiF2  IBIB 

rlcf 

ACCbBI 

01F3  IBIC 

rlo£ 

ACCc^ 

01F4  IBID 

rlcf 

ACCcSI 

01F5  6019 

inovfp 

ACCaHI ,wreg 

OlFS  041D 

subwf 

ACCcHI.W 

;  check  if  a>c 

01F7  9204 

btfss 

01P8  CIFB 

goto 

notz9 

z 

01F9  6018 

movfp 

ACCaLO.wreg 

H 

OlFA  041C 

subwf 

ACCcLO.w 

;if  msb  equal  then 

check  litSk 

oim  mat  »r.o, 

TT' f1 1«)j9«9' 

btfss 

_earry 

;carry  set  if  c>a 

e 

OISC  C202 

goto 

nosab9 

;  if  c  <  a 

OlFD  6018 

suhcaS  :. 

inovfp 

ACCaLO.wreg 

;c-a  into  c 

OlFE  051c 

subwf 

ACCcLO 

OlFF  6019 

movfp 

ACCaHI,  wreg 

0200  031D 

subwfb 

ACCcHI 

0201  8004 

bsf 

_carry 

; shift  a  1  into  d 

[result) 

0202  lUft.-usei 

vs»vlb9 

rlcf 

'  ACGdLO 

0203  IBIF 

rlcf 

OOOA 

i  =  1+1 

0204  8804 

bet 

_carry 

0205  IBIA 

rlcf 

ACCbLO 

0206  IBlB 

rlcf 

.  ACCbHI 

0207  IBlC 

rlcf 

I  iACCcLO 

0208  IBID 

rlcf 

•  ACGcHI 

OSOt  $019 

inovfp 

ACC^I.wreg 

02  OA  04  ID 

subwf 

ACCcHI.W 

; check  if  a>c 

020B  9204 

btfss 

_2 

020C  C20F 

goto 

notzlO 

020D  6018 

inovfp 

ACCaLO.wreg 

020E  041C 

subwf 

ACCoLO.W  _  ' 

;if  msb  equal  then 

check  l)® 

I- 

020P  9004 

notzlO 

btfss 

_carrY 

; carry  set  if  e>a 

0210  C216 

goto 

flosublO 

;  if  c  <  a 

0211  6018 

subpalO 

movfp 

ACCaLO.wreg 

;c-a  into  c 

0212  OSIC 

subwf 

ACCcLO 

0213  6019 

movfp 

ACCaHI . wreg 

0214  031D 

subwfb 

ACCcHI 

0215  8004 

bsf 

_carry 

;shift  a  1  into  d 

(result) 

0216  IBIE 

nosublO 

rlcf 

ACCdLO 

0217  IBIF 

rlcf 

ACCdHI 

OOOB 

i  =  i+1 

0218  8804 

bcf 

_carry 

0219  IBlA 

rlof 

ACCbLO 

021A  IBlB 

rlcf 

ACCbHI 

02  IB  IBlC 

rlcf 

ACCcLO 

021C  ISIB 

rlcf 

ACCCHI 

021D  6019 

movfp 

ACCaSI.wreg 

021E  041D 

subwf 

ACCoBI.w 

;  check  if  a>c 

021F  9204 

btfss 

_z 

0220  C223 

-  A 

goto 

notzll 

0221  6018 

movfp 

ACCaLO , wreg 

0222  041C 

subwf 

ACCcLO. w 

;if  msb  equal  then 

chec)c  Isb 

0223  9004 

BOtKll 

btess 

;  carry  set  if  c>a 

0224  QS^TiM^t: 

i.p».i:f  laf 

goto 

'  ISOMBbll 

;  if  c  <  a 

0225  6018 

movfp 

AI3£!aIiO,wreg 

;c-a  into  c 

0226  051C 

subwf 

<' ACCcLO 

0227  6019 

movfp 

ACCaHI,  Wl^i, 

0228  031D 

subwfb 

ACCoHl             :  .. 

0229  8004 

bsf 

_czu:ry 

; shift  a  1  into  d 

(result) 

022A  IBIE 

nosubll 

rlcf 

iACCgEiO   - . 

1 '  I 

022B  IBIF   V  • 

rlcf 

ACCiffil 

.<- 

OOOC 

i  =  i+1 

022C  8804 

bcf 

_carrY 

022D  IBlA 

rlcf 

ACCbLO 

022E  IBlB 

rlof 

ACCbHI 

022F  IBlC 

rlof 

ACCcLO 

0230  IBID 

rlcf 

ACCcHI 

JMhaaiitintd 


0231 

6019 

movfp 

ACpaHI.wreg 

0232 

04  ID 

subwf 

ACCi^I.w 

.•check  if  a>c 

0233 

9204 

_z 

0234 

C237  '.- 

notzl2 

0235 

6018 

movfp 

ACCaLOfWreg 

0236 

041C 

subwf 

ACCcLO.w 

;if  msb  equal  then 

check  Isb 

0237 

9004 

notzl2 

btfss 

_carry 

; carry  set  if  oa 

0238 

C23E 

goto 

nosubl2 

;   if  c  <  a 

0239 

6018 

subcal2 

movfp 

ACCaLO.wreg 

;c-a  into  c 

02 3A 

OSIG 

subwf 

ACGOiO  L 

023B 

601*  . 

nov^ 

AOCaHI.wreef:  . 

i '.. 

023C 

031D 

sulwfb 

ACCcSI 

02 30 

8004 

bsf 

^carty      i- . 

jshift  a  1  into  d 

(resulC) 

023B 

IBIE 

nosubl2 

slef 

ACCdLO 

IBIF 

ACOffil 

GOOD 

i  =  i+1 

0240 

8804 

bcf 

_carry  i 

0241 

IBIA 

rlef 

ACCt£X3 

0242 

IBIB 

rlcf 

ACCbHI 

0243 

IBIC 

rlcf 

ACCcLO 

0244 

IBID 

rlcf 

ACCcHI 

0245 

6019 

movfp 

ACCaHI.wreg 

^  " 

0246 

041D 

subwf 

ACCcHI, w 

;  check  if  a>c 

0247 

9204 

btfss 

_z 

0248 

goto 

0249 

6018 

movfp 

ACCaLO,wreg 

02  4A 

041C 

subwf 

ACCcL0,W7i,-  - 

;if  mids  eciual  tdiesi 

check  Isb 

024B 

9004 

notzl3 

btfss 

_carry 

; carry  set  if  c>a 

024C 

C252 

goto 

nosubl3 

;    if  c  <  a 

024D 

6018 

subcal3 

movfp 

ACCaLO,wreg 

;c-a  into  c 

0248< 

vfSl®,  - 

.l«u29w£ 

r  ASGcIiO    -  1 

024F 

6019 

IDOV^P 

ACCaHI.wreg 

0250 

031D 

subwfb 

ACCcHI 

0251 

8004 

bsf 

_carry 

;  shift  a  1  Into  d 

(result) 

0252 

IBIE 

nosiibl3 

rlcf 

ACCdLO 

0253 

IBIF 

rlcf 

ACCdHI 

OOOE 

i  =  i+1 

^   .     •  ii.  •  7^  .           .  :   '■"  . 

a.r' 

0254 

8804 

■iili-'    \-.-    -.-   ■  ":i-r 

bcf 

_carry 

0255 

IBlA 

\    ^            . ■=  -   o   _  -f 

rlcf 

ACCbLO 

0256 

IBlB 

-        '     "■    t   f    "  ■    -,"*  "i" 

rlcf 

ACCbHI 

0257 

IBlC 

rlcf 

ACCcLO 

0258 

IBID 

rlcf 

ACCcHI 

0259 

6019 

movfp 

ACCaHI ,  wreg 

02  5A 

04m  J 

;e^ck  if  a>c 

025B 

9204 

btfss 

_2 

025C 

C25F 

goto 

notzl4 

0250  «018 

.  movfp 

ACCaLO.wreg 

025E 

041C 

subwf 

ACCcLO, w 

;if  msb  equal  then 

check  Isb 

025F 

9004 

notzl4 

btfss 

_carry 

; carry  set  if  oa 

0260 

C266 

goto 

nosubl4 

;   if  c  <  a 

0261 

6018 

movQp 

i  ;  .  |c-a  into  c 

0262 

051C 

subwf 

ACCcLO 

0263 

6019 

movfp 

ACCaHI, wreg 

0264 

031D 

subwfb 

ACG<ffiI  - 

0265 

8004 

bsf 

—Carry 

; shift  a  1  into  d 

(result) 

0266 

IBIE 

nosubl4 

rlcf 

ACCdLO 

0267 

IBIF 

rlcf 

Accaii 

GOOF 

3.:-:-  •  tii  .  t.  S  »*1    ■  -    tr.  ■.  .  : 

/     7  0    C    3 '  -  r 

0268 

8804 

bcf 

_earry 

0269 

IBlA  ' 

'rlef- 

ACebLO  • 

02  6A 

IBlB 

AeeisHi 

02  6B 

IBlC 

• rlet- 

026C 

IBID 

rlcf 

ACCcHI 

02  6D 

6019 

movfp 

ACCaHI , wreg 

02  6E 

041D 

subwf 

ACCcHI, w 

; check  if  a>c 

4-89 


026F  9204 

btfas 

0270  C273 

goto 

LiaaKzlS 

0271  6018 

ACCaIiO,«nreg 

(■•  ■ 

0272  041C 

aubwf 

ACCcLOfW 

.■If  msb  equal  then  eiheclc  3^ 

0273  9004 

nets 15 

btfss 

carry 

; carry  set  if  c>a  - 

0274  C27A 

goto 

nosublS 

;  if  c  <  a  - 

0275  6018 

movfp 

ACCaLO ,  wreg 

;c-a  into  c 

0276  051C 

subwf 

ACCcLO 

0277  6019 

movfp 

ACCaHl , wreg 

0278  031D 

sufawfb 

AGCc^I 

0279  8004 

bsf 

_c«rry 

;  shift  a  1  into  d  (result)  > 

027A  IBIB 

nosublS 

rlcf 

0278  IBIR^ 

rlof 

,'ftecdtHi 

0010 

i  =  1+1 

027C  027C 


if  SIGNED 


027e  0002 


btfss 

return 

negttac 

negHac 

return 

else 

return^ , 


sign, MSB 

ACCcLO,  ACCcHI 
ACCdLO.ACCdHI 


endif 


negate  (ACCc.ACCd) 


*******************************************************************)• 
Square  Root       NMrtoB  R^hson  Method  ' 

)        This  routine  confutes  the  square  root  of  a  16  bit  number  (with 
;     low  byte  in  NuinLo  &  high  b/te  in  NmnHi  }  .  After  loading  NuxnLo  & 
;    NumHi  with  the  desired  numbsz  i^ose  square  root  is  to  be  ccrag^tedt 
;    branch  to  location.  Sqet  <  by-  '■SOTO    Sqrt*  ) .  *  CALL    Sqrt'  c&&i!io£ 
be  issued  because-  th*  Sqrt  iunetion  nutkes  calls  to  Hath  routines 
and  the  stack  is  ooi^letely  used  up. 

The  result  =  sqrt(N\unHi,NumLo)  is  returned  in  location  SqrtLo. 
The  total  number  of  iterations  is  set  to  ten.  If  more  iterations 
are  desired,  change  *LupCnt  equ  .10'  to  the  desired  value.  Also, 
the  initial  guess  value  of  the  square  root  is  given  set  as 
input/2  (  in  subroutine  "init*  }.  tbs  user  may  modify  this 
if  a  better  initial  approximation  value  is  known.  A  good  initial 
guess  will  help  the  algorithm  converge  at  a  faster  rate  and  thus 
less  number  of  iterations  required. 

Two  utility  math  routines  are  used  by  this  program  :  D_divS 
and  D_add.  These  two  routines  are  listed  as  seperate  routines 
under  double  precision  Division  and  double  precision  addition 
respectively. 

Note  :  If  square  reol!,~o£  an  8  bit  number  is  desired,  it  is  jptebtSAy 
bettmz  to  have  a  table  lo<^  stdune  rather  than  using  numerical' 
metbads. 

This  method  is  coaoi^tationally  quite  intensive  and 
slow,  but  very  accurate  ra^tfae  convergence  rate  is  high 

Performance  >  "        i  > 

Program  Memory  ;  22  (excluding  D_divS  subroutine) 

Clock  Cycles  :  3000   (approximately , with  10  iterations) 

The  tof  cycles  depends  on  Number  of  Iterations  Selected. 
In  a  lot  of  cases  5  or  less  iterations  may  be  sufficient 


Newt6n>Raphson  Method  .   '  - 

*************************************************************       -  -  >;. 


027D  E28B 


Sqrt 

call  Sqrtlnlt 


compute  initial  sqrt  =  Num/2 


e  19M  MteRship  Teehnatogymaoqieratad 


lyii^Poulifii^ 


if  MODI 

3_FAST 

027B 

7A24 

movfp 

027P 

7B25 

movfp 

NQinHi^ACCkKi 

else 

movfp 

NumLo , wreg 

movwf 

ACCbLO 

movfp 

NumHi , wreg 

movwf 

ACGbHI 

■ntti 

0280 

E119 

call 

;  double  precision  division 

;  double  precision  addit|. 

0281 

601E 

r,.  movfp 

ACCdLO , wreg 

;  ACCd  +  ACCa  ->  ACCd 

0282 

0F18 

addwf 

ACCaLO 

;  addwf  1^ 

0283 

601F 

movfp 

ACCdHI.wreg 

02  S« 

1119 

; addwf  msb 

;  now  divide  by  2 

0285 

8804 

_carry 

0236 

1919 

ACCaHI 

0287 

1918 

rrcf 

ACCedJO  ^ 

0288 

1726 

decfsz 

iterCnt 

02  8  9 

C27E 

goto 

028A 

0002 

return 

;  End  S<^t 

Sgrtlnit 

02 8B 

BOOA 

movlw 

_LUPCNT 

028C 

0126 

movwf 

iterCnt 

J  seti  nunibex  of  it^ratiions             ■  r 

if  MODE_FAST 

028D 

7925 

mov^ 

NumHi , ACCaHI 

028E 

7824 

movfp 

NiimLo,  ACCaLO 

else 

movfp 

NuxnHi ,  wreg 

movwf 

ACCaHI 

movfp 

NumLo , wreg 

;  set  ^initial  suesis  root  =  NOM/2  ,  ^ 

movwf 

ACCaLO 

endif 

028F 

8804 

bcf 

_carry 

0290 

1919 

rrcf 

ACCcifll 

0291 

1918 

rrcf 

ACCaLO 

;  set  initial  sgrt  =  Nuin/2 

0292 

0002 

retiirn 

8x8  Software  Multiplier 
(  Fast  Version  :  Straight  Line  Code  ) 

The  16  bit  result  is  stored  In  2  bytes 

Before  calling  the  subroutine  ■  mgy       the  multiplier  should 
be  loaded  in  location  *  mulplr  *,  and  the  milt^islicand  in 
'  mulcnd  '  .  The  16  bit  result,;.is  storwi  Mt'  IMweions 
HJvte  &  L_byte. 


Ferfozmance  i 
(,  Program  Hemory 

t  t  of  cycles 

Scratch  igvH, 
W  Regiat^^ 


36  words 

36  (excluding  call  &  ratufa)^ 

0  locations 


Thia  routine  is  optimized  for  speed  efficiency  (  strai^t  line  code 


For  coda  efficiency,  refer  to  ''mult8x8S.asm*  (  lo^>ed  code  ) 
**************************************************************** 

Define  a  macro  for  ad^jjjjgj"^  rij^t  .jtiiM^fting 

;  -! 

multiply  MACRO 

variable    i  ?        .it-  n  . 

i  =  0 
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addwf 

rrcf 

rrcf 

i  =  i+1  ; 

.endw 


H_byte 
H_byte 
L_byte 


;  End  of  macro 


0293  291B 

0294  291A 

0295  6018 

0296  8804 


mpy8x8_F 


clrf 
clrf 
movfp 
bcf 


H_byte 
L_byte 
inulcnd,wreg 
_esorry 


move  ths  multiplicand  to  W  reg. 
Clear  the  carry  bit  in  the  status  Reg. 


0000 
0000 


0297 
0298 

0001 
02  9B 

02  9C 
029D 
029E 

oms 

02tF 
02A0 
02A1 

02A2 
0003 
02  A3 
02A4 
02A5 
02A6 
0004 
02A7 
02A8 
02A9 
02AA 
0005 

62m 

02AC 

02AD 
02AE 
0006 
02AF 
02B0 
02B^ 
02S2 
0007 


9819 
SFIB 
t9i» 

iyiA 

9919 

OFIB 
191B 
191A 

9«1%'  ■ 
OFIB 
191B 
191A 

9B19 
OFIB 
191B 
191A 

9C19 
OFIB 
191B 
191A 

'M9: 

O-FIB 
191B 
191A 

9E19 
OFIB 
1,918 
19'1A 


multiply 
variable  i 
i  =  0 

.^ile  i  <  8 
btf  sc 
addwf 
rrcf 
rrcf 
i  =  i+1 

■  endw 


oidorf" 


mulplr, 
H^te 
HJsyte 
L_byte 


btf  sc 

mulplr, 

i 

addwf 

H_byte 

rref 

HJsyte 

'Sfrcf 

L_byte 

i 

=  i+1 

btfsc 

mulplr, 

i 

addwf 

H_byte 

rrof 

H_byte 

rrcf 

L_byte 

i 

=  i+1. 

btfiso 

mulplr, i 

addwf 

H_byte 

rrcf 

H_byte 

rrcf 

L_byte 

i 

=  i+1 

btfsc 

mulplr. 

i 

addwf 

rrof 

H_byte 

rrcf 

L_byte 

i 

=  i+1 

btfsc 

mulplr 

i 

addwf 

H_byte 

rrcf 

H_byte 

rrcf 

I(_byte 

i 

=  i+1 

bt£«e 

mulplr, i 

:td(jw£ ' 

rrcf 

H_byte 

rrcf 

LJoyte 

i 

=  i+1 

btfsc 

mulplr 

i 

addwf 

HJyte 

rrcf 

HJyta 

rrcf 

LJsyte 

i 

=  i+1 

02B3  9F19 
02B4  OFIB 
02B5  191B 
02B6  191A 
OOOS 


btfsc 
addwf 
rrof 
rrof 
i  =  i+1 


mulplr , i 

H_byte 

HJ=yte 


02B7  02B7  0002 
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Before  calling  the  subroutine  "  the  multiplier  should 

be  loaded  in  location  *  jmilplr       and  the  multiplicand  in 
•  anlcnd  *  .  The  16  bit  result  is  aUasaA.  In  l/am^ism. 
Oiyte  £  IJjsrte. 


Performance  : 

Program  Memory  :  13  word 
#  of  cycles  :  69 

Scratch  RAM         :     1  byte 

W  S»g$0S»3!  >. :  ^  -  Osed 


(excluding  call  &  return) 
(excludiBO  call  <  return) 


This  routine  is  optimized  for  code  efficiency  (  looped  code  ) 

For  time  efficiency  code  refer  to  "multSxSF . asm"   (straight  line  code) 


********************* 


******************************** 


*********** 


IH)y8x8_S 

0288 

291B 

clrf 

H_byt» 

02B9 

291A 

Glr£ 

LJbyte 

02BA 

2922 

count 

02BB 

8322 

tewnt,  3 

oat  count  s  8 

02BC 

6018 

movfp 

tmlctKliWreg 

02BD 

8804 

bof 

;  Clear  the  carry  bit  in  the  status  Reg 

loop 

02BE 

9819 

btfsc 

mulplr , 0 

02BF 

OFIB 

addwf 

H_byte 

02C0 

191B 

rrcf 

fljayte 

02C1 

191A 

rrcf 

I,_byte 

02C2 

2119 

rrncf 

mulplr 

02C3 

1722 

decf sz 

count 

02C4 

C2BE 

goto 

loop 

02CS 

0002 

return 

S.'  If  i  • 


Numerical  Dif ferenciation 

The  so  called  "Three-Point  Formula'  is  implesDented  to 
dif ferenciate  a  sequence  of  points  (uniformly  «HR{|3*d)  . 

The  eqn  in^lemented  is  : 

f(Xn)  s  t  fOBi  --ah)  -^*t|Xn  -  h)  ♦  3*f  (Xn)]*O.S/ll  • 
;>  '  nbaose  Jte  ia  the  pxBsaOlt  igtl^le  sxsA  ^Ixf  is  the  step  size.  ^ 

SiMi  idtmm  Semm&tt  iiH#  be  xewstotsen  as  : 

2)'^  S*tim'**M:i  *  *.S*3*f  t3ln)]*l/Di££K 


••Wma)  =  [  0.5«f(Xn 
where  Wittk  =  h  =  Step  Size 


ThXB  dif fereoiciation  routine  can  be  used  very  effectively 
iM        tmim^0t»9B-  of  the  differential  ccmjpoaent  part  in 
aiaWffi>.iia^<'<!aMiMl»fcl<ai---te''Metor.-'Ceatrol  J^licatiems 

Double  precision  arithmetic  is  used  througkt 
The  present  sample  value  is  assumed  to  be  in  locations 
X^laHi,  XnLo) .  The  past  tkiD^valaes  are  assumed  to  be  in  locations 
(Xn^l_Hi,  Xn_l_I,o)  £  (Xn_2_pl,  XnJ_Lo) . 

The  output  value  is  lecsBCed  In  DlffHi  &  DiffLo.  No  overflow 
chec]cing  mechanism  is  inplanented.  If  the  values  etre  limited 
to  12  bits,   then  the  user  need  not  worry  about  overflows 

It  is  user's  responsibility  to  update  the  past  values  with  the 
present  values  before  calling  this  routine. 
After  ccoputation,  the  present  value  Xn  is  not  moved  to  Xn_l 


i^it9M^MMra^ipi^i6WiQld{Qf^lnfeoi|pdktitid 


mm 
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02C6  602B 
02C7  0E27 
02C8  OllA 
02C9  602C 
02CA  1028 
02CB  OllB 

02CC  6027 
02CD  OFIA 
02CE  6028 
02CF  lllB 
02D0  6027 
02O1  OFIA 
02D2  6028 
02D3  lllB 

02D4  8804 
02D5  191B 
02D6  191A 

.tra-  . 
02D7  6029 
02D8  051A 
02D9  602A 
02DA  031B 
02DB  6029 
02DC  051A 
02DD  602A 
02I3E  031B 

02DF  602D 

02EO  0118 
02E1  602E 
02E2  0119 

02E3  eil9 
02E4  601A 
02E5  012F 
02Ee  601B 
02B7  0130 

02B8  0002 


;  because  the  user  may  want  these  values  to  be  intact  for  other 

;  computations   (  say  numerical  integration) 

;  Also  it  is  user's  responsibility  to  set  past  2  values 

;  £  Xix_2)  values  to  be  zero  on  initialization. 

. ******************************************************************* 

Diff 

movfp  Xn_2_LQ  ,wre9 

addwf  XnLo , w 

movwf  ACCbLO 

movfp  Xn_2_Hi ,  wreg 

addwfc  XDHl.w 

aiovwC  kCCbBl    ■    ■  ;  y  =  £(3Qi-2)  +  f  (Xn) 

movfp  3EhLo,wreg 

addwf  ACCbLO 

movfp  XnHi , wreg 

addwfc  ACCbHI 

movfp  XnLo , wreg 

addwf  ACCbLO 

movfp  XnHi,  wreg 

addwfc  ACCbHI  ;  Y  =  f(Xii-2)  +  3*f  (Xn) 

bcf  _carry 
rrof  ACCbHI 

rrcf  ACCbLO  ;  Y  =  O.S*t  f (Xn-2)  +  3*£(Xn)  ] 


movfp 

Xn_l_Lo ,  wreg 

subwf 

ACCbLO 

movfp 

Xn_l_Hi ,  wreg 

siibwfb 

ACCbHI 

mov£p 

Xn_l_Lo , wreg 

subwf 

ACCbLO 

movfp 

Xn_l_Hi»wreg 

su}»rfb 

ACCbHI 

movfp 

DiffKLo,wreg 

movwf 

ACCaLO 

movfp 

DiffKHi,wreg 

movwf 

ACCaHI 

call 

D_divS 

ACCbLO , wreg 

mawt 

DiffLo 

ACCbHI,  wreg 

novwf 

DiffHi 

Y  =  0.5*tf(Xn-2)  +  3*f(Xn))  -  a»f(XA-l) 


result  =  Y/h 


. ******************************************************************* 


Numerical  Integration 


'  Sin^son's  Three-Eighths  Rule  is  in^lemented 

Y(a)  =■.!  f<KO)  *  3*f(Xl)  ♦  3*f(X2)  +  f  (X3)  I*3*li/8 

where  'h'  is  the  step  size  and  the  integral  is  over  the 
range  XO  to  X3 

The  above  equation  can  be  rewritten  as 

Y(n)  =  [  f(X0)  +  3*f(Xl)  +  3*f(X2)  +  f(X3)]*IntgK 

Wbere  IratgK  '  3*h/8  (In  locations  (IntgKHi,  IntgKRi) 

%is  Integration  routine  can  be  used  very  effectively 


4-94 


0 1994  Microchip  Teehnoksgylncoipomtsd 


Math  Routines 


i^B>^i>>eaav>tatiCTfef>tli»' integral  tiouipemmt  paxt  in 
a  pfS  Iio^  caloulation  in  Hotor  Control  Applications 

Double  precijBion  arithmetic  is  used  throught 
The  three  input  values  over  which  the  integral  is  to  be  computed 
are  assumed  to  be  in  locations  (XOLo.XOHi),   (XlLo.XlHi)   ,  (Z2Lo,X2Hi) 
and  (X3Lo,X3Hi) 

The  output  value  is  located  in  IntgHi  &  IntgLo.  No  overflow 
checking  necdianiaiii  is  iiqplesieBted.  If  the  values  are  limited 
to  12  bits,  then  the  user  need  not  worry  about  overflows 

It  is  user's  responsibility  to  update  the  past  values  with  the 
present  values  before  calling  this  routine. 

After  computation,  the  present  value  Xn  is  not  moved  to  Xn_l 
because  the  user  may  want  these  values  to  be  Intact  for  other 
confutations  (  say  numerical  integration) 

Also  it  is  user's  re^onsibillity  to-jmt  past  2  values 
(Xn_l  <t  Xa_2)  values  to  be  sierar  on  initialization. 


*********************************************** 


02S9 

6031 

znovfp 

XOXiO ,  WTfi^ 

0B37 

X3Lo  w 

02EB 

OllA 

movwf 

ACCbLO 

02EC 

6032 

movfp 

XOHi , wreg 

02  ED 

1038 

X3Hi  w 

02jKis 

OllB 

movwf 

ACCbHI 

;  xntg  —  r  (au  } 

+  f  (X3 ) 

02EF 

6033 

movfp 

XlI<o,wreg 

02F0 

OFIA 

addwf 

ACCbLO 

02F1 

e034 

movfp 

XlHl,wreg  -  • 

02F2 

lllB 

addwfc 

ACCbHI 

,  intg  =r  f  (XO) 

+  f(X3) 

+X1 

02F3 

6033 

movfp 

XlLo , wreg 

02F4 

OFIA 

addwf 

ACCbLO 

02F5 

6034 

movfp 

XlHi,wreg 

02F6 

lllB 

addwf c 

ACCbHI 

;  latg  -  *«0) 

+  f(X3) 

+2*X1 

02P7 

6033 

movfp 

XlLo.wreg 

02F8 

OFIA 

addwf 

ACCbLO 

02F9 

6034 

movfp 

XlHi.wreg 

02  FA 

lllB 

addwfc 

ACCbHI 

;   Intg  =  f (XO) 

+  f(X3) 

+3*X1 

02  PB 

6035 

movfp 

X2Lo,wreg 

0»FC 

OFiA  - 

ACCbLO 

02FD 

6036 

movfp 

X2Hi,wreg 

02FE 

lllB 

addwfc 

ACCbHI 

;  Intg  =  f  (ZO) 

+  f  <»» 

♦3*11  +  X2 

02PP 

6035 

movfp 

X2Lo , wreg 

0300 

OFIA 

addwf 

ACCbLO 

0301 

6036 

movfp 

X2Hi , wreg 

0302 

lllB 

addwfc 

ACCbHI 

;  Intg  =  f  (XO) 

+  f(X3) 

+3*X1  +  2*X2 

0303 

6035  , 

movfp 

0304 

OFIA 

addwf 

ACCS;^ 

0305 

0306 

lllB 

addwfc 

ACC33HI 

;  Intg  =  f  (XO) 

+  f(3C3) 

+3*X1  +  3*X2 

0307 

6039 

movfp 

IntgKLo.wreg 

0308 

0118 

movwf 

ACCaLO 

0309 

603A 

movfp 

IntgKHi ,  wreg 

030A 

0119 

movwf 

ACCaHI 

;  ACCa^IntgK 

(prepare 

for  multiplication) 

030B  E050 

030C  601E 
030D  013B 
030E  601F 
030F  013C 


call 
movfp 
movHf 


ACCdLO.wreg 

S^l^gLo 

iiCCMI.wreg 


make  sure  to  set  for  either  SBSB}  or  XUBKiHH) 


32  bit  result  in  ACGd  &  ACCc 


upper  16  bits  =  result 


0310  0002 


4^ 


* 


0311  1A19 

0312  0C19 

0313  IBOO 


***************************»****♦-********************************** 

Random  Number  Generator 

This  routine  generates  a  16  Bit  Pseudo  Sequence  Random  Generator 
It  is  based  on  Linear  shift  register  feedback.  The  sequence 
is  generated  by  (Q15  xorwf  Q14  xorwf  Q12  xorwf  Q3  ) 

I       "HitA  16'bit  ratidetn  nuntber  is  in  location  RandHKhigh  byte) 
r    &  Raiidli<>  (low  byte) 

Before  calling  this  routine,  make  sure  the  initial  values 
of  RandHi  £  RandLo  are  NOT  ZERO 

A  good  chiose  of  initial  random  number  is  0x3045 


**************************************************** 


************* 


ItandoDl6 
rlcf 
xorwf 
rlcf 


RandHi, w 

RandHi, w 
wreg 


carry  bit  =  xorwf  {Q15, 14) 


Hi4 


0314  1D19 

0315  1C18 
031$  2300 

0317  0018 

0318  1D19 

0319  B501 
031A  1B18 
031B  DDIS 
031C  1B19 
031D  0002 


031E  2922 
031F  8522 

0320  291A 

0321  291B 

0322  2920 


swapf 

swapf 

rlncf 

xorwf 

swapf 

andlw 

rlcf 

xorwf 

rlcf 

return 


RandHi 
RandLo , w 
wreg 
RandHi , w 
RandHi 
0x01 
RandLo 

RandLo 
RandHi 


LSB  =  xorwf  (Ql2,Q3) 


******************************************************************* 
Gaussian  Noise  Generator 

This  routine  generates  a  16  Bit  Gaussian  distributed  random 
points.  This  routine  calls  the  routine  "Randomie*,  which 
generates  a  psuedo  randqm  ^oise  sequence.  Gaussian  noise 
is  computed  using  the  GWl'RAL  IiIHI'T  ■^BOREH. 

The  Central  Limit  !£9%epr<^  stages  t^t  tii&  average  weighed 
sum  of  uncorelated  saA^les  tends  to  have  a  Gaussian  distribution 
For  practical  purposes,   the  sum  could  be  over  a  sample  size 
of  32  Random  members.   Better  results  could  result  if  a  larger 
sanple  size  is  desired.  For  faster  results,  a  sum  over  16  sainples 
would  also  be  adequate  (  say,  for  applications  like  Speech  synthesis, 
cbannel  siinulations,  etc) . 

Vke  16  bit  Gaussian  distributed  point  is  in  locations 

GaussHi  &  GaussLo 

Before  calling  this  routine,  the  initial  seed  of  Random 
number  should  be  HON  ZERO  (  refer  to  notes  on  "Randoml6'  routine 

******************************************************************* 


Gauss 
olrf 

bsf 
clrf 
clrf 
clrf 


count 
count , 5 
GaussLo 
GaussHi 
Gauss^np 


set  Sanple  size 


32 


0323  E311 

0324  6018 

0325  OFIA 

0326  6019 

0327  illB 

0328  aseo 


IfextGauss 
call 
movfp 
addwf 
Biovfp 
addwfc 
clrf 


Randcml6 
RandLo ,  wreg 
GaussLo 
RcuidHi ,  wreg 
eaussHl 
wreg 


gdt  a  random  value 
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0329  1120 
032A  1722 
032B  C323 

032C  BOOB 

032D  1920 
032G  191B 
032F  191A 

0330  1700 

0331  C32D 

0332  0002 


decfsz  count 

goto  NextGauflS 

movlw  5 
GaussDivl6 

rrcf  GaussTn^ 

«sef  OauasHi  . 

ttcf  GaussLo 

decfsz  wteg 

goto  6aussDlvl6 

retain 


8--  •=!  .<(  ■  jTi; 

;  sum  iS  random  niisibers 


;  weghted  average 
divide  bjr '32 


Errors  i  0 
Wumlags  :  0 


-S-  .  ■      xc  -  ImM  ho*  I 


;  End  0£  arith.asm 
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APPENDIX  B  :  BCD  ARITHMETIC  ROUTINES 
LISTING  FILE  OF  BCfUSM 


mttm  60.54 

0001 


tdefine  PAGE  EJECT 

;TITLE      'BCD  Arithmetic  Routines  .•  Ver  1.0" 


1c*  **ie1c1c1r  ********  ***-1^1t**±***1t**  ***********  **1e1e«*  ********* 

BCD  Arithmetic  Routines 
******************************************************************* 


0020  0002 
0022  0003 

0025  0001 

0026  0002 


LIST  P=17C42,  C=80,  L=0,  R=DEC 
include  "17c42.h' 

CBLOCK  0x20 

Lby te ,  Hby te 

R2,   Rl,  RO 

count 

Numl  t  Nuin2 
EHDC 


must  maintain  R2,  Rl,  RO  sequence 


0026 
0026 
0027 


BCD  eqa 
HteiiiE>  egii 
Ltaip  egu 


Numl 
Numl 
NumZ 


ORG  0x0000 
,  ********************************************************** 


BCD  Aritteiefclc  Test  Program 

******************************************:**************** 


a  mi  2112:  0 


0002  EOIF 


0003  2B2i 
OaOi'4  2S2'0 
OOO'S  EOW 

0006  B006 

0007  0124 
OOOS  B055 

0009  0123 
OOOA  B03S 
OOOB  0U2 

OOOC  B082 

OOOD  B099 
OOOE  0126 
OOOF  B099 

0010  0127 

0011  &093 


0012  Boes 

0013  E015 


0014  mi* 


self 


setf 
setf 


setf 
setf 
call 

movlw 

movwf 
movlw 
movwf 
movlw 
movwf 

call 

movlw 
movwf 
movlw 
movwf 

call 


movlw 
call 


goto 


Kbyte 
Lbyte 

B2_BCD_Looped 


Kbyte 
Lbyte 

B2_BCD_Straight 

0X06 

RO 

0x55 

Rl 

0x35 

R2 


0x99 
Numl 
0x99 
Num2 

BCDAdd 


0x63 
BinBCD 


self 


;  16  bit  binary  num  =  Oxfff 
;  after  conversion  the  Deci 

!  in  RO,  Rl,  R2  =  06,55,35 
;  same  as  above,  but  straig 


;   setf  R0R1R2  =  65535 

J  after  conversion  Kbyte  = 
;  and  Lbyte  =  Oxff 


;  setf  Numl  =  Num2  =  0x99 

;  after  addition,  Sum2  =  98 
;  and  Numl  =  01  (  99+99  =  1 

;  setf  Wreg  =  63  hex 

;  after  conversion,  BCD  =  9 
;  63  hex  =  99  decimal. 


********************************************************** 
Binary  To  BCD  Conversion  Routine  (8  bit) 
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0015  2926 

0016  B1F6 

0017  9004 

0018  COIB 

0019  1526 
OOIA  C016 

OOIB  BlOA 
OOlC  1D26 
OOID  0926 
OOIE  0002 


This  routine  converts  the  8  bit  binary  nxjrtber  in  th 
to  a  2  digit  BCD  number  in  location  BCD{  compacted  BCD  Co 

The  least  significant  digit  is  returned  in  location 
the  most  significant  digit  is  returned  in  location  MSD. 

Performance  : 

Program  Heiao^:^':.  Ifl 

Cloc^  Cycles  62     (tK»:st  case  vAien  H  = 

'  .   r       .  liiaJ  (  l.e  max  Decimal  nu 

*******************************  ***L*  ********  *************** 


BinBCD 

clrf  BCD 
again 

addlw  -10 

btfss  _carry 

-  goto  '  8H*td^  ' 

incf  BSB  036  V- 

goto 
swapBCD 

addlw  10 

swapf  BCD 

iorwf  BCD 


*<******************  ******«  +  *****  +  ************************* 
ji  Biliary  To  BCD  Conversion  Routine  (16  Bit) 

(LOO^D  Version) 

iSxim  jjlMlittgW'  'tpBMMtttiSB  m-  ±S  Bit  binary  Humber  to  a  5 
BCD  SUmibei';'" 

The  16  bit  binary  number  is  it^f  In' lOBatlons  Strft 
Lbyte  with  the  high  byte  in  Kbyte. 

The  5  digit  BCD  number  is  returned  in  RO,  Rl  and  R2 
containing  the  MSD  in  its  right  most  nibble. 

■    -       I    •  *  ,       .' :- -  l^i^ 

Performance  : 

Program  Memory  $-)-id2. 
Clock  Cycles        :  . .  ISO 

c»    -  ;  ,  .  t 

*w^v#^*'«*:##3k.>t^M(^<MMl>#*=#ff#^  ******************* 


B2_BCD_JjO0ped 


OOIF  8404 
0020  8504 


bsf 
bsf 


_fsO 
_fsl 


;  set  f srO  for  no  auto  Inc 


0021  8804 

0022  2925 

0023  8425 

0024  2924 

0025  2923 

0026  2922 

0027  1B20 

0028  1B21 

0029  1B22 
002A  1B23 
002B  1B24 


35Cf 

clrf 
bsf 
clrf 
clrf 
clrf 
lo^l6a 
rlcf 
rlcf 
rlcf 
rlcf 
rlcf 


_carry 

count 

count,  4 

RO 

Rl 

R2 

Lbyte 

Hbyte 

R2 

Rl 

RO 


set  count  =  16 


002C  2725 
002D  0002 

002B  B022 
002F  0101 
0030  B036 


dcfsnz 
return 
ac^DEC 
movlw 
movwf 
call 


R2 

fsrO 
adjBCD 


load  R2  as  indirect  addr 


0031 

0032 


1501 

E036 


incf 


fsrO 

ad T BCD 


4^ 
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0033  1501 

0034  E036 


0035  C027 


incf 
call 


fsrO 
adjBCD 


goto  loopl6a 


0036  eooo 

0037  B103 

0038  9B00 

0039  0100 
003A  6000 
003B  B130 
003C  9F00 
003D  0100 
003B  0002 


adjBCD 
Biovfg 
adeliw 

btfsc 
movwf 
movfp 
addlw 
btfsc 
movwf 
return 


inft£0,Wreg 
0x03 

wreg , 3 
indfO 

indfO,wreg 
0x30 
wreg, 7 
indfO 


best  If  result  >  7 


test  if  result  >  7 
save  as  MSD 


.  ******************  *******ir*-ti:*^iiit*  *  icHiiiiit  *****************  ** 

J  Binary  To  BCD  Conversion  Routine  {16  Bit) 

;  ( Partial .  Straight  Line  Version) 

;  ThiB  routine  converts  a  16  Bit  binary  Number  to  a  5 

;  BCD  itoniber  ■ 

; 

t  The  16  bit  binary  nuirajer  is  input  in  locations  Hbyt 

;  Xibyte  with  the  high  byte  in  Kbyte. 

;  The  5  digit  BCD  n\imber  is  returned  in  RO ,  Rl  and  R2 

;  containing  the  MSD  in  its  right  most  nibble. 

;      PerformcUice  : 

■f  Program  Memory    :  44 

Clock  Cycles        :  572 

.  ********'******>********,j^***tt,**^***,***m*****\**;*** *********** 


B2_BCD_straight 


S404 

bsf 

_fsO 

mm 

bsf 

_fsl 

;  set  fsrO  for  no  auto  inc 

0041 

8804 

bcf 

_carry 

0042 

2925 

clrf 

count 

0043 

8425 

bsf 

count ,  4 

;  set  count  =  16 

0044 

2924 

•  clrf 

RO 

2$23 

clrf 

Rl 

m«6 

clrf 

R2 

loopieb 

0047 

1B20  :.. 

rlcf 

Lbyte 

0048 

1B21 

rlcf 

Kbyte 

0049 

1B22 

rlcf 

R2 

004A 

1B23 

rlcf 

Rl 

004B 

1B24 

rlcf 

RO 

004C 

2725 

dcfsnz 

count 

004D 

0002 

return 

;  DONE 

004E 

B022 

movlw 

R2 

;  load  R2  as  indirect  addr 

004F 

0101 

movwf 

fsrO 

;  adjustBCD 

0050 

6000 

movfp 

indf 0 , wreg 

0011 

addlw 

0x03 

mss 

btfsc 

wreg, 3 

;  test  if  result  >  7 

00S3 

0100 

movwf 

iftdfO 

0054 

6000 

movfp 

indf  0,  wreg 

0055 

B130 

addlw 

0x30 

0056 

9F00 

btfsc 

wreg, 7 

;   test  if  result  >  7 

0057 

0100 

movwf 

indfO 

;  save  as  MSD 

oosa 

1S81 

inof 

fsrO 

!  adjustBCD 

0059 

6000 

movfp 

indf 0,  wreg 

4*100 


e  1994  Microoblp  Teehni^ogy  IMsbrpBrntdd 


Math  Routines 


005A 

B103 

addlw 

0x03 

005B 

9B00 

btfsc 

wreg , 3 

•  test 

it  £eatilt 

7 

005C 

0100 

movwf 

indf  0 

005D 

60  00 

movfp 

indf  0  ,w3reg 

005E 

B130 

addlw 

0x30 

■* 

005F 

9F00 

btfse 

wreg,,? 

i'- 1  Best 

if  vasolt  > 

7 

0060 

0100 

ihovwf 

indf  0 

as  '-^^B' 

0061 

1501 

incf 

1'  c  ■  '  )r 

;  adjustBCD 

0062 

6000 

movfp 

indf 0, wreg 

0063 

B103 

addlw 

0x03 

0064 

9B00 

btfsc 

wreg, 3 

;  test 

if  result  :> 

7 

0065 

0100 

movwf 

indf  0 

0066 

6000 

miv§p ' 

tad£0,<m^ 

<iO,  \  ...1 

0067 

B130 

addlw 

0x30 

0068 

9PO0 

btfsc 

wreg, 7 

;  test 

i:f  seeult  ■> 

7 

0069 

0100 

movwf 

indfO 

00  6A 

ca47 

;  ;|&CP  To  Binary '■■5^versiiS«»-- 

converts®  s'-^  digif'^D  nuBaaer  to  a  i€ 

;  number . 

;  The  input  5  digit  BCD  nximbers  are  asumed  to  be  in  1 

;  RO,  Rl  &  R2  with  RO  containing  the  MSD  in  its  right  most 


;  The  16  bit  binary  number  is  output  in  registers  Hby 

;  (  hi^  byte  &  low  byte  repectively  )  . 

;  The  method  used  for  conversion  is  : 

;  input  number  X  =  abode   (   the  5  digit  BCD  nu 

;  X  =   (R0,R1.R2)  =  abcde  =  10  1 10 [10 [lOa+b] +c] +d] +e 

;  Performance  :                             c:-r  -ri; 

;  Program  Meqaory    :  30 

;  CloGlc  Cycles 

fn^^it^u-m^m$^M*^m^^S^ii^^itM'mM*  ****  *****  *****    **#^.i!i*iii^w**  * 


mpylOb 

006B 

B50P 

andlw 

OxOf 

006C 

0F20 

addwf 

Lbyte 

006D 

9804 

btfsc 

'  ■_oarT5y 

S06& 

1521 

incf 

Hbyte 

mpylOa 

'..Till' 

006F 

8804 

bcf 

_carry 

;  maltiply  by  -2 

0070 

1A20 

rlcf 

Lbyte  ,w 

0071 

0127 

movwf 

Ltenp 

0072 

1A21 

rlcf 

Hbyte, w 

;  (Htenp,Ltenp) 

0073 

0126 

•  *HtSS^       ■  ' 

0074 

8804 

bcf 

_carry 

;  multiply  by  2 

0075 

1B20 

rlcf 

Lbyte 

0076 

1B21 

rlcf 

Hbyte 

0077 

8304 

^ 

_Garry 

,•  Bittltiply  2 

0078 

1B20 

rlcf 

Lbyte 

0079 

1B21 

rlcf 

Hbyte 

00  7A 

8804 

bcf 

_earry 

;  multiply  hy  2 

0076 

1B20 

rlcf 

Lbyte 

007C 

1B21 

rlcf 

Hbyte 

007D 

6027 

movfp 

Ltenp.wreg 

007E 

0F20 

addwf 

Liyte 

007F 

6026 

raovfp 

Hte9)p,wreg 

OOSO 

1121 

addwfc 

Hbyte 

2*H 


8*11 
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0081  0002 


;   (Kbyte, Lbyte)  =  10*N 


0082  2921 

0t94  mesf' 

0085  0120 

0086  E06F 

0087  1C23 

0088  E06B 

0089  6023 
008A  E06B 


BCDtoB 
clrf 
movfp 
andlw 
movwf 
call 

swapf 
call 

movfp 
call 


Kbyte 

RO,wreg 

OxOf 

mpylOa 

Rl,w 
mpylOb 

Rl,wreg 
npylOb 


result  =  lOa+b 


result  =  10(10a+bl 


result  =  10[10[10a+b]+c] 


008B  1C22 
008C  E06B 

008D  6022 

o  o«E  wmw 

tWF  0*28 

0090  9«04 

0091  1521 

0092  0002 


swapf 
call 

movfp 
cuidlw 
adctwf 
btfsc 
incf 


R2,w 
mpy  1  Ob 

R2  ,wreg 
OxOf 
Ijbyte 
_carry 
Bbyte 


;  result  =  10[10[10[10a+b]+ 


;  result  =  10 110 [10 [lOa+b] 
;  BCD  to  binary  conversion 

*:************************************************** 


Unsigned  BCD  Addition 

This  routine  performs  a  2  Digit  Unsigned  BCD  Additi 
It  is  assumed  that  the  two  BCD  numbers  to  be  added  are  in 
locations  Numl  &  Num2 .  The  result  is  the  sum  of  Numl+Nuin2 
and  is  stored  in  location  Nuin2  and  the  overflow  carry  is 
in  locestion  Htvml 


Perforstance 


Program  Memory 
Clock  Cycles 


********************** 


****************** 


************* 


0093  6026 

0094  0E27 

0095  2F27 

mm  z»i6 

0098  OO02 


BCDAdd 

movfp  Numl ,  wreg 

addwf  N\jm2 ,  w 

daw  Num2 

elr£  Numl 

rljsf  Numl 
retum: 


;  perform  binary  addition 
;  adjust  for  BCD  addition 
;  set  Nximl  =  carry  bit 


. ********************************************************** 


Mamti)#s  I  0 
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PIC17  FIXED  POINT  DIVIDE  ROOTINES  VERSION  1.5      .  I  ,  ,. 

Il^ut:     fixed  point  arguments  in  AARG  and  BARO  ,  ,^  ^ 

Output:  quotient  AARG/BARG  followed  by  ranainder  in  Sw'. 
All  timings  are  worst  case  cycle  counts 

It  is  useful  to  note  that  the  additional  routines  FXD3115U,  FXD15150,  and 
FXD1507U  can  be  called  in  a  signed  divide  application  in  the  special  case 
idiere  MRS  >  0  am&:  SHIS  >  H,*  therc^  of farii^  sane  isprovanast  in       .  . 


..oS. 


per  f  ozinance . 

Routine 

Clocks 

Function 

FXD3216S 

414 

32 

bit/16 

bit 

-> 

32 

16 

signed  fixed  point  divide 

FXD3216U 

485 

32 

bit/16 

bit 

-> 

32 

16 

unsigned  fixed  point  divide 

FXD3215U 

390 

32 

bit/15 

bit 

-> 

32 

15 

unsigned  fixed  point  divide 

FXD3115U 

383 

31 

bit/15 

bit 

-> 

31 

15 

unsigned  fixed  point  divide 

FZD1616S 

214 

16 

bit/16 

bit 

-> 

16 

16 

signed  fixed  point  divide 

FXD1616U 

244 

16 

bit/16 

bit 

-> 

16 

16 

unsigned  fixed  point  divide 

FXD1615U 

197 

16 

bit/lS 

bit 

-> 

16.15 

unsigned  fixed  point  divide 

FJtDlSlSU 

191 

15 

bit/lS 

bit 

-> 

15 

15 

unsigned  fixed  point  divide 

FXD1608S 

146 

16 

bit/08 

bit 

-> 

16 

08 

signed  fixed  point  divide 

FZDlfiOSn 

196 

16 

bit/08 

bit 

-> 

16 

08 

unsigned  fixed  point  divide 

PXDieOTO 

130 

16 

bit/07 

bit 

-> 

16 

07 

unsigned  fixed  point  divide 

PXD1507U 

125 

15 

bit/07 

bit 

-> 

15 

07 

unsigned  fiXM  point  divide 

list        r=dec,x=on,t=off ,p=17C42 
include  <PIC17.IHO 

************************* 

**********************************  *****  «  i 


**************************** 


********************************** 

t************************^ 


******* 
******* 


Define  divide  register  variables 

ACC  equ         0x19        ;  most  significant  byte  of  contiguous  4  byte  accumulator 

SIGN  equ          OxlF         ;   save  location  for  sign  iji  IIG^ .' 

TEMP  equ          0x25         ;   temporary  storage 

;  Define  binary  operation  arguments 

AARO  equ         0x19        ;  most  significant  byte  of  argument  A 

BAR6  equ          0x22         ;  most  significant  byte  of  argwpent  B 

RSK  equ         OxlD        ;  most  significant  byte  of  reroc^inder 

Note:         (   AARG+BO,   AARG+Bl   )      and      (  ACC+BO ,    ACC+Bl)  ' 

reference  the  same  storage  locations,   and  similibrly  for        .  /. 
(  REM+BO,   REM+Bl   )   and  (  ACC+B4,  ACC+B5   )  - 
*************  ****************^*^.*^.#i^#.^«*******«*************W«^*****«*****^ 

*****************************#«****##**»************************* **********^* ****************** 

32  Bit  Division  Macros  ^ 
SDIV3216  macro  ;  . 

;  Max  Timing;  5  +  8+30*12+6  =  379  elks  "'  ;j  '  ] 

1  Min  Timing:  5  +  8+30*11+6  =  349  elks  '  ,' 


PM:   5+8+30*14+6  =  439 
variable  i 
MOVFP 
SUBWF 
MOVFP 
SUBWFB 
RLCF 
RLCF 
RLCF 
RLCF 
MOVFP 
ADDHF 
MOVFP 
ADDWFC 
RLCF 

i  =  2 
while  i  <  8 
RLCF 
RLCF 
RLCF 
MOVFP 
BTFSS 
GOTO 
SOBWF 


DM:  8 

BARS+B1,VIREG 

REH+Bl 

BARQ+BO ,  WRBO 

REM+BO 

ACC+BO 

ACC+BO, W 

REM+Bl 

REM+BO 

BAR0+B1,WRE0 

REM+Bl 

BARG+BO,WREG 

REM+BO 

ACC+BO 


ACC+BO,  H 

REK+Bl 

REH+BO 

BAK3+B1,HREG 

ACC+BO, LSB 

SADD26fv(i) 

REM+Bl 
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SJUXI26*v(i) 
SOK26*v(l) 


SADD2S8 


SOK26e 


SftDEQSfvd) 

SOK26#v(i) 


SADD2616 


SOK2616  RLCF 


SiU}D26tv(l) 


MOVFP 

OLtQVVr  £> 

REU+BX 

XiAKur+JIIU  /  WttU»i 

xusn.+su 

ACC+BO 

RLCF 

KhiM+ni 

rem+bo 

MOVFP 

BAKQ^BI  « wQuiG 

BT^S 

Attn  V 

ACC+BU  f  LSB 

GOTO 

SADD268 

SUBWF 

REH+Bl 

MOVFP 

BARG+B0,19REG 

SUBWFB 

REM+BO 

GOTO 

SOK268 

KESA+Bl 

MOVFP 

BARG+BO , WREG 

KDCKffFC 

ICEUtBO 

RLCF 

ACC+Bl 

1=9 

while  i  < 

16 

RLCF 

ACC+Bl , W 

RLCF 

REM+Bl 

RLCF 

REM+BO 

MOVFP 

BARG+Bl.WREG 

BTFSS 

ACC+B1,LSB 

GOTO 

SADD26#v(i) 

SUBWF 

REM+Bl 

KO'^/FF 

BARG+BO , WREG 

SUBWFB 

REM+BO 

GOTO 

SC»C26#v(i} 

M@V7F 

BARG+BO, WREG 

REM+BO 

RLCF 

ACC+Bl 

i=i+l 

endw 

RLCF 

ACC+B2 , W 

RLCF 

REM+Bl 

RLCF 

REM+BO 

MOVFP 

BARG+Bl , WREG 

BTFSS 

ACC+Bl, LSB 

GOTO 

SADD2  616 

SUBWF 

REH+Bl 

MOVEP 

BARG4^B0  ( HREG 

REH+BO 

GOTO 

SOK2616 

ADDNF 

RBf+Bl 

MOVFP 

BARG+BO , WREG 

ADDNFC 

REM+BO 

ACC+B2 

1  =  17 

\i^i.jL0  i.  < 

24 

RLCF 

ACC+B2  «W 

RLCF 

REM+Bl 

RLCF 

REM+BO 

MDVFP 

BARG+Bl ,  WREG 

BTFSS 

ACC+B2 , LSB 

GOTO 

SADD26#V(1) 

SUBWF 

REH+Bl 

MOVFP 

BAKG+BO.VIREG 

SUBWFB 

REM+BO 

GOTO 

SOK26#v(i) 

ADEWF 

REM+Bl 

MOVFP 

BARG+BO, WREG 
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SOK26»v(l) 


SM(D2S#v(i) 


S0K2S#v(il 


AODHFC 

RLGF 

i=i+l 

endw 

RLCF 

ACC+B3,W 

RLCF 

REM+Bl 

RLCF 

REM+BO 

MOVFP 

BARG+Bl ,  WREO 

BTFSS 

ACC+B2,LSB 

GOTO 

SAD02624 

SUBtUF 

REH+Bl 

MOW? 

BARG+BO,WREG 

SUBWFB 

REM+BO 

GOTO 

SOK2624 

ADDWF 

REM+Bl 

MOVFP 

BARG+BO ,  WREG 

ADDWFC 

RLCF 

.3i6c+B3 

i  =  25 

while  i  <  Sa 

RLCF 

ACC+B3 , W 

RLCF 

REM+Bl 

RLCF 

REK+BO 

MOVFP 

BARG+Bl,  WREG 

BTFSS 

ACC+B3 , LSB 

■ 

GOTO 

SAOD26#v{i) 

■■.r>i.  f 

SUBWF 

RBM+Bl 

MOVFP 

BARG+BO ,  WREG 

SUBWFB 

REM+BO 

GOTO 

SOK26#v{i) 

ADDWF 

REM+Bl 

MOVFP 

BARG+BO ,  WREG 

ADDSffFC 

RLCF 

i=i+l 

endw 

BTFSC 

ACC+B3 , LSB 

GOTO 

SOK26 

MOVFP 

BARG+Bl , WREG 

ABOHF 

KW+Bl 

MOVFP 

ADDWFC 

en  dm 

SOK2e 
TO)IV3216  macro 

;  restore  =  15/20  elks,     nonrestore  =  11/14  elks 

;  Max  Timing:  16*15+1+16*20  =  561  elks 

,;  Min  Timing:  16*11+1+16*14  =  401  elks 

mt:     16*15+1+16*20  =  agl  EM:  9 

variable  1 
1  =  0 


DOK26»v(i) 


while  i  <  8 

RLCF 

ACC+BO,W 

RLCF 

REH+Bl 

RLCF 

REM+BO 

MOVFP 

BARG+Bl,  WREG 

SUBWF 

REM+Bl 

MOVFP 

BAR(:+BO,m@ 

SUBWFB 

REIMS 

BTFSC 

_C 

GOTO 

UOK26#v(i) 

MOVFP 

BARG+Bl,  WREG 

AODHF 

«BM+B1 

MOVFP 

BARG+BO, 

ADDWFC 

REM+BO 

BCF 

_C 

RLCF 

ACC+BO 

i=i+l 

endw 

4-165 


i  =  8 

iftille  i  <  16 


RLCP  ACC+B1,W 

RLCF  REM+Bl 

ELCF  REM+BO 

MOVFP  BARG+B 1 ,  WREO 

SXIEOT  REM+Bl 

mms  smstBO.wssa 

Bttsc  _e 

GOTO  UeK26tv(i) 

MOVFP  BARG+B1,WREG 

ADDWF  REM+Bl 

MOVFP  BARG+BO,WREG 

M3DMFC  R^+BO 

BCF  _C 

U0K26«vCi)  RLCF  ACC+Bl 

i=i+l 
endw 

CLRF  TEMP 
i  =  16 

While  i  <  24 

R3UCF  ACC+B2,W 

BIiCF  .SEH+Bl 

RLCF  BEH+BO 

Ji^  RLCF  TEMP 

MOVFP  BARG+B1,WREG 

SUBWF  REM+Bl 

MOVFP  BARO+BO ,  WREG 

SUBWFB  ,  REM+BO 

CLRF  WS/S 

SQBHFB  TSMP 

BTFSC  _^C 

GOTO  UOK26#v(i) 

MOVFP  BARG+B1,WREG 

ADDWF  REM+Bl 

MOVFP  BSRG+BO.WREG 

ACOMFC  RKM+B0 

CLRF  HRBS 

JHOaiUfC  TEMP 

BCF  _C 

UOBC26#v(i)  RLCF  ACC+B2 

i=i+l 

i  =  24 

while  i  <  32 

RLCF  Aia:+B3,W 

RLCF  REM+Bl 

RLCP  REM+BO 

RLCF  TEMP 

MOVFP  BARG+B1,WREG 
REM+Bl 

M@WFV  BARG+BO , HREG 

SQBW^  REM+BO 

emm  WREG 

SOBWFB  TEMP 

BTFSC  _C 

GOTO  UOK26»v(i) 

HOVFP  BARG+Bl,WREO 

ADEWF  REM+Bl 

MDOTP  BARG+BO,  VfRBG 

ADEOTC  REli+BO 

CLRF  WREG 

iSSMFC  TEMP 

BCF  _C 

OOK26#V(i)  RLCF  ACC+B3 

i=i+l 
e&dw 


■  mmmmm^  »-1994Mlcrochlj3  Technology  lix^ipontBd 

4-106 


Math  Routines 


NDIV3216  macro 
;  Max  Timing;  10+31 

;  Min  Timing:  10+31*14- 

mi  10*31*1M  =  SOS 


15  +  6  =  481  cllts 
6  =  450  oiks 

am  '* 


iaOD26tv(l) 


II0K26tv(l) 


IOUJD268 


NOK368 


RLCF 

ACC+BO,W 

RLCF 

RIOl+Bl 

RLCF 

R^+BO 

HOVFP 

BARG+Bl ,  WRB8 

SUBWF 

R&H+Bl 

MOVFP 

BARG+BO ,  WRBO 

SUBWFB 

REM+BO 

CLRF 

SUBHFB 

i  =  1 

while  i  <  8 

RLCF 

ACC+BO,W 

RLCF 

REH+Bl 

RLCF 

RLCF 

HOVFF 

BARO+Bl.WS^ 

ACC+BO,LSB 

GOTO 

iaDD26»v(l) 

SUBWF 

RBK+Bl 

MOVFP 

SUBWFB 

m»m 

CLRF 

MRBO 

SOBWFB 

TEMP 

GOTO 

NOK26tv(i) 

ADEWF 

REH+Bl 

MOVFP 

BARG+BO,  WRSe 

ADDWFC 

REH+BO 

CLRF 

ADDWFC 

RLCF 

mse*BO 

1=1+1 

endw 

RLCF 

ACC+B1,W 

RLCF 

REH+Bl 

RLCF 

RBf+BO 

RLCF 

HOVFP 

BARO+Bl.HRBS 

BTFiSS 

ACC+BO ,  LSB 

GOTO 

NADD268 

SUBWF 

REM+Bl 

MOVFP 

BARG+BO,  HREG 

SUBWFB 

SEK+Bi 

CLRF 

WRBG 

SDBWFB 

TEHP 

GOTO 

MOK268 

ADDHF 

RB(+B1 

MOVFP 

BARG+BO,  HBEO 

ADEMFC 

Riai+BO 

CLRF 

ADDWFC 

RLCF 

1^9 

wille  1  <  1« 

RLCF 

ACC+Bl.W 

RLCF 

RLCF 

RLCF 

TEMP 

MOVFP 

BARG+Bl ,WREG 

BTFSS 

ACC+B1,LSB 

GOTO 

ttADD26*v(i) 

SBK+Bl 

KOVFP 

BARS+^BS'ilMBB 

SUBWFB 

RSI+BO 
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NADD26»v(i) 


ItASD2616 


MOK26#v(i) 


CLRF 

WREG 

StTEWFB 

TEMP 

GOTO 

NOK26#v(i) 

ADDWP 

REM+Bl 

MOVFP 

BARG+BO,WREG 

REH+BO 

cells'' 

WREG 

BZiCF 

ACC+Bl 

i=i+l 

endw 

RLCF 

ACC+B2,W 

RLCF 

REM+Bl 

RLCF 

REM+BO 

RLCF 

TEMP 

MOVFP 

BARG+B1,WREG 

BTFSS 

ACC+Bl , LSB 

GOTO 

NADD2616 

SUBWF 

REM+Bl 

MOVFP 

BARG+BO,WREG 

SUBWFB 

REM+BO 

cms 

WREG 

SUSHFB 

TEMP 

GOTO 

NOK2616 

ADEMF 

REM+Bl 

MOVFP 

BARG+BO,WREQ 

ADDWFC 

REM+BO 

CLRF 

WREG 

mc*su 

i  s  17 

-^lle  1  <  24 

RLCF 

ACC+B2 ,W 

RLCF 

REM+Bl 

RLCF 

REM+BO 

tSLCF 

TEMP 

MOWP 

BARG+B1,WREG 

ACC+B2,LSB 

GOTO 

NADD26#v(i) 

SUBWF 

REM+Bl 

MOVFP 

BARG+BO,WREG 

SUBWFB 

REM+BO 

CLRF 

WREG 

TEMP 

NOK26#v(i) 

9mm 

REM+Bl 

MOWP 

BARG+B0,WREO 

AOawc 

REM+BQ 

CLRF 

WREG 

ADDWFC 

TEMP 

RLCF 

ACC+B2 

i=i+l 

endw 

RLCF 

ACC+B3,W 

RLCF 

REM+Bl 

RLCF 

REM+BO 

RLCF 

TEMP 

MOVFP 

BARG+Bl , WREG 

BTFSS 

ACC+B2,LSB 

HADD2624 

R£M+B1 

MOVFP 

BARG+BO,WREG 

SUBWFB 

REM+BO 

CLRF 

WREG 

SUBWFB 

TEMP 

mm' 

NOK2e24 

REM+Bl 

BARO+BO.WREG 

!iSM+BO 
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NOK2624 


K»]D26fv(l) 


I«>K26tv(l) 


CLRF 

ADDWPC 

WW 

RLCF 

i  =  25 

while  i  <  32 

RLCF 

ACC+B3,W 

RLCF 

REM+Bl 

RLCF 

^I+BO 

RLCF 

HOVFF 

8«SG+Bl,f)RBS 

BTFSS 

ACC+B3,LSB 

GOTO 

NADD26#v(i) 

SUBWF 

REM+Bl 

MOVFP 

BARG+BO,WREG 

SUBWFB 

REM+BO 

CLRF 

WREG 

SUBWFB 

TEMP 

GOTO 

HOK26*v(i) 

JVDDHF 

SBMfBl 

MOVFP 

nso+BOiWRBB 

ADDWFC 

REM+BO 

CLRF 

WREG 

ADDWFC 

TEHF 

RLCF 

i=i+l 

endw 
BTFSC 

GOTO 

NOK26 

MOVFP 

BARG+Bl,lMi& 

ADDHF 

REM+Bl 

MOVFP 

BARG+BO,tBIEO 

ADDWFC 

JiBI%BO 

endm 

macro 

Max  Timing:  8+31' 
Min  Timing:  8+31' 
PK:  8+31*14+6  =  448 


12+6  =  386  elks 
11+6  =  355  elks 

mi  8 


UADD25«v(i) 


UOK25*v(i) 


variable  i 

RLCF 

RLCF 

RLCF 

REM+BO 

MOVFP 

BARG+B1,MRB3 

SUBWF 

REM+Bl 

MOVFP 

BARG+B0»1MB 

SUBWFB 

RBi+BO 

RLCF 

i  =  1 

while  i  <  8 

RLCF 

ACC  +  BCW 

RLCF 

REM+Bl 

RLCF 

REM+BO 

at/ 

MOVFP 

BARG+B1,WREG 

BTFSS 

ACC+BO,LSB 

GOTO 

UAnD25*V(l) 

SUBWF 

REM+Bl 

i  .z? 

MOVFP 

BARG+BO,W!mS 

SUBWFB 

REM+BO 

GOTO 

UOK25#vltt) 

ADDHF 

REM+Bl 

MOVFP 

ADDHFC 

RLCP 

1=1+1 

«f 

endw 

8LCF 

ACC+B1,» 

RLCF 

REM+Bl 

RLCF 

REM+BO 

MOVFP 

BARG+B1,WREG 

f-TOJ- 
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BTFSS 

ACC+BO , LSB 

GOTO 

UADD258 

StTBWF 

REM+Bl 

MOVFP 

6ARG+B0 ,  WREG 

SUBWFB 

REM+BO 

GOTO 

U0K2  5  8 

UADD258 

ADDWF 

REM+Bl 

MOVFP 

BARG+BO , WREG 

ADDWFC 

REM+BO 

UOK258 

KbCP 

ACC+Bl 

i  =  9 

<  16 

RLCF 

ACC+Bl  ,W 

RLCF 

REM+Bi 

RLCF 

REM+BO 

MOVFP 

BARG+Bl  WREG 

ACC+Bl  LSB 

GOTO 

sjnULJ^  ^  If  V  \  X  / 

REM+Bl 

MOVFP 

SUBWFB 

PT?M4-Rn 

U\^£v^  ^  It  V  V  J 

UnULUOWV  \X  1 

DTTM  4.111 

iUJJJnr 

rvlin+ou 

RXjCF 

ACC+Bl 

1—1 +x 

ir¥*AR9  w 

RLCF 

ncm+s  JL 

RLCF 

KtiM+riU 

oAKv3+I3J. ,  WKCi(« 

B'l'FSS 

GOTO 

SUBWF 

R^M+Bl 

DAKb+SU  /  nnJSb 

SUBWFB 

UUJ\<;  DID 

ADDWF 

K£^+OX 

BUVIrJr 

nAHM+isu  1  wiusu 

ACC+B2 

i  =  17 

<  24 

RZiCF 

afP*R9  w 

R£iGF 

Rtnt^kRl 

K&ctrDX 

RLCF 

a/VxRO    T  CR 

GOTO 

yjUjJJiS  3  If  V  \  1  / 

SUBWF 

pTTMj-Rl 

MOVFP 

papr'-fcRfl  URliys 

PTrM4.Rn 

GOTO 

\J\JV<^  ^     V  V  X  / 

UADD25#v(i) 

ADDWF 

MOVFP 

BARG+BO , WREG 

ADDWFC 

UOK25#v(i) 

ACC+B2 

RLCF 

ACC+B3 /W 

]^CF 

REM+Bl 

RLCF 

RES(+BO 

MOVFP 

RARS+m  WRSfS 
StnnvTOX  t  vHuaV 

BTFSS 

ACC+B2.LSB 

GOTO 

naDD2524 

SUBWF 

REH+Bl 

MOVFP 

BARG+BO, HSEG 

SUBWFB 

REM+BO 
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Tnra>2524 


UADD25tvfl) 
UOK25#v(i) 


TJDIV311S 


GOTO 

IK>K2524 

ADDHF 

RSI-fBl 

MOVFP 

BARG+BO,WRES 

ADDWFC 

REM+BO 

RLCF 

ACC+B3 

i  =  25 

while  i  <  32 

RLCF 

ACC+B3,W 

DLCF 

SEH+Bl 

RLCF 

REH+BO 

MOVFP 

BARG+Bl ,  WSm 

BTFSS 

ACC+B3 , LSB 

GOTO 

UADD25#v(i) 

SXJBS«F 

REH+Bl 

HOVFP 

BARB+BO, mesa 

SUBWFB 

REH-fBO 

GOTO 

TX>K2S*v(i) 

ADDHF 

RBH+Bl 

MOVFP 

BARS+BO,WREG 

ADDWFC 

REH-fBO 

RLCF 

ACC+B3 

i=i+l 

endw 

BTPSC 

ACC+B3,LSB 

GOTO 

UOK25 

MOVFP 

BARG+Bl ,WREG 

ADDWF 

REM+Bl 

MOVFP 

BARG-t-BO.HREG 

Biacro 

U»DD15«v(i) 
nOK15#v(i) 


Max  Timing:  5+8+30' 
Min  Timing:  5+8+30' 
FH:  5+8+30*14+6  =  439 

variable  i 

MOVFP 

SUBHF 

MOVFP 

SUBWFB 


RLCF 

RLCF 

RLCF 

HOVFP 

HSOHF 

MOVFP 

ADDWFC 

RLCF 

i  =  2 

while  i  <  8 

RLCF 

RLCF 

RLCF 

MOVFP 

BTFSS 

GOTO 

SUBWF 

MOVFP 

SUBWFB 

GOTO 

AI»3HF 

MOVFP 

ADDWFC 

RLCF 

i=i+l 

endw 

RLCF 

RLCF 


12+6  =  379  elks 
11+6  =  349  elks 
DM:  8 

BARG+Bl , WREG 
REH+Bl 

B«RG+BO,HRBG 

RBI+BO 

ACC+BO 

ACC+BO,W 

REM+Bl 

REH+BO 

BftRS+Bl.HRBS 
RB(+B1 

BARG+BO,HRBB 

REM+BO 

ACC+BO 


mt*Mi 

RBI+BO 

BARG+Bl,  WREO 
ACC+BO,LSB 
UADD15*v(i) 
REM+Bl 

BARG+BO,HRSS 
REM+BO 
D0K15#v(i) 
REM+Bl 

BARG+B0,WRB6 

REM+BO 

ACC+BO 


ACC+B1,W 

RBH+Bl 
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OADD158 


DDK158 


UADDlStv(l) 
OOKlStvd) 


U0K1S16 


rauMJiBtvd) 

U0K15#v(i) 


RbCF 

REM+BO 

invFP 

BARG+B1,HREG 

BTFSS 

ACC+BO,LSB 

GOTO 

USDD158 

SUBWF 

REM+Bl 

MOVFP 

BARO+B0,HREG 

REM+BO 

GOTO 

ODKISS 

ADDWF 

RBI't-Bl 

MOVFP 

BARG+BO.WREG 

Mximc 

Ra(+BO 

ACC-l-Bl 

i  =  9 

while  i 

<  16 

RLCF 

ACC+B1,W 

RLCF 

REH+Bl 

Rat+BO 

wsmv 

BASG+Bl.HREG 

ACC+B1,LSB 

GOTO 

UM)D15#v(i) 

SUBWF 

REM+Bl 

MOVFP 

BARG+BO.WREG 

SU6HFB 

REH+BO 

GOTO 

U0K15«v(i) 

mam 

KEH^'Bl 

BSRG+BO.HREG 

MXMrc 

REM+BO 

RLCF 

ACC+Bl 

i=i+l 

endw 

RJiCF 

ACC+B2,W 

HLCF 

REM+Bl 

Bliaf 

Ra(+BO 

BARG+Bl.HSEG 

BTFSS 

ACC+Bl, LSB 

GOTO 

UADD1516 

SUBWF 

REM+Bl 

MOVFP 

BARG+BO,HREG 

SUBWFB 

REM+BO 

GOTO 

ucacisie 

Mmm 

REM+Bl 

MOVFP 

BARG+BO,HREG 

ADDWPC 

REM+BO 

RLCF 

ACC+B2 

i  =  17 

while  i 

<  24 

RI.CF 

ACC+B2,W 

RLCF 

REK+Bl 

RLCF 

REM+BO 

MOVFP 

BARG+B1,WREG 

BTFSS 

ACC+B2,LSB 

GOTO 

0ADD15#v(i) 

SDEHF 

REM+Bl 

tKmp 

BARG+BO.HREG 

RBI+BO 

GOTO 

nOK15#v(i) 

ADDWF 

RBI+Bl 

MOVFP 

BARG+BO,HREG 

ADDWFC 

REM+BO 

RLCF 

ACC+B2 

i=x+l 

ACC+B3,W 

RLCF 

RB(+B1 

RLCF 

REM+BO 

MOVFP 

BARG+B1,WREG 

BTFSS 

ACC+B2,LSB 

GOTO 

UADD1524 

SUBWF 

REM+Bl 
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taDD1524 


tK>KlS24  RLCF 


T»DD1S«V(1) 


tJ0K15»v(i) 


MOVFP 

BARG'i'BO.HRBe 

vfi  V, 

SUBWFB 

REM+BO 

'  '  '  ■ 

GOTO 

UOK1524 

ADDWF 

REM+Bl 

~- .IS 

MOWP 

BARG+B0,WRE6 

JUSMFC 

wm«s» 

"  '  ■ 

i  =  25 

while  i  Si 

RLCF 

«CC<(rB3,W 

RLCF 

RLCF 

REH+BO 

MOVFP 

BARG+B1,WRB0 

BTFSS 

ACC+B3,LSB 

GOTO 

(I»S>1S*V(1) 

SUBWF 

REM+Bl 

MOVFP 

BARG+BO,WREG 

SUBWFB 

REM+BO 

GOTO 

U0K15#v(i) 

ADEMF 

REM+Bl 

MOVFP 

BARG+BO,WREG 

ADDWFC 

RH(+BO 

tOJCF 

ACC+B3 

--'  •■ 

BTFSC 

ACC+B3,LSB 

GOTO 

U0K15 

MOVFP 

BARG+B1,WR£G 

ADDWF 

MOVFP 

BARG+BO.MSES 

JOCMFC  ' 

wm>m 

UOKIS 

******************* 

16/16  Bit  DivisilMI  Hl^lIM 
SDIV1616  macro 

Max  Timing:  5+8+14*12+6  • 

Min  Timing:  5+8+14*11+6  = 

PM:  5+8+14*14+6  =  215 
variable  i 
MOVFP 
SOBWF 
MOVFP 
SDBHFB 
RLCF 
RLCF 
RLCF 
RLCF 
MOVFP 
ADDWF 
MOVFP 
ADDHFC 
RLCF 
i  =  2 
while  ; 
RLCF 
RLCF 

tajCF 

MOVFP 


*************** 


******** 


************ 


****** 
****** 


187  elks 
173  elks 

DM:  6 


BARG+Bl , WREG 
REM+Bl 

BARG+BO,WREG 
RBI+BO 
ACC+BO 

ACC+BO,W 
REM+Bl 
REM+BO 

BARG+Bl,  WRXt 
REH+Bl 

BjffiG+BO.iasva 

SBM+BO 


(***** 
********* 


************ 


S»IX>66tv(i) 


GOTO 

SUBHF 

MOVFP 

SUBWFB 

GOTO 

ADDHF 

MOVFP 

ADDHFC 


ACC+BO,  W 
SEH+Bl 
REM+BO 

BARG+Bl,  VniEO 
ACC+BO,  LSB 
SADD66fv(l) 

REM+Bl 

BARG+BO,WREa 
REM+BO 

RBK+Bl 

Baas+BCMiae 

RSt+BO 
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SOK66tv(i) 


SOX668 


sADDeetvd) 


soKsetvd) 


RLCF 

ACC+BO 

l=i+l 

endw 

RLCF 

ACC+B1,W 

RLCF 

REM+Bl 

RLCF 

REH+BO 

MOVFP 

BARG+B1,HRBG 

BTFSS 

ACC+BO,LSB 

GOTO 

sADoees 

SUBWF 

REM+Bl 

MOVFP 

BARG+BO,WRBG 

SUBWFB 

REM+BO 

GOTO 

SOK658 

ADDHF 

REM+Bl 

MOVPP 

BARG+BO.MREG 

aomirc 

RQf+BO 

RLCF 

ACC+Bl 

i  =  9 

lAiile  i  <  16 

RLCF 

ACC+B1,W 

RLCF 

REM+Bl 

RLCF 

REU+BO 

HOVFP 

BARG+Bl.NREG 

ACC4-Bl,IiSB 

GOTO 

SADD66*V(1) 

SUBWP 

REM+Bl 

MOVFP 

BARG+B0,WREO 

SUBWFB 

REM+BO 

GOTO 

SOK66#V(i) 

ADDHF 

KEM+Bl 

MOVFP 

BARG+BO,HREG 

ADDHFC 

RLCF 

ACC+Bl 

i=i+l 

endw 

BTFSC 

ACC+Bl, LSB 

GOTO 

SOKSe 

MOVFP 

BARG+B1,HREG 

RDOte 

REM+Bl 

MOVFP 

BARG+BO,WREG 

REM+BO 

SOK66 


UD1V1616  macro 

reaters  =  IS  elks,    nonrestore  -  11  elks 
Max  Tkdng:  8*15+8*15  =  240  elks 
Min  Timing:  8*11+8*11  =  176  elks 
fMi  8*15+8*15  =  240  DM:  6 


UOK66«v(i) 


variable 

i 

i  =  0 

vdiile  i  <  8 

RLCF 

ACC+BO,H 

RLCF 

REH+Bl 

RLCF 

REM+BO 

MOVFP 

BARG+B1,WRBG 

SOBWF 

REM+Bl 

MOVFP 

BARG+BO,HREG 

SUBWFB 

REM+BO 

BTFSC 

_C 

GOTO 

D0K66*v(i) 

B»t6+B1.NRBQ 

ADDHF 

SEM+Bl 

MOVFP 

BARG+BO,WREG 

ADDWFC 

REM+BO 

BCP 

_C 

RLCF 

ACC+BO 

i=i+l 

endw 

i  =  8 
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UOK66#v(i) 


MDTV16ie 


while  1  <  IS 

RLCF 

ACC+B1,H 

RLCF 

RLCF 

RSf+BO 

MOVPP 

BARG+B1,WREG 

SUBHF 

REM+Bl 

MOVPP 

BARG+BO.WREG 

SUBl<FB 

BTFSC 

J! 

GOTO 

WOK66«v(l) 

MOVFP 

BARG+Bl.WRBG 

AQDHF 

REM+Bl 

MOVFP 

BARG+BO.HRBG 

ADEWFC 

REH+BO 

BCF 

_C 

RLCF 

i=i+l 

endw 

macro 

Max  Timing: 

Min  Timing: 

PM:   9+15*19+6  = 
variable 
RLCF 
RLCF 
MOVFP 
SUBHF 
HOVFF 
SUBWFB 
CLRF 
SUBWFB 
RLCF 
1  =  1 
while  i 
RLCF 
RLCF 
RLCF 
RLCF 
MOVFP 
BTFSS 
GOTO 
SUBWF 
MOVFP 
SUBWFB 
CLRF 
SDBWFB 
GOTO 


9+15*15+6  «  240  elks 
9+15*l#**  K  225  elks 
300  DM:  7 


ACC+BO,W 
REM+Bl 

B»ia+B1,HRB9 
Rai+Bl 

BMtS+BO.HRSe 

REM+BO 
TEMP,W 
TEMP 


ACC+BO,W 
REM+Bl 
REM+BO 
TEMP 

Btaxs+Bi.mems 

ACC+BO,LSB 
NM>D66#v(i) 
REM+Bl 

BARG+BCHKEG 

REM+BO 

WREG 

TEMP 

WOK66#v(i) 


■  •  "A 


N3U3D66«V(1) 


IiaK66tv(l) 


ADDWF 

MOVFP 

ADDWFC 

CLRF 

ADDHFC 

RLCF 

i=i+l 

endw 

RLCF 

RLCF 

RLCF 

RLCF 

MOVFP 

BTFSS 

GOTO 


MOVFP 
S0BHFB 
CLRF 
SUBWFB 


AGC+BO 


ACC+B1,W 
REM+Bl 
REM+BO 
TEMP 

BJVRG+Bl.WREG 
ACC+BO,LSB 
NADD668 
REM+Bl 

BARG+BO ,  WREO 

REM+BO 

WREG 

TEMP 


a«H't'..- 
tm.: 
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GOTO 

NOK668 

NADD6  6  8 

ADDWF 

R^+Bl 

MOVFP 

BAR6+B0,WREG 

ADEMFC 

REH+BO 

CLRF 

MiBEG 

ADDWPC 

TEMP 

NOK668 

RLCF 

ACC+Bl 

i  =  9 

<  16 

RXiCF 

ACC+Bl,W 

RLCF 

REH+Bl 

RSM+BO 

I^iCF 

TEMP 

MDVPP 

BARG+Bl , WREG 

BT^SS 

ACC+Bl , LSB 

GOTO 

NADD66#v(i) 

SUBHF 

REM+Bl 

BARG+BO , WREG 

R^+BO 

CLRF 

WREG 

GOTO 

fiUUJiJD  D  IF V  \  X  J 

ADDWF 

p  Pil^     D  J. 

MOVFP 

nUlLOO  W 1 1  J 

i=i+l 

m  cow 

N0K6  6 

HOVFP 

MOVFP 

JSAKw+dU  f  WKlSw 

ADDHFC 

KJSIHtOv 

NOK66 

endm 

UDIV1615 

macro 

Tiaiog: 

7+15 

X^+O    ^    x!f^  dJCS 

;             Kin  Tining: 

7+15 

*1  1  AlE    —    i  "TO    r«1  Vo 
XA+w   —   J.  /  o  CXJCa 

FHi 

7+15*14+6  = 

213 

CM:  1 

variable  1 

RLCF 

RLCF 

MOVFP 

SDBHF 

REM+Bl 

1K)VFP 

REM+BO 

ACC+BO 

i  «  1 

vblXo  1 

<  8 

RLCF 

ACC+BO , W 

RLCF 

REM+Bl 

RLCF 

REH+BO 

MOVFP 

BARG+B 1 , WREG 

BTFSS 

ACC+BO , LSB 

GOTO 

UADD65#v(i) 

SUBWP 

REM+Bl 

HOVFP 

BARG+BO  WREG 

SDBHFB 

REM+BO 

GOTO 

UOK65#v(i) 

UAZ^5#v{i) 

tmm 

REM+Bl 

BAnS+BU  «  WKBB 

ADDHFC 

RBf+BO 

DOK65«V{i) 

RLCF 

ACC+BO 

i=l+l 

endw 

RLCF 

ACC+Bl, W 

4-t1€ 
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UADD658 


UADD65#v(i) 
OOK«Sfv(l) 


REM+Bl 

MOVFP 

BARG+Bl  WR£G 

GOTO 

HOVFP 

RQC+BO 

TTrMTi^  ^  ft 

AUUWr 

nuVr  r 

AUUnC 

RXiCF 

ACC+Bl 

1  —  s 

while  i.  <  1.6 

RLCF 

At-t-+D  J.  #  It 

RLCF 

DIilyr^RI 
K  f.m-t-  n  1 

RLCF 

MOVFP 

GOTO 

StTBWF 

WOVr  r 

SUBWFB 

GOTO 

UOKoDfVil) 

ADDWF 

REM+Bl 

MOVFP 

BARG+BO  ,  WtZG 

ADDWFC 

RSM+BO 

RLCF 

endw 

BTFSC 

GOTO 

MOVFP 

ADDWF 

MOVFP 

ADDHFC 

endm 

macro 

■'Jv 
.,1? 


Max 
Mln 
Bis 


Timing: 
Timing : 
5+8+14*14+6 


5+8+14*12+6  =  187  elks 
5+8+14*11+6  =  173  elks 


31$ 


DM:  6 


variajale  i 

MOVPP 

BARG+Bl.WREG 

SUBWF 

Rac+Bi 

Ofc-  t.'.-S 

MOVFP 

BARG+BO,HREG 

SUBWFB 

REM+BO 

RLCF 

ACC+BO 

RLCF 

ACC+BO,W 

RLCF 

RQI+Bl 

RLCF 

REM+BO         jUO  >  :  ■ 

BARG+Bl,HRiS 

ADDWF 

REM+Bl 

MOVFP 

BARG+BO,Hi^ 

ADDWFC 

REM+BO 

RLCF 

i  =  2 

while  i  <  8 

RLCF 

Ace«aB,w 

RLCF 

REM+Bl 

RLCF 

REM+BO 

MOVFP 

BARG+Bl.WREG 

BTFSS 

GOTO 

SUBWF 

S^+Bl 

MOVFP 

SOBHFB 

Rai+BO 

GOTO 

OCKSSfvd) 

dl  >  i  S.J 
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aU)D5S*v(i) 


T]OK55*v(i) 


ADDWP 

MOVFP 

ADDWPC 

RLCF 

i=i+l 

endw 
SliCF 
RLCP 
RI£F 
MOVFP 


GOTO 


REM+Bl 

BARG-tBO.WREG 

REH+BO 

ACC+BO 


ACC+B1,W 
8EH+B1 

ttai+BO 

BARO+Bl,HREQ 
ACC+BO,  LSB 

UADD558 


MOVFF 


(nsDSSS 


noKSSS 


UADD55tv(i) 
aOK5S#v(i) 


GOTO 
ADDHF 
MOVFP 
ADDHFC 
RLCF 
i  >  9 
««ille 
RLCP 
RLCF 
RLCF 
MOVFP 

BTFSS 
COTO 


i  <  16 


xxass 


GOTO 

ADEWF 

MOVFP 

ADDWFC 

RLCF 

1=1+1 

endw 

BTFSC 

GOTO 

MOVFP 

ADDWF 

MOVFP 

tsxmsc 

endn 


REM+Bl 

BABS+BO.HREG 
RBf+BO 
OOK558 
REM+Bl 

BARG+BO,nREG 

REM+BO 

ACC+Bl 


ACC+B1,H 

REM+Bl 

REM+BO 

BARG+Bl.HREG 

ACC+Bl,  LSB 
OADD55#v(i) 
Rm+Bl 
BAR6+B0,HREO 

REM+BO 

UOK55»v(i) 

REM+Bl 

BARG+BO,WREG 

REM+BO 

ACC+Bl 


ACC+Bl, LSB 

UOK55 

BARG+B1,WREG 
REM+Bl 

BARO+B0,HREG 
RSC+BO 


Extra  16  Bit  Divide  Macros 
DIV1616  macro 

;  Timing:  restore  •  16  elks,    nonrestore  =  13  elks 


16*16  =  256  elks 


RS1616_»v(  i  ) 


vtiriable  i 

1  =  0 

Htalle  i  <  16 

RLCF 

AARG+Bl 

RLCF 

AARG+BO 

RLCF 

REM+Bl 

RLCF 

RHI+BO 

MOVFP 

BASG+B1,WRBG 

SUBWP 

REM+Bl 

MOVFP 

6ARO+B0,HREO 

SOBWFB 

REM+BO 

BTFSS 

_C 

GOTO 

RS1616_#v(  i 

BSF 

AARG+B1,LSB 

GOTO 

OK1616_*v(  1 

MOVFP 

BARO+Bl,HREO 

ADEWF 

REM+Bl 

vmtnn  MT  i>ap  Tw 
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0KlS16_#v(i) 


iiotz*v(  i  ) 


MOVFP 

BARG+BO , WREG 

BCF 

MRG+B1,LSB 

restore 

i 

i  =  0 

16 

RIiCF 

AAR6+B1 

RLCF 

AARG+BO 

REM+Bl 

REM+BO 

jnUVr  r 

BARG+BO,  HREG 

BTFSS 

_Z 

GOTO 

notztv(  1  ) 

BAROh-BI.VIREG 

SUBWF 

Rm+Bl,W 

BTFSS 

_C 

GOTO 

nosub#v (  i  ) 

MOVFP 

BARG-t-BLNRgSt 

SUBWF 

REH+Bl 

MOVFP 

^G+BO,WREG 

SUBWFB 

REH+BO 

BSF 

AAR6+B1,LSB 

GOTO 

ok#v(i) 

BCF 

AARS+Bl.LSB 

«  t4  elks 


Kl2 


16*19  =  304  elite 


•  It 


nosubfv(i) 
«*#vti) 

i=i+l 

endH  io 
endm 

****************************»********************************#************ 
****************  ***********************it*********************-##^»*iit*********** 

15/08  BIT  Division  Macros 
SDIV1608  macro  >l  . 

Max  Timing:  3+5+14*8+2  =  122  elks 

Min  Timing:  3+5+14*8+2  =  122  elks  •  , 


******** 
******** 


PH:  3+5+14*8+2 


122 


JM:  4 


varlabl«  1 

MOVFP 

BARG+BO, rntse 

SUBWP 

REM+BO 

RLCF 

ACC+BO 

RLCP 

ACC+BO,W 

RLCF 

REM+BO 

1K3VFP 

BARG+BO, WREG 

ADDHF 

RBl+BQ 

RLCF 

&CC+90 

i  =  2 

while  i  M 

RLCF 

ACC+BO,  W 

RLCF 

REM+BO 

MOVFP 

BARG+BO,  WREG 

BTFSC 

ACC+BO, LSB 

SOBWF 

REH+BO 

BTFSS 

ACC+BO,  LSB 

ADDWF 

RBI+BO 

RLCF 

JUX+BO 

i  =  i+l 

endw 

RLCF 

ACC+B1,W 

tOjCe 

REH+BO 

MOVFP 

BARG+BO,  WREG 

BTFSC 

ACC+BO, LSB 

SUBWF 

{^(+B0 

BTFSS 

S@ifBe,LSB 

M+IBM 
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i  <  16 


REM+BO 
ACC+Bl 


ACC+B1,W 

barq+b6,wreg 

ACC+B1,LSB 

REM+BO 

ACC+B1,LSB 

REM+BO 

ACC+Bl 


ACC+Bl.MB 
REM+BO 


ODXV1608  ntaero 

restore  =  9/15  elks,    nonrestore  =  8/11  elks 
Max  Timing:  8*9+1+8*15  =  193  elks  men 
Min  Timing;  8*8+1+8*11  =  153  elks  min 
Mi   8*9+1*8*15  =  193  DM:  4 


ADDWF 

RLCF 

1=9 

^ile 

lOiCF 

BLCP 

MOVFP 

BTFSC 

SUBWF 

BTFSS 

ADDWF 

RLCF 

isi*l 


ADDMF 


U0KS8#vti) 


COK68*v(i) 


1I1DIV1608 


variable 

i 

i  =  0 

while  i  <  8 

RLCF 

ACC+BO,W 

RLCF 

REM+BO 

Mnvp'p 

BARG+B  0  WREG 

SUBM7 

REM+BO 

BTFSC 

_C 

GOTO 

UOK68«v(i) 

ADDWF 

REM+BO 

EOF 

_C 

RLCF 

ACC+BO 

1  =  1+1 

CBRS*  ■ 

TEMP 

i  =  8 

while  i  <  16 

RLCF 

ACC+Bl, W 

RLCF 

REM+BO 

RLCF 

TQIP 

MOVFP 

BARQ+BO,MREG 

SUBWF 

REM+BO 

CLRF 

HREG 

SUBWFB 

TEMP 

BTFSC 

_C 

GOTO 

UOK68#v(i) 

MOVFP 

BARG+BO  ,  WREG 

REM+BO 

WREG 

AHDWFC 

TEMP 

BCF 

_C 

RLCF 

ACC+Bl 

i=i+l 

endw 

ea|t€t^ 

flyings         7+15*12+3  =  190  elks 
Kia  Timing:  7+15*11+3  =  ITS  elks 
BK:  7+15*14+3  =  220  DM:  ! 

variable  i 

RLCF 


RLCF 
MOVFP 


CLRF 

SUBMFB 

RLCF 


ACC+BO, W 
REM+BO 

BARG+BO,  WREG 

REH+BO 

TEHP.W 

TEMP 

ACC+BO 
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1=1 

whiXo  i. 

<  8 

RLCF 

At-O+nU ,  W 

RLCF 

V  - 

RLCF 

MUvr  r 

BTFSS 

GOTO 

riAUUDDVVllJ 

* 

5U£MF 

CLRF 

WREG 

SUBWFB 

TEMP 

GOTO 

AULJWJ* 

CLRF 

ADCHFC 

■'  ■  ■  ■-     -  -  -' 

RIiCF 

i=i+l 

' '     ' ' 

endw 

RLCF 

ACC+Bl , W 

RLCF 

rem+bo 

RLCF 

TEMP 

MOVFP 

BARG+BO . WREG 

BTFSS 

ACC+BO , LSS 

GOTO 

NADD688 

SUBHF 

RSK4-B0 

CLRF 

WREG 

SUBWFB 

TEtC 

GOTO 

NOK688 

ADDWF 

REM+BO 

CLRF 

WREG 

ADEWFC 

RLCF 

i  =  9 

while  i 

<  16 

RLCF 

ACC+Bl, W 

RLCF 

REM+BO 

RLCF 

TEMP 

MOVFP 

9A£!^+B0 ,  HRBG 

■  <4-- 

BTFSS 

&CC+B1 , LSB 

GOTO 

NADD68#v(i) 

■  ^  . .( 

SUBWF 

REM+BO 

CLRF 

WREG 

SUBWFB 

TEMP 

GOTO 

NOK68fv(i} 

ADDHF 

REK+BO 

CLRF 

HRBG 

ADEWFC 

TEMP 

MAEOeStvd) 
NOKeStvd) 


ira!x>6s«v(i) 


NOK68*v(l)  RLCF 
i  =  i+l 
endw 
BTFSS 
MOVFP 
ADDHF 
endm 

UDIV1607  macro 

Max  Timing!  5+15' 
Min  Timing:  5+15< 
rai!  5+15*8+2  =  12* 
variable  i 
RLCF 
RLCF 
MOVFP 
SUBWF 
RLCF 
i  =  1 

vdiile  i  <  8 
DLCF 
RLCF 


ACC+Bl, LSB 

BASO+BO.tlRBO 

RBH+BO 


8+2 
8+2 


127  elks 
127  elks 
'Hit'  '« 


ACC+BO,W 

SEH+BO 

BARG+BO, 

REM+BO 

ACC+BO 


tilli+Bia 


UDIV1507 


BARQ+BO,UREG 

BTFSC 

ACC+BO,LSB 

SOBMF 

REM+BO 

BTFSS 

ACC+BO , LSB 

ADOHF 

KSM-fBO 

RLCF 

ACC+BO 

i=i+l 

endw 

RLCF 

ACC+B1,W 

RI.CF 

REM+BO 

MOVFP 

BARG+BO,WREG 

BTFSC 

ACC+BO, LSB 

SDEHF 

REM+BO 

BTFSS 

ACC+BO, LSB 

REM+BO 

ItI<GF' 

ACC+Bl 

i  =  9 

while  i  <  16 

RLCF 

ACC+B1,W 

RLCF 

REM+BO 

MOVFP 

BARG+BO,WREG 

BTFSC 

ACC+Bl, LSB 

SUBWF 

REH+BO 

BTFSS 

ACC+Bl, LSB 

ADDHF 

REH+BO 

RLCF 

ACC+Bl 

i=l+l 

endw 

BTFSS 

ACC+Bl, LSB 

ADDHF 

REH+BO 

macro 

Haac  Tiining; 
Min  Timing: 
SM:  3+5+14*8+2 


3+5+14' 
3+5+14' 

=  122 


8+2  =  122  elks 
8+2  =  122  elks 
DM:  4 


variable  1 

MOVFP 

BARG+BO,HREG 

SUBWF 

REM+BO 

RLCF 

ACC+BO 

RLCF 

ACC+BO, W 

RLCF 

REH+BO 

MOVFP 

BARG+BO,HREG 

ADDWF 

RSI+BO 

RLCF 

ACC+BO 

i  =  2 

While  i  <  8 

RLCF 

ACC+BO,  W 

RLCT 

REM+BO 

MOVFP 

BARG+BO,WREG 

BTFSC 

ACC+BO , LSB 

SUBWF 

REM+BO 

BTFSS 

ACC+BO, LSB 

ADDHF 

REH+BO 

RLCF 

ACC+BO 

1=1+1 

endw 

RLCF 

ACC+Bl, W 

RLCF 

REM+BO 

MOVFP 

BARG+BO,MREG 

BTFSC 

ACG+BO,LSB 

SUBWF 

SBH+BO 

BTFSS 

ACC+BO, LSB 

ADDHF 

REM+BO 

RLCF 

ACC+Bl 

i  =  9 

while 

RLCF 

RLCF 

MOVFP 


i  <  16 


ACC+Bl, W 
REM+BO 

BARG+BO,WR£G 
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BTFSC 

ACC+Bl , LSB 

SUBWF 

REM-fBO 

BTFSS 

ACC+Bl, LSB 

ADDWF 

REM+BO 

KLCF 

ACC+Bl 

i=i+l 

endw 

■'  V*  -i  ■. 

BTFSS 

ADDHF 

•!  ,  -       "  *  - 

en  dm 

************************* 


********* 


32/16  Bit  Signed  Fixed  Point  Divide  32/16  ->  32.16 
Input:     32  bit  signed  fixed  point  dividend  in  AARG+BO, 
16'blt  tmBlgaed  fixed  poiat  divisor  In  BMtS+Be, 
Uses         CALL       'FXD3216S  '  • 

Output:  32  bit  signed  fixed  point  quotient  in  AABG-t'BO, 
16  bit  fixed  point  remainder  in  REH+BO,  REM+Bl 
AABG,  SEH    <-    AABG  /  BARG 


************************* 
************************* 


AARG+Bl ,  AARG+B2 ,  AARG+B3 
-BAS&TBl 


AARG+Bl  ,AARe+B2 ,  AASG+B3 


Result! 
Max  Timing: 


Hln  Tinina: 


FXm216S 


CA3216S 


C321€S 


PM:  21+439+16  = 
MOVFP 
XOBMF 
HOVWF 
CLHP 
CLRF 
BTFSS 
GOTO 
COHF 
COMF 
INCF 
ADDNFC 
BTFSS 
GOTO 
COMF 
COMF 
COMF 

ccaiF 

INCP 

ADDHFC 
ADDWFC 
ADDWFC 

SDrV3216 

BTFSS 

KB/HM 

COST 

COMF 

COMF 

COHF 

CLRF 

INCF 

AQCNFC 

ADEWFC 

COMF 

COMF 

INCF 

ADEWFC 

SSTLW 


11+mmmm  wm  ciks  a  >  o 

14+379+17  =  410  elks 
A-  18+379it-17  =  414  clfca 

■>-.  21+379*3  =  403  elks 

11#3494'3  =  363  elks  A  >  0 

14+349+17  =  380  elks 
18+349+17  =  384  elks 
21+349+3  «  373  ^s 
476  DM:  9 

AARG+BO.iintBe 
BARG+BO,W 
SIGN 
REM+BO 
REM+Bl,  W 
BARG+BO,MSB 
CA3216S 
BARG+Bl;.  .-. 
BARG+BO 
*».fOBIi»W«S+-Bl 

AARG+BO,MSB 
C3216S 
AARG+B3 
AARG+B2 
AARG+Bl 
AARG+BO 
AARG+B3 
AARG+B2 
AARG+Bl 
AARG+BO 

SIGN.MSB 
0x00: 
AARC+B3 
AARG+B2 
AARG+Bl 
AARG+BO 
WREO 
AARG+B3 
AABG+BS- 
AARG+Bl 
AARG+BO 
REM+Bl 

REM+BO  M. 
REM+Bl  /> 
REM+BO 
0x00 


B  >  0 


A  > 
JL  < 
A  < 

A  > 
A.  < 


A  <,0, 


>  a 


;  if  MSB  set  go  &  negate  BARG 


if  MSB  set  go  &  negate  ACCa 


negate  (ACCcACCd) 


4-123 


MaHi  Itotitineis^ 


32/16  Bit  Uhsigned  Fixed  Point  Divide  32/16  ->  32.16 

Input:     32  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARG+Bl,AARO+B2,AftRG+B3 

16  bit  unsigned  fixed  point  divisor  in  BARG+BO,  BARG+Bl 
Use:         CALL  FXD3216U 

Output:   32  bit  unsigned  fixed  point  quotient  in  AARG+BO,  AARG+B1AARG+B2 , AARG+B3 

16  bit  unsigned  fixed  point  remainder  in  RSI+BO,  REM+Bl 
Result:  AARG,   REM    <-    AARG  /  BARG 
tbat  Tlniao<         2+481+2  s  485  elks 
MiB  timing:         2+450+2  =  459  elks 
FM:  2+605+1  =608  TM:  9 

FXD3216U  CLRF  REM+BO 

CLRF  REM+Bl  '  • 

NDIV3216  -  . 

RETLH  0x00 
****************  ************************  ********* 

*****************************************************************.***************************** 
32/lS$aiiaAI)MtsP««i  Flx^-minb  B&vide  32/15. ->  32ilS 

i'  ■   •  ^f-.i- 

Input:     32  bit  unsigned  fixed  point  dividend  in  JUUtG+BO,  AAItG+Bl,AaB!G+B2,MRG+B3 

15  bit  unsigned  fixed'poiat  divisor  in  BMIG+BO,  BAR6+B1 
Use:         CALL  F3!D3215U 

Ou^n^  32  bit  unsigned  fixed  point  quotient  in  AARG+BO,  AAR6+B1 

'    15  bit  unsigned  fixed  point  remainder  in  REH+BO,  REH+Bl 
Smnat^  Mm,  «m   <-  <  Mm  I  BARS 
miL  Tiaing*-    f  •2*386+2  =  390  oiks 
Min  Timing:         -2*355+2  =  359  elks 
PH:   2+448+1  =  451  DM:  8 

FXD3215U  CLRF  REM+BO 

CLRF  REH+Bl 
UDIV3215 
BBIUf  0x00 

********************************************************************************************** 
******************************  **************************************************************** 
31/15  Bit  OHAigned  Fixed  Point  Divide  31/15   ->  31.15 

Input;     31  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARG+Bl , AARG+B2 , AARG+B3 

15  bit  unsigned  fixed  point  divisor  in  BARQ+BO,  BARG+Bl 
Use:         CALL  PXD3115U 

OuQ^b:  31  bit  unsigned  fixed  point  quotient  in  AAI^BO,  AARG+Bl 

15  bit  \insigned  fixed  point  remainder  in  REK+BO^  SEM+Bl 
Result:  AARG,   REM    <-    AARG  /  BARG  > 

Max  Timing:  2+379+2  =  383  oiks 

Min  Timing:  2+349+2  =  353  elks 

PM:  2+439+1  =  442  DM:  8 

ROailSD  CI«F  REM+BO 

CCRF  REH+Bl 

UD1V3115 

RETLW  0x00 

********************************************************************************************** 
*************************************  ********************************************************* 

16/16  Bit  Signed  Fixed  Point  Divide  16/16  ->  16.16 
Ix:put:     16  bit  fixed  point  dividend  in  AARG+BO,  AARG+Bl 

16  bit  £lxed  point  divisor  in  BARG+BO,  BARG+Bl 

rasei      caii.  Fa>i6i6s 

Oo^ntt:  16  bit  fixed  point  quotient  in  AARG+BO,  AARG+Bl 

16  Me  fixed  point  remainder  in  REH+BO,  REH+Bl 
Result!  MRG,  RBI    <-    AARG  /  BARG 

Max  TiMingi  11+187+3  =  201  elks  A  >  0,  B  >  0 

14+187+13  =  214  elks  A  >  0,   B  <  0 

14+187+13  =  214  elks  A  <  0,   B  >  0 

17+187+3  =  207  elks  A  <  0,  B  <  0 

Min  Timing:  11+173+3  =  187  elks  A  >  0,  B  >  0 

14+173+13  =  200  elks  A  >  0,  B  <  0 

14+173+13  =  200  elks  A  <  0,  B  >  0 

17+173+3  =  193  elks  A  <  0,  B  <  0 

PM:   14+215+12  =  241  DM:  7 

FXD161SS  MOVFF  AARG+BO,  WREG 

XORWF  BARG+BO, W 

•    Howwr  ■  •  •  siGw 

'  •  ■  CLSP* '        ■  *  tlBI+BO' 

CUtF  RB(+B1,W 
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SS  ;  if  MSB  set  go  <■  negate .  BAII@  . 

GOTO  CAim«S  r 

.1.,  '(cas 

COMF  BARG+Bl 

COMF  BARG+BO 

INCF  BARG+Bl 

ADDWFC  BARG+BO 

CU.616S  BTFSS  AARG+BO,MSB  ;  j.£  ]SSB  set  go  £  negate  AGCa      I'j  '  . 

GOTO  C1616S 

COMF  A»RG+B1  Jfi-    ,  15    ,. .,       .,.  5    ;  S 

COUP  AARG+BO 

iNcp  MOtaMteuu  .01  -  - 

ADDNFC  iattMB^ 

C1616S     SDIV1616  A  i-. 

BTFSS  SIGN.MSB  ;  negate ■  ((JKCosAgE^-  >  :'_-:ir'.'7  ■  ; 

RETLW  0x00 

,  X:qglF  AARG+Bll  ; 

CqilF  ;  AARG+BO  -     _  - 

CLRF  .     WREG  ■  x   r   l-H   -'-  ...    -  :7  .ixM 

IMCF         .'.  AARG+Bl 

ADDWFC  >   ^  AARG+BO        ;    ^        .  i  ■  J    i    . . 

COMF       -  A  REM+Bl  p.:  ■ 

COMF  REM+BO  -    ;  1' 

INCF  RBM+Bl  rj.  •; 

ADEWPC  REM+BO 

RETLW  0x00 

.********************************************************************************************** 

16/16  Bit  Unsigned  Fixed  Point  Divide  16/16  ->  16.16 
Input:     16  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARG+Bl 

16  bit  unsigned  fixed  point  divisor  in  BARG+BO,  BARG+Bl 
Use:         CALL  PXD1616U 

0ut3>ut:  16  bit  unsigned  fixed  point  quotient  in  AARa4'BQ,  #A8@+B1 
16  bit  unsigned  fixed  point  remainder  in  REK+B(^,^8Elf+Bl 

Result:  AARG,  REM  <-  AARG  /  BARG 
Max  Timing;  2+240+2  =  244  elks 

Min  Timing:  2+176+2  =  180  oiks 

PH:  2+240+1  =  243  DM:  6 

FXDieieU  CLRF  RQI+BO 

CLRF  REM4.ai: 
nDlV1616 

RETLW  0x00 

.********************************************************************************************** 
. ************  ********************************************************************************** 

16/15  Bit  Unsigned  Fixed  Point  Divide  16/15  ->  16.15 
Input:     16  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARG+Bl 

IS  bit  unsigned  fixed  point  divisor  in  BAR&fBO ,  BARG+Bl 
Use:         CALL  FXD1615U 

Output:   16  bit  unsigned  fixed  point  quotient  in  AARG+BO ,  AARG+Bl  *••■ 
15  bit  unsigned  fixed  point  remainder  in  REH+BO,  REM+Bl 

Result:   AARG,   REM     <-    AARG  /  BARG 

Max  Timing;  2+193+2  =  197  elks  ..ci^t' 

Min  Timing:  2+178+2  =  182  elks 

FM:  2+213+1  «  216  EH:  6  _ 

exDieisu  CLRF  RaiifBftiH.i,,-.  n     f.^f,,:  t  ■ 

CLRF  RBM<^|Dtg         -v  '1,  •  - 

DDIV1615 

RETLW  0x00 

. *************************************************************.*«******************************* 
. ********************************************************************************************** 

15/15  Bit  Unsigned  Fixed  Point  Divide  15/15  ->  15.15  - 
Input!     15  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARG+Bl 
15  bit  unsigned  fixed  point  divisor  in  BARG+BO,  BARG+Bl 
Oaer        <5ALL  FXD1515U 
Ou^RXt-p  15  bit  unsigned  fixed  point  quotient  in  AARG+BO,  AARG+Bl 

15  bit  unsigned  fixed  point  remainder  in  REH+BO,  RSI+Bl 
Result!  AARG,  REM    <-    AARG  /  BARG 

Max  Timing:  2+187+2  =  191  clkg  .  .'v-i;.        -  ->. 

Min  Timing:  2+173+2  =  177  elks 


A-iZS 


iMiiMiilfilii 


IMS  2+21Si***<-218  DM:  6 

raEttSlStJ  CtRF  REM+BO 

CLRF  REM+Bl 
UDIV1515 

RETLW  0x00 

********************************************************************************************** 
********************************************************************************************** 

16/8  Bit  a&ilBl»S^t$Smd  Point  Dividtt  IC/OS  ->  16.08 
It^t:     IS  bit  tixai  point  dividand  in  MRO+BO,  AARO+Bl 

8  bit  fixed  point  divisor  in  BASG+BO 
Usei        CXUi  FXD1608S 

Output:   16  bit  fixed  point  quotient  in  AARG+BO,  AAR6+B1 

8  bit  fixed  point  remainder  in  REM+BO 
REM    <-    AARG  /  BARG 


Result:  AARG, 
Hax  Timing) 


Min  Timing  1 


FXD160SS 


CA1608S 


PH:  14+122+10 
M}VFP 
XORWF 
MOVWF 
CLRF 
BTFSS 
GOTO 
COMP 

mcF 

asm) 


COMP 
INCF 
ADDWFC 


10*122+3  =  135  elks  A  >  0, 

11+122+11  =  144  elks 
13+122+H  =  146  elks 
14+122+3  =  139  elks 

10+122+3  =  135  elks  A  >  0, 

11+122+11  =  144  elks 
13+122+11  =  146  elks 
14+122+3  =  139  elks 

146  DM:  5 

AARG+B0,WREO 
BARG+BO,W 

sicai 

REH+BO,W 
BARG+BO,HSB 
CA1608S 
BARG+BO 
BARG+BO 
AARG+BO.MSB 
C1608S 
AARG+Bl 
AARQ+BO 
AARO+Bl 
AARG+BO 


B  >  0 


B  >  0 


A 
A 
A 

A 
A 
A 


0, 
0, 
0, 

0, 
0, 
0, 


if  MSB  set  30  It  negate  BARS 


;  if  MSB  set  go  &  negate  ACCa 


C1608S  someos 


BTPSS 
SSTLH 
COMP 


negate  (ACCcACCd) 


'  15A,V  ' '  ' 

jmoMPC 

COMP 


RBTLW 


************** 


0x00 
AARG+Bl 

AARG+BO 
•  ■  '  WREG 

AARG+Bl 
AARS+BO 

"RBK4«B0!-" 

0x00 
*************** 


t*********** 


16/8  Bit  Unsigned  Fixed  Point  Divide  16/08 
Zl^ut:     16  bit  unsigned  fixed  point  dividend  in  AARG+BO, 

8  bit  unsigned  fixed  point  divisor  in  BARG+BO 
XJms        002.  PXDieOSO 

Output:  16  bit  unsigned  fixed  point  quotient  in  AARG+BO, 

8  bit  unsigned  fixed  point  remainder  in  REM+BO 
Result:  AARG,   REM    <-    AARG  /  BARG 
Max  Timing;  1+193+2  =  196  elks 

Min  Timing:  1+153+2  =  156  elks 

FM:  1+193+1  =  195  EMs  4 


t  ************************  *****>**^)fc*** 
******  ************************************* 

16.08 


AARG+Bl 


AARG+Bl 


CLRF 
roiV1608 

RETLW 


****************** 


****** 
**************** 


RHI+BO 


0x00 
************* 


************* 


*************************** 


k  *  ******* 


*************** 

******* 


********** 
********* 


************* 


16/7  Bit  Unsigned  Fixed  Point  Divide  16/07  ->  16.07 
Input:     16  bit  unsigned  fixed  point  dividend  in  AARG+BO, 

7  Mt  unsigned  fixed  point  divisor  in  BARG+BO 
Use:        CSiLI.  PXD160TO 
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;  Output:  16  bit  unsigned  fixed  point  <3uotiellt  in  AJWO+BO,  J>iSDSi0l 

;  7  bit  unsigned  fixed  point  remainte:  in  RfflJ+BO 

;  Result:  AARG,   REM    <-    AARG  /  BARG 

;  Max  Timing:  1+127+2  =  130  elks 

Min  Timing:  1+127+2  =  130  elks 

PMi  1+127+1  =  129  ^  *, 

F3a31607U  CLRF  REH+BO 

troiV1607 

EETLW  0x00 
*******  ***************  Alt***  *******  ********************dk********iit*** 

, *****************************************************************#******#******:»************** 

;  15/7  Bit  Unsigned  Fixed  Point  Divide  15/07  ->  15.07 

;  Input:     15  bit  unsigned  fixed  point  dividend  in  AARG+BO,  Afl®0+Bl 

;  7  bit  unsigned  fixed  point  divisor  in  BARG+BO 

;  Use:        CALL  FXD1507U 

;  Output:  15  bit  unsigned  fixed  point  quotient  in  AARO+B0«  AAR6+B1 

.  7  bit  unsigned  fixed  point  rei||»|HliM;  in  KBJ+BO 

Result:   AARG,   REM    <-    AARG  /  BARG 
;  Max  Timing:  1+122+2  =  125  elks 

;  Min  Timing:  1+122+2  =  125  elks 

;  PM:   1+122+1  =  124  DM:  4 

F3CD1507U  CLRF 

ODIV1507 

RBTLW  0x00 
END 

.  ************ *************.#,«k#|k«#iir'«r^.*«A#.*'*^^^ 

.  ******************** ****%'^^'^#'ll4r*^|^^;*4]#^#'jft'^##|^*^^ 
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Implementing  IIR  Digital  Filters 


INTRODUCTION 

Utis  application  note  describes  the  implenienlalion,«# 
various  digital  filters  using  the  PIC17C42,  Ihefiisl  ni«n- 
ber  of  Microcliip's  2nd  generation  8'bit  microoQi^Ueis. 
Tbe  PJCI 7G42  l«a  very  high  speed  8-bit  microeontroller 
with  an  instruction  cycle  time  of  250ns  (916  Ml-lz  input 
clock).  Even  though  PIC17C42  is  an  8-blt  device,  it's 
high  speed  and  efficient  instruction  set  allows  imple- 
mentation of  digital  fitters  for  practical  applications. 
Traditionally  digital  filters  are  implemented  using  expen- 
sive Digital  Signal  Processors  (DSPs).  In  a  system  the 
DSP  is  normally  a  slave  processor  being  controlled  by 
either  an  8-  or  16-bit  microcontroller.  Where  sampling 
rales  are  not  high  (esp.  in  mechanical  control  systems), 
a  single  chip  solution  is  possible  using  the  PIC17C42. 

Thi$  appNcalion  note  provides  a  few  emnpfss  of  imple- 
inwKins  digital  filters.  Example  code  for  jtBd  iawter  tofl- 
nilB  Impulse  Response  QiP)  filters  b  giim.  ilMrfoUaw- 
ng  type  of  filters  are  itnplemeriteil:^.;  ' 

•  Low  Pass  •<-i'  ':^,=  b  -r-i.  i  itiii-  •..» 
.  High  Pass        '  '  "2!     ""^'^  •Wj 

•  Band  Pass 

•  Band  Stop  (notch)  filter 

This  application  note  does  not  explain  how  to  design  a 
filter.  Filter  design  theory  is  well  established  and  is 
beyond  the  scope  of  this  application  note.  It  is  assumed 
that  a  filter  is  designed  according  to  the  desired  specifi- 
cations. The  desired  digital  filters  may  be  designed 
using  either  standard  techniques  or  using  commonly 
available  digital  filter  design  software  packages. 

Finite  Impulse  Response  (FIR)  filters  have  many  advan- 
tages over  IIR  filters,  but  are  much  more  resource 
intensive  (both  in  temns  of  execution  time  and  RAM) .  On 
the  other  hand,  IIR  filters  are  quite  attractive  for  imple- 
menting with  the  PIC1 7C42  resources.  Especially  where 
phase  intotmation  is  not  so  important,  IIR  filters  are  a 
good  choice  (FIR  filters  have  a  linear  phase  response). 
Of  the  various  forms  used  for  realizing  digital  filters  (like, 
Direct  fomn.  Direct  II  form.  Cascade  fomi.  Parallel, 
Lattice  structure,  etc.)  the  Direct  II  form  is  used  in  this 
application  note.  It  is  easy  to  understand  artd  simple 
roacios  can  be  buitt  using  these  ■sSmgimm 


THEORY  OF  OPERATION 

Digital  fUleis  in  npost  casee;  assume  ttieloHowingifonn  of 
(cioyoiK^lidween  ttiexMriinit  and  input  seoMenoes. 


=*'-^ay(n-i)*^ 


«>iic(n-» 


The  above  equation  basically  states  that  the  present 
output  Is  a  wel^ted  sum  of  the  past  Inputs  and  past 
outputs.  In  case  of  FIR  filters,  the  weighted  constants 
ai=0  and  In  case  of  IIR  filters,  at  least  one  of  the  ai 
constant  is  non  zero.  In  case  of  IIR,  the  above  formula 
may  t>e  re  written  in  temis  of  Z  transfomi  as: 


M 

Zb,z* 

N 


f+Xa^z" 

k=i  ^ 

The  above  equation  can  further  be  rewritten  in  differ- 
ence equation  format  as  follows: 
M  N 

I       y(n)  =  -Xa|y(n-i)  +  XbjX(n-j) 

i=1  i=o 
RMBzationoftheatxjve  equation  Is  called  as  the  Direct 
Fbitn  II  structure.  For  example,  in  case  of  a  second  order 
structure,  MoN=2,  gives  the  following  difference  equa- 
ttons : 

d(n)  =  x(n)  +  a,d(n-1)  +  ajd(n-Z)  (1) 
y(n)  =  b,d(n)  +  b,d(n-1)  +  b,(d(n-2)  (2) 

The  above  difference  equations  may  be  represented  as 

shown  in  Figure  1 . 

FIGURE  1  -  2ND  ORDER  DIRECT  FORM  II 
STRUCTURE  (TR/GNSPOSED) 
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The  structure  as  shown  in  Figure  1  may  be  cascaded  to 
^ainahigherorderfilter.  For  example,  Iftwo  stages  are 
Cascaded  together,  a  4th  Order  IIR  Filter  is  obtained. 
This  way,  the  output  of  the  1  st  stage  becomes  the  input 
to  the  second  stage.  Muttiple  order  filters  are  thus 
implemented  by  cascading  ajg|)|^i^9^1iVerslnAf9a$ 
shown  in  Figure  1. 

IMPLEMENTATION 

A  4th  order  IIR  Filter  is  implemented  by  cascading  two 
structures  shown  in  Figure  1.  The  output  Y  (output  of 
each  fitter  stage)  is  computed  by  direct  Implementation 
of  Equations  (1)  &  (2).  Since  each  stage  is  similar 
algorlthmlcally,  it  is  implemented  as  a  Macro  using 
Microchip's  Assembler/LinkerforPIC17C42. This  Macro 
(labelled  "BIQUAD")  is  called  twice  for  implementing  a 
4th  order  filter.  The  output  of  the  1  st  stage  is  directly  fed 
to  the  input  of  the  second  stage  without  any  scaling. 

baling  Is  required  depending  on  the  particuto  applica- 
Vitm.  The  User  can  modify  #d  eode'^^ty  easily  vMioUt 
£viy  penalty  on  speed.  Alse^teMI  artthmeUisIs  not 
used.  Overflows  can  be  avoided  by  limiting  the  ftiput 
sequence  amplitude.  All  numbers  are  assumed  to  be  16 
bits  in  Q15  format  (15  decimal  points,  MSB  is  sign  bit). 
Thus  the  user  must  scale  and  sign  extend  the  input 
sequence  accordingly.  For  example,  if  the  input  is  from 
a  12-bit  AJD  converter,  the  user  must  sign  extend  the 
12-bit  Input  if  bit  1 1  is  a  one. 

The  BIOUADri^ro  is  a  generic  macro  and  can  be  used 
fm;^  Iffi  fitters  whether  It  is  Low  Pass^  HigH'Nss,  iand 
n»sor  Bland  Stop.  A  general  puip(^  16X16  multiptier 
routine  Is  also  provided.  Wis  fbiM^ai$^iii#tMnented  as 
a  straight  line  code  fiSr^peed  consMdraticms. 

The  4th  order  IIR  filter  implemented  is  a  Low  Pass  Filter 
wiDi  the  specif  ications  as  shown  in  Table  1 . 

TABLE  1  -  FILTER  CONSTANTS 


TABLE  2  -  FILTER  COEFFICIENTS 


BAND1 

BAND2 

Lower  Band  Edge 

0.0 

600  Hz 

Upper  Band        ,  , 

500  Hz 

-    -■  '   

1  Khz 

Nominal  Gain 

1.0 

0.0 

Nominal  Ripple 

0.01 

0.05 

Maximum  Ripple  ,^  . 

0.00906 

0.04601 

 — —    ;  J — 

Ripple  in  dB 

0.07830 

-26.75 

Sampling  Frequency  =  2  Khz 

The  Low  Pass  Filter  is  designed  using  a  digital  filler 
design  pacl<age  (DFDP  by  Atlanta  Signal  Processors 
Inc.).  The  filter  package  produces  filter  constants  of  the 
structure  shown  in  Table  1 .  Table  2  shows  the  filter  co- 
I  efficients  that  are  obtained  for  the  above  Low  Pass  filter 


Co-efflclents 

a1 

a2 

bO 

b1 

b2 

Stage  1 

-0.133331 

0.167145 

0.285431 

0.462921 

0.285431 

S&ge2 

0.147827 

0.765900 

0.698273 

0.499908 

0.G98273 

The  above  filterco-efficients  (5  per  stage)  are  quantized 
to  Q15  fomnat  (i.e  they  are  multiplied  by  32768)  and 
saved  in  program  memory  (starting  at  label 
*'_coeff_lpass") .  The  constants  for  both  the  stages  are 
read  into  data  memory  using  TLRD  and  TABLRD  in- 
structions in  the  Initialization  Routine  (labelled 
"InitFllter").  The  user  may  read  the  coefficients  of  only 
one  stage  at  a  time  and  save  some  RAM  at  the  expense 
Of  ^eeet; 

The  sample  4th  order  Low  Pass  IIR  Filter  is  tested  by 
analyzing  the  impulse  response  of  the  fitter.  An  impulse 
signal  Is  fed  as  input  to  the  fitter.  This  is  simulated  by 
forcing  the  input  to  the  fitter  by  a  large  quantity  (say 
7F00h)  on  the  first  input  sample,  and  the  all  leros  from 
the  2nd  sample  onwards.  The  output  sequerice  is  the 
fiKeffs  impulse  response  and  is  captured  into  the 
PICMASTER's  (Microchip's  Universal  In^Circuit  Emula- 
tor) real  time  trace  buffer.  This  captured  data  from 
PICM  ASTER  is  saved  to  file  and  analyzed.  Analysis  was 
done  using  MathCad  for  Windows  and  DSP  Analysis 
programfrom  Burr-Brown  (DSPI.^Y).  The  FourierTrans- 
form  of  this  Impulse  response  of  the  filter  should  display 
the  Filter's  frequency  response,  in  this  case  being  a  Low 
Pass  type.  The  plots  of  the  Impulse  response  and  the 
frequency  response  are  shown  in  figures  below. 

FIGURE  2  -  IMPULSE  RESPONSE 

CAPTURED  FROM  PIC-MASTEft 
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0 
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DSPLAY  is  a  trademark  of  Burr-Brovm 
DFDP  is  a  trademark  of  Atlanta  Signal  Processing  Inc. 
Windows  is  a  trademark  of  Microsoft  Corporation 
MathCad  Is  a  registered  trademark  of  MathSoft,  Inc. 
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FIGURE  3  •  SPECTRUM  COMPUTED  FROM 
IMPULSE  RESPONSE 
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FIGURE  4  -  LOG  MAGNITUDE  SPECTRUM 
OF  IMPULSE  RESPONSE 
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PERFORMANCE 

The  resource  requirements  for  filter  impleinentations 
using  PIC1 7C42  ^en  k>elow.  These  numbers  cm  be 
used  to  determine  whether  a  higher  order  filter  can  bl 
executed  in  remir^.T^  same  lnform<B)gq{)  ^ 
used  to  detennine  the  highest  sampling  rale  possible.: 

FILTER  APPLICATIONS 

Digital  filters  find  applications  in  many  areas  especially 
Involving  processing  of  real  world  signals.  In  some 
applications  lil<e  ABS  systems  in  an  automobile,  digital 
filtering  tjecomes  a  must.  In  this  case  elimination  of 
noise  (especially  glitches  and  false  readings  of  sensors) 
is  very  critical  and  thus  the  requirement  of  digital  signal 
processing. 


DigHal  fitters  are  also  needed  in  Process  Control  where 
notch  fUter$|VKl  low  pass  fillers  are  desired  because  the 
signals  f  rom  'isensots  are  transmitted  over  long  lines, 
especially  in  a  very  noisy  environment.  In  this  case 
typically  a  notch  filter  (centering  50Hz  or  60Hz)  is  used. 
In  case  of  eliminating  background  noise,  a  band  stop 
filter  (e.g.  40Hz  to  120Hz)  is  used.  The  sample  code 
given  in  this  application  note  can  be  used  to  design  a 
feedback  control  system's  digital  compensator.  For 
example,  a  typical  DC  Motor's  digital  compensator  (lil<e 
dead  beat  compensator)  is  of  second  order  and  has  the 
samefilter  structure's  is  implemented  in  this  application 
note. 


TABLE  3  -  RESOURCE  REQUIREMENTS 


Timing  (Cycles)t 

#of  Filter  Stages*775  +  16 

Program  Memory  (localions)t 

#3f  Filter  Stages*68-i- 290 

RAM  (File  Registers) 

#af  Filter  Stages*16-f  16 

f:  The  atx>ve  numbers  do  not  include  the  initialization 
routkie. 


Author.  Amar  Palachoria 

' '         Pmducls  IXvision 


TABLE  4  -  RESOURCE  ReOUIREMENTS 


Filter  Order 

Cycles 

Real  Time 

Maximum 

Program 

RAM 

(®  16  I^Hz) 

Sampling 

Memoryt 

2 

'  •    ■  f9t 

t97.7S  uSec 

5.(BKhz 

358 

32 

4 

1566 

391.5  uSec 

2.55  Khz 

426 

48 

6 

2341 

585.25  uSec 

1.7  Khz 

494 

64 

8 

3116 

779.0  uSec 

1.28  Khz 

562 

80 

10 

3891 

972.75  uSec 

1.0  Khz 

630 

96 

t:  The  above  numbere  do  not  Include  the  inlHdization  rouUne. 
9,1993,Mi9iOch^  Technok^y  Inp. 


DS00540Bi3age  3 


4-131 


tmplementing  IIR  Digitat  Filters 


ApemmmtamJLST 

saw  3a- 

MPASM  BO.  54    PftSB  1 

OiBital  IIR  ^A^.t«w:^*ijtJ  ?IC17C42 


TITLE  "Digital  IIR  Filter  Using  PIC17C42" 
LIST  P«17C4a,  C=120,  Tt=OH,  R=DEC,  N=0 


Iziclude  '17042. h' 


include  "17c42.mac" 


include  *17c42iir.inac' 

*tt^*1H,M.1l*****  ************************  **********************  ******* 

PIC17C42  MACRO 


1  0001 


Kacro  For  A  Bi-Quad  IIR  Filter 
2f>^_  ox^^.  Dli;«c;t  Fonn  (T;;ai)9pq8ed)  Type 

i^il'ter  eo-eliicients  BO  £  B2  are  assun^  equal 


The  difference  equations  for  each  cascade  section  is  given  by 
Y(n)   =  BO*D(n)   +  Bl*D(n-l)   +  B2*D(n-2) 
D(n)    =  X(n)    -  Al*D(n-l)    -  A2*D(n-2) 
where  X(n)   =  input  sample,  Y(n)   =  output  of  filter 
and  Al,  A2,  BO,  Bl,  B2  are  the  Filter  Co-efficients 

The  above  difference  equations  are  only  fear  1  scictlon  of  a 
2nd  order  Direct_Form  II  Filter  structure  <IIR} 

NOTE  ; 

It  is  possible  to  design  the  above  structures 
such  that  the  co-efficients  BO  =  B2.  If  this  is  the 
case, 

VCn)  =  BO*[D(n)  +  D(n-2)]  =  B2*[D(n)  +  D(n-2n 
This  way,  one  multiplication  can  be  avoided 

If  a  4th  order  filter  is  to  be  inplemented,  the  output  of 
the  1st  structure  should  be  iiipi^t  to  the  2nd  cascade  section 


TlJDiaS  (WORST  C|kSB) 
Program  Memory  : 


59*4*179  =  775  Cycles 
(194  us  0  16  mz) 

63  locations 


************************************************** 
The  sample  filters  are  desined  so  fchilt  B0^B2 
This  saves  1  multiplication 


************* 


B0_EQOALS_B2 

-  f 

J  **********  * 


equ 


TRUE 


**********************  ******************************************* 
Parameters  to  BIQUAO  Macro  : 

Filter  Constants  Al,  A2,   BO,   Bl,  B2 
&  D(n),  D(n-l),  D(n-2),  filter  stage  # 

BI§rab    MACRO      A3U.i  Aid,  BxO.Bxl,  On,  I>n^l,Dn_2,  stage 
Cos^te  Ax2*D(n-2) 


4-132 


IniplmeiipilWDigital  Filters 


M0VFP16  On  J ,  AARG 
call  Bblinilt 


D<n-2)  =  nmltiplier 
e,$3  s  snltiplleaiid  . 
(ACCd.ACCc)  =  A2*D(i|-2) 


Add  product  to  output  of  1st  section 
Save  result  in  32  bit  Accumulator 


ADD32 


DPX.ACC 


;    Confute  Al*D(n'-l) 
% 

M0VFF16  Dn_l,AARS 
M0VFP16  Axl.BARG 
call  OblMalt 


AAKG  =  D(n-2)   =  multiplier 
BASG  =  A2  =  multiplicand 
(ACCd.ACCc)  =  Al*I)(n-l) 


Gcnpute  Al*D(n-l)  +  A2*P(n-2)  +  output  of  previous  section 

raultiplic&tlCTis  already  done,  so  simply  perform  a  32  bit  add 
of  prgvigai^if  ajjJMUioii  awlitiplAga^ioo  reaulta 


AOD32  DPX.ACC 


save  the  upper  16  bits     of  I 
left  shift  the  result  by  1, 
A  Q1S*Q15  nUtiplitsattion 


ACC  =  Al*D(n-l)+A2*D(n-2)  +  (oatput  of  lat 


i(n)   from  the  32  bit  accumulator 
to  adjust  the  decimal  point  after 


rlcf 
rlcf 
siovwf 
rlcf 
movwf 
t  ;  •  :  -jr  ■  ■ 

;  Compute  B2 


ACC+B1,W 
ACC+B2,W 
Dn 

ACC+B3,W 
Dn-fBl 


^|pciml:««HDst  (  wit  by  2) 


♦  [D(n)  +  D<n-2)] 


if  B0_EQUALS_B2 
ADD! 6 ACC  Dn_2,Dn,AARG 
M0VFP16  BxO.BARO 
call  DblHult 


else 

M0VFP16 

M0VFP16 

call 

MOVPF32 


BxO.BARG 
Dn, AARG 
DblMult 
DPX,ACC 


AARG  =  Dn  +  D(n-2)  =  multiplier 
BARG  =  A2  =  multiplicand 
(ACCd,ACCc)   =  B2*  [D(n)+D(n-2)  ] 


BO*D(n) 


:  '.3 


Bx2,BARG 
Dn_2,A»IS 
OblMalt 
DPX.ACC 


M0VFP16 

M0VFP16 
call 
ADD32 

ondif  . , 

; 

;  shift  down  D(n-l)  to  D(n-2)  after  D(n-2)  usage  is  no  longer  required. 
;  This  way  in  the  next  iteration  D(n-2)  is  equal  to  the  present  D(n-l) 

{     ■     ■.  :,-   .  n 


movfp 
movpf 
M0VFP16 
call 


Dn_l.AARa+BO 

AARG+BO ,  Dn_2 
Dn_l+B1,AARG+Bl 
AARG+Bl,DnJ+Bl 
Bxl , BARS 
DblMult 


Shift  down  D(n-l) 

AARG  =  D(n-l)  =  multiplier 
BARG  =  Bl  =  multiplicand 
(ACCd,ACCc)   =  Bl*D(n-l) 


I^eoncmte  Oat)^  Y  >  Bl*D(n-l) 


B2*D(n-2)  +  BO*D(n) 


Since  all  multipli^CJasaa  ara  alr«a^-AMk,  aiaiply  pwcfozm  a 

32  bit  addition 


ADD32  DPX,ACC 


;  ACC  =  Bl*D(n-l)   +  B2*D(n-2)   +  BO*D(n) 
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'Shift-'dovoi  D(n)  to  D(n-l)  so  that  in  fehe  nesct  l<teratlon,  the  new 
D(n-l)  is  the  present  D(n) 


Dn,Dn_l 


shift  down  D(n)   to  D(n-l) 


..q 
-  J 


**********  Hie  it*  it**  tit*  *  *  *************************  ****************** 

Second  Order  Direct  Form  IIR  Filter 

la  the  code  given  below,  a  4th  order  IIR  Elliptic  Lowpass  Filter 
is  implemented.  Other  order  filters  may  be  iinplemented 
taking  the  following  example  code  as  a  basis. 

The  specifications  of  the  filter  are  i 

Sampling  Frequency  =2.0  Khz 

Filter  Type  =  4th  Order  elliptic  LoK!pass  Filter 


Lower  Band  Edge 
Upper  Band  Edge 
Ncnninal  Gain 
NCTii&al,  Ripple 
Maximusn  Ripple 
Ripple  in  dB 


Band! 
0.0 

500  Hz 
1.0 
0.01 
0.00906 
0 . 07S3IQ 


Band2 

600  Hz 

1  Khz 

0.0 

0.05 

0.04601 

-26.75 


The  Filter  Co-efficients  for  the  above  specifications 
of  the  filter  are  computed  as  follows  i 

1st  Section  ! 


All 

-0.133331 

A12 

0.167145 

BIO 

0.285431 

Bll 

0.462921 

B12 

0.285431 

;           2nd  Section 

A21 

0. 147827 

A22 

0.765900 

B20 

0.698273 

:B21. 

0 . 499906 

B22 

0.698273 

Ferfexmance  (WORST  Case) t 


Cycles       =  #o£  Jiltex  gt(»gea*77S  t  16 
=  2*775+16  =  1566  Cycles 
(  391  usee) 
per  each  sample.  Initialization 
time  after  reset  is  not  counted 
Timing  measured  with  B0_EQUALS_B2 
set  to  TRUE  (see  BIQUAD  Macro  for 
explanation 


Program  Manory 


=  16+  #  of  FilterStages  *  (BIQtlSD 
+  filter  co-efficients) 
+  multiplier 

=  16+2* (63+5) +274  =  421  locations 
(excluding  initialization) 


RAH  usage  =  4.8  file  registers 
RAM  usage/each  additional  stagre 


16  file  regs 


@  1993  MIcroehIp  TecHnoldgjr  Inc. 
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0000  0004 


;  "Hiis  time  is  less  than  2  Khz  (500  uSec) , 

rif  1  vAiich  mesnia  xealt .  tine  filtering  is  possilil«'. 

. ******************************************************************* 


CBLOCK  0 
B0,B1,B2,B3 


CMLOCK  0x18 


0018 

0004 

DFX ,  DPXl ,  DPX2 ,  DPX3 

• 

arittBoetic  accumulator 

OOlC 

0004 

AARG,  HABOl ,  BABG,  BARSl 

! 

nultiply  arguments 

CBLOCK 

0020 

0002 

Dnl, 

Dnl_Hi 

0022 

0002 

Dnl_: 

L,  Dnl_l_Hi 

0024 

0002 

Dnl_2,  Elnl_2_Hi 

0026 

0000          ■  .  ■ 

0026 

0002 

Dn2, 

Dn2_Hi 

0028 

0002 

Da2_X,  nn2_l_Hi 

002A 

0002 

nn2_2,  nn2_2_pi 

ENDC 

CBLOCK                    1.  - 

002C 

0002 

All, 

All_Hi 

002E 

0002 

A12, 

A12_Hi 

0030 

0002 

BIO, 

B10_Hi 

0032 

0002 

Bll, 

Bll_Si 

1st  Section  Filter  Co-efficients 

0034 

0002 

B12, 

(B12.B^i  s'.-i'. 

0036 

0000 

0036 

0002 

A21, 

A21_Hi 

0038 

0002 

A22, 

A22_Hi 

003A 

0002 

B20, 

B2  0_Hi 

003C 

0002 

B21, 

B21_Hi 

-2nd  Section  Filter  Co-ef£ici«at8 

003E 

0002 

B22, 

B22_Hi 

ENDC 

CBLOCK 

0040 

0002 

X,  XI 

16  bits  of  input  stream 

0042 

0002 

y,  yi 

16  bits  of  filter  output 

0044 

0000 

0044 

0004 

ACC, 

ACCl,  ACC2,  ACC3 

32  bit  accumulator  for  confutations 

BHDC 

0002 

Fltatsge 

OSOA 

MtdoCoeff 

mm         (S*FltStage)  ; 

5  Co-ef£  per  stage 

0001 

LPASS      . set 

TRUE 

0000 

HPASS  .set 

FALSE 

0000 

BBASS  .set 

FALSE 

select  the  desired  filter  type 

0000 

&STOP  .set 

0001 

SIGNED  eqa 

Set  This  To  'TRUE'   for  signed  imilti 

;  L  ;  and  *  FALSE'  for  unsigned. 

.******************************************************************* 
;  Test  nrogma        £o«i  Pass  Filter 

mm  mimm 


0000  EOOD 


initFilter 
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M#l  SSQ^  raovlw  OxOa 

B003  -  mM%vr6-tBi0£.  |  set  initial  Xn  =  X(0)  =  0x7£00 

0004  0141  movwf  X+Bl  ;  test  for  linpulse  response 

NextPoint 

0005  E022  ■     ^'    '•■      •  call  IIR_Filter 

0006  A442  tlwt  _LOW,Y 

tra<:e?oint 

0007  AE43  tablwt  _HI<a!,  0,  X+Bl 

0008  0000  nop 

0009  2940  clrf  X  ;  set  X(n)  =0  ,  n  <>  0 
OOOA  2941  ■  '              clrf  X+Bl  ;  for  simulating  an  Impulse 
OOOB  COOS  goto  NextPoint 

OOOe  COOC  lo'.i.self       goto  self 


.  Itit********************  it**************  ***************  **************** 


initFilter 


At  first  read  the  Filter  Co-efficients  from  Prog.  Hem  to  Data  RAM 


OOOD  BOCl 
OOOE  OlOD 
OOOF  BOOl 
0010  OlOE 


if 


endif 
if 


endif 
if 


endif 
if 


LPASS 
movlw 
movwf 
movlw 
movwf 

HPASS 
movlw 
^movwf 
movlw 
movwf 

BPASS 
movlw 
movwf 
movlw 
movwf 

BSTOP 
movlw 
movwf 
movlw 
movwf 


_coeff_lpass 
tblptrl 

page  _coeff_lpass 
tblptrh 


_<S3ef  f_]hpass  . 
tblptrl 

page  _coef  f_l^)ass 
tblptrh 


_c  oe  f  f _bpass 

tblptrl 

page  _ooeff_bpaSB 
tblptrh 


_coef f_bstop 
tblptrl 

page  _coeff_bstop 
tblptrh 


0011  B02C 

0012  0101 

0013  S404 

0014  8D04 


movlw 
movwf 
bsf 
bef 


All 

fsrO 
_fsO 
_fsl 


auto  increment 


Read  Filter  Co-efficients  from  Ptogram  Memory 


0015  BOOA 

0016  A92C 

0017  AOOO- 

0018  ABOO 

0019  1700 
OOIA  C017 


IfumCoef  f 
_L0W,_INC,A11 


movlw 
tablrd 
NextCoeff 

tlrd        _LOW, indf 0 
tablrd     _HIGH,_INC,  indf  0 
" '    ■  decf sz  wreg 

goto  NextCoeff 


garbage 


Initilize  'Dn's  to  zero 


movlw 


Btti 
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OOIC  0101 
OOID  BOOC 

OOIE  2900 
OOIF  1700 
0020  CO IE 


movwf 
:  movlw 


NttctClr 


fsrO 

6*FltStage 


clrf 


0021  0002 


return 


;  1st  Cascade  Section 


OS-:  -./  ^  tSi  :.r 


J'.,  ^ 


Coiii)Ute    D{n)  =  X(n)  +  Al*D(n-l)  +  A2*D(n-2) 

c  SliBce  tjje  filter  ccntffeiuits  ass  jeci0ipi»t»tjad  In  Q15  fomiKt, 

X(n)  must  be  multiplied       2**15  and  then  a^ded  to  the 

other  terms . 

Hove  Input  to  accumulator  after  proper  scaling 


0022 

8804 

bof 

_cariy 

1841 

rrcf 

.  X4.B1. 

0024 

1940  . 

rrcf 

X 

0025 

2900 

clrf 

wreg 

0026 

1900 

rrcf 

wreg 

0027 

0145 

movwf 

ACC+Bl 

0028 

6040 

movfp 

X,  wreg 

0029 

0146 

movwf 

ACC+B2 

002A 

6041 

inovfp 

X+Bl,wreg 

002B 

0147 

movwf 

ACC+B3 

seal*  the  ixipat  X 


,-  ACC  =  scaled  iz^t  i  X*  (2**15) 


;  l«t  Bjt^iad  Sill  tec  aectden 


CcBpute  A12*D(n-2) 

..rat-*  ■ 


002C  7C24 
002D  7D25 


MOVFP  Dnl_2+B0,AARG  +  B0 
MOVFP  Dnl_2+B1,AARG+Bl 


move  Dnl_2(B0)  to  AARG(BO) 
move  DnlJ2(Bl)    to  AARG(Bl) 


002E  7E2B 
002F  7F2P 


0030  EOAF 


MOVFP  A12+BO,BARG+B0 
MOVFP      A12  +31 ,  BARG-f  Bl 

call  DblMult 

Add  product  to  output  of  Ist  section 
Save  ra«utl^       32-  M#  J^^sanuXatov  I  '  i 


move  A12 (BO) 
move  A12  (Bl) 


to  BA31G(B0) 
to  BARG(Bl) 


(ACCd.ACCc)   =  A2*D(n-2) 


0031  6018 

0032  0F44 

0033  5019 

0034  1145 

0035  601A 

0036  1146 


MOVFP  DPX+BO,WREG 

ADDWF  ACC+BO 

MOVFP  DPX+B1,WREG 

'  Asamc  Acc+Bi  .1 

.).,III6VFe  DeZ+B2,HREQ' 


get  lowest  byte  of  DPX  into  w 

add  lowest  byte  of  ACC,  save  in  ACC.(BO 

get  2nd  byte  of  DPX  into  w 

add  2nd  l^yte  of  ACC,  save  in  ACC(Bl) 

get  3rd  tiyte  of  DFX  into  w.  . 

a^        ifflm  e|  ACC,  save  in  ACC(B2) 
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f»S37  eoiB 
0S3«  1147 


MDVFP 
ADDHFC 


DPX+B3,WREG 
ACC+B3 


get  1th  byte  of  DK  into  w 

add  4th  ivte  of  SCC,  save  in'  Aee(B3) 


Compute  Al*D(n-l) 


0039  7C22  MOVFP      Dnl_l+BO , AARG+BO  ;  move  Dnl_l(BO)    to  AARG(BO) 

003A  7D23  MOVFP-    Dnl_l+Bl,MR&fBl  ;  move  Dnl_l(Bl)  to  AARa(Bl) 


003B  7E2C 
003C  7F2D 


MOVFP 
MOVPP 


All+BCBARG+BO 
A11+B1,BASG+B1 


move  All  (BO)  to  BARG(BO) 
move  All(Bl)  to  BARG(Bl) 


003D  BOAF 


call 


DblMult 


(ACCd.ACCc)  =  Al*D(n-l) 


;'  CsnputecAa^-tSbt-l)  '•'-A3>*D(ii-2)     ^u^put  e£  previous  section 

;  '  Bnl,t:i3^1ieati<»s  already  debei  so  sliiply  perform  a  32  bit  add 

;  of  previously  obtained  ma]Aiplieati«i  results 


003E  6018 
003F  0F44 

0040  6019 

0041  1145 

0042  601A 

0043  1146 

0044  601B 

0045  1147 


MOVFP 
AODHF 
MOVFP 
ADDWFC 

MOVFP 
ADDWFC 
MOVFP 
ADDWFC 


DPX+BO,WREG 

ACC+BO 

DPX-fBl.VniEG 

ACC+Bl 

DPX+B2,WREG 

ACCtB2 

DPX+B3,HRE0 

ACC+B3 


get  lowest  byte  of  DPX  into  w 

add  loii»st  tvte  of  ACC.save 'in  ACC(BO) 

get  2nd  byte  of  DPX  into  W 

add  2nd  byte  of  ACC,   save  in  ACC(Bl) 

get  3rd  byte  of  DPX  into  w 

add  3rd  byte  of  ACC,   save  in  ACC(B2) 

get  4th  byte  of  DPX  into  w 

add  4th  byte  of  ACC,   save  in  ACC(B3) 


d04S  IMS 

0047  1A4S 

0048  0120 

0049  1A47 
004A  0121 


save  the  upper  16  bits    of  D(n)   from  the  32  bit  accumulator 
left  shift  the  result  by  1,  to  adjust  the  decimal  point  after 
a  Q15*Q15  nultiplitiation 


rlcf 
rlcf 
movwf 
rlcf 

movwf 


ACC+Bl, w 
ACC+B2,W 
Dnl 

ACC+B3,W 

Dnl+Bl 


Compute  B2  *  [D(n)  +  D(n-2)J 
if  B0_EQUAI,S_B2 


decimal  adjust  (  mult  by  2) 


004B  6024 
004C  0E20 
00«B  one 
0  ««B  60  25 
0047  1821 
OOfO  out} 

0051  7E30 

0052  7F31 

0053  EOAF 

0054  5844 

0055  5945 
Q056-5A46 
0057  SB47 


movfp 

addwf 

movwf 

movfp 

addwfc 

movwf 

MOVFP 

MOVFP 

call 

MOVPF 

MOVPF 

MOVPF 

MOVPF 


Dnl_2+B0,wreg 

Dnl+BO,w 

AARG+BO 

Dnl_2+Bl,wreg 

Dnl+Bl ,w 

AARG+Bl 

B10+B0,BARG+B0 

B10+B1,BARG+B1 

DblMult 

DPX+BO,ACC+BO 

DPX+Bl, ACC+Bl 

DFX+B2,ACC+B2 

DFX+B3,ACC+B3 


move  BIO (BO)  to  BARG(BO) 

move  BlO(Bl)  to  BARG(Bl) 
(ACCd,ACCc)    =  B2*[D(n)+D(n-2)] 

move  DPX (BO)  to  ACC (BO) 

move  DPX(Bl)  to  ACC(Bl) 

nBWe  .DPX(B2)  to  ACC(B2) 

more  DPX(B3)  to  ACC(B3) 
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0058  7C22 

0059  5C24 
005A  7D23 
005B  5D2S 
005C  7B3? 
005D  7F33 
005E  EOAF 


005F  601« 
OOSO  0F44 
OOei  6019 

0062  1145 

0063  eoiA 

0064  1146 

0065  SOIB 

0066  1147 


0067  6020 

0068  0122 

0069  6021 
006A  0123 


006B  7C2A 
006C  7D2B 


006E  7F39 
006F  EOAF 


110VFP16  BIO.BARG 
MOVFPie  Dnl.AARG 
call  DblMult 
MOVPF32  DPX,ACC 
M0VPP16  Bx2,BARG 
MOVFP16  Dnl_2,AARG 
call  DblHult 
ADD32  PPX.ACC 


f  RO*D(n| 


B2*D(n-2) 


Shift  dawn  Ofn-l)  to  D(n-2)  aftex  D(ii-2)  usage  is  no  longer  required. 
fXbls  way  is  the  next  iteration  Dtn-^S)  is  equal  to  the  present  D(n-l) 


movfp 
movpf 
movfp 
movpf 
MOVFP 
MOVFP 
call 


Dnl_l, AARG+BO 

AARG+B0,Dnl_2 

Dnl_l+Bl , AARG+Bl 

AARG+Bl,Dnl_2+Bl 

lll^pOiBAiUiSABO 

B11+B1,BAR6+B1 

DblMult 


Shift  down  D(n-l) 

AARG  =  D(n-l)  =  multiplier 
move  Sll(BO)  to  BARO(BO) 
move  Bll(Bl)   to  BAItG(Bl) 
(ACCd.ACCc)   =  Bl*D(n-l) 


Conpute  Output  Y  =  Bl*D(n-l)   +  B2*D(n-2)   +  BO*D(n) 

=  Bl*D(n-l)    +  BO*(D(n)   +  D(n-2)] 
Since  all  multiplications  are  already  done,  sinply  perform  a 
32  bit  addition 


MOVFP 

DPX+BO,WREG 

ADDWF 

ACC+BO 

MOVFP 

DPX+Bl , WREG 

.  .  .  s 

t:-  ADDWFC 

ACC+Bl 

MOVFP 

DPX'i'B2,WREG 

ADDWFC 

ACC+B2 

MOVFP 

DPX+B3,WREG 

ADDWFC 

ACC+B3 

;  Shift  down  D(n)  to  D(n-l)  so 

that  in 

;  D(n-l)  1»  «MI 

gsNWU;  S(n) 

MOVFP 

Dnl+BO.HRBG 

MOWF 

nnl_l+BO 

get  lowest  byte  of  DPX  into  w 

add  lowest  byte  of  ACC,   save  in  ACe{BO) 

get  2nd  byte  of  DPX  into  w 

add  2nd  byte  of  ACC,   save  in  ACe(Bl) 

get  3rd  byte  of  DPX  into  w 

am  3rd  byte  of  ACC,  save  in  ACC(B2) 

get  4  th  byte  of  DPX  into  w 

add  4th  byte  of  ACC,  save  in  AiCC(B3) 


;  get  byte  of  Dnl  into  w 
;  move  to  Dnl_l(BO) 
;  get  byte  of  IMI  into  w 
;  MWe  to  Oal_l(Bl) 


2nd  Biquad  filter  section 

BIQOAD  A21,A22,B20,B21,Dn2,Dn2_l,Dn2_2,2 

;  Coiq^ate  A22*D(lt-2) 

MOVFP  Dn2_2+B0, AARG+BO 

MOVFP  Dn2_2+Bl,  AARG+Bl 

MOVFP  A22+B0,BARG+B0 

MOVFP  A22+B1,BARG+B1 

call  DblMult 

Add  pc^Sits^  to  output  of  1st  section 
Save  MialSti  In  32  bit  Accumulator 


move  Dn2_2(B0)    to  AARG (BO) 
move  Dn2_2(Bl)    to  AARG(Bl)    D06D  7E38 
move  A22(B0)    to  BARG(BO) 
move  A22{B1)    to  BARG(Bl) 
(ACCd>ACCc)   >  A2*D(n-2)  . 


0070 

6018 

MSVFP 

DPX+BO.HRBG 

0071 

0F44 

txmF 

ACC+BO 

0072 

6019 

MOVFP 

DPX+Bl,  WREG 

0073 

1145 

ADDWFC 

ACC+Bl 

0074 

601A 

MOVFP 

DPX+B2 , WREG 

0075 

1146 

ADDWFC 

ACC+B2 

0076 

601B 

MOVFP 

DPX+B3 , WREG 

;  get  lowest  byte  of  DPX  into  w 

;  add  lowest  byte  of  ACC,  save  in  ACC(BO) 

;  get  2nd  byte  of  DPX  into  w 

;  add  2nd  byte  of  ACC,  save  in.ACCfBl) 

■■y;     ;  get  3rd  byte  of  DPX  into  w  " 

;  add  3rd  byte  of  ACC,  save  in  ACC(B2) 
;  get  4th  byte  of  DPX  into  w 
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0077  1147 


ADDHFC  ACC+B3 


add  4th  byte  of  ACC,  save  In  ACC(B3) 


Coaicnite  Al*D(n-l) 


0078  7C28 

0079  7D29 


MOVFP 
MOVFP 


Dn2_l+B0,AARG+B0 
Dn2_l+Bl , AARG+Bl 


;  move  Dn2_l(B0)  to  AARG(BO) 
;  move  Dn2_l(Bl)    to  AARG(Bl) 


007A  7E36 
007B  7F37 


MOVFP 
MOVFP 


A21+B0,BARG+B0 
A21+B1,BARG+B1 


;■  rasve  A21(B0)  to  BARG(BO) 
;  move  A21(B1)    to  BARG(Bl) 


007C  EOAP 


call 


DblMult 


(ACCd.ACCc)   =  Al*D(n-l) 


Compute  Al*D(n-l)  +  A2*D(n-2)  +  output  of  previous  section 

xnultiplications  already  done,  so  singly  perform  a  32  bit  add 
of  previously  obtained  multiplication  results 


007D  6018 
007E  0F44 
007F  6019 

0080  1145 

0081  601& 
OSM  1146 
0083  601B 
miS4  1147- 


MOVFP 
ADDWF 
MOVFP 
ADDWFC 

MOVFP 
ADDWFC 
MOVFP 
ADDWFC 


DPX+BO,WRBG 

ACC+BO  - 

DFX+B1,HRS0 

ACC+Bl 

DPX+B2,WRBG 

ACC+B2 

DPX+BS.HHEG 

ACC+B3 


get  lowest  byte  of  DPX  into  w 

add  lowest  byte  of  ACC,  save  in  ACC(BO) 

get  2nd  byte  of  OPX  into  v 

add  2nd  byte  of  ACC,  save  in  ACC(Bl) 

get  3rd  byte  of  DPX  into  w 

add  3rd  byte  of  ACC,   save  in  AGC(B2) 

get  4th  byte  of  DPX  into  w 

a'<Id  4th  byte  of  ACC,  save  in  ACC(B3) 


0085  1A45 
008S  1A46 
O0S7  0126 

0088  1A47 

0089  0127 


save  the  upper  16  bits    of  D(n]  f retot^  the  32  bit  acciumilator 
left  shift  the  result  by  1,  to  adjust  the  decimal  point  after 

a  Q15*Q15  multiplication 


rlcf 
rlef 
- '  movwf 
rlcf 
movwf 

Cosnpute  B2  * 

if 


ACC+Bl, w 
ACC'fB2,w 
Dn2 

ACC+B3,W 
Dn2+Bl 

[D(n)  +  D(n-2)1 
BO_B07ALS_B2 


decimal  adjust  (  mult  by  2) 


008A  602A 
008B  0E26 
008C  one 

008*  1027  (  I" 
008F  OllD    '  ' 


movfp  Dn2_2+B0,wreg 

addwf  Dn2+B0,w 

movwf  AARG+BO 

mov^  Dn2_2'<'Bl,«reg 

addwf c  Dn2+Bl,w 

movwf  AARG+Bl 


0090  7B3A 

0091  7F3B 


MOVFP 
BOVPP 


B20+B0,BARG+B0 
B20+B1,BARG+B1 


;  move  B20(B0)  to  BARe(BO) 
;  move  B20(B1)  to  BARG(Bl) 


0092  EOAF 

0093  5844 

0094  5945 

0095  5A46 

0096  5B47 


call  i%lMiilt       ■  !  (ACCd.ACCc)  =  B2*[D(n)+D(n-2)] 

MOVFF  DFX+BO,ACC-i«D  ;  move  DFX  (BO)  to  ACC  (BO) 

MOVPF  DPX+Bl, ACC+Bl  ;  move  DPX(Bl)    to  ACC(Bl) 

MOVPP  DPX+B2 ,  ACC+B2  ;  move  DPX(B2)    to  ACC(B2) 

MOVPF  DPX+B3,ACC+B3  ;  move  DPX(B3)    to  ACC(B3) 
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0097  7C28 

0098  5C2A 

0099  7D29 
009A  5D2B 
009B  7E3C 
009C  -?F30 
009D  BOAF 


009E  6018 
009F  0F44 
OOAO  6019 
OOAl  1145 
00A2  601A 
0QA3  1146 
00A4  601B 
OCAS  1147 


OOAe  6026 
00A7  0128 
OCAS  6027 
00A9  0129 


M0VFP16  B20,BARG 
M0VFP16  Dn2,AARG 
call       I&>Ulctlt  . 
lfOVPF32  DPX.ACC 
M0VFP16  Bx2,BARG 
M0VFP16  Dn2_2,AARO 
call  DblHult 
KSa2  DPX.ACC 


BO*D(n) 


B2*D(n-2) 


endif 


Shift  dovm  D(n-l)  to  D(n-2)  after  D(n-2)  usage  is  no  longer  required. 
This  way  in  the  next  iteration  DCn-2)  is  ei^ual  its 'the  present  D(n-l) 


movfp 
novpf 

movfp 

movpf 


Dn2_l,AARG+B0 
AARG+BO ,  Dn2_2 
Dn2_l+B1,AARG+Bl 
AARG+Bl,Dn2_2+Bl 


MOVFP  B21+B0,BARG+B0 
call  i^lHult 


shift  down  D(n-l) 

AARG  =  D(ll-l)    =  multiplier 
move  B21(B0)    to  BARG(BO) 
move  B21(B1)   to  BARG(Bl) 
(ACCd,ACCc)   s  Bl*D(n-l) 


Cenpute  Output  Y  =  Bl*D(n-l)  +  B2*D(n-2)  +  BO*D(n) 

=  Bl*D(n-l)  +  BO*ID(n)  +  D(n-2)1 
Since  all  imiltlpli^tM^pls  are  al:tea^  done,  simply  perform  a 
32  bit  addition  '  - 


MOVFP 

ADDWF 

MOVFP 

ADDWFC 

MOVFP 

ADDHFC 

MOVFP 

ADDWFC 


DPX+BO,HRBG 

ACC+BO 

DPX+B1,HRBG 

ACC+Bl 

DPX+B2,WRB0 

ACC+B2 

DPX+B3,NREG 

ACC+B3 


get  lowest  byte  of  DPX  into  w 

add  lowest  byte  of  ACC,  save  in  ACC(I 

get  2nd  byte  of  DPX  into  w 

add  2nd  byte  of  ACC,   save  in  ACC(Bl) 

get  3rd  byte  of  DPX  into  w 

add  3rd  byte  of  ACC,   save  in  ACC(B2) 

get  4  th  byte  of  DPX  into  w 

add  4th  byte  of  ACC,  save  in  ACC(B3) 


Shift  down  D(n)  to  D(n-l)  so  that  in  the  next  iteration,  the  new 
D(n-l)   is  the  present  D(n) 


MOVFP  Dn2+B0,WREG 
MOVWF  Dn2_l+B0 
MOVFP      aa2  +B1 ,  WREG 


;  get  byte  of  Dn2  into  w 
;  move  to  Dn2_l  (BO) 
;  get  byte  of  Dn2  into  w 
;  move  to  JMdyLiWl 


The  filter  output  is  now  cCTuputed 

Save  the  Upper  16  Bits  of  32  bit  Accumulator  into  Y  after 
adjusting  the  decimal  point 


OOAA  6046 

OOAB  0142 
OOAC  6047 
QOAD  0143 


M0T16  ACC+B2,Y 


MOVFP  ACC+B2+B0,WREG 

MOVWF  Y+BO 

MOVFP  ACC+B2+Bl,WR£a 


;  get  byte  of  ACC+B2  into  w 
;  move  to  y(BO) 
;  get  byte  of  ACC+B2  into  w 
;  insva  to  y{Bl) 


OOAE  0002 


return 


********************** 


Output  Y(n)  ccn^ted 


********  ************** 


Set  SIGtJEO/ONSIGNED  Flag  Before  Including  17c42MPY.mac 
include  "17o42MPy.mac' 


. ******************************************************************* 

;    Low  Pass  Filter  Co-efficients 
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r      •  ' 


StIiIPTIC 


j  ;I/iWPASS  FILTER 


FILTER  ra^BR  s  4 
Sanpling  fre^iieacy  = 


2.000  KlloHertz 


BSND  1 

BAND  2 

LOWER  BAND  EDGE 

.00000 

.60000 

UPPER  BAND  EDGE 

.50000 

1.00000 

NOMINAL  GAIN 

1.00000 

.00000 

NOMINAL  RIPPLE 

.01000 

.05000 

MAXIMUM  RIPPLE 

.00906 

.04601 

RIPPLE  IN  dB 

.07830 

-26.74235 

,  I  A(I,1) 

A(I,2» 

3(1,0) 

B(I,1) 

B(I,2) 

'■1  -.133331 

.167145 

.28S431 

.462921 

.2S5431 

2  .147827 

.765900 

.698273 

.499908 

.698273 

OlCl  1111 
01C2  1MB 
01C3  2489 
01C4  3B41 
01C5  2489 

01C6  ED14 
01C7  9DF7 

OICA  5961 


_coef  f _lpa  s  s 
data 
data 
data 
data 
-  .  data 

data 
data 
data 
data 

data 


4369 

-S477 

93S3 

15169 

9353 

-4344 
-25097 
22881 
16381 

22881 


**************** 


**********  Jt*********«****r******** 

;    Sigb  Pass  Filt»  Co-efficients 


co-efficients  for  1st  Cascade 

-All 

-A12 

BIO 

Bll 

B12 

co-efficients  for  2nd  Cascade 

-A21 

-A22 

B20 

621 

B22 

*************************** 


************************* 


ELLIPTIC         HIGHPASS  FILTER 
FILTER  ORDER  =  4 

Sampling  frequency  =      2.000  KiloHertz 


LOWER  BAND  EDGE 
UPPER  BAND  EDGE 
NOMINAL  GAIN 
MOMIKAL  RUPPhE 
HAXIHDU  RIFFLE 
RIPPLS'.  IN  dB 

I  A(I,1) 

1  .276886 

2  -.094299 


.00000 
.40000 
.00000 
.04000 
.03368 
-29.45335 

A(I,2) 

.195648 
.780396 


. 50000 
1.00000 
1.00000 
.02000 
.01686 
. 14526 

B(I,0) 

.253677 
.678650 


B(I,1) 


-.411407 
-.485840 


B(I,2) 

.253677 
.678650 


OICB  DC8F 
OICC  E6F5 
OICD  2079 
DICE  CB57 
OICF  2079 


_coef  f_}ipass 
data 
data 
data 
data 
data 


-9073 

-6411 

8313 

-13481 

8313 


co-efficients  for  1st  Cascade  section 

-All 

-A12 

BIO 

Bll 

B12 

co-efficients  for  2nd  Cascade  section 
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OlDO  0C12 
OlDl  9C1C 
01O2  SSDE 
01D3  CIDO. 
OlIM  56DB 


data  3090 

data  -25572 

data  22238 

aita  -15920 

data  22238 


-lav 

-A22 

B20 

B21 

B22 


******************************************************************* 

******************************************************************* . 
;    B^iA  Vim  Si%tiM^€o^e£ficiemts 


BANDPASS  FILTER 


FILTER  ORDER  =  4 

SaBpling  frequency  =      2 . 000  KiloHertz 
US  ; 

BAND     1  BAND    2  BMUD  3 


LOWER  BAND  EDGE 
UPPER  BAND  EDCT 
NOMINAL  GAIN 
NOMINAL  RIPPLE 
MAXIMUM  RIPPLE 
BZWUS  m  dB 


-.936675 
.936707 


.00000 
.10000 
.00000 
.05000 
.03644 
-28>.7#7?t 


Mt.m 


.550568 
.550568 


.300043 
.70000 

1.00000 
.05000 
.03867 
.339$* 


B(I,0) 


.444000 
.615540 


.90000 
1.00000 
.00000 
.05000 
.03641 
-28.77647 


B(I,1) 


-.865173 
1.199402 


B(I,2) 


.444000 
.615540 


01D5  3BF2 
01D6  DCC4 
01D7  1C6A 
01D8  C8A1 
01D9  1C6A 

OlDA  C40D 
CIDB  DCC4 
OlDC  2765 
OIDD  4CC3 
OlDE  2765 


_c©ef f_bpass 
data 
data 
data 
data 
data. 

data 
data 
data 
data 
data 


30693/2 

-18041/2 

14549/2 

-28350/2 

14549/2 

-30694/2 
-18041/2 
20170/2 
39302/2 
20170/2 


co-efflcients  for  1st  Cascade  section 

-All 

-A12 

BIO 

Bll 

B12 

co-efficients  for  2nd  Caaetide  section 

-A21 

-A22 

B20 

B21  I 
B22 


******************************************************************* 

************  *******************************^l^«^^#.f^>*«-*****  ******* 
Band  Stop  Filter  Co-efficients 


tmmmpmmm^ 


JKSEiMI  ORDER  =  4 
Sim06tm3  txegixeaay  = 


2 . 000  KiloHertz 


sgm  3 


LOWKR  BAND  EDGE 
UPPER  BAND  mm. 
NOMINAL  GAIN 

NOMINAL  RIPPLE 
MAXIMUM  RIPPLE 
RIPPLE  IN  dB 


.00000 
.30000 
1.00000 


.'S«ei5 


.45000 
.55000 
.00000 
.05000 
.03241 
-29.78523 


.70000 
1.00000 
1.00000 

.05000 
.03517 
.30027 
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OlES  IMiftC 

01E2  dSAO 
01E3  1922 

01E4  2FF6 
01E5  DAAC 

01B6  mi  l 
0117  aaa 

01B8  4D71 


A{1,1) 


.749420 
.749390 


A(I,2) 


.583282 
.583282 


B(I,0) 


.392685 
1.210022 


B(I,1) 


.087936 
-.270935 


B(I,2) 


.392685 
1.210022 


_coeff_)3Stop  ;  co-efficients  foi;  1st  Cascade  section 

data  -24557/2  ;  -All 

data  -^19113/2  ;  -A12 

data  -  -    12868/2  ;  BIO 

data  2881/2  ;  Bll 

data  12868/2  ;  B12 

;  co-efficients  for  2nd  Cascade  section 

data  24556/2  ;  -A21 

data  -19113/2  ;  -A22 

data  39650/2  ;  B20 

data  -8878/2  ;  B21 

data  39650/2  ;  B22 


Errors  i  Si' 
Hamings  i      (<0  ' 


e  1993  Mterochip  Tschnoi^tiie. 
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INTRODUCTION 

Fourier  transforms  are  one  of  tfie  fundamental  opera- 
tkmsfri  sistrial  processing.  In  digital  computations,  DIs- 
a«t9  F^urter  Transforms  (DFT)  are  used  to  describe, 
rapreserrt  and  analyze  discrste-time  signals,  l-lowever, 
direer  Impletnenfiiiion  <!f  OFT  is  computationaliy  very 
inefficient.  Of  thie  various  available  high  speed  algo- 
rithms to  compute  DFT,  ttie  Cooley-Tukey  algorittim  is 
the  simplest  and  most  commonly  used.  These  effiqent 
algorithms  to  compute  DFTs  ma  eMM  f%Mfi  fmHtf 
Transfomns  (FFTs). 

This  application  note  provides  the  source  code  to  com- 
pute the  FFT  using  PIC17C42.  The  theory  behind  the 
FFT  algorithms  Is  well  established  and  described  in  the 
literature  and  hence  not  described  irt  this  appMcation 
note.  A  Radix-2  Cobley-  Tukey  FFT  is  implemented  wtOi 
no  firinMs  on  tfie  lengA  oTFFT.  The  length  s  only  limited 
by  the  amount  of  available  program  memory  space.  M 
compulations  are  done  using  double  precision  arith- 
metic. 

IMPLEMENTATION 

since  the  PIC17C42  has  only  232  x  8  general  purpose 
RAM  ( equivalent  of  116  x  16 ),  at  most  a  32  point  FFT 
(16-bit  REAL  &  IMAGINARY  data)  can  be  Implemented 
using  on  chip  RAM.  To  compute  higher  point  FFT,  the 
data  is  stored  in  program  memory  space  of  PIC17C42. 
The  PIC17C42  has  Instructions  (tablrd  &  tablwt)  to 
transfer  data  between  program  memory  space  and  on 
chip  file  registers.  In  extended  microcontroller  mode,  the 
PIC17C42  has2Kx  16  (0000h:07FFh)  on  chip  program 
memory  space  and  62K  x  16  (0800h:OFFFFh)  of  exter- 
nal program  memory  space.  In  this  mode,  the  code  (in 
this  case,  the  FFT  code)  may  reside  on  the  on  chip 
EPROM  and  the  data  to  be  analyzed  may  be  stored  in 
external  RAMs  (up  to  62K).  A  suggested  method  of 
connecting  external  RAMs  {appToprisit»BEI^Rl§Ul0mSf 
also  be  used)  is  shown  in  Figure  3. 

If  PIC17C42  is  used  in  extended  microcontroller  mode 
and  if  all  the  code  resides  on  chip,  then  the  cost  may 
further  be  reduced  by  using  only  one  external  SRAM 
instead  of  two,  The  block  diagram  is  shown  in  Figure  2. 
The  1 6-bit  data  stored  in  the  external  RAM  is  organized 
as  tow  byte  followed  by  high  byte.  To  achieve  this,  the 
code  presented  in  this  application  note  needs  minor 
modifications,  especially  where  tablrd  and  tablwr 
instructions  are  used.  Address  indexing  must  be 
incremented  by  two  since  2  reads/writes  must  be  per- 
formed to  access  a  le-bit  data. 


fhe  FFT  is  implemented  wittt  Decimation  In  Frequertqr. 
Thus  the  ir^Mit  data  before  calling  the  FFT  routine 
n^ZFFT^  should  be  in  normal  order  and  the  trans- 
formed data  Is  In  scrambled  order.  The  origlrKd  data  is 
overwrRten  k^thetransformeddatato  conserve  memory. 
This  is  achieved  by  use  of  in-place  calculations.  This  in- 
placa  calculations  causes  the  order  of  the  DFT  terms  to 
be  permuted.  So  at  the  erxl  of  the  transfonn,  all  the  data 
needstobeunscnambledtogetthe  right  order  of  the  DFT 
terms.  In  some  applications  the  order  of  terms  is  not 
necessary.  Keeping  this  in  mind,  the  unscrambling  code 
is  w(tten:8^#.«iepsrate  subroMtine.CUnscipmttle")  and 
may  be  called  I  rifeesm^i  > 

Before  Implementing  the  FFT  using  PIC17C42,  a  'C* 
program  was  written  and  tested.  This  high  level  pro- 
gianvnlng  helps  in  writing  the  assembly  code  and  ttja 
results  of  both  piograrns  can  be  compared  against  while 
debug^ng  ttie  assernbly  code.  The 'C*  source  code  for 
llmRadix-2  FFT  is  stwwn  in  Appendix  A.  The  assembly 
code  source  file  of  the  FFT  program  is  shown  in  Appen- 
dix B.  For  a  listing  of  the  header  file  '17C42.h'  and  the 
macro  def  Inltton  file  "1 7C42.mac''  please  refer  to  Appen- 
dices C  and  D  respectively  of  the  explication  note 
AN00540. 


FIGURE  1  -  TEST  WAVE  FO^M 
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TESTING 

fheassembVco(te««^^yelopeclanddebuggecl  using 
MiaoGhip's-PICMAsTiff*  tn-Cireuit  Emulator  System. 
-A-mArpiogrBm  generates  a  test  pattern  (like  a  square 
wave)  and  calls  tt»e  FFT  routines  "R2FFr  &  "Un- 
scmmbte'.  After  the  GFF  Ianne  are  computed,  the 
results  are  capturamsPICMASIER's  real  time  trace 
buffer  by  putting  a  trace  point  on  a  dummy  TABiaD 
Instmction  arxd  capturmg  only  the  SSai  Q!/^  (cMa  cycle 
of  TABLRD)  of  the  instnjction.  The  d^fiQifiTrace  buffer 
was  hot  \mkod  to  Microsoft  Excer"  using  DDE  and  then 
the  graphs  were  plotted  and  analyzed. 

The  code  was  tested  on  various  wave  forms  (a  rectan- 
gular pulse,  a  triangular  wave,  square  wave  and  a  sine 
wave)  and  using  FFT  lengths  of  64,  256  &  1024.  The 
results  of  a  256  Point  FFT  on  a  square  wave  Is  shown 
below.  The  test  wave  form  Is  shown  In  Figure  1  and  the 
frequency  spectrum  of  It  computed  by  PIC17C42  is 
shown  in  Figure  2.  As  expected,  the  spectra  appears  at 
the  odd  harmonics  of  the  Input  waveform's  functamental 
frequency  ( At  N*256/64,  N  =  0.1 ,3,5,..). 


PERFORMANCE 

The  perfonnance  of  FFT  using  PIC17C42  is  quite  im- 
pressive noting  that for  an  Srbft  machine  W  noia^d- 
ware  multiplier.  Also  note  tlut  ail  computations  are 
performed  using  double  precision  arithmetic 
(1 6- and  32- bRs)  which  is  the  case  in  most  of  the  low  end 
DSPs.  Table  1  provides  the  real  time  perfermaniee  in 
total  number  of  Instmction  cycles  for  both  the  'RaFFT 
and  'Unscramble'  routines  using 64, 256 and  102iPpint 
FFT.  Note  that  the  timngs  are  in  a  worst  case  situation 
and  in  gsmrai  will  be  a  lot  betterthan  shown  in  tlie  table. 
The  worst  esse  sttuation  arises  because  the  16  x  16 
software  rmiWplier  fDblMult*)  does  net  have  a  unKorm 
timing  and  depends  on  the  mput  data.  The  worst  case 
timing  of  the  multiplier  is  used  in  the  oomputaNon  of 
performance. 


FIGURE  2  -  FFT  (lUAGNITUDE  SPECTRUM)  OF  FIGURE  1  COMPUTED  BY  PIC17C42 


Frequency  Spectrum 
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TABLE  1  -  WORST  CASE  PERFORMANCE  OF  FFT  IN  INSTRUCTION  CYCLES  AND  REAL  TIME 
9  25  MHZ 


N  (FFT  Length) 

64  Point 

Point 

1104  Point 

'  9SSf¥f  ' 

34116 +  768*Mult  = 
171588 

178Q24-«-4096*Mutt» 
911208 

878752 +  20480*Mult  = 
4544672 

Unscramble 

5143 

22495 

93525 

Total 

176731  (28.28  mS) 

933703  (149.39  mS) 

4638197(742.11  mS) 
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Table  2  shovvs  tfie  Program  Memory  and  Data  RAM 
requirements  for  an  N  Point  FI=T.  The  multiplier  routine 
and  otiier  general  purpose  macro  requirements  are 
included  in  the  memory  requirements.  The  speed  per- 
formance for  the  square  wave  test  data  dUffets  from 
Table  1  since  "worst  case  timings^  is  hot  UssC 
reflects  a  more  reasonable  data. 

FFT  APPLICATIONS 

Although  the  FFT  does  not  find  a  place  in  many  micro- 
controller applications,  it  is  very  useful  in  providing  a 
benchmari<  of  the  processor.  As  can  be  seen  from  table 
2,  the  performance  is  very  satisfactory,  considering  the 
fact  that  PIC17C42  is  a  Microcontroller  and  not  a  DSP. 
Also  it  stnould  be  borne  in  mind  that  all  computations  are 
perfomned  In  1 6/32  bit  arithmetic  and  that  PIC17C42  is 
a  low-cost  8-bit  device  WiHKe  ttie  DSPs  which  are 
relatively  expensive.  -       ,  • 


In  applicatioiis  Ito  ttnftumMriatidni  wheM 
compulation  Is  not  required,  PIC17C42  can  be  used  as 
a  single  chip  solution  instead  of  a  M)croceH(r^r«mclai 
DIgitetl  Signal  Processor. 

SuagsMsd  Reading: 

[1]  Rabiner.  LR.,  and  Gold,  B.,  -niaotyand  App«~H«»rw 
niyital  Signal  Pmeaaahy.  EnffiawnodCailB.  NJ:  Pranaee- 
Hall,  1975. 

[2]     Burrs- C  S.. and  Pafka.T.W..  DFT/FFTandCofiwDluBon 

Alogorithms.  New  York :  Wiley,  1985. 

[3]  Rodriguez,Jeffrey  J.,  "An  Improved  FFT  Digit-Reversal 
Algorithm  Tranaaetlona  On  Aeouatlca.  Spaaeh. 


Author:  Amar  Palacheria 

Logic  Products  Division 


TABLE  2  -  REQUIREIMENTS  FOR  RApiX-2  FFT  9  25  IMHZ 


N  (FFT  Length) 

64  Point 

2S6  Point 

1024 

Code  Space 
(locations) 

603  +  0.75*N  =  651 

eOSI*4.7Sl«iS:795 

603  +  0.75*N=  1371 

Data  Storage  in 
Program  Memory 
Space 

2*N  =  5t2  ' 

;   Z*N  =  2048 

Scratch  RAM 

49 

49 

49 

Performance 
(Square  Wave 
Input  Data) 

122384  (19.58  mS) 

644416(103.11  mS) 

3192176  (510.75mS) 

FIGURE  3  -  EXTERNAL  MEMORY 
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FIGURE  4  -  ALTERNATE  EXTERNAL 
MEMORY  CONNECTION 
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APPENDIX  A:  FFT  AfciAOflifmi 


PASB  1 


TfiiISi'.':: 


************************************************************************* 

A  Cooley-Tulcey  Badix-2  DIF  FFT 

Radix-2  implementation  ' 
Decimation  In  Frequency  ,       -  ^ 

Single  Butterfly 
Table  Lookup  of  Twldtile  Factors 

CoR^lex  Input  k  Ccmplex  0Ut^t     '  ^  ' 

All  data  is  assumed  to  be  IS  Kits  and  the  intramediate 

results  are  stored  in  32  bits  ,  H 

Length  Of  FFT  must  be  a  Power  Of  2 
Max  Length  Possible  is  2**15 

'''^■'"'^"  "Bie  li^ut/bat^ut  conplsc  data  is  organized  as  a  s'ingle  array 
^  'Sl^    Vof  seal  data  folloimd  by  imaginary  data 

  .  Data  is  stored  in  External  Memory  and  is  accessed  by 

TABLRD  &  TABLWT  Instructions 

************************************************************************* 

LIST        P=17C42,  C=120,  T^ON,  R=DEC,  (1=0 
include  *17c42.h' 

include  *17c42.mac*  ■  ,^     •  , 

********************************************-******************************* 

RLC16AB 


'16  bit  rotate  left  A  Into  B 


-ARGUMENTS  t 

2*a  =>  b 

TimXKi  (in  cycles)  i 

-3 


RLC16AB  MACRO  a,b 


BCF 
RLCF 


_carrY 
a+BO,W 


MOVWF  b+BO 

RliCF  a+Bl,W 

MOVWF  b+Bl 
ENDM 


I'loi  ro  J******************************************************* 

TBLADDR 


******************** 


DESCRIPTION: 

-    Load  16  bit  %able  pointer  with  specified  label 


<'.-rt,- 


^jjjiVfiH^  IIa  cycles) : 


TBLADDR  MACRO  label 

MOVLW  (label)  t  Oxff 

MOVHF  tblptrl 

MOVLH  page  (label) 

MOVHF  U>lptrh 


. ********************************* 


********************************* 
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0100 
0008 
OOEF 

0001 

0800 


0000  0004 

0018  0002 
OOIA  0002 
OOlC  0004 

.■±1.-  .  i_sj.- 
0020  0004 


BM  *  1«IM  (ti        constant)  To  A  File  Raglstar  (16  bit) 


I  4 

,  .  .    .           ■     .'■        ^rU!-.':  =iiiJ                                                                   ..    'J   =».,  0 

ADDLBL    MACRO  label,  f  '• 

HOVLW  (label)  &  Oxff 

ABDWF  f+BO 

MOVLW  page  (label) 

ADDWFC  £+Bl                '  : 

ENDK  ...                                             •  . 

.  ********************************** 


FftLen  . set 
Tower  .-set 

Digi  tRevCount 


256 
8 

.  set 


SCALE_BOTTERFLY  .set 
EXT_RM<_START_ADDR 


239 

TRUE 
.set 


0x0800 


;  FFT  Length 

J  (2»*PowBr  =  F£tl«n) 

;  (PftLen-1)  -  (2** ( (Power+1) /2) ) 

;  intermediate  scaling  performed 

;  External  Memory  Data  Storage  Start  Addr 


.  **ini*#^^1t.4*********  *******************************************  *********** 
1 

CBLOCK    0  "■ 


B0,B1,B2,B3 


CBiOCX    0x18  2V  ■■)■■■-. 

AARQ.AARGl 
lli!@,.Bil>R01 
'Mtftmi ,  DPX2 ,  DFX3 

ENDC 


CBLOCK 


ACC,  ACCl.  ACC2,  ACC3 


RAM  offset  constants 


1€  bit  multiplier  A  ' 

16  bit  mltiplicand  B 

32  bit  nultiplier  mnilt  -  A*B 


32  bit  MSIMMMtOr  for  ccfld^ta'' 


0024  0002 
0026  0002 
0028  0002 


count 1, count 11 
count2 , count22 
QuartLen,  Quar  tLenl 


Nl 

N2 

FftLen/4 


002A  0002 

002C  0002 
002E  0002 
0030  0002 


TF_Of fset, TF_0£f set! 
TF_Addr ,  TP_Addr  1 
Cos, Cos 1, 
Sin,Sinl 


;  twiddle  factor  address  conputa 


0032  0002 

0034  0002 

0036  0001 

0037  0002 


Varlloop.Varlloapl 
VarJloop , Var Jloopl 
VarKlo<^ 
Varl.,VBrI.l 


0039  0002 

003B  0002 
003D  0002 
003F  0002 


Xi.Xil 

Yi,Yil 
Xl.Xll 
Yl.Yll 


1 
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0041  0002 
0043  0002 


0045  0004 
0049  0002 
004B  0002 


CBLOCK 

Xt.Xtl 
Yt.Ytl 

ENDC 
CBLOCK 

teatCount, testCountl 
PulsaCount,  PulseCountl 

ENDC 


****************************************************************** 

Teat  program  For  FFX' Subroatlne 
****************************************************************** 


0x0000 


include  "square .  asm'  ;  Generate  Test  Vector  Data 

******************************************************************* 

Test  Routine  For  PPT 
FFT  Of  Square  Wave  Pulse 
******************************************************************* 


0008 


PuloaHidthFactor 


M0VK16  2*FulBeWldthFacbor,teiBtCount 


0000  BOlO 

0001  0149 

0002  BOOO 

0003  014A 

0004  293B 

0005  293C 

0006  BOOO 

emm  sees 

0009  01 OS 


UemMl  (2*Pula«MidtjhFactor)  t  Oxff 

MOVIIF  taatCount+BO 

MOV£W  (2*Pala^ldthFactor)/2S6 

MOVIP  teatCount+Bl 

CLR16  Yi 

CLRF  Yi+BO 

CLRF  Yi+Bl 

TBLAODR  ExtRamAddr  ;  load  table  pointers  with  data  stut  addr 

MOVLW  (ExtRamAddr)  &  Oxff 

MOVt^  tblptrl 

MOVLW  page  (ExtRamAddr) 

MOVWF  tblptrh 


OOOA  B020 
0»0B  014B 


OOOe  BS20 
OeOS  014C 


nextPulse 

MOVK 

MOVLW 

MOVWF 

MOVK 

MOVLW 

iRnniF 


Ff  tLen/PulseWidthFactor ,  PulseCouzlt 
Ff tLen/PulseWidthFactor 
PulseCount 

Ff  tLen/FulseMidthPactor ,  PulseCountl 

FftLen/PulseMidthFactor 

PulseCoui^l 


OOOB 

0010 
0011 

0012 
0013 
0014 


BOFF 

0139 
B03P 
013A 

E034 
174B 
C012 


MOVKie  0x3FFF,Xi 

MOVUf  (0x3FFF)  C  Oxff 

MOVWF  Xi+BO 

MOVLW  (0x3FFF)  /2S6 

MOVWF  Xi+Bl 
LXl 

call  write 

decfsz  PulseCount 

goto  LXl 


0015  2939 

0016  293A 

0017  B034 

oais  174C 

6019  C017 


CU116  Xi 

CLRF  Xi+BO 

CLRF  Xi+Bl 
LX2 

call  write 

decfsz  PulseCountl 

goto  LX2 


DEC16 


testCount 
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WRBG 

OOIB 

0749 

DBCF 

tes  tCount+BO 

OOlC 

034A 

SDBWFB 

testCount+Bl 

TFSZ16 

testCount 

OOID 

6049 

MOVFP 

testCount+B0,WREO 

OOIE 

084A 

lORWF 

testCount+Bl.W 

OOIF 

3300 

TSTFSZ 

WREG 

0020 

COOA 

goto 

nextpulse 

0021 

E039 

I 

call 

R2PPT 

0022 

El  I  S 

call 

Unscramble  ; 

0023  BOOO 

0024  0145 

0025  B002 

0026  0146 

0027  BOOO 

0028  OlOD 

0029  B008 
002A  OlOB 

002B  A930 

002C  2900 
002D  0745 
002E  0346 

002?  6045 

0030  0846 

0031  3300 

0032  C02B 


ccmpute  Fourier  Transform 

Digit  Reverse  the  seranibled  data 


Fourier  Transform  Completed 


capture  data  to  PIC-MASTER  Trace  Buffer 

I10VK16  Ff  tLen*2 ,  teitc> 

HOVLW  (FftLen*2)  £  Oxff 

MOVWF  tenqp+BO  T 

MOVLW  (PftLen*2)/25S 

MOVWF  teinp+Bl 

TBLADDR  ExtRamAddr  ;  load  table  pointers  with  data  start  addr 


MOVLW 

MOVWF 

MOVLW 

MOVWF 

capture 

tablrd 

DEC  16 

CLRF 

DECF 

SUBWFB 

TFSZ16 

MOVFP 

lORWF 

TSTFSZ 

goto 


( ExtRamAddr ) 
tblptrl 
page 
tblptrh 


S  Oxff 


(ExtRamAddr) 


0,1, Sin 

temp 

WREG 

temp+BO 

temp+Bl 

tenp 

temp+BO,  WREG 

temp+Bl, W 

WREG 

captxire 


table  latch  =  mesne tblptr) 


0033  C033 


goto 


self 


write 


0034  A439 

0035  AF3A 

0036  A43B 

0037  AF3C 

0038  0002 


0039  BOOO 
003A  0126 
003B  BOOl 
003C  0127 

003D  B040 
003E  0128 
003F  BOOO 

0040  0129 


tlwt 

tablwt 

tlwt 

tablwt 

return 


0,Xi 

l,l,Xi+Bl 
0,yi 

l,1.1fi+81 


auto  increment  iM  WSHg  Data 


************************* ****************************^************ 

RADIX-2  FFT 

Decimation  In  Frequency 

Input  Data  should  be  unscrambled 

Output  Data  at  the  end  is  in  scraaii>led  form 

To  obtain  the  unscraxrbled  form,  the  digit  reverse  counter 

subroutine,  '^Unscramble'  should  be  called  (see  the  exasple) 


*************** 


********* 


*********************** 


R2FFT 


MOVKie 

MOVLW 

MOVWF 

KcmiH 

MOVWF 

MOVKie 

MOVLW 

MOVWF 

MOVLW 


Ff tLen,count2 

(FftLen)  £  Oxff 

count2+B0 

(FftLen) /256 

count2+Bl 

Ff tLen/4 , QuartLen 

(FftLen/4)  £  Oxff 

QuartLen+BO 

(FftLen/4 )/256 

QuartLen+Bl 


QuartLen  ~  Ff tbao/il 


4-1S1 


impltnldiMgFFT 


0041  292B  clrf  TP_0££set+Bl 


HOVK 

l,TF_Offsot 

,-  Init  TF_0£fset  =  1 

0042  BOOl 

HOVUf 

1 

0043  012A 

MOVWF 

Tf'_0£fBet 

MOVK 

Power , VarKloop 

;  Kloop 

0044  BOOS 

MOVLW 

Power 

0045  0136 

MOVWF 
Kloop 

VarKloop 

;  for  K  =  1  to  Power-1 

M0V16 

count2 , countl 

;  countl  s  count2 

0M&  «me 

MOVPP 

count2+B0 ,  WREG 

;  get  byte  of  coiiiit2  into  w 

0047  ma 

MOVHP 

cooatl+BO 

;  move  to  countl  (BO) 

0048  6027 

HOVFP 

count2  -i-Bl ,  HREQ 

;  get  layte  of  count2  into  w 

0049  0125 

MOVWF 

oountl+Bl 

;  move  to  countl(Bl) 

RRC16 

count2 

;  count2.  "  count2/2 

004A  1A27 

RLCF 

count2+Bl,W 

;  move  sign  Into  carry  bit 

004B  1927 

RRCF 

count2+Bl 

Oe4C  1926 

RHCF 

eount2+B0  j 

CLR16 

VarJloop  1 

,•  J  »  0 

004D  2934 

CLRF 

VarJloop+BO 

004E  2935 

CLRF 

VarJloop+Bl 

CLR16 

TF_Addr 

;  TF  Jddr  =  0 

004F  292C 

CLRF 

TF_Addr+BO 

0050  292D 

CLRF 
Jlo^ 

TFJUldr+Bl 

Read  Twiddle  factors  fran  sine/Cosine  table  from  Prog  Hem 


M0VFP16  TF_Addr,  tblptrl  ;   load  sine  table  address  to  table 


0051  6D2C 

0052  6E2D 

0053  B094 

0054  OFOD 

0055  BO 02 

0056  llOE 

0057  A830 

0058  A030 

0059  A231 

005A  S028 

005B  OPOD 
005C  6029 
005D  llOE 
005E  A82E 
005F  A02E 

0060  A22F 


HOVFP  TF_Addr+B0, tblptrl+BO 

MOVFP  TF_Addr+Bl, tblptrl+Bl 

ADDLBL  SineTable, tblptrl 

mmM  (SineTable)  &  Oxff 

ADDHF  tblptrl+BO 

HOVLW  page  (SineTable) 

ADDWFC  tblptrl+Bl 

tablrd  0,0, sin 

tlrd  0,Sin 

tlrd  l,Sin+Bl 

ADD16  QuaztLen, tblptrl 

MOVFP  QuartLen+BO ,  mss 

ADDWF  tblptrl+BO 

HOVFP  QuartLen+Bl.WRBS 

ADDWFC  tblptrl+Bl 

tablrd  0,0, Cos 

tlrd  0,Cos 

tlrd  l,Cos+Bl 


move  TF_Addr(BO)  to  tblptrl  (BO) 
move  TP_Addr(Bl)  to  tblptrl  (Bl) 
;  add  table  offset 


;  Read  Sine  Value  from  lookup  table 


get  lowest  byte  of  QuartLen  into  w 
add  lowest  byte  of  tblptrl,  sacve.  in' 
get  2nd  byte  of  QuartLen  into  w 
add  2nd  byte  of  tblptrl,  save  in 
Read  Cosine  Value  from  table 


0061  602A 

0062  0F2C 

0063  602B 

0064  112D 


0065  8804 

0066  1A34 

0067  0132 

0068  1A35 

0069  0133 


006A  8804 

006B  1A26 
006C  0137 
006D  1A27 
006B  0138 


ADD16  TF_Offset,TPJkddr 

MOVPP  TF_Of£set  +  B0,WREO 

ADDWF  TF_Addr+BO 

MOVFP  TF_Of  fset+Bl,WREG 

ADDWFC  TF_Addr+Bl 


; 

inu.'.i  s-  BI£16AB 
rr  ,      .:.  .  8CF 
RLCF 
MOVWF 
RLCF 
MOVWF 


VarJloqp ,  Varlloop 
_oarry 

VarJloop+BO, W 
Varlloop+BO 
Var Jloop+Bl , W 
Varlloop+Bl 


Iloop 

RLC16AB  count2  ,VarI. 

BCF  _carry 

RLCF  count2+B0,W 

MOVWF  VarL+BO 

RLCF  count2+Bl,W 

MOVWF  VarL+Bl 

ADD16  VarIloop,VarL 


TF_Addr  =  TF_Addr  +  TP_Offset 
get  lowest  byte  of  TF_Offset  into  w 
add  lowest  byte  of  TF_Addr,   save  in 
get  2nd  byte  of  TF_Offset  into  w 
add  2nd  byte  of  TF_Addr,  save  in 


VarL  =  count2*2 


VarL  =  (I+count2)*2 


.=aas5ss""i  "-iiigaaB 
nptyifiitifttxioiin 
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006P  6032 

0070  0F37 

0071  6033 

0072  1138 


0073  6D37 

0074  6E38 

0075  BOOO 

0076  OFOD 

0077  BOOS 

0078  llOE 

0079  A93D 
007A  A03D 
007B  A23E 
007C  A83F 
007D  A03F 
007B  A240 

007F  6D32 

0080  6K33 


0081 

0082 
0083 
0084 
0035 
0086 
0087 
0088 
0089 
008A 


BOOO 

OFOD 
BOOS 
llOE 
A939 
A039 
A23A 
A83B 
A03B 
A23C 


008B  603D 
008C  0439 
008D  0141 

008B  eo3E 

008F  023A 

0090  0142 

0091  603D 

0092  0F39 

0093  603E 

0094  113A 

0095  603F 

0096  0433 

0097  0143 

0098  6040 

0099  023C 
009A  0144 

009B  603F 
009C  0F3B 
009D  6O40 
009E  113C 


009F  1A3A 

OOAO  193A 


HOVFF  Varlloep+BO.WREG 
ADDHF  VarlrfBO 


get  lowest  b<^e  of  VarIlo<9  into  w 
add  lowest  byte  of  VarL,  save  in 
get  2iid  byte  of  Vtelloop  into  w 
add  2nd  byte  of  Varli,  save  in  VuIi(Bl) 


Get  Real  &  Imag  Data  from  external  RAMs  (ProgrMH 
load  table  pointers  with  data  start  addr 


MOVFPie  VarL.tblptrl 

MOVFP  VarL+BO,tblptrl+BO 

MCWFP  VarL+Bl ,  tblptrl+Bl 

ADDLBL  ExtRamAddr,tblptrl   ■  ; 

MOVLW  (ExtRamAddr)  &  Ox£¥  • 

ADDWF  tblptrl+BO 

MOVLW  page         ( ExtRamAddr) 

ADDWPC  tblptrl+Bl 

tablrd  0,1, XI 

ti*a~  0,X1 

tlrd  1,X1+B1  ; 

tablrd  0,0, Yl 

tlrd  0,Y1 

tlrd  1,Y1+B1  ; 
M0VFP16  VarIloop,tblptrl 

MOVFP  Varlloop+BO,  tblptrl+BO; 

■  HOVfP  Varlloop+Bl, tblptrl+Bl 

ADDLBL  ExtRamAddr,  tblptrl  ; 

MOVLW  (ExtRamAddr)  £  Oxff 

ADDWF  tblptrl+BO 

MOVLW  page  (ExtRamAddr) 

ADDWFC  tblptrl+Bl 

tablrd  Oil.xi 

tlrd  0,Xi 

tlrd  l,Xi+Bl 

tablrd  0,0,  Yi 

tlrd  0,yi 

tlrd  l,Yi+Bl 

Real  &  Imag  Data  is  fetched  ' 
Conpute  Butterfly  -"''^ ' 


read  data(L) 

VarL(BO)  to  tblptrl (BO) 
move  VarL(Bl)  to  tblptrl (Bl) 
add  data  addr  offset 


auto  increment  for  Haag  Data 
real  data  Xk. 


imag  data  YL 
read  data  (I) 

move  Varlloop(BO)  to  tblptrl  (BO) 
move  VarIlo<^(Bl)  to  tblptrl  (Bl) 
add  data  a^Ae  e£faet 


auio  ihcrament  for  Jamg  Data  ' 
real  data  XX 

imag  data 


snB16ACC 

MOVFP  Xl+BO 


SUBWF 
MOVWF 

wavFP 


MOVSJF 
ADD16 
MOVFP 
ADDWF 
MOVFP 
ADDWFC 
SUB16ACC 
MOVFP  Yl+BO, 


Xi+BO 
Xt+BO 
Xl+Bl 
Xi+Bl 
Xt+Bl 
XI,  Xi 
Xl+BO 
Xi+BO 
Xl+Bl 
Xi+Bl 


SUBWF 

MOVWF 

MOVFP 

SUBWFB 

MOVWF 

ADDie 

MOVFP 

ADEWF 

MOVFP 

ADDWFC 


Vi+BO 

Yt+BO 
Yl+Bl 
Yi+Bl 
Yt+Bl 

Yl+BO 
Yi+BO 
Yl+Bl 
Yi+Bl 


X1.3£l,Xt 

WREG 
W 

WREG 
,W 


WREG 

WREG 

Yl , Yi , Yt 
HREG 
W 


WREG 
W 


Yl,Yi 
WREG 


if  SCALE_BUTTBRFLy 
RRC16  Xi 
RLCF        Xi+Bl, H 
RRCP  Xi+Bl 


Xt  =  Xi  -  XI 

get  lowest  byte  of  XI  into  w 

sub  lowest  byte  of  Xi,  save  in  Xi(BO) 

get  2nd  byte  of  XI  into  w 

sub  2nd  byte  of  Xi,  save  in  Xi(Bl) 

Xi  =  Xi  +  XI 

get  lowest  byte  of  XI  into  w 

add  lowest  byte  of  Xi,  save  in  Xi(BO) 

get  2nd  byte  of  XI  into  w 

add  2nd  byte  of  Xi,  save  in  ki(Bl)  ' 

Yt  =  Yi  -  Yl 

get  lowest  tiyte  of  Yl  into  w 

sub  lowest  byte  of  Yi ,  save  in  Yi  (BO ) 

get  2nd  byte  of  Yl  into  w 

sub  2nd  byte  of  Yi,  save  in  Yi(Bl) 

Yi  =  Yi  +  Yl 

get  lowest  Ijyte  of  Yl  into  w 
add  lowest  byte  of  Yi,  save-  In  Yi(BO) 
get  2nd  byte  M|  XI  into  w  '  ' 

add  2nd  byt«       ti,  save  in'~%i^Bl} 


move  Sigii  intS9  t>it 
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SKCF 

Zi+BO 

RRC16 

Yi 

00A2 

1A3C 

RLCF 

yi+Bl,W  ; 

move  sign  into  carry  bit 

00  A3 

193C 

RRCF 

Yi+Bl 

00A4 

193B 

RRCF 

Yi+BO 

RRC16 

Xt 

00A5 

1A42 

RLCF 

Xt+Bl,W  ; 

move  sign  into  carry  bit 

001,6 

19*2 

RSCF 

Xt+Bl 

OQKt 

mi 

SRCR 

Xb-fBO 

9ttC16  . 

tt 

OOftS 

1A44  ' , 

RLCF 

Yt+Bl,W 

move  sign  into  carry  bit 

0aA9 

1944 

RRCF 

Tt+Bl 

OOAA 

1943 

RRCF 

yt+BO 

• 

endlf 

MOVFPie 

Cos,  MSG 

OCAB 

7S2B 

MOVFP 

Cos-l-BO.AARG+BO 

move  Cos  (BO)  to  AAR<3(B0) 

00  AC 

792P 

MOVPP 

Cos+BLAARG+Bl 

move  Cos(Bl)   to  AARG(Bl) 

M0VFP16 

yt,BARG 

GOAD 

7A43 

MOVPP 

Yt+BO,BARG+BQ  , 

move  Yt(BO)   to  BARQ(BO) 

OOAE 

7B44 

MOVFP 

Yt+B1,BARG+Bl 

move  Yt(Bl)   to  BARGCBl) 

OOAF 

E182 

Call 

DblMult  ;  COS*Yt 

MOVPF32 

DPX.ACC 

OOBO 

5C20 

HOVPF 

DfX+BO.ACC-t^BO 

move  I»X(BO)  to  ACC(BO) 

OOBl 

5D21 

DE«'l'Bl,«CC't'Bl 

move  DPX(Bl)  to  ACC(Bl) 

SE23 

MOVFF 

I>PX+B2,ACC+B2 

move  DPX(B2)  to  ACC(B2) 

001^ 

5S23 

MOVPP 

DPX+B3,ACC+B3 

move  DPX(B3)    to  ACC(B3) 

]«>VFP16 

Sin.AASG 

00B4 

7830 

MOVFP 

Sln+BO,AARG+BO 

move  Sin(BO)   to  AARG(BO) 

00B5 

7931    c  ■ 

liOVFP 

5in+Bl,AARG+Bl 

move  sin(Bl)  to  AARa(Bl) 

lfOVFP16 

Xt.BARG 

00B6 

7M1 

MOVFP 

Xt+B0,BARG4^B0            ;  tnova  X«.(BO)  to  BARG(BO) 

OOB? 

7B42 

MOWKP 

Xe-i-Bl.BARG+Bl 

move  Xt(Bl)  to  BASQ(Bl) 

00B8 

E182 

Call 

DblMult  ,•  SIN*Xt,  Scale  if  necessary 

ADD32 

ACC.DPX 

00B9 

6020 

MOVFP 

ACC+BO.HREG 

get  lowest  byte  of  ACC  into  w 

OOiBA 

OFIC 

ADDHF 

DPX+BO 

add  lowest  byte  <y^  DFX,  save 

in  DPX  (BO) 

OOSB 

6021 

M9VFP 

ACC4-B1,WREG 

get  2nd  byte  of  ACC  into  w 

OOBC 

HID 

DPX*B1 

add  2n4  byte  of  DPX>  save  in  OFX(Bl) 

OOBD 

6022 

MOVPP 

ACC+B2,WREQ 

get  3rd  byte  of  ACC  into  w 

OOBE 

lllB 

ADDWFC 

DPX+B2 

add  3rd  byte  of  DPX,   save  in 

DPX(B2) 

OOBF 

6023 

MOVFP 

ACC+B3,WREG 

get  4th  byte  of  ACC  into  w 

COCO 

HIP 

AODHFC 

DPX'fB3 

add  4th  byte  of  DPX,  save  in 

DPX(B3) 

icavpFie 

DPX+B2,Y1 

Yl  =  COS*Yt  +  SIN*Xt,  Scale  if  neces 

OOCl 

5B3P 

MOVPF 

DPX+B2+B0,Y1+B0 

move  DPX+B2(B0)   to  Yl(BO) 

00C2 

SF40 

MOVFF 

Of>X+62-fBl,Yl'l'Bl 

move  SPX+B2(B1)  to  Yl(Bl) 

M0VFP16 

yt.BARG 

AARG  =  SIN,   BARG  =  Yt 

00C3 

7A43 

:  '■  Is 

MOVFP 

Yt+BO, BARG+BO 

move  Yt(BO)    to  BARG (BO) 

00C4 

7B44 

MOVFP 

Yt+B1,BARG+Bl 

move  Yt(Bl)    to  BARG(Bl) 

ooes 

El«2 

Call 

DblMult  ;  SIN*Yt 

MOVPF32 

DPX.ACC 

00C6 

5C20  , 

MOVPF 

DPX+B0,ACC+B0 

move  OFX(BO)  to  ACC  (BO) 

00C7 

5D21 

MOVPF 

DPX+B1,ACC+B1 

move  DPX(Bl)  to  ACC(Bl) 

oac8 

5B22 

MOVPF 

DPX+B2,ACC+B2 

move  DPX(B2)  to  ACC(B2) 

00C9 

5P23 

MOVPF 

DPX+B3 , ACC+B3 

move  DPX(B3)  to  ACC(B3) 

M0VFP16 

Cos, AARG 

OOCA 

782E 

MOVFP 

Cos+BO,AARG+B0 

move  Cos(BO)    to  AARa(BO) 

OOCB 

792P 

MOVPP 

Cos+Bl.AARG+Bl 

move  Cos(Bl)   to  AARG(Bl) 

M0VFP16 

Xt.BARS 

oocc 

7A41 

MOV^ 

Xt-rBO.BSRO+BO 

move  Xt  (BO)  to  BKRO(BO) 

OOCSD 

7B42 

MOVFP 

Xt+Bl,  BARG+Bl 

move  Xt{Bl)  to  BARiS(Bl) 

OOEB-mMZ. 

Call 

DblMult 

cos'Xt,  Scale  if  necessary 

SUB32 

ACCDPX 

DPX  =  COS*Xt  -  SIN*Yt 

OOCF 

6020 

MOVFP 

ACC+BO,WREG 

get  lowest  byte  of  ACC  into  w 

OODO 

051C 

SUBWF 

DPX+BO 

sub  lowest  byte  of  DPX,  save 

in  DPX (BO) 

OODl 

6021 

MOVFF 

ACe+Bl.HREG 

get  2nd  byte  of  ACC  into  w 

00D2 

031D 

5UBWF6 

DPX+Bl 

sub  2nd  byte  of  DPX,  save  in 

DPX(Bl) 

OSmSS^BmmtO  ei993MlcrDchlpTachnolQgylnc. 
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00D3  6022 
00D4  031E 
00D5  6023 
00D6  031F 

00D7  5E3D 
00D8  5F3E 


MOVFP  ACC+B2 , 

SOBWFB  DPX+B2 

MOVFP  ACC+B3,» 

SOBWFB  DPX+B3 

M0VPF16  DPX+B2,X1 

MOVPF  DPX+B2+B0,X1+B0 

HOVFF  DPX+B2+B1,X1'I'B1 


get  3rd  byte  of  ACC  into  w 

sub  3rd  byte  of  DPX,  save  in  DPX(B2) 

get  4th  byte  of  ACC  into  w 

sub  4th  byte  of  DPX,  save  in  DPX(B3) 

XI  =  COS'Xt  -  SIN*Yt,  Scale  if  neees 

move  DPX+B2(B0)   to  XI (BO) 

move  DFX't'B2(Bl)    to  XI  (Bl) 


Store  results  of  butterfly 


00D9  2900 

OODA  07 OD 
OODB  030E 
OODC  A439 
OODD  AF3A 
OODE  A43B 
OODF  AE3C 

OOEO  6D37 
OOBl  6E38 

00E2  BOOO 
00E3  OFOD 
00B4  BOOS 
GOES  HOB 
00E6  A43D 
00E7  AF3B 
DOES  A43F 
O0B9  AE4Q 


DECie  tblptrl 

CLRF  V(REG 

DECF  tblptrl+BO 

SUBWFB  tblptrl+Bl 

tlwt  0,Xi 

tablwt  l,l,Xi+Bl  f 

tlwt  0,Yi 

tablwt  l,0,Yi+Bl 

M0VFP16  VarL,  tblptrl 

MOVFP  VarL+BO,tblptrl+B  ; 

MOVFP  VarL+Bl , tblptrl+Bl  ; 

ADDLBL  ExtRamAddr,  tblptrl  ; 

MOVLW  (ExtRamAddr)  & 

ADDWF  tblptrl+BO 

mmm  page  (ExtRamAddr) 

tsUamc  tblptrl+Bl 

tlwt  0,X1 

tablwt  1,1,X1+B1  ; 

tlwt  0,Y1 


table  pointer  alreai^  loaded  with  I 


«uto  increment  to^  Wtllt.  Qata 


Xi  &  yi  stored 
read  data(L) 

move  VarL(BO)   to  tblptrl(BO) 

move  VarL(Bl)   to  tblptrl (Bl) 

add  data  addr  offset 
li—.- 


auto  increnieat  for  Unag  Data 


X(L)  S  Y(L)  stoead 


OOEA  8804 
OOEB  1A24 
OOEC  0145 
OOED  1A25 
OOEB  0146 

OOEF  6045 
OOFO  0F32 
OOFl  6046 
00F2  1133 


00F3  BOOO 

00F4  0145 

00F5  B002 

0OF6  0146 

00F7  6032 
OOFS  0545 
00F9  6033 
OOFA  0346 

OOFB  2900 
OOFC  0745 
OOFD  0346 
OOFE  9746 
OOFP  C06A 


Increment  for  next  Hoop 

RLC16AB  countl.temp 
_carry 
countl+BO ,W 
temp+BO 
count 1+B1,W 

tenp+Bi  ^ 

t«ii>,VarIloop 
tenp+BO^WREG 
Varlloop+BO 
te»5.+Bl,«B»?^^^^ 
JMIi#8i>i^M.  

tiOVKie  (Ff  tLen*2 ) ,  temp 

MOVLW  ((FftLen*2))  &  Oxff 

HOVWF  tenp+BO 

MOVLW  ( (Ff tLen*2 ) ) /256 

MOVWF  temp+Bl 

SUB16  Varlloop.temp 

MOVFP  Varlloop+BO, WREG 

SOBWF  tenp+BO 

ISOVFP  VarIloop+Bl,WREG 

^tUga  temp+Bl 

TSSCIB  teirp 

CLRF  WREG 

DECF  temp+BO 

SUBWFB  temp+Bl 

btfss  ten?>+Bl,lI$B' 

goto  Hoop 


•  countl*2 


1  =  1  +  ten^ 

get  lowest  byte  of  temp  into  w 

add  lowest  byte  of  VcirIloop,sava  in  VarIlo^(BI 

g^j^  .Znd  Wte  of  tenp  into  w 

^Mi-^sA.  'imm-      VSzIlQCPiSavB  in  VarIloep<Bl) 


temp  =  2*FftLen  -  1 

get  lowest  byte  of  Varlloop  into  w 

sub  lowest  byte  of  temp,  save  in  teaiip(BO) 

get  2nd  byte  of  Varlloop  into  w 

sub  2nd  byte  of  ^MbtSWe  in  te!i^(Bl) 


while  I  <  2*FftL«i 


I  Loop  end 


: 3S\  l: 
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increment  for  next  J  Loop 


0100  2900 

0101  1534 

0102  1135 

0103  6026 

0104  0145 

0105  6027 

0106  0146 

0107  6934 
010!8  0545 
0109  6035 
OlOA  0346 

OlOB  2900 
OlOC  0745 
OlOD  0346 
OlOE  9746 
OlOF  C051 


0110  8804 

0111  1B2A 

0112  1B2B 

0113  1736 

0114  C046 

0115  0002 


INC16 

CLRF 

INCF 

SDDHFC 

K0V16 

HOVFP 

MOVWF 

MOVFP 

MOVWF 

SUB16 

HOVFP 

SOBWF 

MOVFP 

SU6WFB 

DEC  16 

CLRF 

DECF 

SUBWFB 

btfss 

goto 


Var Jloop 
WREG 

VarJloop+BO 
VarJloop+Bl 
cotmt2 ,  temp 
count2+B0  ,WEEG 
temp+BO 

count2+Bl,WREG 

temp+Bl 

Var Jloop, tenp 

VarJloop+BO ,  WREG 

tCT4>+B0 

Var Jloop+Bl ,  WREG 
temp+Bl 

temp 

WREG 

temp+BO 

temp+Bl 

tein>+Bl,MSB 

Jloop 


J  Ijqap  end 

increment  for  next  K  Loop 

RLC16  TF_Offset 

BCF  _carry 

RLCF  TF_0£fset+BO 

RLCF  TP_0£fset+Bl 

decfsz  VarKloop 

goto  Kloop 

return 


J  =  J  +  1 


get  byte  of  count2  into  w 

move  to  temp (BO) 

get  byte  of  count2  into  w 

move  to  temp(Bl) 

tenj)  =  count2  -  J 

get  lowest  byte  of  VarJloc^  into  w 

sub  lowest  of  tenPr  save  in  taii{>(BO) 

get  2nd  byte  of  VarJloop  into  w 

sub  2nd  byte  of  tenp,  save  in  tsop(Bl) 


while  J  <  count2 


TF_Offset  =  2  *  TF_Offset 


while  K  <  Power 
FFT  complete 


;  K  Loop  Bnd 

•  FFT  Confutation  Over  with  data  serao&led 

;  Descrajiible  the  data  using  *Unscraihble'  Routine 

,***************************************************  *  *  + 
;  '  Unscramble  Data  Order  Sequence 

;  A  digit  reverse  counter 

V**************^************** *******++++***++++*****+* ************ 
include  '*reverse.asm' 

. ****************************************************************** 

;  A  digit  reverse  coxmter 

;  Unscramble  Data  Order  Sequence  Of  Radix-2  FFT 

;  Lengtih  (must  be  a  power  of  2)  Is  limited  only  iiy 

1  the  iamottiit  of  eternal  RAM  available  and  must  be 

;  a  number  less  than  2**15 


one  2934 
0117  2935 
Oils  2933 

0119  BOOl 
OllA  0132 


OllB  B080 
one  0136 
OllD  BOOO 


,********************************************  ********************** 

XShscrainble 

CLRie  VarJloop  ;  J  =  0 

CLRF  VarJloop+BO 

GLRF  VarJIoop+Bl 

clrf  Varlloop+Bl 

MOyiC  l.Varlioop  ;  1  =  1 

msw»  1 

MOVWF  Varlloop 


nextl 


M0VK16  FftLen/2,  VarKloop 

MOVLW  (F£tLen/2)  &  Oxff 

MOVWF  VarKlot^BO 

MOVLW  [FftLen/2  )/256 
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OllE 

0137 

mamm 

OllF 

C127 

goto 

KlessJ 

SUB  16 

VarKloop , VarJloop 

;    J  -  J  -  K 

0120 

6036 

MOVFP 

VarKloop+BO , WREG 

get  lowest  byte  of  VarKloop  into  w 

0121 

0534 

SUBWF 

Va  r  iJ  1  oop + B  0 

sub  lowest  byte  of  VarJloop,  save  in  VsurJloopCBO) 

0122 

6037 

MOVFP 

VarKloop+Bl , WREG 

get  2nd  byte  of  VarKloop  into  w 

0123 

0335 

SUBWFB 

VA3rJXoop+Bl  i 

sub -2nd  Irjf  L0  o£  AAu^Xoop,  s&VA  ixi  V^f^iirXoop  (BX) 

RRC16 

VarKloQP 

K  —  K/2 

0124 

1A37 

RLCF 

VarKloop+Bl,W 

move  sign  into  Mt 

0125 

1937 

ijaicF 

VarKloop+Bl 

0126  ^36 

RRCF 

VairKloop+BO 

testK 

M0V16 

VarJloop, temp 

0127 

6034 

MOVFP 

varj  ioop+ou  /  wkciU 

get  byte  of  VarJloop  mto  w  ' 

0128 

0145 

HOVWP 

tfinp+BO 

move  to  tenp(BO) 

0129 

6035 

MOVFP 

VarJlo^+Bl  «HRE6 

get  t/ytB  of  VarJloop  into  w 

012A 

0146 

MOVWF 

temp+Bl 

move  to  teirp(Bl) 

SUB16 

VarKloop, temp 

temp  =  J  -  K 

6036 

MOVFP 

VarKloop+BO , WREG 

get  lowest  byte  of  VarKloop  into  w 

012C 

0545 

SUBWF 

temp + BO 

sub  lowest  byte  of  temp,   save  in  tenp(BO) 

012D 

6037 

HOVFP 

VarKloop+Bl , WREG 

get  2nd  l^te  of  VarKloop  into  w 

012E 

0346 

flUHMFU 

tan^-fBl 

sub  2nd  byte  of  ten^,  save  in  t€rap(Bl) 

012F 

9746 

^on^+Bl  /  MSB 

0130 

C120 

goto 

KlessJ 

while  K  <  J 

ADD16 

VarKloop , VarJloop 

J  =  J  +  K 

0131 

6036 

MOVFP 

VarKloop+BO , WREG 

get  lowest  byte  of  VarKloop  into  w 

0132 

0F34 

ADDWF 

VarJloop+BO 

add  lowest  byte  of  VarJloop, save  in  VarJloopCBO} 

0133 

6037 

MOVFP 

VarKloop+Bl , WREG 

get  2nd  byte  of  VarKloop  into  w 

0134 

1135 

-■ — 

■   ,    --                                       /  ■ 

;  if  {i  <  j)  then  swap  data(i)  &  data(j)  ^ 

M0V16 

VarJloop, temp 

0135 

6034 

MOVFP 

VarJloop+BO , WREG 

get  byte  of  VarJloop  into  w 

0136 

0145 

MOVWF 

temp+BO 

move  to  tenp(BO) 

0137 

6035 

MOVFP 

Var Jloop+Bl ,  WRIB^ 

get  lyte  of  VarJlo^  into  w 

0138 

0146 

MOVWF 

ten^+Bl 

move  to  teai^(Bl} 

S0B16 

Varlloop,  temp 

tenp  =  J  -  I 

0139 

6032 

5.    J  U       I*  .  '  ■ 

MOVFP 

Van  loop+BO ,  WREG 

get  lowest  byte  of  Varlloop  into  w 

013A 

0545 

SUBWF 

ten^j+BO 

sub  lowest  byte  of  temp,   save  in  temp (BO) 

013B 

6033 

MOVFP 

Var Iloop+Bl, WREG 

get  2nd  byte  of  Varlloop  into  w 

013C 

0346 

SUBWFB 

tenp+Bl 

sub  2nd  byte  of  temp,  save  in  teiip(Bl) 

0EC16 

013D 

2900 

CLRF 

WREG 

013E 

0745 

DECF 

torp+BO 

013F 

0346 

SUBWFB 

tenp+Bl 

0140 

9F46 

bfcfse 

0141 

C174 

goto 

;  swap 

data 

;  read 

data(l) 

Var  I  loop ,  tblptr  1 

•  add  twibe  the  A^^^  «iaett  Real  Data 

0142 

8804 

BCF 

_carry 

0143 

1A32 

RLCF 

VarIloop+BO,W 

0144 

OlOD 

MOVWF 

tblptrl+BO 

0145 

1A33 

RLCF 

VarIloop+Bl,W 

0146 

OlOE 

MOVWF 

tblptr 1 +31 

ADDLBL 

ExtRamAddr , tblptrl 

■  is  followed  by  Imag  Data 

0147 

BOOO 

MOVLW 

(SxtRasnJ^adr)  ft'Oxft 

,;.   ,       .       ,                                    *)■!  ^^  ... 

0148 

OFOD 

ADDWF 

tblptrl+BO 

0149 

B008 

MOVLW 

page  (ExtRamAddr) 

014A 

11 OE 

ADDWFC 

tblptrl+Bl 

014B 

A939 

tablrd 

0 , 1 ,  Xi      ;  auto  increment  for  Imag  JDi^, 

014C 

A03  9 

tlrd 

0,Xi 

014D 

A23A 

tlrd 

l.Xl+Bl     ;  real  data  XI 

014E  A83B 

tablrd 

0,0, zi  fla*,ioi 

014F  A03B 

tlrd 
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0150  A23C 

tlrd 

l#Yi+Bl    ;  imag  data  YI 

;  read  data{j) 

■■ 

RLC16AB 

VarJloop,  tblptrl      ;  add 

0151  8804 

Bcr 

_c*rry 

0152  1A34 

SLCF 

VaxJlobp+BO ,H 

vem^ 

^Iptrl+BO 

0154  U3S 

HiCF 

VarJ'loc^+Bl.W 

0155  OlOB 

MOVWF 

tblptrl+Bl 

ADDLBL 

ExtRamAddr, tblptrl  ;  is 

0156  BOOO 

MOVLW 

(ExtRamAddr)  S.  Oxff 

0157  OFOD 

ADDWF 

tblptrl+BO 

0158  BOOS 

MOVLW 

page  (ExtRamAddr) 

015i9  i'l  OB 

ADDWFC 

tblptzl^fSl 

015a  X93D 

tablrd 

0,1, Zl    ;  auto  ineraneat 

015B  A03D 

tlrd 

0,X1 

015C  A23E 

tlrd 

1,X1+B1  ;  real  data  XL 

OlSD  A83F 

tablrd 

0,0, Yl 

015E  A03F 

tlrd 

0,Y1 

015F  A240 

tlrd 

1,Y1+B1  ;  imag  data  YL 

the  addr,  since  Real  Data 


followed  by  Imag  Data 


;  Interchange  data  (I)  &  data  (J) 

;  J  addr  already  loaded  into  table  pointers,  bu  autoincremented 


0160  2900 

spot) 

0t«3  030B 

01««  «F3A 

0165  A43B 

0166  AB3C 

0167  8804 

0168  1A32 

0169  OlOS 
016A  1A33 

016B  OlOE 

016C  BOOO 
016D  OFOD 
016E  BOOS 

oi«e  iim 

0170  A43D 

0171  AF3E 

0172  A43F 

0173  AE40 


0174  2900 

0175  1532 

0176  1133 

0177  aosr 

0178  0145 

0179  BOOO 
017A  0146 

017B  6032 
017C  0545 
017D  6033 
0178  0346 
017F  9748 

0180  ClIB 


DEC16 

CLRF 

DBCF 

SUBWFB 

tlwt 

tablwt 

tlwt 

tablvt 

RLC16AB 

BCF 

RLCF 

HOVHF 

RLCF 

MOVWF 

ADDLBL 

MOVLW 

ADDWF 

MOVLW 

ADDWFC 

tlwt 

tablwt 

tlwt 

tablwt 

increment  I 


auto  increment  for  Imag  Data 


;  X(I)  s  Yd)  stored 
;  add  twice  the  addr. 


since  Real  Data 


iaei 


INC16 

CLRF 

INCF 

ADDWFC 

M0VK16 

MOVLW 


Hovur 

MOV^ 

SUB16 

MOVFP 

SUBWF 

MOVFP 

SUBWFB 

btfss 

goto 


tblptrl 

WREG 

tblptrl+BO 
tblptrl+Bl 
O.Xi 

l,l,Xi+Bl 

0,  Yi 

1.0,  Yi+Bl 
Varlloop, tblptrl 
_carry 

VarIloop+B0,W 

tblptrl+BO 

VarHoop+Bl,w 

tblptrl+Bl 

ExtRamAddr ,  tblptrl  ;  is  followed  by  mag  Data 

(ExtRamAddr)  s  Oxff 
tblptrl+BO 

page  (ExtRamAddr) 

tblptrl+Bl 

0,X1 

1.1,  X1+B1  ;  auto  increment  for  Imag  Data 

0,Y1 

1,0,Y1+B1 


X(L)  &  Y(L)  stored 


Varlloop 
WREG 

Varlloop+BO 
Varlloop+Bl 
DigitRevCount,  ten^ 
(DlgltRevGoiuit) .  C  Oxff 
fceop+BO 

(DigitSevCount)  /256 
ten^Bl 

Varlloop,  ten 
Varlloop+BO, 
ten^+BO 

Varlloop+Bl.WRBO 
temp+Bl 
tenp+Bl,HSB 
nextl 


temp  =  DigitRevCount  -  I 
get  lowest  byte  of  Varlloop  into  w 
sub  lowest  Isyte  of  teitp,   save  in  tesi^(BO) 
get  2nd  byte  of  Varlloop  into  w 
sub  2nd  byte  of  temp,  save  in  teir|p(Bl) 


vdiile  i  <  DigitRevCount 
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0181  0002 


End  digit  reverse  counter 
****** t******************** ************  ******  ******************  ******** 


.  ****************************p'***^***********:ii^******************* 

;  Include  Double  Preciaiela  Multipllcatiuk  iloatlne 

.  **********  **********************ii************ii^***************** 

0001  SIOIED      equ  TRUE 

include  *17c42ii^.mac' 


****************************^***************i*iK^****  ********  ******  t 

S^UHHSQiiRe  Tables 
****************.4^4ikkt*it(^*******************i***ii***»4*lt'lt********* 


; 

;               256  Point 

FFT  Sine  Table 

;  coefficient  table 

(size  of  table  is  3n/4)  . 

; 

sin^l^le 

0294 

0000 

; 

data 

0 

0295 

0324 

data 

804 

0296 

0648 

data 

1608  J-.' 

0297 

096A 

data 

2410      •  ■ 

0298 

0C8C 

d«<ll« 

3212 

0299 

OFAB 

4011 

029A 

12C8 

data 

4808 

02 9B 

15B2 

data 

5602 

029C 

18F9 

data 

6393 

029D 

ICOB 

data 

7179 

02  9E 

IFIA 

data 

7962 

029F 

2223 

data 

8739 

02A0 

2528 

data 

9512 

02A1 

2826 

data 

10278 

02A2 

2B1F 

data 

11039 

02A3 

2E11 

data 

11793 

02A4 

30FB 

data 

12539 

02A5 

33DF 

data 

13279 

02A6 

36BA 

data 

14010          ;  £-•■ 

02A7 

398C 

data 

14732                              -   ■  «■ 

02A8 

3C56 

data 

15446 

02A9 

3F17 

data 

16151 

02AA 

41CE 

data 

16846 

02AB 

447A 

data 

17530 

02AC 

471C 

data 

18204  - 

02AD 

49B4 

data 

18868     •  ■ 

02AE 

4C3F 

data 

19519 

02AF 

4EBF 

data 

20159 

02B0 

5133 

data 

20787 

02B1 

539B 

data 

21403 

02B2 

55F5 

data 

22005 

02B3 

5842 

data 

22594 

02B4 

5A82 

data 

23170 

02B5 

5CB3 

data 

23731  f 

02B6 

5H37 

data 

24279      ■  • 

02B7 

60BB 

data 

24811  • 

02B8 

62F1 

data 

25329           •  -J-' 

02B9 

e4E8 

data 

25832           I  t 

02BA 

66CF 

data 

26319 

02BB 

68Ae 

data 

26790 

02BC 

6A6D 

data 

27245 
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02BD 

6C23 

data 

27683 

02BB 

6DC9 

^ta 

28105 

02BF 

SFSB 

iSata 

28510 

02CO 

70B2 

data 

28898 

02C1 

7254 

.  ..  . 

data 

29268 

02C2 

73B5 

data 

29621 

02C3 

7504 

data 

29956 

02C4 

7641 

data 

30273 

02C5 

776B 

data 

30571 

0266 

7884 

data 

viOSS2 

02CT 

7989  • 

'  •   '  ■         data     ■  ' 

31113 

02C8 

7A7C 

data 

31356 

02C9 

7»5C 

data 

31580 

02CA 

7C29 

data 

31785 

02CB 

7CE3 

data 

31971 

02CC 

7D89 

data 

32137 

02CD 

7E1D 

data 

32285 

02CB 

7B9C 

■•  data 

32412 

7F09 

data 

32521 

0200 

■  • ■ ■  data 

32609 

02D1 

7FA6 

data 

32678 

02D2 

7FD8 

data 

32728 

02D3 

7FFS 

data 

32757 

CosTable 

02S4 

ytvw 

data 

32767 

02D5 

7FF5 

data 

32757 

02D6 

7FD8 

data 

32728 

02D7 

7FA6 

data 

32678 

02D8 

7F61 

data 

32609 

02D9 

7F09 

data 

32521 

data 

32412 

02Dii 

71tO 

data 

32285 

02DC 

7D89 

data 

32137 

02DD 

7CE3 

data 

31971 

02DE 

7C29 

data 

31785 

02DF 

7B5C 

data 

31580 

02EO 

7A7C 

data 

31356 

02B1 

7989 

data 

31113 

02E2 

7884 

data 

308S2 

02E3 

776B 

data 

30571 

02E4 

7641 

data 

30273 

02E5 

7504 

data 

29956 

02E6 

73B5 

data 

29621 

02E7 

7254 

data 

29268 

0288 

data 

28898 

02B9 

SFSB 

data 

28510 

02EA 

6DC9 

data 

28105 

02EB 

6C23 

data 

27683 

02EC 

6A6D 

data 

27245 

02ED 

68A6 

data 

26790 

02EE 

66CF 

data 

26319 

03m  S4mB 

data 

25832 

02P0 

62F1 

data 

25329 

02F1 

60EB 

data 

24811 

02F2 

5ED7 

data 

24279 

02F3 

5CB3 

data 

23731 

02F4 

5A82 

data 

23170 

02F5 

5842 

data 

22594 

02F6 

55F5 

data 

22005 

02F7 

539B 

data 

21403 

o»s 

5133 

data 

20787 

02F9 

tmB 

data 

20159 

02FA 

4C3F 

data 

19519 

02PB 

49B4 

data 

18868 

02PC 

471C 

data 

18204 

02FD 

447A 

data 

17530 

02FE 

41CE 

data 

16846 
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02FF 

3F17 

data 

16151 

0300 

3C56 

data 

15446 

0301 

398C 

data 

14732 

0302 

36BA 

data 

14010 

^' 

0303 

33DF 

data 

13279 

0304 

30FB 

data 

12539 

0305 

2E11 

data 

11793 

0306 

2B1F 

data 

11039 

0307 

2826 

data 

10278 

0308 

2528 

data 

9512 

0309 

2223 

8739 

03  OA 

IFIA 

data 

7962 

030B 

ICOB 

data 

7179 

030C 

18F9 

data 

6393 

03  OD 

1SE2 

data 

5602 

030E 

12C8 

data 

4808 

030F 

OFAB 

data 

4011 
3212 

0310 

0C8C 

0311 

096A 

data 

2410 

0312 

0648 

data 

0313 

0324 

data 

8»4 

0314 

0000 

•  •  -    •  ^ta 

0- 

0315 

PCDC 

0316 

F9BS 

. T  ,  ■ 

-1608 

0317 

P696 

-2410 

0318 

F374 

-3212 

0319 

F055 

-4011 

031A 

ED38 

data 

-4B08 

031B 

EAIE 

data 

-5602 

031C 

E707 

data 

-6393 

03  ID 

E3F5 

data 

-7179 

031E 

EOEe 

data 

-7962 

031F 

DDDD 

data 

-8739 

0320 

DADS 

data 

-9512 

0321 

D7DA 

data 

-10278 

0322 

D4E1 

data 

-11039 

0323 

DIEF 

data 

-11793 

0324 

CF05 

data 

-12539 

0325 

CC21 

data 

-13279 

0326 

C946 

data 

-14010 

0327 

C674 

data 

-14732 

0328 

C3AA 

data 

-15446 

0329 

C0E9 

data 

-16151 

032A  BE32 

data 

-16846 

032B 

BB86 

data 

-17530 

032C 

B8E4 

data 

-18204 

032D 

B64C 

data 

-18868 

032E 

B3C1 

data 

-19519 

032F 

B141 

data 

-20159 

0330 

AECD 

data 

-20787 

0331 

AC65 

data 

-21403 

0332 

AAOB 

dMa 

-22005 

0333 

A7BE 

dil^ 

-22594 

0334 

A57E 

data 

-23170 

0335 

A340 

data 

-23731 

0336 

A129 

data 

-24279 

0337 

9F15 

data 

-24811 

0338 

9D0F 

data 

-25329 

0339 

9B18 

data 

-25832 

033A 

9931 

data 

-26319 

033B 

975A 

data 

-26790 

033C 

9593 

data 

-27245 

033D 

93DD 

data 

-27683 

033E 

9237 

data 

-28105 

033F 

90A2 

data 

-28510 

0340 

8F1E 

data 

-28898 

0341 

SDAC 

data 

-29268 

0342 

8C4B 

data 

-29621 

0343 

8AFC 

data 

-29956 

4^161 


rn^lementingipr; 


0344  89BF 

data 

-30273 

0345  8895 

data 

-30571 

0346  877C 

data 

-30852 

0347  8677 

data 

-31113 

0348  8584 

data 

-31356 

0349  84A4 

data 

-31580 

034A  83D7 

data 

-31785 

0349  B31B 

data 

-31971 

data 

-32137 

034O  81E3 

data 

-32285 

034E  8164 

data 

-32412 

034F  80F7 

data 

-32521 

0350  809F 

data 

-32609 

0351  805A 

data 

-32678 

0352  8038 

-32728 

0353  mm 

-32757 

; 
; 


Errors  :  0 
Wamliigs  ;  0 


;  External  Data  Starts  at  Address  0x0800 ,  with  2  bytes  of 
;  Real  Data  followed  by  2  bytes  of  Imaginary  Data. 


ExtRamAddr 


01993  MicrDchlp  Technology  Inc. 
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Tone  Generation 


INTRODUCTION 


IMPLEMENTATION 


A  general  purpose  resonator  routine  is  implemented 
using  PIC17C42.  This  routine  is  used  to  generate  mt^- 
t^ie  tones.  A  tone  signed  is  normalty  generated  using 
extensive  table  loolaip  schemes.  When  a  tnultiple  tone 
signal  is  desired,  each  tone  must  have  its  own  lookup 
table,  thus  requiring  a  lai^  amount  of  storage  space, 
especially  when  various  frequencies  are  to  be  gener- 
ated, ^^i^i^ation  note  iinpleinents  a  toiie  gm^^,^ 
ten  using  recursive  techniques.  The  algoiittim  for  a 
resonator  is  devetoped  and  implerrmnted  using 
PIC17C42. 

THEORY 

Generation  of  a  single  tone  basically  Implies  generating 
samples  of  a  sine/cosine  wave.  The  Z-Transform  of  a 
sine  wave  is  given  as  follows : 

zisin(wt)}-  m^^:?}^ — . 

X(z)  2=-2*z*cos(wT)+1 


The  impulse  response  of  the  above  transform  (i.e.  for 
X(z)  =  1)  will  generate  a  sine  wave  of  frequency  w 
sampled  at  a  rate  of  T  ( = T1wsM«Ni»<9X|i«i(in 
is  translated  to:   


Y(z)  = 


z  -''sin  (wT) 


1  -  2*z  -'•cos  (wT)  +r' 


The  above  equation  can  be  rewritten  in  a  difference 
equation  form  as  follows: 


y(n)  -  2y(n-  1)cx)s(wT)  +  y(n-2)  =  xCn-1  )sin(wT) 


Rearranging  the  atx)ve  equation  and  setting,  x(n)  as  an 
impulse  sequence,  the  following  recursive  equations 
are  obtained. 


y(n)=2'K,y(n-^)-y(^-^) 
y(n^)=y(nA) 
y(n-V=y(n) 
with  the  following  conditions: 

K,  =  initial  y(nA  )  =  sin(wT) 
K^  =  initial  y(n-2)  =  0 


The  above  developed  algorithm  is  implemented  as  a 
subroutine  using  PIC17C42.  All  computations  are  per- 
formed using  double  precision  arithmetic  (16/32-bits). 
The  recursive  tone  generation  algorithm  is  implemented 
as  a  subroutine  (labelled  as  'Resonertot^.  This  subrou- 
tine generates  samples  of  a  single  tone.  To  generate 
multiple  frequencies,  simply  call  this  resonator  routine 
fof  Hie  desired  frequencies  and  sum  the  output.  The 
tKree  tone  co-effidenls  ar«  stored  in  program  memory 
and  are  read  into  the  data  memoiy  using  taslrd 
instmctions. 

The  fully  commented  code  is  listed  in  Appendix  A.  The 
timing  and  memoiy  requirements  are  included  in  the 
comment  sections  of  the  code.  Foraiistingofthe  header 
file  °17C42.h"  and  the  macro  definition  file  "17C42.mac" 
please  refer  to  Appendices  C  and  D  respectively  of  the 
application  note  ANOS0054O.  This  code  can  be  easily 
modified  and  used  in  various  applications  Ike  DTMF 
generation,  sound  generaten,  ete.  The  tones  generated 
can  easily  be  output  to  an  on  chip  PWM  channel  which 
in  tum  can  drive  aspeakerfor producing  various  sounds. 
If  using  a  PWM  channel,  it  is  suggested  to  set  the  PWM 
frequency  much  hif^er  ttian  the  sampling  frequency 
used  (in  the  example  code,  for  8  KHz  sampling  fre- 
qu^icy,  use  at  least  Za  Kf\z  PWM  frequency).  ' 

As  an  example,  a  dual  tone  Is  generated  and  the 
resulting  digital  wave  form  is  analyzed.  The  main  pro- 
gram calls  the  function  'Resonator"  twice  for  generating 
the  two  desired  tones  and  the  two  outputs  are  summed. 
A  sampling  frequency  of  8  KHz  was  used  to  generate  a 
dual  tone  of  800  Hz  and  1 .10  KHz.  The  resulting  wave 
fomi  is  shown  in  Figure  1 .  The  spectrum  of  the  signal 
shown  in  Figure  2  shows  two  peaks  corresponding  to  the 
two  desired  tones  (800  Hz  &  1 .10  KHz).  The  assembly 
code  was  tested  using  PICMASTER"  (Microchip's  Uni- 
versal In-Circuit  Emulator  System). 

The  generated  tones  were  captured  into  the 
PICMASTER's  trace  buffer  and  then  transferred  to 
Microsoft  ExceP  using  Dynamic  Data  Exchange  (DDE). 
Once  the  data  is  in  ExceT  it  Is  analyzed  ustoggEM^afS 
FFT  utility. 


BSBOBMB>faB»« 
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FIGURE  1  -  DUAL  TONE  WAVE  FORM  CAPTURED  BY  PICMASTER 


Dual  Tone  Wava 


25000 
..^  .  ISOOO 

•s 

3  5000 

Q. 

E  -5000 
■  -15000 

r  - 

'  ^  -2sqoo 


y 

Tfma  ^ampl*  NuinlMi) 


*1^1iaUii<^  SPECTRUM  OF  Fia  1.1  SHOWING  THE  DUAL  TONE  FREQUENCIES 


Spectrum  Of  Dual  Tone 


40 

•     ,  30 

Mrlv  ,i«l\/1ti*)<1ll  Jbl:  i 

,1       Ill,  rifeu  I:,    cur  1  20 

»)ri-ri  ,  i  .  I,.    i„,  ^ 

.       '  .  »  10 

I.l.i  ; 

^'  0 


t 

1 

7 

3 

32       64        96       128      160      192  2M 
Frequency  (Sample  NumbefFeOSS) 


PERFORMANCE 

Table  1  below  provides  the  performance  of  the  resona- 
tor (labeled  in  the  source  code  as  "Resonator")  in  terms 
of  t)oth  timing  and  memory  requirements.  Since  a 
double  precision  multiplier  Is  used  (software  Implemen- 
tation), the  multiplier  timing  Is  not  always  constant. 
Therefore  the  timings  are  given  forthe  worst  case.  Note 
that  in-espective  of  the  frequency  and  the  sampling 
(resolution)  of  the  tone,  program  memory  requirements 
is  only  54  locations  which  in  case  of  table  lookup  could 
be  very  large. 


APPLICATIONS 

Tone  generation  Is  required  in  nnany  applications.  The 
code  provided  in  this  application  note  may  be  used  as  a 
general  purpose  routine  to  generate  desired  tones.  It 
can  be  used  In  applications  Involving  secure  off-site 
control,  where  commands/data  In  the  fonnat  of  tones 
are  transmitted  over  a  telephone  line.  The  tone  genera- 
tion finds  applications  Involving  signal  modulations  as 
well.  The  routine  can  be  used  to  generate  audible  tones 
and  output  to  a  speaker  connected  to  an  I/O  Port  or  a 
PWM  channel. 


TUBiB'l''  • 

I. '  '  .  _ 

Cycles 

235  Cycles 

Time  ®  16  MHz 

58.75)18 

Time  @  25  MHz 

47  ns 

Data  Memory 

9  -1-  9*(#  of  tones  to  be  generated) 

Program  memory 

54  locations 

Author:  Amar  Palacheria 

Logic  Products  DMsion 
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APPENDIX  A:  TONE.LST 

1(PA»  BO. 54 


,,**#***  *********  * 

;  Dual  Tone  Generation 

; 

I  h  generic  resonator  subroutine  is  implemented  to  generate 

•A?--'^ffB^*  Samples  Of  A  Sin/Cos  Wave  are  generated  using  ,  - 

't  -  S0&m:sive  techniques .  Table  Lookups  are  thus  avoitted 
fkis  is  especially  useful  in  generating  multiple  tones 
(e.g.  DTMF  tone  generation,   tone  signalling,   etc.),  or  programmable 
tone  generatiorv  which  may  vary  for  each  application  unit. 

liIST        P=17C42,   C=8p,   T=dNV  R=i3SC>'H=6 
iflSlU^  '■J,7eA2,.h' 


-.1-'. 

include  "17c42.mac" 


;  table  pointer  with  specified  label 

!  i 


TKiADMl  MACRO       laiiel    '  i.'0-..iC 


mmM  (label) 

. , ,  mmm. . .  .tbiptri 

tfl^M'     Bise  (label) 


.  ********  *******************************************H(F#Sfc*#** 

ADDLBL  "      ■'  '  ' 

;  DESCRIPTION: 

;  TJXme  (in  (^SeW!  I 


ADDLBL    MACRO       label, f 


MOVLW  (label) 
ADDWF  ,  f+PO 

i!Sfe  (Jsbel) 


0000  0004 


0018  0002 
OOIA  0002 
OOlC  0004 


0020  0002 
0022  0003 


0025  0002 


0027  0002 
0029  0000 


0029  0002 
002B  0003 
002E  0002 

0030  0002 
0032  0000 
0032  0002 
0034  0003 
0037  0002 
0039  0002 
003B  0000 
003B  0002 


CBLOCK  0 

B0,B1,B2,B3 

ENDC 


RAM  offset  constants 


CBLOCK  0x18 

AAKOiAAKSl  ;  16  bit  multipllez  A 

"'B3^,B%|U31  ;  le  bit  multiplicand  B 

DI^,DHC1,DFX2,DPX3;  32  bit  multiplier  result  =  A*B 


ENDC 
CBLOCK 


Qenerlc  Resonator 


Kl.Kll  ;  Kl 

SinCoa_2C,  SinCos_2 ,  SlnCosl_2 

;  y(n-2),   Init  Value  =  K3 

SinCos_l,SinCosl_l;  y(n-l),  Init  Value  =  K2 

SinCoSfSinCosl         ;  y(n) 

ENDC 

CBLOCK 

tonelKl , tonelKll     ;  Tone  1  variables 
tonel_2C ,  tonel_2  ,  tonell_2 
tonel_l , tonell_l 
tonel , tonell 

tone2Kl,tone2Kll     ;  Tone  2  varieibles 
tone2_2C, tone2_2 , tone21_2 
tone2_l ,  tone2 1_1 
tone2,tone21 

dualTone.dualTonel;  tonel'i'tone2 


***************  ******** 


************************ 


005A 

005B 
005C 


tdef  ina-  ADD_OFFSET  FALSE 

#def ine  coeff_addr    0x0030  ;  prog  mem  addr  of 
fdefine  DvunnvAddr  OxOAOO 
■ ********************************************************** 

;  ^st  Houtine  For  Sin  Wave  Generation 

;  (a)  Call  Initialization  Subroutine  to  read  desired  s 

;  freq  from  prog  mem  to  data  mem. 

;  (b)  Call  the  resonator  subroutine  to  generate  sairtpl 

;  sine  wave. 

;  (c)  Perform  a  Dunny  Table  Write  of  The  Sine  Wave  Dsl 

;  PICHASTER  emulator  can  capture  the  data  in 


.  ********************************************************** 
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mm 


0000  C040 


goto 
,************ 


oxdvoo 

start 


*************** 


mm 


;  Resonator  Co-efficients  For  Desired  Tones 
coe£f_aailic 


0030  678B 

0031  259E 

0032  0000 


;  Tone  1  Resonator  Constants 

rSaiiple  Rate  =  £s  =  8  kHz,  Tone  Freq  =  f  =  0.800  Khz 


26510  ;  Kl  =  COS(wT)  =  COS(360*f/ 
9630  ;  K2  =  SIN(wT)  =  SIN(360*f/ 
0  ;  Its  is  Inlt  value  of  y(n-2 


0033  5321 

0034  1855 

0035  0000 


;  Tone  2  Resonator  Constants 

;  Si^0^  Rate  =  fs  =  8  khz.  Tone  Freq  =  f  ^  1.10  Khz 


ma«-l  }  Kl  =  C0S(WT)  =  GOS(3fiO*f/ 
DATA  6229  ;  K2  =  SIN(wT)  =  SIN(360*f/ 
DATA       0  ;  1^  is  init  value  of  y(n-2 

.*****.***•****«****»«*****.«  «W#i*«*.-#)4tjk**A**«:**-i)^^****^ 


0040  E057 


0041  BOOO 

0042  OlOD 

0043  BOOA 

0044  OlOE 


start 


call 


0x0040 
Coef  f_Read 


1I0^7K1 6  Dumn/Addr ,  tblptrl 

MOVLW  (OxOAOO)   &  Oxff 

MOVWF  tblptrl+BO 

MOVLW  ( (OxOAOO)   »  8) 

MOVWF  tblptrl+Bl 


load  table  pointers  with  a  dummy  addr 


0045  0000 

0046  A43B 

0047  AE3C 

0048  0000 

0049  B029 

004A  0101 
004B  E06C 

004C  B032 

004O  0101 
004B  Boec 


NextSample 

nop 

tlwt  0,dualTone 

Cloture 

tablwt  l,0,dualTone+Bl 


for  PICMASTER  tr 


..Haoc."    r.;i..  (HE.  Siati  ,a 

mtm-tm'  tecielKI 

movwf  fsrO 
call  Resonator 

Btss'lw  tone2Kl 


;  load  indirect  ^ 

;   for  Tone  1 

;  Confute  next  j9agl#  , 


f  load  indirect  aim 

;  for  Tone  2 

;  compute  next  sanp 


mxsmm: 


;   Compute  Tonel  +  Tone2  for  dual  tone 
"tonel ,  tone2 ,  dualTone 
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004?  6030 

0050  0B39 

0051  013B 

0052  6031 

0053  103A 

0054  013C 

0055  C045 

0056  C056 


;  dualTone  =  tonel 

mavtp  toziel+BO ,  wreg 

addwf  tone2+B0,w 

novwf  dualTone+BO 

movfp  tonel+Bl ,wreg 

addwfc  tone2+Bl,w 

movwf  dualTone+Bl 

goto  NextSanple 

self       goto  self 

. ********************************************************** 


Initialization  routine  : 

Read  Tone  1  £  Tme  2  Sescmator  Frequencies  from  Program  H 


;  Data  Memory 

;  Program  Iferoory 

;  Timing 


3  +  8*(tof  tones  to  be  gene 


4  +  ll*(#of  tones  to  be  gen 


.********************************************************** 
Coef£_Read 


eoef^addr 

0057 

B030 

MOVLW 

(0x0030) 

0058 

OlOD 

MOVWF 

tblptrl 

0059 

BOOO 

MOVLW 

page  (0x0030) 

005A 

OlOE 

MOVWF 

tblptrh 

005B 

A929 

tablrd 

0, 1, tonelKl 

005C 

A029 

tlrd 

O.tonelKl 

00^ 

jkS2A 

tablrd 

l,l,tonelKl+Bl  ; 

read 

Kl 

005E 

K02B 

tlrd 

O,tonel_l 

005F 

AB2F 

tablrd 

l,l,tonel_l+Bl  ; 

read 

K2 

0060 

A02C 

tlrd 

0 , tonel_2 

0061 

A22D 

tlrd 

l,tonel_2+Bl  ; 

read 

K3 

0062 

292B 

clrf 

tonel_2C 

0063 

A932 

tablrd 

0,l,tone2Kl 

00«4 

A032 

tlrd 

0,tone2Kl 

0065 

AB33 

tablrd 

l,l,tone2Kl+Bl  ! 

read 

Kl 

0066 

A037 

tlrd 

0 ,  tone2_l 

0067 

AB33 

tablrd 

l,l,tone2_l+Bl  ; 

read 

K2 

0068 

A035 

tlrd 

0 , tone2_2 

0069 

A236 

tlrd 

l,tone2_2+Bl  ; 

read 

K3 

006A 

2934 

clrf 

tone2_2C 

006B 

0002 

return 

********************************************************** 
Resonator  Subroutine 


Before  calling  this  routine,   load  the  indirect  register, 
with  the  starting  RAM  address  of  the  desired  Tone  Variabl 
(  eg.  For  Tonel  Generation,  load  FSRO  with  'TonelKl'  addr 


Timing  (worst  case)  : 

20  +  36  +  (worst  case  multiplier  time) 
=  56  +  179  =  235  cycles 
=  58.75  US  9  16Mhz 
=  47.00  US  8  20Mhz 
o  37.60  us  a  25  Hhz 


Memory  Reguirements  : 

Program  Memory     :  54  locations 
•     ■  Data  Manory  :  9  +  9*(#of  tones  to  Ije  ge 

********************************************************** 
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Resonator 

;  Transfer  tone  varialbles  to  resonator's  variables  using  i 
;  This  Is  necessary  for  making  the  "Resonator*  a  generic 
•  subreufeiMsiant  tlH4W^ftli<  Bliiiri»i  code  can  be  called  for  vsrio 
;  tones. 

;  IiidiE««t  a^EMwins  node  caa  be  uSecl^thrQai^  Om  i 
;  aaiBxeae^tam,  tet  i*  less  effielait.  - 


006C 

8D04 

bc£ 

_fsl 

006D 

8404 

bsf 

_fsO 

auto  increment  FSRO 

OOSE 

4020 

movpf 

lndfO,Kl+BO 

OOSF 

4021 

movpf 

indfO,Kl+Bl 

0070 

4022 

movpf 

Indf 0 , SlnCos_2C 

0071 

4023 

lIKSVpf 

indf 0 , SlnCos_2+B0 

0072 

4024 

movpf 

indf 0, SinCos_2+Bl 

0073 

4025 

movpf 

indf 0, SinCos_l+BO 

0074 

4026 

movpf 

indfO, SinCoE_l+Bl 

007S 

4027 

movpf 

indf  0 ,  SinCos+BO 

0076 

4028 

movpf 

indf 0 , sinCos+Bl 

;  COBpite  2*Kl*y(n-l) 

M0VFP16 

Kl ,  BARG 

0077 

7A20 

MOVFP 

K1+B0,BARG+B0 

move  Kl(BO)  t 

0078 

7B21 

MOVFP 

K1+B1,BARG+B1 

move  Kl(Bl)  t 

M0VFP16 

SinCos_l ,  AARG 

0079 

7825 

007A 

7926 

MOVFP 

SinCos_l+Bl ,  AAI^Bl 

move  Si 

007B 

E0A2 

call 

DblMult 

007C 

8804 

BCF 

_carry 

007D 

IBIC 

RLCF 

DPX+BO 

007E 

IBID 

RLCF 

DPX+Bl 

007F 

IBIE 

RLCF 

DPX+B2 

ooeo 

IBIP 

RLCF 

DPX+B3 

1 

;  subtract  y  {n-2)  *  (2**15) 

t 

0081 

2922 

clrf 

SinCos_2C 

RRC24 

SlnCos_2C 

00  82 

1A24 

RLCF 

SinCos_2C+B2,W 

move  sign 

0083 

1924 

RRCF 

SinCos_2C+B2 

0084 

1923 

RRCF 

SinCos_2C+Bl 

008S 

1922 

.     r             RRCF  •■ 

SinCos^Git'BO 

SIIB24 

SinCos_2C,DPXl 

DPX  =  2*Kl*y(n-l)  -  y(n- 

0086 

6022 

MOVFP 

SillCos_2C+B0 ,  wreg 

<  get  lowee          ;  i 

0087 

051D 

SUBW 

DPXl+BO 

sub  lowest  byt 

0088 

6023 

MOVFP 

SinCos_2C+Bl, wreg 

get  2nd  b 

0089 

031E 

SUBWFB 

DPXl+Bl 

sub  2nd  byte  o 

008A 

6024 

MOVFP 

SinCos_2C+B2 ,  wreg 

get  3rd  b 

008B 

03  IF 

SUBWFB 

DPX1+B2 

sub  3rd  byte  o 

.  ItI.C24 

DPXl 

adjtist  decijnal  point 

008C 

8804 

BCF 

_carry 

008D 

IBID 

RLCF 

DPXl+BO 

008E 

IBIE 

RLCF 

DPXlH-Bl 

OOSF 

IBIF 

RLCF 

DPX1+B2 

;  update  past  sauries  with  newly  confuted  values 

HOVPF16 

IH>X2,SlnCos 

y(n)  =  2*Ki*y<oj-JlJ  -  y{n 

0090 

5E27 

MOVPF 

DPX2+B0 ,  SlnCos+BO 

move  DPZ2 

0091 

5F28 

MOVPF 

DPX2+B1 ,  SinCos+Bl 

move  DFX2 

MOV16 

SinCos_l ,  SinCos_2 

y(n-2)  =  y(n-l) 

0092 

6025 

MOVFP 

SinCos_l+BO , wreg 

get  byte  o 

0093 

0123 

MOVWF 

SinCos_2+B0 

move  to  Si 

0094 

6026 

MOVFP 

SinCos_l+Bl  ,wreg 

get  byte  o 

009S 

0124 

HmP' 

SinCos_2+Bl 

move  to  Si 

l!P^-F16 

DPX2,SinCos_l 

y<n-lj  s  y(n) 

0096 

5B25 

MC2>*8S.  i|iicCes_l+B0;  mava  DK.i: , 

0097 

5F26 

iSmSMBi. ;  MiiCos_l+Bl 

move  DS  "  - 
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Generation  Of  The  Next  Sasple  Of  Ibe  Resonator  (sine  wave 
The  16  bit  result  Is  stored  in  location  "SinCos'  (low  Byt 
•SinCos+1'  (High  Byte) 

write  back  all  the  counted  values  to  respective  tone  var 


oe»s 

0701 

deef 

fsrO 

8099 

8D04 

bcf 

_fsl 

0«9A 

8C04 

bcf 

_fsO 

009S 

6028 

movfp 

SinCos+Bl,indfO 

009C 

6027 

movfp 

SinCos+BO , indf 0 

009D 

6026 

movfp 

SinCos_l+Bl, indf 0 

009E 

6025 

movfp 

SinCos_l+B0, indf 0 

009F 

6024 

movfp 

SinCos_2C+B2 , indf 0 

00  AO 

6023 

movfp 

SinCos_2C+Bl , indf 0 

OOAl 

0002 

return 

.********************************************************** 

Include  Double  Precision  Multiplication  Routine 

0001  SIGNED    equ  TRUE 

Include  *17c42n{>y.inac* 
KOLIST 

.********************************************************** 

.********************************************************** 
;  Souble  Precision  I&iltlplier  For  PIC17C42 

;  Dmult 

;  DESCRIPTION: 

Multiplication   :  AARG   (16  bits)   *  BARG   (16  bits)    ->  DPX 

(a)  Load  the  1st  operand  in  locations  AARG+BO  &  AARG 

(b)  Load  the  2ad  operand  in  locations  BARG+BO  &  BARG 

(c)  CALL  DBIttlt 

;  (d)  Xbs  32  bit  result  is  In  locations  (  DPX+BO.DK+B 

;  In  the  signed  case,  a  savings  of  9  elks  can  be  real 

;  BARO  as  the  positive  factor  in  the  product  when  pos 

;  TIMIMG  (worst  case) : 

;  unsigned:  17 

signed:  BARd+  17 

BARG-  17 

NOTE  :       Define  SIGNED/UNSIGNED  To  1/0  before  including 
;  this  file  in  your  program 

J  ********************************************************** 

;  Hultiplication  Hacro 

. **************«****#*****  ********************************* 

;  TnoWG!  unsigned:  11+7*10+8*11      =  169  elks 

;  <WDrst  case)      signed:  11+7*10+7*11+5  =  163  elks 

HULTHAC  KACRD 

variable  i 
i  =  0 

if  SIGNED 
while  i  <  15 
else 

while  i  <  16 
endif 

if  i  <  8  ;   test  low  tjyte 
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btf sc  BARG+BO , i 

else 

btfsc  BARG+Bl,i-8 


£i 

goto 
if  1  <  8 


add#v(i) 


test  high  layte 


rlcf  DPX+B3,W 

rrcf  DFX+B3 

rrcf  DFX+B2 

rrcf  DPX+Bl 
else 

rlcf  DPX+B3,W 

rrcf  DPX+B3 

rroS  .iaK£+B2.--'i 

rrcf  SPX+Bl 

rrcf  DPX+BO 

fi 

i  =  i+1 
endw 

clrf  DPX+BO 
return 

addO 

movfp  AARG+BO,HREG 

addwf  DPX+B2 

movfp  AARG-f  Bl ,  WREG 

addwfc  DPX+B3 

rlcf  AARG+B1,W 

rrcf  DPX+BS 

rrcf  DPX+B2 

rrcf  I^X-tiBl 


rotate  sign  into  carry  bit 
for  i  <  8,  no  neaningfu]:  bits 
are  in  DPX+BO 


;  rotate  aign  into  carry  bit 


if  we  get  here,  BARG 


; add  msb 

;  rotate  sign  into  carry  bit 
,-  for  i  <  8,  no  meaningful  bits 
;  are  in  DPX-iAO 


16 


if  SIGIISD 

while  i 

else 

while  i  ■ 
«idif 

if  i  <  a 
btf  as 
else 
btfss 

fi 

goto 


<  IS 


BARS+BO,i 


B»RG+Bl,i-8 


movfp 
addwf 
movfp 
addwfc 


noadd#v  ( i ) 
add#v(i) 

AARG+BO,HREQ 
DPX+B2 

AARG+Bl.HKXei 

DPX+B3 


if 


noadd#v ( i ) 

if  i  <  8 

rlcf 

rrcf 

rrcf 

rrcf 
else 

rlcf 

rrcf 

rrcf 

rrcf 

rrcf 
fi 

i  =  i+1 
endw 

rlcf  AARG+Bl.W 
rrcf  DPX+B3 
rrcf  DPX+B2 
aar^  _ .  I^%tBl^  : 
rref  l^+BO 


AARG+Bl.W 

DPX+B3 

DPX+B2 

DPX+Bl 

AARG+Bl.W 

DPX+B3 

DPX+B2 

DPX+BO 


;test  low  byte 
/,  MS&  higb  byte 

;add  Isb 
tmSS  msb 


;  rotate  sign  into  carry  bit 
;  for  i  <  8,  no  noaBiogfttLMfea 
}  axe  in  DPX+BO 


r  sebtltm  sign  int«  .car:ty  bit 


;  since  ^kftS  is  always  made  posit 
'(  laim  imtk  Mt  .la  .known  to  be  zer 


Tone  Generation 


oidif 


Double  Precision  Multiply  (  16x16  ->  32  ) 
(  AAR6*BASG  ->  :  32  bit  output  In  DFX 


ia>iieii.t 

if  SIGNED 


00A2  971B 
00A3  COA£ 


Nseie 


btfss 


goto 
AARG+BO 


BARG+Bl.MSB  ;    test  sign  of  BARG 

argsok  ;   if  positive,  ok 

;  if  negative,  then  negate 


00A4  1318 

00A5  1319 
00A6  2900 
00A7  1518 
00&8  1119 


AARG+B04B0 

COMF  AARG+BO+Bl 
CLRF  wreg 
INCF  AARG+BO+BO 
ADDHFC  AARG+BO+Bl 


00A9  131A 
OOAA  131B 
OOAB  2900 
OOAC  151A 
OOAO  lllB 


NEG16 


AARG  and  BJAG 


COMF 
COMF 
CLRF 
INCF 


BARG+BO+BO 
BARG+BO+Bl 
wreg 

BARG+BO+BO 


ADDWFC  BARG+BO+Bl 


endif 
argsok 


CLI116  DPX+B2 


clear  initial  partial  pr 


OOAE  291E 
OOAF  291F 


0000 
0000 


CLRF 
CLRF 


DPX+B2+B0 
DPX+B2+B1 


MOLTHAC 
variable  i 
i  =  0 

if  SIGa^ 
tftille  1  <  15 

else 

while  i  <  16 

endif 

if  i  <  8 


use  macro  for  multiplica 


btfsc 


BAKG+BO , i 


else 

btfsc 
fi 

goto  addlv(i) 

if  i  <  8 

rlcf  DPX+B3,H 

rrcf  DPX+B3 


BARa+Bl,i-8 


test  low  l^te 


;  test  high  byte 


rotate  sign  into  carry  bit 

for  i  <  8,  no  meaningful  bits 


nimiiiiinniiBKino 
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rrcf 

.;^«r«  in  OPX+BO 

•-  i  rrcf 

DK+Bl 

-,  . 

alse 

rlcf 

DPX+B3,W 

s  rota]^  sign  £M»  mmmf  iBit 

rrcf 

DPX+B3 

rrcf 

DPX+B2 

rrcf 

DPX+Bl 

,  rrcf 

DFX+BO 

fi 

i  =  i+1 

endw 

-vu              r  c       if  i  <  8 

;   test  low  byte 

OOBO 

981A 

btfsc 
else 

BARG+BO,i 

;  test  high  byte 

btfsc 

BMRS+Bl) i- 

8  .  „ 

fi 

OOBl 

C113 

goto 
It  1  <  8 

addO 

00B2 

lAlF 

.    .  rlcf 

DPX+B3,W 

;  rotate  sign  into 

00B3 

191F 

rrcf 

DPX+B3 

;  for  i  <  8 ,  no  naa 

00B4 

191E 

rrcf  J 
else 

DPX+B2 

;  are  in  DPX+BO 

OOBS 

1910 

rlcf 

;  rotate  sign  late  esxxy  bit 

rrcf 

DPX+B3 

.,        ;  rrcf 

DPX+B2 

rrcf 

DPX+Bl 

rrcf 

OPX+BO 

-  fi 

■  i  : 

0001 

i  =  i+1 

btfsc 
•lae 

'<  ■ 

;  test  low  byte 

00B6 

991A 

teat  hlg^  byta 

btfsc 

8  - 

fi 

■i  • 

1  ■ 

00B7 

CllD 

goto 
if  i  <  8 

addl 

OOBS 

lAlP 

0PX+B3,W 

;  rotate  sign  into 

00B9 

191F 

rrcf 

df;(+b3 

;  for  1  <  8,  no  una 

OOBA 

191E 

•        -  rrcf 

DPX+B2 

.axe  in  DPX+BO 

OOBB 

191D 

rrcf 
else 

ra»+«i 

rlcf 

DPX+B3,W 

;  rotate  sign  into  earzy  bit 

rrcf 

DPX+B3 

rrcf 

DPX+B2 

rrcf 

DPX+Bl 

DPXjSW:, 

U 

0002 

i  =  i+1 
i'-l  \ii<.,  ■■  3';:  aBl»  <4ft*  <  -8 

;  test  lew  tyte 

OOBC 

9A1A 

btfsc 

BARG+BO , i 

•Im 

;  teat  hi{A  byte 

btfsc 

BHBS+Bl 

,i-8 

fi 

OOBD  C127 

goto 

if  i  <  8 

OOBE 

lAlF 

i^tpi  rlcf 

DPX+B3,W 

;  rotate  sign  into 

OOBF 

191F 

rrcf 

DPX+B3 

;  for  i  <  8,  no  nea 

OOCO 

191B 

i  !lr  rrcf 

DPX+B2 

;  are  in  DK9C+B0 

OOCl 

191D 

rrcf 

pPX+Bl 

rlcf 

DPX+S3,H 

;  xotate  sign  into  carry  bit 

rrcf 

DPX+B3 

.11           -- -  rrcf 

DPJMa. 

<.*-  fi    ^        -  1  K^P^ 

DPX+Bl 

,■;  ■  7a  J^IPil 

im+BO 

fi 

0003 

i  =  i+1 
if  i  <  8 

;  test  low  byte 
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- 

ueBU  xu.ga  JTyxe 

btfsc 

-8 

OOCT  CI  31 

f  i 

goto 

adid3 

if 

i  <  8 

nor 4  lAlP 

rXcf 

rotate  sign  into 

0OC5  191P 

rrc£ 

£br  i  <  8,  no  nea 

DPX+B2  ; 

are  In  DPX+BO 

00C7  191D 

DPX+Bl 

rlcf- 

DPX+B3 , W  ; 

rotate  sign  into  carry 

DPX+B3 

rrcf 

DPX+B2 

rrcf 

DPX+Bl 

rrcf 

DPX+BO 

f  i 

0004 

i  =  i+1 

■if 

i  <  8 

test  low  byte 

ones  on  A 

btf  sc 

BARG+BO , i 

t€st.  higli  byte 

btfsc 

BARG+Bl,  i- 

-8 

£i 

goto 

if 

i  <  8 

rlcf 

^rotate  sign  into 

DPX+B3  • 

"f  or  i  <  8  *  no  inea 

rrcf 

rrcf 

DPX+Bl 

else 

rlcf 

^  u       LtfV  c3xy**'  XAAWW  xjF 

rrcf 

rrdf 

DFX+B2 

rrcf 

DPX+Ml 

rrcf 

DPX+BO 

ooos 

OOCB  9D1A 


OOCP  C145 
OODO  lAlF 

asm  191V 
^mm  1918 

00D3  191I> 


006 

00O4  9B1A 


0D5  C14F 

00D6  lAlF 
00D7  191F 
00D8  191E 
00O9  191D 


fi 

i  =  i+1 
if  i  <  8 
btfsc 
else 

btfsc 

fi 

goto 
.  if  i  <  8 
rlcf 
rrof 
rref 
rrcf 
else 
rlcf 
rrcf 
rrcf 
rref 
rref 

fi 

i  =  i+1 
if  i  <  8 

btfsc 
else 
btfsc 

fi 

goto 
if  i  <  8 
rlcf 
rrcf 
rrcf 
rrcf 
else 
rlcf 


;  test  low  byte 
BMtGM-BO.i 

;  test  high  byte 
BARO+Bl.i-S 


adds 

DPX+B3,W 

DPX+Bl 

DPX+B3 ,W 

DPX+B3 

DPX+B2 

DPX+Bl 

DPX+BO 


;  rotate  sign  into 
;  for  i  <  8,  no  zoea 
I  arte  in  DPX+BO 


rotate  sign  into  carry  bit 


BARG+BO,  1 

BAfiC+Bl,l-8 

add6 

DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+Bl 

DFX+B3,W 


;   test  low  byte 
test  high  byte 


;  rotate  sign  into 
;   for  i  <  8 ,  no  mea 
;  are  in  DPX+BO 


rotate  sign  into  carry  bit 
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zxcf 

DPZ+B3 

♦  i 

■- 

1>PX^B2 

DPX«B1 

£i 

DPX+BO 

0007 

i  =  i+1 

if 

i  <  8 

test  low  byte 

OOSA 

9F1A 

btfsc 

BAKlS4>B0,i 

else 

test  high  byte 

BARG+Bl,i-S, 

fl 

OODB 

C159 

goto 

add? 

if 

i  <  8 

OODC 

lAlF 

rlcf 

DPX+B3,W 

rotate  sign  into 

OODD 

191F 

rrcf 

DPX+B3 

for  i  <  8f  no  wstt 

CODE 

191E 

rrcf 

DPX+B2 

are  in  DPX+BO 

191D 

rlcf 

DPX+B3,W 

rota^'#^g^         €4^3^  bit 

rrcf 

DPX+B3 

rrcf 

DPX+B2 

- 

rrcf 

DPX+Bl 

rrcf 

DPX+BO 

£i 

0008 

i  «  i#l 

-- 

test  low  byte 

btfSG 

KkBSki-BO.i 

else 

test  high  byte 

OOBO 

981B 

btfsc 

BARG+Bl,i- 

-8 

fl 

OOEl 

C163 

t$  i  <  6 

DPX+B3,W 

rotate  sign  inCo  aaxxy  bit 

rrcf 

DPX+B3 

for  i  <  8,  no  aeanlngfttl  bits 

DFX+B2 

fire  in  DPSHiSO 

■  if-.         ■  _ 

•Ise 

0OG2 

lAlP 

rlcf 

DFX+B3,W 

aOE3 

191P 

rrcf 

DPX+B3 

00E4 

191E 

rrcf 

DPX+B2 

00E5 

191D 

i     I-  is. 

-  rrcf 

DPX+Bl 

ooBe 

191C 

.11  it:  *■? 

rrcf 

DPX+BO 

0009 

f  i 

i  =  i+1 

if 

i  <  8 

test  low 

btfsc 

BARG+BO ,  i 

else 

j^t  hls^  byte 

00E7 

991B 

fi 

btfsc 

B»m*9i-,i- 

-8 

00E8 

C16B 

goto 

adsl9 

if 

i  <  8 

rlcf 

DFX+B3,W 

rotate  sign  into  carry  bit 

rrcf 

DFX+B3 

for  i  <  8,  no  meaningful  bits 

rrcf 

DPX4-B2 

are  ia  OH^M 

rrcf 

DPX+Bl 

ell 

se 

00E9 

lAlF 

rlcf 

DPX+B3,W 

rotate  Sij^  MfeS' 

OOEA 

191F 

rrcf 

DPX+B3 

OOEB 

191E 

rrcf 

DPX+B2 

OOEC 

191D 

rrcf 

DPX+Bl 

OO^D 

191C 

rrcf 

DPX+BO 

fi 

OOOA 

i  =  i+1 

if 

i  <  8 

test  iow  byte 

btfsc 

BARG+BO , i 

else 

test  high 

OOEB 

9A1B 

btfsc 

BARG+Bl, i- 

-8 

fi 

OOBF 

C179 

goto 

addlO 
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nnflflffiiiflilVfMiimrin 


OOFO  IMF 
OOFl  191F 
00F2  191E 
0OP3  191D 
00F4  191C 

OOOB 


OOFS  9B1B 
OOFS  C184 


00F7  lAlF 
OOTB  191F 

00F9  191E 
OOFA  191D 
OOFB  191C 

oooc 


OOFC  9C1B 
OOFD  C18F 


if  i  <  8 
rlcf 
rrcf 
rrof 
rrcf 

else 
rlcf 
rrcf 
rrcf 
rrcf 
rrcf 


DFX+B3 
DPX+B2 

DPX+Bl 

DPX+B3,W 

DPX+B3 

DPX+B2 

DPX+Bl 

DPX+BO 


rotate  sign  into  carry  bit 
for  i  <  8,  no  meaningful  bits 
are  in  OFXi-BO 


rotate  sign  into 


fi 


if 


i  =  i+1 
i  <  8 
btfsc 

else 
btfsc 


;  test  low  byte 


BiUl6+B0 ,  i 


BASG+Bl 


fi 


if 


goto 

i  <  8 

rlcf 
rrcf 
rrcf 
rrcf 
else 
rlcf 
rrof 
rrcf 
rrcf 
rrcf 


adOll 

DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+Bl 

DPX+B3,W 
DKS+B3 

DPX+B2 
DPX+Bl 
DPX+BO 


;  test  high  byte 
i-8 


rotate  sign  into  carry  bit 
for  i  <  8 ,  no  meaningful  bits 
are  in  DPX+BO 


fi 


if 


fi 


i  =  i+1 
i  <  8 
btfsc 

else 
btfsc 

goto 


BJ«G+BO, 
BARO+Bl, 
addl2 


rotate  sign  into 


;  test  low  byte 

i 

;  t^st  high  byte 
i-8 


OOFE  lAlF 
OOW  191F 

0100  19U! 

0101  191D 

0102  191C 

OOOD 


0103  9D1B 

0104  C19A 


0105  lAlF 

0106  191F 

0107  191B 

0108  191D 

0109  191C 


if  i  <  8 
rlcf 

rrcf 
rrcf 
rrcf 
else 
rlcf 
rrcf 
rrcf 
rrcf 
rrcf 

fi 

i  =  1+1 
if  i  <  8 
btfsc 

else 
btfsc 

fi 

goto 
if  i  <  8 

rlcf 

rrcf 

rrcf 

rrcf 
else 

rlcf 

rrcf 

rrcf 

rrcf 

rrcf 


rotate  sign  into  carry  bit 
for  i  <  8,  no  meaningful  bits 
are  in  DPX+BO 


;  rotate  sign  into 


DPX+B3,W 

DPX+B3 
DPX+B2 
DPX+Bl 

DPX+B3 , W 

DPX+B3 

DFX+B2 

DPX+Bl 

DPX+BO 


;   test  low  byte 
BARG+BO.i 

;  t^t  high  byte 
BARO+Bl,i-S 


addl3 

DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+Bl 

DPX+B3,W 

DPX+B3 
DPX+B2 
DPX+Bl 
DPX+BO 


rotate  sign  into  carry  bit 
for  i  <  8,  no  meaningful  bits 
are  in  DPX+BO 


rotate  sign  into 
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T^Qj|%  Getieratian 


OOOE 

i  =  i*i 

i£  i  <  8 

;  test  low  byte 

btfse 

else 

; 

test  hi£^  byte 

010% 

9B1B 

btfsc 

B«ie+Bl,i-8 

fi- 

OlOB 

C1A5 

addl4 

if  i  <  8 

.  . rlof 

;  rotate  sign  into  carry  bit 

rrcf 

OPX'fBS 

;  for  i  <  8,  no  meaningful  bits 

rrcf 

;  axe  in  I%X+BO 

rrcf 

else 

OlOC 

lAlF                 .  ; 

.,^1       ,^  rlcf 

DPX+B3,W 

;  rotate  StaS)  .iMts 

OlOD 

191F 

rrcf 

DPX+B3 

OlOE 

191B 

rrcf 

OPX+B2 

01  OF 

191D 

rrcf 

DPX.+BI 

0110 

191C 

rrcf 

fi 

|» 

GOOF 

i  =  i+1 

Dili 

291C 

• ,  .  clrf 

DPX+BO 

0112 

0002 

return 

,iSddO 

0113 

6018 

movfp 

AARG+BO,«REG 

0114 

OFIE 

addwf 

DPX+B2 

;add  Isb 

0115 

6019 

movfp 

AABG+Bl.MRES 

0116 

lllF 

addwf  c 

DPX+B3 

;add  msb 

0117 

1A19 

rlcf 

AARG+B1,W 

;  rotate  sign  into 

0118 

191F 

rrcf 

DPX+B3 

;  for  i  <  8,  no  mea 

0119 

191E 

rrcf 

DPX+B2 

■  are  ^ 

OllA 

191D 

rrcf 

DPX+Bl 

0001 

i  =  1 

jaioaan 

if  SIOIED 

while 

i  <  15 

else 

while  1 

<  16 

endlf 

if  i  <  8 

,   ,,.^fSB   y  BARG+BO,i 

;  test  low  byte 

else 

btfss 

BARG+Bl,i-8 

;  test  bigh  l:yte 

fi 

goto 

noadd#v ( i ) 

add*v(i) 

movfp 

AARG+BO,WR£G 

addwf 

DPX+B2 

;add  Isb 

movfp 

AASS+Bl.WRBS 

addwf c 

DPX+B3 

;adti  msb 

dfj^tf  noadd#v(i) 

if  i  <  8 

rlcf 

AARG+B1,W 

;  rotate  sign  into  carry  bit 

rrcf 

DPX+B3 

;  for  i  <  8,  no  meaningful  bits 

rrcf 

DPX+B2 

;  are  in  0E]|^ 

rrcf 

DPX+Bl 

el#e 

rlcf 

AARG+B1,W 

;  M0iai#  .lij^  im^^  carry  bit 

rrcf 

DPX+B3 

rrcf 

DPX'l'B2 

rrcf 

DPX+Bl 

rrcf 

DPX+BO 

fi 

i  =  i+1 

endw  ^ 
if  i  <  8  ;te8t  lew  hijfta 

OllB  911A  .        „.        ,  M  BARG+BO,i 

else 

;  test  hi^ 

btfss  BARG+Bl,i-8 
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Tbne  Generation 


fi 


one  C121 

OllD  6018 
OllE  OFIE 
OllF  6019 
0120  lllF 


0131.  IM*' 

0122'  IM*- 

0123  191B 

0124  19  ID 


0002 

0125  921A 


0126  C12B 

0127  6018 

0128  OFIE 

0129  6019 
012A  lllF 


012B  1A19 
012C  191F 
012D  191E 
012B  191D 


0003 

012F  931A 


0130  eifs 

0131  6018 

0132  OFIE 

0133  6019 

0134  lllF 


0135  1A19 

0136  191P 

0137  191E 

0138  191D 


addl 


noaddl 


a<ia2 


tioadd2 


noadd3 


goto 


noaddl 


movfp  AARG+B0,WREO 

addwf      DPX+B2  ; add  Isb 

movfp  AARG+B1,WREG 


addwfc  DPX+B3 


if  i  <  8 

sUi 

rrcf 

rrcf 

rrcf 
else 

rlof 

rrcf 

rrcf 

rrcf 

rrcf 
fi 

i  =  i+1 
if  i  <  8 

btfss 
else 

btfss 

fi 

goto 


;add  msb 


>;  rotate  sign  into 
;  for  i  <  8,  no  mea 
;  are  in  DFX+BO 


rotate  sign  into  carry  bit 


JIARS^-eifW 

DPX+Bl 

AARG+B1,W 

DPX+B3 

DFX4'B2 

DPX+Bl 

DPX+BO 


;  test  low  byte 
BARG+BO , i 

;  test  high  byte 
BARG+Bl,i-8 


noadd2 


movfp       AARG+BO , WREG 

addwf      DPX+B2  ;add  Isb 

movfp  Jkftl®+«1,WBSS 


addwfc  DPX+B3 


if  i  <  8 

rlcf 

rrcf 

rrcf 

rrcf 
iSlse 

rlof 

rrcf 

rrcf 

rrcf 

rrcf 
fl 

i  =  i+1 
if  i  <  8 

btfss 
else 


AARG+B1,W 
DPX+B3 
DPX+B2 
DPX+Bl 

AAR6+B1,W 

DPX+B3 

DPX+B2 

DPX+Bl 

DPX+BO 


rotate  sign  into 
for  i  <  8 ,   no  mea 
are  in  DPX+BO 


rotate  sign  into  carry  bit 


;test  low  byte 


BARG+BO , i 


test  high  iayte 


btfss 


BARG+Bl, i-8 


fi 


goto 


noatj^ 


BKJvfp      AARG+BO,  MREQ 

addwf     DPX+B2         ,-add  Isb 

movfp  AARG+B1,WREG 


addwfc  DPX+B3 


if  i  <  8 
rlcf 
rrcf 
rrcf 
rrcf 

else 
rlcf 
rrcf 
rref 
rifcf 


AARG+Bl,W 
DPX+B3 
DPX+B2 
DPX+Bl 


;add  msb 


rotate  sign  into 
for  i  <  8,  no  mea 
are  in  DPX+BO 


AARG+Bl, 
DPX+B3 
SPX+B2: 
DPX+Bl 


W 


rotate  sign  into  carry  bit 
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Toi^  (ieneratipn 


0004 

0139  941A 


013A  C13F 

013B  6018 
013C  OFIE 
013D  6019 
013E  lllF 


013F  1A19 

0140  191F 

0141  191E 

0142  191D 


0005 

0143  951A 


0144  C149 

0145  6018 

0146  OFIB 

0147  6019 
01^  lllF 


0149  1A19 
014A  191F 
014B  191E 
014C  191D 


0006 

014D  961A 


014E  C153 

014F  6018 

0150  OFIE 

0151  6019 

0152  lllF 


fi 
i  =  i+1 
r^.fji     if  i  <  8 
btfss 
else 


BARG+BO , 1 


;  test  lew  byte 


u 

goto 

movfp 
addwf 
novfp 

if  i  <  8 
rlcf 
rrcf 
rrcf 

rrcf 
else 
rlcf 
rrcf 
rrcf 


noadcM 

AARG+BO  , 
DPX+B2 
AARQ-I-Bl , 

mmme 


;  test  high  byte 
.i-8  ;l 


WREG 

; add  Isb 
NREG 


adds 


add6 


fi 

i  =  i+1 
if  i  <  8 

btfss 
elAe 

mm 
ri 

goto 

movfp 
addwf 
movfp 

if  i  <  8 
rlcf 
rrcf 
rrcf 
rrcf 

rlef 

rrcf 

rrcf 

rrcf 

«rcf 
fi 

i  =  i+1 
if  i  <  8 

btfss 
else 

btfss 

fi 

goto 

movfp 
addwf 
movfp 

addwfc 


AARG+Bl, 

DFX+B3 

DPX+B3 

DPX+Bl 

AARG+Bl 
DPX+B3 
DPX+B2 


;  rotate  sign  inb9 
;  fsr  i  <  B,  ma  mm 

I  are  in  DPX4S0 


W    ;  rotate  sign  into  carry  bit 


BARG+BO, 
BASOtBl. 

noaddS 

AARG+BO , 

DPX+B2 

AARG+Bl, 


;test  low  byte 
;  test  high  byte 


i-8 


HREO 

;add  Isb 
HREG 


AARG+Bl , 
DPX+B3 
DPX+B2 
DPX+Bl 

AARG+Bl, 

DPX+B3 
DPX+B2 
DPX+Bl 
DPX+BO 


BARG+BO, 

BARG+Bl , 

noadd6 

AARG+BO, 
DPX+B2, 
AARO+Bl; 
DPX+B3 


W     ;  rotate  sign  into 
;  for  i  <  8,  no  raea 
;  are  in  DPX«Mi 


rotate  sign  i|>fee  carry  bit 


;test  low  byte 
;  test  high 


HREG 

•add  Isb 

mtEG 

;add  rasb 


0153  1A19 

0154  19iF 


rlcf 
rrcf 


AARG+Bl, 
DPX+B3 


W    ;  rotate  sign  into 
;  for  i  <  8,  no  mea 
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1%ffieWiiMon 


0155  191E 

0156  191D 


0007 


rref 
rrcf 
else 
rlcf 

rrcf 
rrcf 
rrcf 
rrcf 
fi 
i  =  i+1 
if  i  <  8 


DPX+Bl 

AARG+B1,W 

DPX+B3 
DPX+B2 
DPX+Bl 
DPX+BO 


are  in  DFX+BO 


;  rotate  sign  into  carry  bit 


;test  low  byte 


0157  971A 


0158  C15D 

0159  601B 
015A  OFIS 
015B  6019 
OISC  lllP 


;  test  high  byte 


btfss  BARG+BO,i 
else 

btfss  B»RG+B1 ,  i-8 

fi 

goto  noadd? 


novf p  AAR&f BO ,  WBSB 

addwf  DPX+B2  ;adcl  Isb 

novl^  MmG+Bl.VBBS 

addwfc  DPX'i'B3  ;add  msb 


015D  1A19 
Q15B  191F 
C15F  191B 
0160  191D 


0008 


0161  901B 

0162  C167 

0163  6018 

0164  OFIE 

0165  6019 

0166  lllF 


0167  1A19 

0168  191F 

0169  191E 
016A  191D 
016B  191C 

0009 


016C  911B 
016D  C172 
D16E  6018 


AARG+B1,W 

DPX+BS 

DPX+B2 

DPX+Bl 

AARG+B1,W 

DPX+B3 

DPX+B2 

DPX+Bl 

DPX+BO 


adds 


noaddS 


if  i  <  8 

rlcf 

rrcf 

rrcf 

rrcf 
else 

rlcf 

rrcf 

rrcf 

rrsf 

rrcf 
fi 

i  =  i+1 
if  i  <  8 

btfss  B2«.G+B0,i 
else 

btfss      BASG+Bl ,  i-8 

fi 

goto  noaddS 


novf  p  AARG+BO  ,  WREG 

addwf  DPX+B2  ,  add  Isb 

movf p  AARG+Bl ,  HREG 

addwf  c  DPX+B3  ;add  msb 


rotate  sign  into 
for  i  <  8,  no 
are  in  DPX+BO 


;  rotate  sign  into  carry  bit 


test  low  byte 


test  high  byte 


if  i  <  8 

rlcf  AARG+B1,W 

rrcf  DPX+B3 

rrcf  DPX+B2 

rrcf  DPX+Bl 
else 

rlof  *ftRG+Bl,W 

rrcf  DPX+B3 

rref  DPX+B2 

rrcf  DPX+Bl 

rrcf  DPX+BO 

fi 
i  =  i+1 

if  i  <  8 

btfss  BARG+BO,i 

else 

btfss  BARG+Bl ,  i-8 

fi 

goto  noadd9 


rotate  sign  into  carry  bit 
for  i  <  8«  no  meaningful  bits 
are  in  DPX+BO 


;  rotate  sign  into 


:  test  low  byte 
,  igest  high  ^te 


movfp 


AARG+BO, WREG 
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016P 

OFIE 

DPX+B2 

;add  Isb 

0170 

6019 

BlOVfp 

A&R0+B1,HREG 

■  ■  ift  i  <  8 

rlcf 

AARG+B1,W 

;  rotate  sign  into  carry  bit 

rrcf 

DPX+B3 

;  for  i  <  8,  no  meaningful  bits 

rrcf 

DPX+B2 

lk<Mi|P0  ^  '£&X+BO 

rrcf 

DPX+Bl 

else 

0172 

1A19 

rlcf 

AARG+Bl/W 

J  rotate  s  ign  into 

0173 

191F 

xxc£- 

0174 

191E 

DPX+B2 

0175 

191D 

rrcf 

DPX+Bl 

0176 

191C 

rrcf 
f  i 

DPX+BO 

00  OA 

i  =  i+1 

if  i  <  8 

; test  low  byte 

*'l  ■ 

*;  kest  {|ltft> 

0177 

92  IB 

BSRGH^Bl.i- 

-8 

£i 

0178 

noaddlO 

addlO 

0179 

6018 

aievfp 

MSa+B0,HRBO- 

017A 

OFIE 

DBZ+B2 

tmSA  Isb 

01 7B 

6019 

AiUto+Bi.mtBs 

017c 

lllF 

7add  mob 

if  i  <  8 

rlcf 

AARG+B1,W 

;  rotate  sign  into  carry  bit 

DPX+B3 

;  for  i  <  8,  no  vmm^imtffMi.  bits 

rrcf 

;  are  in  DFX+BO 

rrcf 

DPX+Bl 

else 

017D 

1A19 

rlcf 

AARG+B1,W 

;  rotate  si^  into 

017E 

19  IP 

rrcf 

DPX+B3 

017F 

191K 

rrcf 

DPX+B2 

0180 

1910 

rrcf 

BPX+Bl 

li&bSvitl 

0181 

191C 

rrcf 

DFX+BO 

fi 

00  OB 

"  ''"^^ 

i  =  i+1 

if  i  <  8 

;  test  low  byte 

btfss 

BARG+BO ,  i 

;  test  high  byte 

0182 

931B 

BUU3<*el,i- 

-8 

£1 

0183 

C188 

goto 

noaddl 1 

addll 

0184 

6018 

movfp 

AARG+BO,WRES 

0185 

OFIE 

DPX+B2 

;add  Isb 

0186 

6019 

BOVfp 

A2AO+Bl,HRBO 

''&}i$7 

T  -Jr. 

-  _-.^.«a4i»fG 

DPX+B3 

noA^i^l 

if  i  <  8 

rlcf 

AARG+B1,W 

;  rotate  sign  into  carry  bit 

rrcf 

DPX+B3 

;  for  i  <  8,  no.  neoningful  bits 

rrcf 

DPX+B2 

;  are  in  SIMii 

rrcf 

DPX+Bl 

else 

0188 

1A19 

rlcf 

AARO+Bl,W 

;  estate  sign  Into 

0189 

191F 

rrcf 

DPX+B3 

01 8A 

191E 

rrcf 

DPX+B2 

018B 

191D 

rrcf 

DPX+Bl 

DISC 

191C    J  . 

rrcf 

DPX+BO 

fi 

n 
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oooc 


OlSB  941B 
018E  C193 

01^  6018 

0190  OFIB 

0191  6019 

0192  lllF 


0193  1A19 

0194  191P 

0195  191E 
01*6  1«1B 
01S7  191C 

GOOD 


OiS«  9S1B 

0199  C19E 

019A  6018 
019B  OFIE 
019C  £-019 
019D  lllF 


019E  1A19 
019F  191F 
OlAO  191E 
OlAl  191D 
01A2  191C 

SOOE 


01A3  961B 

01A4  C1A9 

01A5  6018 
01&6  OFIE 
01A7  6019 
01A8  lllF 


addl2 


noaddl2 


addl3 


noaddl3 


addl4 


noaddl4 


i  =  i*l 
if  i  <  8 

;test  low  byte 

btf  ss  BARG+BO ,  i 
else 

btf  ss 

fi 

goto 


test  high  byte 


BAHGO-Bl,  i-8 

noaddl2 

AARG+B0,HR|X3 
DFX+B2  ;add  Isb 

AARG+Bl.tmBG 


BlOVfp 
addwf 
movfp 
addwfo  DPX+B3 


if  i  <  8 
rlcf 
rrof 
rrcf 
rrcf 
else 
rlcf 
rrcf 
rrcf 
reef 
rrcf 
fi 
i  =  i+ 

if  i  <  8 


AARG+Bl.W 

DPX+B3 

DPX+B2 

DPX+Bl 


;add  nsb 


rotate  sign  into  carry  bit 
for  i  <  8,  no  meaningful  bits 
are  in  DPX+BO 


AARG+Bl , 

DPX+B3 

DPX+B2 

DSX*B1 

DPX4B0 


W    ;  rotate  sign  into 


;test  low  byte 


btf ss  BASG+BO , i 
else 

test  high  byte 

btfss  BARG+Bl,i-8 

fi 

goto  noaddlS 

movf  p  AARG+B  0 ,  WREG 

addwf  DPX+B2  ;add  Isb 

QOVfp  AI9S4jll,HREG 


addwfo  :DSI:«B3: 


if  I  <  8 

rlcf 

rrcf 

rrcf 

rrcf 
else  - 

rlof 

rrcf 

rrcf 

rrcf 

rrcf 
fi 

i  =  i+1 
if  i  <  8 

btfss 
else 

btfss 

fi 

goto 


AARG+B1,W 
DPX+B3 
DPX+B2 
DPX+Bl 

AAmS+Bl.H 
DPX+B3 

DPX+B2 
DPX+Bl 
DPX+BO 


BARG+BO , i 


;add  msb 


rotate  sign  into  carry  bit 
for  i  <  8 ,  no  meaningful  bits 
are  in  DPX+BO 


;  rotate  sign  into 


;test  low  b^e 
■  test  high  byte 


BARG+Bl,i-8 


noaddl4 


movf  p  AARG+BO  ,WREG 

addwf  DPX+S2  ;add  Isb 

movfp  AARG+Bl,  WREG 

addwfo  DPX+B3  iadd  msb 


rlcf        AARG+Bl, W     ;  rotate  sign  into  carry  bit 
rrcf       DPX+B3  ;  for  i  <  8,  no  meaningful  bits 

rrof       DPX+B2  ;  are  in  DPX+BO 
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MSI 


rrcf 

else 

01A9 

1A19 

rlcf 

AAHa+Bl,W 

OlAIL 

191F 

rrcf 

DPX')'B3 

OlAB 

191E 

rrcf 

DPX+B2 

01  AC 

191D 

rrcf 

DPX+Bl 

OlAD 

191C 

£i 

DPX+BO 

OOOF 

i  =  i+1 

if  SI^IBD 

OlAE 

1A19 

rlcf 

MRS+B1,W 

OlAF 

191P 

rrcf 

Df>X+B3 

OIBO 

191E 

rrcf 

DPX+B2 

OlBl 

191D 

rrcf 

OSX+Bl 

01B2 

191G 

rrcf 

Dez+BO 

endif 

01B3 

0002 

retuzn 

:3T  >. 


;  roteta  sisn  iato 


;  since  BABG  is  alw 
;  tin  last  bit  is  k 


,,**»*****.#»**«**#*».*********************.•****************** 


Errors  :  0 
Warnings  :  0 
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Servo  Control  of  a  DC-Brush  Motor 


Author:  Tim  Bucella,  Teknic  Inc. 
INTRODUCTION 

The  PICi7C42  microcontroller  is  an  excellent  choice  for 
cost-effective  servo  control  in  embedded  applications. 
Due  to  its  Harvard  architecture  and  RISC-like  features, 
tfie  PIC17C42  offers  excellent  computation  speed  needed 
for  real  time  closed  loop  servo  control.  This  application 
note  examines  the  use  of  the  PIC1 7C42  as  a  DC  bnjsh 
motor  servo  controller.  It  is  shown  that  a  PID  (Propor- 
tional, Integral,  Differential)  control  calculation  can  be 
perfomied  in  less  than  200  ^|S  (®16  MHz)  allowing 
control  loop  sample  times  in  the  2  KHz  range.  Encoder 
rates  up  to  3  MHz  are  easily  handled  by  the  PIC1 7C42's 
high  speed  periphenals.  Further,  the  on-chip  peripherals 
of  the  PIC17C42  allow  an  at)solute  minimum  cost  sys- 
tem to  be  constructed. 

Closed-loop  servo  motor  control  is  usually  handled  by 
16-bit,  high-end  microcontrollers  and  extemal  logic.  In 
an  attempt  to  increase  performance  nrmny  applications 
are  upgrading  to  DSPs.  However,  the  very  high  perfor- 
mance of  the  PIC1 7C42  makes  it  possible  to  implement 
these  senro  controlapplicatk>ns  at  a  significant  reductnn 
'm  overall  system  cost. 

The  servo  system  uses  a  PIC17C42  microcontroller,  a 
programmable  logic  device  (PLD),  and  a  single-chip 
H-bridge  driver.  Such  a  system  might  be  used  as  a 
positioning  controller  in  a  printer,  plotter,  or  scanner.  The 
low  cost  of  implementing  a  servo  control  system  using 
the  PIC17C42  allows  this  system  to  compete  favorably 
with  stepper  motor  systems  offering  a  numlier  of  advan- 


•  Improved  Efficiency 

•  Reduced  Audible  Noise 

•  Tiw  pistuibance  Rejecflon 

SYSTEM  OVERVIEW 

DCSanieCoiilBol 

Modem  digital  servo  systems  are  formed  as  shown  in 
Figure  1 .  These  systems  control  a  motor  with  an  incre- 
mental feedback  device  krwwn  as  a  sequential  encoder. 
They  consist  of  an  encoder  counter,  a  processor,  some 
forni  of  ^ital-to-anak>g  converter,  and  a  power  ampli- 
fier, whl6h  delivers  current  or  voltage  to  the  motor. 


FIGURE  1  -  A  TYPICAL  SERVO  SYSTEM 


Digital  <'i—N 
Command  ^r-i^ 


Processor 

D/A 

Motor 


Ampimer 


Encoder 
Counter 


<I>1 


<I>2 


Encoder 


The  P IC1 7042  implements  both  the  servo  compensator 
algorithm  and  the  trajectory  profile  (trapezoidal)  genera- 
tion. A  trajectory  generation  algorithm  is  necessary  for 
optimum  motion  and  its  implementatnn  is  as  important 
as  the  servo  compensator  itself.  The  servo  compensator 
can  be  implemented  as  a  traditional  digital  filter,  a  fuzzy 
logic  algorithm,  or  the  simple  PID  algorithm  (imple- 
mented in  this  applnation  note).  The  combination  of 
servo compensatorandtra]ectorycalculatk>ns  can  place 
significant  demands  on  the  processor. 

The  digital-to-analog  conversion  can  be  handled  by  a 
conventional  DAC  or  by  using  pulse-width  modulation 
(PWM).  In  either  case  the  output  signal  is  fed  to  a  power 
stage  which  translates  the  analog  signal(s)  into  usable 
voltages  and  currents  to  drive  the  motor. 

PWM  output  can  be  a  duty-cycle  signal  in  combination 
with  a  direction  signal  or  a  single  signal  which  cames 
both  pieces  of  infomiation.  In  the  latter  case  a  50%  duty 
cycle  commands  a  null  output,  a  0%  duty  cycle  com- 
mands maximum  negative  output,  aiMJ  1 00%  maximum 
positive  output. 

tlw  a>npHi9Feaiti6e«iinngUi«d  to  si^ly  a  controlled 
voltage  or  cun»rtftotbamotorJMost«mt>eddeid  systmis 
use  voltage  output  because  of  its  simplicity  arkl  reduced 

cost. 

Sequential  encoders  produce  quadrature  pulse  trains, 
from  which  position,  speed,  and  direction  of  the  motor 
rotation  can  be  derived.  The  frequency  is  proportional  to 
speed  and  each  transition  of  <I>1  and  4>2  represents  an 
Increment  of  positkm.  The  phase  of  the  signals  is  used 
to  d^eimine  direction  of  lotatkm. 


^«  1190  Mleraclilp  Teehnolow  kK. 


Servo  Control  of  a  DC-Brush  Motor 


FIGURE  2  -  THE  PIC17C42  SERVO  SYSTEM 


I   L 


LMD18201 


PGURE  4  ■^iPiGITAL  PIO  IMPLEMEm-ATION 

r  Optlorial  Antl-Wlndup  Logic 


Note:  The  Z-1  operator  indicates  a  one  sample  time  delay 
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These  enccxjer  signals  are  usually  decoded  using  a 
small  state  machine  into  Ck^unt  Up  and  Count  Down 
pulses.  These  pulses  are  then  routed  to  an  N-bit,  up- 
down  counter  whose  value  corresponds  to  the  position 
of  the  motor  shaft.  The  decoder/counter  may  be  imple- 
mented in  hardware,  software,  or  a  combination  of  the 
two. 

The  PIC17C42  Based  Motor  Control  Board 

The  PIC17C42  based  servo  system  descrtt>ed  here  has 
afull  RS-232  ASCII  Interface,  on-board  switchirtg  power 
supply,  H-brldge  motor  drive,  over-current  protection, 
limit  switch  inputs  and  digital  I/O.  The  entire  system 
measures  5" x3.5"  and  is  shown  in  Rgure  3.  The sy^em 
can  be  used  to  evaluate  the  PIC17C42  in  senra  applica- 
tions. All  unused  PIC17C42  pins  are  available  at  an  I/O 
connector  for  prototyping. 

A  RID  algorithm  is  used  as  a  servo  compensator  and 
position  trajectories  are  derived  from  linear  velocity 
ramp  segments.  This  system  uses  50%-null  PWM  as  the 
digital-to-analog  conversion  technique.  The  powerstage 
is  a  high  current  output  switching  stage  which  steps-up 
the  level  of  the  PWM  signal.  Encoder  signal  decoding  is 
accomplished  using  an  external  PLD.  The  up/down 
counter  is  implemented  internally  in  the  PIC17C42  as 
combination  of  hardware  and  software  (Figures  S 
and 6).  ,  ■  ,f>',i^ 

THE  COMPENSATOR 

PID  is  the  most  widely  used  algorithm  for  servo  motor 
control.  Although  it  may  not  be  the  most  optimum  control- 
ler for  all  applications,  however  it  is  easy  to  understand 
and  tune. 

The  standard  digital  PIO  tUgorithm's  fonn  is  shown  in 
RgurB4.  U(k)  is  the  position  or  velocity  error  and  Y(k)  is 
the  output. 

This  algorithm  has  been  implemented  using  the 
PIC1 7C42  math  library.  Only  800  instruction  cycles  are 
required  resulting  in  a  0.2mS  PID  execution  time  at 
16I^Hz. 

Integrator  wind-up  is  a  condition  which  occurs  in  PID 
controllers  when  a  large  following  error  is  present  in  the 
system,  for  instance  when  a  large  step  distuttiance  is 
encountered.  The  integrator  continually  builds  up  during 
this  following  error  condition  even  though  the  output  is 
saturated.  The  integratorthen  "unwinds"  when  the  servo 
system  reaches  its  final  destination  causing  excessive 
oscillation .  The  PID  implementation  shown  above  avoids 
this  problem  by  stopping  the  action  of  the  integrator 


The  PICf70l2  contains  a  high-resolution  pulse  width 
modulation  (PWM)  subsystem.  This  fonns  a  very  effi- 
cient power  D/A  converter  when  coupled  to  a  simple 
switching  powerstage.  The  resolution  of  the  PIC17C42 
PWM  subsystem  is  62.5nS  (at  16  MHz).  This  translates 
into  10-bit  resolution  at  a  15.6KHz  rate  or  1  part  in  800 
(9  1/Z-bit)  resolutbn  at  20KI-lz.  This  allows  effective 
voltage  control  while  still  maintaining  the  modulation 
frequency  at  or  above  the  limit  of  human  hearing.  This  is 
especially  relevant  in  office  automation  equipment  where 
minimizing  noise  is  a  design  goal. 

The  motor  responds  to  a  PWM  output  stage  by  time 
averaging  the  duty  cycle  of  the  output.  Most  motors  react 
slowly,  having  an  electrical  time  constant  of  0.5mS  or 
more  and  a  mechanical  time  constant  of  20.0mS  or 
more.  A  15KHz  PWM  output  is  effectively  equivalent  to 
that  of  a  linear  amplifier. 

In  the  system  shown  in  Figure  2,  the  IH-bridge's  direction 
input  is  wired  directly  to  the  PIC17C42's  PWM  output. 
The  H-bridge  is  powered  by  a  DC  supply  voltage,  V^.  In 
this  configuration  0  vofts  is  presented  to  the  motor  when 
the  PWM  signal  is  at  a  50%  duty  cycle,  -V„  voHs  at  0% 
duty  cycle  and  +V„  volts  at  100%  duty  cycle. 

ENCODEIt  FEEDBACK 

Position  feedback  for  the  example  system  is  derived 
from  a  quadrature  encoder  mounted  on  the  motor  shaft. 
Both  incremental  position  and  direction  can  be  derived 
from  this  inexpensive  device.  The  quadrature  encoder 
signals  are  processed  by  a  16R8-type  PLD  device  as 
shown  in  Figure  2.  The  PLD  converts  the  quadrature 
pulses  into  two  pulse  streams:  Count  Up  and  Count 
Down  (Figure  5).  These  signals  are  then  fed  to  two 
16-bit  timers  of  the  PIC17C42  (TMR3  and  RTCC).  A 
logic  description  for  the  PLD  decoder  is  shown  in  Appen- 
dix B. 

The  PIC17C42  keeps  track  of  the  motor  shaft's  incre- 
mental position  by  differencing  these  two  16-bit  timers. 
This  operation  is  performed  each  servo  sample  time  and 
the  current  position  is  calculated  by  adding  the  incre- 
mental position  to  the  previous  position.  Since  both 
timers  are  16-bits  deep,  keeping  track  of  the  overflow  is 
unnecessary,  unless  the  encoder  signals  frequency  is 
greater  than  32767  times  the  sample  frequency.  For 
example,  at  a  servo  sample  time  of  ImS,  the  maxi- 
mum encoder  rate  would  be  3.2767  MHz. 

Counter  wrap-around  is  not  a  concern  because  only  the 
difforence  between  the  two  counters  is  used.  Two's- 
oomplement  subtraction  takes  care  of  this  automati- 
cally. Positnn  is  maintained  as  a  three-byte,  24-bit 
quantity  in  the  example  program  shown  in  Appendix  F. 
IHowever,  there  is  no  limit  to  the  size  of  the  internal 
position  register.  By  adding  the  16-bit  incremental  posi- 
tion each  sample  time  to  an  N-byte  software  register,  an 
N-byte  position  may  be  maintained. 
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<s>z 


up_oount 


down_count 


n 


n 


i^^rr^AieS  SCHEME 


RTCG 


TMR3 


16-bltcoi0i|er 


PIC17C42 


up-count 


RA1/RT 


18 


down-count 


RB5A-CLK3  19 


PLD 
16R8 


*1 


1x/4x  select 


TRAJECTORY  GENERATION 

iSl trajectory  generation  algorithm  is  essential  for  opti- 
fMffl  motion  control.  A  linear  piecewise  velocity  trajec- 
tory lis  Implemented  iri  ^^s^^applteatien.  Fol*  a  upSltlon 
move,  the  velocity  is  imsMmHWl  W»  cSii^M  accei- 
'  «^m.  'sMm'mB  tt 'i#l&lftecl  fnaXimiim'iflBkidty  Is 

'<M!^<;  miPm^m'moiMf'h  tmkm^t&r  a 

required  amoM  of  time  and  f«^'d««l^erite#  iy  ihe 
sEvne  acceleration  (decaleratfiih}valUieuntlti^ro  vek>c- 

eB>Md  torlHmSflfovii  dridWifK^uMrshStf  rtidt%  Where 
maximum  velocity  was  not  reached  (Figure  8). 

The  doPreMove  subroutine  is  invol<edonc6  at  the  begin- 
ning of  a  move  to  calculate  the  trajectory  limits.  The 
doMove  routine  is  then  invoked  at  every  sample  time  to 
calculate  new  ''desiraif'vslocity  and  positiori  values  as 
follows: 

%aVK>i>A     (A?  Acceleration) 

Pk  =  Pk-1  +  Vk-1  +  A/2 

For  more  details  on  trajectory  generation,  see 
Appendix  E. 


IMPLEMENTATION  DETAILS 

The  program  structure  is  straightforward:  An  inteiriipt 
service  routine  (ISR)  processes  the  servo  control  and 
trajectory  generation  calculations,  mnd  m  foiwsround 
loop  is  used  to  implement  the  user  intei^6v  serial 
communication  and  any  exoaiition  pirocessfng  (i.e.  limit 
switches,  watchdog  timer,  etc.). 

The  ISR  has  a  simple  structure.  In  order  to  effect  servo 
control  we  need  to  read  the  encoder,  calculate  the  new 
trajectory  point  and  PID  values,  and  set  the  output  of  the 
PWM,  all  at  a  constant,  predefined  rate.  The  ISR  is 
initiated  by  a  hardware  timer  (TMR2)  on  the  PIC17C42. 
To  make  sure  that  the  servo  calculation  always  occurs 
synchronously  with  the  PWM  subsystem,  the  PWM2 
output  is  wired  to  the  input  pin  of  TMR12  (TMR1  in 
internally-clocked,  S-bittimermode;  TMR2  in  externally- 
clocked,  8-bit  counter  mode).  N  is  loaded  into  the  PR2 
register.  The  sample  rate  then  becomes  the  PWM  rate 
divided  by  N.  In  this  implementation  N=16  (Figure  7). 
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FKUJmE 7 -SAMPLING SCHEME  ^rsmiCMH 
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FIGURE  8  'VELOCirV  RAMP  SEGMENTS  FOR  POSITION  MOVES 
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FIGURES  •  FLCmeHART FOR FORE- 
QRiUiP  PROCESf ING 


FIGURE  10  -  FLOWCHART  FOR  INTERRUPT 
SERVICE  ROUTINE 
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The  followiR|S«Nn|9f 
routine: 

•  ReadTItt»rs(Br«S©iS*fMli3)!f>.'  -^ifllHldiO 

•  Calculate  the  new  Reference  PosRIoh  using  Vne  Tra- 
jectory Generation  Routine. 

•  Calculate  Error-<J^^°-Refeiwi0p  f*m^lft0t$umtk 
Position 

•  Calculate  Y(k)  using  RID 

•  Set  PWM  output 

characters^      '  y]  ' 

The  entire  ISR  requires  only  0.250mSteMmiMt»wW^ 
16MHz  processor  clock  frequency,    r.  , 

COMMAND  INTERFACE 

The  following  commands  are  implemented  and  recog- 
nized by  the  user  interface  in  the  foreground  kxjp. 

Move  (Value):  M,  [-8,388,608,,  to  8,388,607,,] 

Coniniands  the  axis  to  move  to  a  new  positton  or 
vekx:ity.  Position  data  is  relative,  vek>city  data  is  abso- 
lute. Position  data  is  in  encoder  counts.  Vekicity  data  is 
given  in  encoder  counts  per  sample  time  multiplied  by 
256.  All  moves  are  performed  by  the  controller  such  that 
velocily  and  acceleration  limits  set  into  pareirnetermemory 
will  not  be  violated.  V 

i  Ail  move  commands  are  l<ept  in  a  one  deep  FIFO  buffer. 
The  command  in  the  buffer  is  executed  as  soon  as  the 
executing  command  is  complete.  It  nomove  is  currant^ 
executing  the  comriianded  move  will  start  irnmediateiy. 

Mode:  Q,  (Type),  [P,V,T] 

An  argument  of  "P"  will  cause  all  subsequent  rrwve 
commands  to  be  incremental  position  moves.  A  V" 
argument  will  cause  all  subsequent  moves  to  be  abso- 
lute vekxsity  moves.  A  "T"  argument  sets  a  "Torque 
mode'  where  all  subsequent  M  commands  directly  write 
to  the  PWM.  This  is  useful  for  debug  purposes. 

Parameter:  S,  (#, Value)  [00„  to  FF„,  4||t&i08„  to 
8,388,607,,]  ,  -1^0 

Sets  controller  parameters  to  the'^ftlSDliii^  ; 
eters  are  shown  in  Table  1 . 

TABLE  1  -  PARAIUIETERS 


Parameter 

Range 

Velocity  Limit 

00 

0  to  8,388,507,/ 

Acceleration  Limit 

01 

0  to  8,388,607,/* 

Kp:  Proportional  Gain 

02 

-32768,,  to  32767,, 

Kd:  Differential  Gain 

03 

-32768,,  to  32767,, 

Ki:  Integral  Gain 

04 

-32768,,  to  32767,, 

(counts  per  sample  time  multiplied  by  256) 
'  (counts  per  sample  time  persampletinfifi  Ml 
256) 


Read  Parameter  B.  (*)  [OO^to^FJ  .   „  cj 

R^ums  the  present  vduts.^^a ^^Mu^eter. 
Shutter:  C 

Returns  the  time  (in  sample  time  counts  0  to  65,536,,) 
since  the  start  of  the  present  move  and  captures  the 
commanded  and  actual  values  Of  pc^ltjonitfKlvtioclty  at 
the  time  of  the  command. 

Read  commanded  position:  £ 

Returns  the  commanded  position  count  which  vinisc^ 

tured  during  the  last  Shutter  command. 

Range:  -8,388,608,,  to  8,388,607,^  tc-^'t 

Read  commanded  vek>city:  Y 

Returns  the  commanded  vekx:ity  muitiplied  by  256 
which  was  captured  during  the  last  Shutter  commai^ 
Range:  -8,388,608,,  to  8,388,607,, 

Rdad  actual  ^sMton:  e 

Returns  the  actual  position  count  whk:h  was  captured 
duting  the  last  Shutter  command. 
Range:  -8,388.608,,  to  8,388,607,,. 

Read  actual  velocity:  y 

Retums  the  actual  velocity  multiplied  by  256  whk^  was 

captured  during  the  last  Shutter  command. 

Range: -8,388,608,,  to  8,38e.607„.  i 

External  Status:  X 

Retums  a  two  digit  hex  number  which  defines  the  state 
of  the  bits  in  the  external  status  register.  Issuing  this 
command  will  clear  all  the  bits  in  the  external  status 
register  unless  the  event  which  set  the  bit  is  still  true.  The 
bits  are  defined  in  Table  2. 

TABLE  2  -  EXTERNAL  STATUS  REGISTER 


Bit  7 

index  marker  detected      ^  ^ 

Bne 

H-limit  reached  ' 

Bits 

ftawadrfed""'*' 

Btt4 

Input  tnie 

Bit  3-0 

n/a 

llilpve  Status:  Y 

Retums  a  two-digit  hex  number  which  defines  the  state 
of  the  bits  in  the  move  status  register.  Issuing  this 
command  will  clear  all  the  bits  in  the  move  status  register 
unless  the  event  which  set  the  bit  is  stilltrue.  Thebtts  are 

defined  In  Table  3. 

TABLE  3  -  MOVE  STATUS  REGISTER  BITS 


Bit  7 

move  buffer  empty 

Bne 

move  complete 

Bit  so 

n/a 

0      iMBeipeh^  TssMegy  inc. 


I  QSQQsaeBwaaB  7 


Rettnrs  %0  last  hideX  piosition  capturetl  in  position 
counts. 

Set  Position  (Value):  H,  [^,388,608,„  to  8,388,607,„] 

^^^4;gjgqju;p^ecl  positions  to  the  ^ue 
i  not Wseil  unless  the  move  FIFO  mMm 
is  empty. 

Reset:  Z 

^piif»  Servo-Riipionse:  c  (#Count) 

$  MAtMKl  vMI  ^  a      inside  indicating  that 

doeepureFlegs  p^Mirtiliirltt 
#count  times.  At  the  end  of  the  #count^|^^f^^f ^ 
halt  (see  doCaptureRegs  procedure).  This  i§  ite^uifbr 
debug  purposes. 


DESIRED/ACTUAL  POSITION 


Disable  Servo:  s 


This  command  disables  servo  actuation.  The  sen/o  will 
activate  again  with  the  execution  of  the  next  M  (move) 
command.  This  is  useful  for  debug  purposes. 

Bcamptes:         ,  '-''^ 

Z  ;!le8et  software  (No  <CR>  required) 

OV  ;Set  'Sreloc'ity  servo  mode  (No  <CR> 

; required) 

M  ipOO<CR>  ;Set  vejopity  to  1000 
M-1000<CR>  ;Set  velooitey  tioi IQOO  in  reverse 

OPTIMHING  THE  SYSTEM 


I  &«ISmm  is  t&  tlWtt  tt.  19ilsiiiBS;  m»^$liinpis  tftnst^h 
^^iiarrs*«rBBr3f*rPfCfiWE§TgR~  ln-< 
fortheWC17e42. 

The  PICMASTER  is  a  highly  sophisticated  real-time  in- 
circuit  emulatorwith  unlimited  break-point  capability,  8K 
deep  trace  buffer  and  external  logic  probes.  It's  user 
interface  software  runs  under  Windows^"  3.1  with  pull- 
down menus  and  on-line  help.  The  PICMASTER  soft- 
.  ware  also  support  dynamic  data  exchange  (DDE)  through 
which  it  is  possible  to  send  Its  trace  buffer  infotmation  to 
a  spreadsheet,  such  as  EXCEL~,  also  running  under 
windows. 

To  tune  the  PID,  first  a  small  amount  of  diagnostics  code 
is  added  in  the  servo  routine  (doCaptureRegs).  This 
code  simply  outputs,  at  every  sample  point,  the  actual 
and  desired  position  values,  actual  and  desired  velocity 
values,  position  error  and  velocity  error  by  using  tablwt 
instruction.  These  are  captured  in  the  trace  buffer  of  the 
emulator.  The  'trace'  condition  Is  set  up  to  only  trace  the 
data  cycles  of  the  2-cycle  tablwt  instructions.  Next, 
the  trace  buffer  is  transferred  to  EXCEL  and  the  various 


Position  liesponM 
■■   


Kp=2048 
Kd  =  20480 
W  =  1024 


Actual  ■  ' 
Desired  — 


ICS 

Tlme{mSec) 


ISO 


POSITION  ERROR 


Pe«nien  Error 


Time  (mSec) 


PiSIREtVACTUAL  VELOCITY 


ie-  A 


if 


4-1- 


V«loc)ty  Respons* 


Kp  =  2048 
Kd  =  20480 
Ki  =  1024 


Actual 
Desired  . 


V  I  '  -wN — I — I 

ao    100  lao   i4o  leo 


Time  (mSec) 

Velodt/  =  counts/sample 


VELOCITY  ERROR 


4 

Velocity  Error 

t      -2  - 
lU 

■4  - 
■6  - 
•8  - 

eo  """io  loo'  !a  i«)  lao 

Kp  =  2048 
Kcl  =  204a0 

_      ,   _    ,  Ki=1024 

Time  (msec) 

Velocity  =  counts/sample 
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parameters  are  plotted.  Ttie  plots  graphically  show  the 
amounts  of  overshoot,  ripple  and  response  time.  By 
altering  Kp,  Ki  and  Kd,  and  plotting  the.  JWultS,  ttie 
system  can  be  fine  tuned. 

Under  windows  multitasking  environment,  using 
PiCMASTER  emulator  this  can  be  done  in  reai  time  as 
described  beiow.  ' 

Three  sessions  are  set  up  under  windows: 

1 .  A  terminal  emulator  session  to  send  commands  to  the 
motorcontrol  tward.  The  "teminal"  program  provided 
with  windows  is  used,  although  any  communications 
software  such  as  PROCOMM-wWidioite-'"— ■ 

2.  Second,  a  PICMASTER  emulation  session  is  in- 
voked. The  actual  PIC17C42  is  replaced  in-clreuit  by 
the  emulator  probe.  Within  the  emui€ttor,  trace  points 
are  setup  to  capture  the  actual  and  desired  position 

and  velocity  values  on  appropriate  bus  cycles. 

3.  Third,  a  session  of  EXCEL  is  started  and  dynamically 
linked  to  the  PICMASTER  sessions  such  that  when- 
ever the  trace  buffer  is  full,  the  data  Is  sent  over  to 
EXCEL.  A  few  simple  filtering  commands  in  EXCEL 
are  used  to  separate  the  various  data  types,  i.e. 
actual  position  data  from  desired  pwltion  from  actual 
vekxslty  etc.  Next,  various  plot  window  are  sat  up 
within  EXCEL  to  plot  these  information. 

Once  these  setup  have  been  done,  for  every  servo 
move,  the  responses  are  automatically  plotted.  It  is  then 
a  simple  matter  of  varying  the  RID  coefficients  and 
observing  the  responses  to  achieve  the  desired  system 
response.  At  any  point,  the  responses  can  be  stored  in 
files  and/or  printed  out. 

Except  for  very  long  'move"  commands,  most  position 
and  velocity  commands  are  executed  (i.e .  system  settled) 
in  less  than  500  samples,  making  it  possible  to  capture 
all  variables  (actual  and  desired  position  and  velocity, 
and  position  errors  and  sen^o  output)  in  PICMASTER's 
8K  trace  buffer.  ^ 


Using  a  high-performance  8-bit  microcontroller  as  the 
heart  of  a  servo  control  system  is  a  cost-effective  solu- 
tion which  requires  very  few  external  components.  A 
comparison  with  a  popular  dedicated  servo-control  chip, 
is  presented  in  Table  4. 


TABLE  4  - 


SERVO  CONTROL  CHIP 
COMPARISON 


LM629 
dSMHz 

PIC17C42 
®16MHz 

PIC17C42 
®25MHz 

Max  Encoder 
Rate 

1MHz 

3.3  MHz 

4.5  MHz 

Servo  Update 
Time 

0.25  ms 

0.16  ms 

Max  Sampling 
Frequency 

4  KHz 

2-3  KHz 

4-5  KHz 

Also  apparent  in  the  comparison  table  is  the  addittonal 
proce«wing  :p9wer  available  when  using  the 
micracontiollei'.  This  processing  can  t)e  used  to  provkJe 
a  user  interface,  handle  other  I/O,  etc.  Alternatively,  the 
addltkmal  processing  time  might  be  used  to  improve  the 
peifonnance  of  compensator  and  trajactoiy  geneiatnn 
algorithms.  A  further  advantage  Is  that  for  many  embed- 
ded applicatk>ns  using  motor  control  the  micrecontioller 
proves  to  be  a  complete,  minimum  cost  sdutkm. 
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Windows  is  a  trademnfc  of  Microsoft  CmpoteiSan. 
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APPENDIX  B:  ENCODER 


iHOOJAC:,--;  (r  T«A<=<)  :0  /vIOi-W^'A 


eoBbination  qaadrature  decoder  and  iapttt  synchronizer .  Ibi»  design 
allows  Ix  decoding  or  4x  decoding  based  on  the  X4  pin. 


*  Ver  1.0  -  Noveslser  8,  'tiH 

) 

MODULE  QuadDivider; 
TITLE  QuadDivider  VI. 0; 
CClDffiHT  Device;  16SS; 

RESET  N0DE[FIN2]  INVBIi^TBD; 

X4  N0DE[PIN31  ;  ,    "  " 

PO  N0DE(PIN4] ; 

P90  NODE [PINS]  ; 

INDX  N0DE[PIN6]  ; 

(  Feedback  pins  ) 

S2  H0DB[FIN12]; 

S4  N0DE[FIN13]  ;   

POD  II0DE[PIN14I  ; 
P90D  N0DE[PIN15) ; 
CntUp  N0DE[P1N181 ; 
CntDn  N0DE[PIN19]  ; 
UP  NODREPINie]  ; 
COUNT  N0DE(PIH17]  INVERTED; 
OUTPUTS;  .  -  ' 

S2  N0DB[PIN12];  t—l-v-^ 

S4  N0DE[PIN13) ; 

POD  N0DEtPIN141 ; 

P90D  N0DE[PIN151 ; 

Cntpp  NDDE[PIN18]  ;  .„   '  ' 

CntDn  NODE  tPIN19]; 

UP  N0DE[PIII16]; 

COUNT  N0DE[PIN17)  INVERTED; 


{  PhiO  ) 


{  Phi90  ) 


TABLE; 


S2   :=  POD  i  'RESET; 
S4   :=  P90D  &  iRESET; 
POD   :=   PO   S  IRESET; 
P90D  i=  P90  &  IRESET; 


Cntup 
CntDn 


COUNT  S  HP>.,„ 
COUNT  &'>4^>^- 


UP  :  = 


POD  S, 

S2 

1P90D  £ 

S4 

£  X4  ( 

CI 

) 

+  !POD  & 

!S2 

£ 

P90D  £ 

IS4 

{ 

C2 

) 

+1P0D  fi 

S2 

£ 

1P90D  £ 

IS4 

£  X4  { 

C3 

) 

+  POD  £ 

1S2 

£ 

P90D  £ 

S4 

£  X4  { 

C4 

) 

+  POD  £ 

S2 

£ 

P90D  £ 

!S4 

£  X4  { 

C5 

)  ' 

+!POD  S 

JS2 

£ 

!P90D  £ 

S4 

{ 

C6 

) 

+!POD  & 

S2 

£ 

P90D  £ 

S4 

£  X4  ( 

C7 

} 

+  POD  i 

!S2 

S 

1P90B  ft  \Wk  t  lt  t 

m 

1 

)   &   1  RESETS 

( 

IPOD  £ 

S2 

£ 

1F90D  £ 

S4 

+  IF0O  & 

S2 

£ 

P90D  £ 

S4 

+  1P0D  £ 

S2 

£ 

P90D  £ 

IS4 

+  POD  £ 

S2 

£ 

F90D  £ 

IS4 

+  POD  £ 

!S2 

£ 

P90D  £ 

!S4 

+  POD  i 

]S2 

!  P90D  £ 

!S4 

+  POD  £ 

!S2 

£ 

1F9DD  £ 

S4 

+jP0D  £ 

1S2 

£ 

IF9<» 

m 

)   £  IRESET; 

m}; 


END  QuadDivider; 
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APPENDIX  C:  (PART  2):  PID  ALGORITHM  CODE  LISTING 

**********************  *******^*«fF«f^9*<^!{*4t£.£j^*^y^|^*f  *********** 

HAMB:  doSaxvo 


DESCRIFTIOH:  Perfozms  tlw  aervo  loop  oaleulatiMH* 

doServo 

M0V16  POSERROR,U0 


LOADAB  UO,KP 
CjM4.  Qnult 
M*W32  DPX.Y 


CLRF  WREG 
CPFSGT  SATFLAO 


CALL 

LOADAB 

CALL 

ADD32 


dolntegral 

INTEGRAL, HI 

Dmult 
DPX,Y 


MOVPP 
grabloop 


HVFP16  UO.AARG 

SUB16  Ul.AARG 

MVFP16  KV.BAEG 

CALL  Dmult 

Aia)32  Dpx.y 

CLRF  WREG 

CPFSGT  SHIFTNtIM 

GOTO  grabok 

SHIFTNTIM,  TMP 


grabok 


pass 


RLC32 

Y 

DECFSZ 

TMP 

GOTO 

gredslo^ 

CLRP 

SATFLAG 

BTFSC 

Y+B3,KSB 

GOTO 

negs 

MOVFP 

Y+B2,WREG 

ANDLW 

0x80 

lORWF 

Y+B3 

CLRF 

WREG 

CPFSGT 

Y+B3 

GOTO 

zero6bits 

INCP 

SATFLAO 

CLRF 

Y+B3 

MOVLW 

0x7F 

MOVPF 

WREG, Y+B2 

SETF 

Y+Bl 

SETF 

Y+BO 

GOTO 

zero6bits 

MOVFP 

Y+B2,WREG 

lOSLW 

0x7F 

ANDHF 

Y+B3 

SETF 

WREG 

CPFSLT 

Y+B3 

GOTO 

zero6bits 

SETF 

SATFLAG 

SETF 

Y+B3 

CLRF 

Y+B2 

BSF 

Y+B2,MSB 

CLRF 

Y+Bl 

CLRF 

Y+BO 

save  new  position  error  in  UO 
;  confute  KP'OO 


>03  I 


;  if  previous  output  saturated,  do  I  anti- 
;  not  accumulate  integrator  I  wind- 

•aJ  up 

;  compute  KI'INTEGRAL 
;  Y=KP*U0+KI*H1TEGRAL 
;  caqpute  KV*(U0-Ol) 


l?a.l  .  \  -    1   -     li'  : 


;  scale  Y  by  SHIFlUHIt 
Y  *  (2**SHIFTIIUM) 


Bsisic  PID 
calculation 


sa-i'ai.  I 


Scale  Y 


saturate  to  middle  16  bits, 
keeping  top  10  bits  for  PHIDCH 
;  and  PWIDCL 
check  if  Y  >=  2**23 


;  if  not,  zero  6  bits 

f-M  wa,  sat  SsOxOOVEFFFF 
;  clear  ^  d«^^  iw^ts^ 


If  positive 
overflow,  saturate 
y  to  ntaximum 
pp»l  tiy»  asinter 


check  if  Y  <= 


if  not,  zero  6  bits 

if  so,  set  Y  =  OxFFSOOOOO 


If  negative 
overflow,  saturate 
y  to  maximum 
negative  value 


Ttr'"  wn 


4-199 


B0M  ©of^B^llf  aBOBrush  Motor 


M0V24 

MBVtW 

ANDWF 


Y+Bl.YPWM+BO 


OxGO 
TtmtBO 


. '  •;    <ij  -■>■ 
move  y  to  YFHM  and  zero  6  bits 
r  entry  point  for  torque  node 


BTFSC 
GOTO 


tplimit 


GOTO 

tmlimit 

BTFSS 
GOTO 
CLR32 
nplimitok 

HOVUf 
MOVPP 
MOVLW 
MOVPF 
ADD16 

CLRP 

mvm 


ynof+Bi.HSB 

tmlimit 

Mvllaitok 

f  oplimitok 

EXTSTAT,BIT5 
npliinitok 


PW1DCL_IN1T 
WREG,TMP+BO 
TMP,YPWM 

,  TMP+Bl 


testmlA 


llmitok 


CLRP 
CLRF 
CLHF 
HWP16 

SUB24 

BTFSS 

GOTO 

M0V16 

GOTO 

I 

CLRP 

CLRF 

CLRF 

MVFP16 

SUB24 

BTFSC 

eoTo 
mane 

z 

MOVLB 
MOVPP 
MOVFP 

N0V16 

RETURN 


TMP+B2 
YPWM+B2 


YFHIAX.TIIP 

YPW,  TMP 
TMP+B2,MSB 
testmin 
YPWMAX,  YPWM 
llmitok 

THP+B2 

YPWM+B2 
YPWM+B3 
YPWMIN.TMP 
YPWM,  TMP 
THP+B2,MSB 

liiii|t6k 
YFHIIN.IPHK 

BAN1C3 

yPWH+BO.PWlDCL 
|+B1,PW1DCH 


;  kd^tliktinsne  ^ron  bipolar  to  unipolar 
;  for  50%  duty  cycle 


;  correct  by  1  LSB 

1  add  one  to  bit5  of  FWIDCL 


check  pwm  maximum  limit 

LMD18200  must  have  a  minimum  pulse 

so  duty  cycle  must  not  be  0  or  100% 


saturate  to  aax 


1  e^i^k  {nail  minimum  limit 


If  external 
position 
limits  have  been 
reached  then  zero 
FHM  output. 


Convert  PWM  from 
unipolar  to  bipolar 


;  saturate  to  mln 

;  set  new  duty  cycle 

;  push  errors  into  U(k-l) 


PWM  cycle  must  not 
be  0%  of  100% 


] 


Write  PWM  values 
to  PVIM  registers 


A******************************************** 
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APPENDIXII!' 


****** ******************************* 


NAME: 

DESCRIPTION: 


doMPosMVel 

Calculates  current  position  from  UpCount  and  DownCount 


dcdiPosKVel 

;  Do  X^Counter  first 


■><\-  ■:■  •Si?       '>  : 


■  ,r!,.  A     -v  [ 


MVFPl 6  UPCOUNT , TMP+BO 

MOVPF  RTCCH,WREG 

C*FS»Q  ItPCCH  ■->i 

)IDV16  nPCODNT ,  KVELOCITY+Bl 

SOBie  TMP+BO, MVBLOCITY+Bl 


;  sav«  old  mpoount  . 

;  Skip  next  if  HI  Ua^'t  '^laiigaA  M 

;  clear  bits  below  binary  point 


Now  do  DownCounter 


readDown 


tlon 


MVFPl  6  D0HNC0T3NT,  TMP+BO 

MOVLB  BKHKl 

MOVPF  TMR3H ,  WREG 

HCIIlWt.  ■  SlOI3I.,pOHNCOaN¥+B0 


MVFPl 6  DOWNCOUNT+BO , TMP+B2 
SUB16       TMP+BO ,  TMP+B2 


;  save  old  dcwncount 
;  timers  in  Bank  2 


;  Skip  next  if  HI  hasn't  changed 

;  HI  cbKoged,  re-read  LO 

;  OK  to  store  HI  now 

;  cooipute  downcount  increment 


SOTIS      TMP+B2  ,MVEL0CITY+B1      ;  confute  new  ineasured  velocity 


CLRF  MVEL0CITY+B3 
BTFSC  MVEL0CITY+B2,MSB 


SETP  MVEL0CITY+B3 


;  sign  extend  ineasured  velocity  for 
;  24  bit^a^itipn  to  ineasured  posi- 


XDSM     WVBLOCmf+Bl.MFOSXTION;  conpute  new  measured  position  ' 

;  delta  position  =  mea8Uj;ed  velocity 


.***«***«*******************«***'#««*************«********************+******** 
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APPENDIX  E:  IMPLEMENTATION  DETAILS  OF  TRAJECTORY  GENERATION  - 


doPrelteve: 

This  routine  is  executed  only  once  at  the  beginning  of 
each  move.  First,  various  butters  andf  lags  are  initialized 
and  a  test  for  modetype  is  performed.  In  position  mode, 
the  minimum  move  is  triangular  and  consists  of  two 
steps.  Therefore,  If  abs  (MOWAL)  >  2,  an  immediate 
move  is  performed.  Otherwise,  normal  move  generation 
is  possible  with  the  sign  of  the  move  in  MOVSIGN  and 
the  appropriate  signed  velocity  and  acceleration  limits  in 
V  and  A,  and  M0WALy2  In  HMOWAL. 

In  velocity  mode,  the  sign  of  the  move  is  calculated  in 
MOVSIGN  and  the  appropriate  signed  velocity  and 
acceleration  limits  are  placed  in  V  and  A.  Finally,  at 
modeready ,  MOWAL  is  sign  extended  for  higher  preci^ 
sion  arithmetic  and  the  servo  is  enabled. 

In  torque  nwdtt,  MlWVAt.  output  directly  to  the  PWM 
and  the  servo  i»diaaUBdt  and  doMove  is  not  executed. 

doMove: 

Move  generation  is  based  on  a  piecewise  constant 
acceleration  model.  During  constant  acceleration,  this 
results  in  the  standard  equations  for  position  and  veloc- 
ity given  by 

x(t)  =  xO  +  vO*t  +  a*(t"2)/2,v(1)  =  vO  +  a*t 


With  the  units  for  t  in  sample  times,  the  time  increment 
between  subsequent  sample  times  is  1,  yielding  the 
iterative  equations  for  updating  position  and  vefcx:ity 
implemented  in  doPosVel  and  given  by 

P(k)  =  P(k-1)  +  V(k-1)  +  fiJ2,    V(k)  =  V(k-1)  +  A, 

where  A  is  the  signed  acceleration  limit  caicolated  in 
dpPrettove.  The  inverse  equatkxts  of  this  iteration, 
necessaiy  Ibr  undoing  an  unwanted  step,  are  contained 
in  undoPosVel  and  given  by 

P(k-1 )  =  P(k)  -  V(K-1 )  -  A/2,     V(K-1 )  =  V(k)  -  A. 

In  position  mode,  the  actual  shape  of  the  velocity  profile 
depends  on  the  values  of  V,  A  and  the  size  of  the  move. 
Either  the  velocity  limit  is  reached  before  half  the  move 
Is  completed,  resulting  In  a  trapezoidal  velocity  profile,  or 
half  the  move  is  completed  before  the  velocity  limit  is 
realized,  resuHtng  in  a  triangular  velocity  profile. 

In  the  algorithm  employed  here,  the  velocity  Fimtt  is 
treated  as  a  bound  on  the  actual  velocliy  nrhlt,  thefieby 
psftnttt^g  eKac^ly  the  same  number  of  steps  during  the 
speedup  and  speed  down  secttons  of  the  move.  Phase 
1  is  defined  as  the  section  of  the  move  where  the 
commanded  positkin  is  less  than  half  the  move,  and 
phase  2  is  the  remaining  portion  of  the  move.  11  is  time 
when  the  actual  velocity  limit  is  reached  and  T2  is  the 
time  at  the  end  of  phase  1 . 


FIGURE  A  -  Sf>EED  PROFILE  FOR  TRAPEZOIDAL  IMOVES 


FIGURE  B  -  SPEED  PROFILE  FOR 
TRMUGULAR  MOVES 


FIGURE  C  -  SPEED  PROFILE  FOR 
VELOCITY  MOVES 


final  velocit/ 


initial  velocity 
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Furthermore,  let  x  be  the  amount  of  undershoot  and  y  the 
amount  of  overshoot  of  half  the  move  at  T2.  Discretization 
error  is  minimized  by  using  the  values  of  xand  y  whether 
one  more  step  will  reduce  the  size  of  the  final  Immediate 
move  during  the  last  step  of  the  move.  For  a  triangular 
move,  the  discretization  error  is  given  by  min.  (2x,  2y), 
resulting  in  the  condition  that  if  2x  >  2y,  then  take  one 
more  speedup  step.  In  the  case  of  a  trapezoidal  move, 
the  discretization  en'or  is  given  by  min.  (2x,  y-x),  yielding 
the  condition  that  if  3x  >  y,  take  one  more  step  during  the 
flat  section  of  phase2. 

At  the  beginning  of  doMove,  MOVTIME  is  incremented 
and  doPosVel  Is  called  to  evaluate  the  next  proposed 
values  of  commanded  position  and  velocity  under  the 
current  value  of  A.  In  position  mode,  phaset ,  the  original 
position  plus  half  the  move  minus  the  new  proposed 
commanded  position  Is  calculated  and  placed  in 
MOVDEL,  with  the  previous  MOVDEL  saved  In 
MOVTM  P.  As  half  the  move  would  be  passed,  MOVTM  P 
=  -X  and  MOVDEL  =  y,  with  y>0  for  the  first  time 
indteating  that  phaset  is  about  to  be  completed.  There- 
fore, if  y<0,  we  continue  in  phase! ,  where  if  maximum 
vek>clty  has  not  been  reached,  the  new  proposed  com- 
manded position  is  executed.  On  the  other  hand.  If  the 
proposed  move  would  exceed  the  maximum  velocity, 
we  undo  the  proposed  move,  set  the  current  accelera- 
tion to  zero,  reevaluate  the  Iterative  equations  with  the 
new  acceleration,  set  T1  =MOVTIME-1 ,  and  execute  the 
move. 

Since  11  is  cleared  in  doPreMove,  it  is  used  as  a  flag  to 
indicate  If  this  comer  in  the  vek>city  profile  has  been 
reached.  Once  we  find  that  y>0,  we  drop  into  code  that 
is  executed  only  one  time,  with  phase2  beginning  on  the 
next  step.  If  T1=0,  meucimum  vekxity  has  not  yet  been 


reached,  so  T1=T2  and  the  velocity  profile  is  triangular. 
In  this  case,  A  is  negated  for  speed  down,  and  if  x>y,  one 
more  step  is  needed  to  minimize  the  discretization  error. 
So  A  is  negated,  the  proposed  step  undone,  A  is  again 
negated  for  speed  down  and  the  step  recalculataci  and 
executed,  with  T2=T1=M0VTIME-1 . 

If  T1  is  not  zero,  indicating  that  we  are  in  the  flat  section 
of  phaset ,  then  go  to  t2net1 ,  where  T2=MOVTIME-1 , 
and  if  3x>y ,  then  one  more  phase2  flat  step  is  necessary 
to  minimize  the  discretization  error.  PH2FLAT  is  defined 
as  the  number  of  steps  in  the  flat  section  of  phase2,  and 
is  used  as  a  counter  during  its  completion.  If  3x>y,  then 
PH2FLAT=T2-T1,  othenwise  PH2FLAT=T2-T1-1  and 
phaset  Is  finally  complete.  All  subsequent  steps  will 
proceed  through  phase2,  first  deciding  if  the  flat  section 
is  finished  by  checking  if  PH2FLAT  has  reached  zero.  If 
not,  go  to  flat  where  PH2FLAT  is  decremented,  and 
tested  if  zero.  If  so,  the  speed  down  section  is  begun  by 
calculating  the  appropriate  signed  acceleration  limit  A, 
and  executing  the  last  of  the  flat  section  moves.  For  all 
following  steps,  PH2FLAT=0,  leaving  only  the  final  test 
for  zero  commanded  velocity  to  indicate  the  end  of  the 
move.  This  will  always  occur  since  the  actual  maximum 
velocity,  bounded  above  by  the  user  supplied  limit,  is 
always  an  integer  multiple  of  the  user  supplied  accelera- 
tion limit,  with  exactly  the  same  number  of  steps  taken 
during  speedup  and  speed  down. 

The  velocity  mode  is  much  more  straightforward,  with 
the  velocity  profile  in  the  form  of  a  ramp.  If  the  final 
velocity  has  not  been  reached,  the  move  continues  at 
maximum  acceleration.  If  the  final  velocity  has  been 
reached,  the  acceleration  is  set  to  zero  and  the  move 
generation  of  commanded  position  and  velocity  contin- 
ued unless  the  final  vekx:ity  is  zero. 


oitmMi:siimi)''Tmiimimm. 


Servi^  ContMlif  a  DC-Brusli  Moter 


Ammmmmt  ooiii%sEi£  code  usting  (DCMOTOfi.LST) 


SubTitle  "Revision:      2.0,  27  June  93' 

***********************************************'*******■******************* 

Revised:  8/5/92 

CREDIT:     Developed  by  Teknio  Inc.  1992 

Assembled  using  MPASM.  User's  with  ASM17  are  suggested  to  get  Microchip's 
new  universal  assembler  (MPASM).  To  assemble  with  ASM17,  all  'if,  "elae' 
"endif  directives  must  be  replaced  by  "♦if,  "telse'  and  "tendif  ! 

*******************************************  ****** 


PROCESSGW 
LIST 


PIC17C42 

COLUMNS=120,  XREF=VES,  NOWRAP,LniBS=255,  R=DEC 


'>i  '  \<''  hrw  &tii  0fii3ibflf '  >i  ^^^***********************************************M*»*******«««#iir«*W4**** 


03E8  _SAMPUE_RATE 
07D0  _ENCODER_RATE 
1770  _RATED_SPEED 


2580. 


rat' . 

16000000 

;  Input  Clock  Preq  in 

set 

1000 

J  Sample  rate  in  Hz 

set 

2000 

;  2000  Pulses/rev 

set 

'  6000 

;  in  R  PK 

set 

9600 

_BA«DRATE_ 

.  **********************************«******.***«r*****#**************«W********* 

:  ■  .  -.     include  "17c42.h' 


include  "17c42.mae' 


General  Purpose  Macros 


0058 
0059 
005A 
005B 


♦define  _PICMASTER_DEBUG 
♦  define  _SERVO_PID 
tdefine  DECIO 
•define  _SERIAL_IO 


TRUE 
TRUE 
TRUE 
TRUE 


;  Enable  PIC-MASTER  TRACE  Capture 
;   PID  computation  based  on  error 
;  true  for  decimal,  false  for  hex 


include  *dcaiotor.hl7*  ;  Initialization,  Global  Oefs, 

************************************************************************* 

Header  file  for  dcnotor . asm: 
Revised:  8/5/92 

************************************************************************* 
hardmre  constants 


005C 

003D  0900 


♦define  _SET_BAUD_RATE  (bps)  (  (10*MASTER_CLOCK/ (64*bps)  ) +5) /ID  -  1 

CUCODT  set       MASTGR^CLOCK  »  2      ;  Clock  Out  =  CLKIN/4 


0006 
003P 
DOFF 


TCQlIl_imT 
TCQH2_IHIT 
PRl_IinT 


set  0x06 
set  0x3F 
set  OxFF 


set  pvon  frequency  to  CLKOUT/256 
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0018  0004 


0018  0004 
001C-O09* 


PR2ja«0r.-  set  ((10niMTBiUaiOCK/;(J^il»,J|ilpiXil!*JM^^ 


' ;  pwld^_]3llf 

set 

tVt  ((Vt&t^MtT*m  «  8))  »  1)  &  Ojcff) 

1 

007P 

PW1DCH_INIT 

set 

ox7F  imi9>em 

ooco 

PW1DCL_INIT 

set 

OxCO 

0080 

RTCSTA^INIT 

set 

0x80 

0090 

,RCSTA_INIT 

set 

0x90 

»    f;  ■ 

0020. 

TXSTA_INIT 

set 

0x20 

0019 

SPBRG_INIT 

set 

00F3 

■  .  set 

OxP3 

0000 

set 

0x00 

;  max 

and  nin 

pwm  values 

0040 

FHHINI. 

sat 

0x40  W->'-v 

0001 

PWMINH 

set 

0x01                                    ;  0x0000  +  0x0140 

(min  10  bit 

0080 

PWHAXL 

set 

0x80 

OOFB 

FWmXH 

set 

OxFE                                 ;  OxFFCO  -  0x0140 

(  max  10  bit 

global  variables 


CBLOCK  0x18 

DPX ,  DPXl ,  BPX2  ,  DPX3 

mustimim-,  Hkig  ,  b»kgi 

ENDC 

CBLOCK     0x18  •  '. 

THF  ,  TOPI ,  TIIP2 . 11iP3 

ENDC 


arithmetic  accumula 
naltlply  arguments 


tifg^rary  variables 
Hm  tenpora£y 


CBLOCK  0x20 


0020 

0003 

I .   i)'.  i-«l(BSVI.l,VL2              ^-  V 

;  velocity  limit 

0023 

0003  - 

^jal,iALl,AI,2 

;  acceleration  limit 

0026 

0000 

0026 

0002 

KP.KPl 

;  proportional  gain 

0028 

0002 

KV.KVl 

;  velocity  gain 

002A 

0002 

KI.Kll 

•  iaitagral  gain 

002C 

0000 

002C 

0001 

IM 

;  integrator  mode 

002D 

0002 

FV.FVl 

;  velocity  feedforward 

002F 

0002 

FA.FAl 

;  acceleration 

0031 

0000 

0031 

0003 

VALBUF ,  VALBUFl ,  VALBOT'2 

;  iovalue  buffer 

0034 

0000 

0034 

0003 

DVALBUF ,  DVALBUFl ,  DVALBUF2 

;  iovalue  buffer 

0037 

0002 

:          •-    ISRBSR,  ISRWREG 

;   isr  save  storage 

0039 

0004 

CMDCHAR ,  CMDTEMP ,  CMDPTRH ,  CMDPTRL 

;  comnand  interface 

003S 

0003 

PARTraiP,  PARLEK,  PASPTR 

•  parameter  variiablM 

0040 

0000 

0040 

0003 

CPOSITION,  CPOSITIONl ,  CP0SITI0N2 

;  shutter  commanded 

0043 

0003 

CVELOCITY ,  CVELOClTYl ,  CVELCICITY2 

;  shutter  commanded 

0046 

0003 

CHPOSITIC»I,  CMFOSITIONI ,  C1IP0SITI0N2 

;  shutter  measured 

0049 

0003 

cMVEiAciTi ,  cwmutcrnri ,  eriNWMl^ 

;  4tetter  measuzed 

004C 

0000 

004C 

0002 

STRVALH,  STRVALI. 

;  string  io  variables 

004E 

0003 

HEXVAL ,  HEXTMP ,  REXSTAT 

;  hex  io  variables 

0051 

0000 

0051 

0002 

©POSITION,  OPOSITIONl 

0053 

0002 

OP0SITION2 , 0P0SITI0N3 

;  original  commanded 

0055 

0003 

POSITION, POSITIONl , P0SITI0N2 

;  conananded  position 

0058 

0003 

VELOCITY ,  VELOCITYl ,  VEL0CITy2 

;  comnanded  velocity 

005B 

0000 

005F  0004 

MOWAL ,  MOWAL 1 ,  M0WAL2 ,  M0WAL3 

move  value 

0063  0004 

HMO  WAL ,  HMOWAL 1 ,  HM3W3Ui2 ,  HlB>VVMi3 

; 

half  move  value 

0067  0002 

MOVTIME ,  MOVTIMEl 

move  time  in  sanple 

0069  0000 

0O69  0001 

MOVSIGN 

0x00  for  positive. 

OUSO  '  f  OE 

006ft  0002 

Tl.Tll 

time  to  maximum 

006C  0002 

T2,T21 

time  for  half  the 

006E  0002 

TAU,TA01 

total  move  time 

0070  0001 

NMODE 

'• 

next  move  modetype 

0071  0001 

MODE 

move  modetype 

0072  0000 

Q072  0003 

MPOSITION.HFOSZf IQNl  ,HF0SITI0N2 

'• 

measured  position 

0075  0002 

MVELOCITY,  HVELOCITYl 

0077  0002 

MVEL0CITY2 ,MVEL0C1TY3 

measured  velocity 

0079  0003 

POSERROR, POSERRORl , P0SERR0R2 

position  error 

007C  0003 

VELERROR ,  VELEKSORl ,  VELERR0R2 

velocity  error 

007F  0000 

007F  0001 

SIGN 

■ 

multiply  sign 

0080  0000 

0080  0004 

y,Yl,S2,Y3 

> 

Y(lc)  before  pwn 

0084  0004 

U0,U01,U1,U11 

; 

saturated  error  at 

0088  0000 

0088  0004 

YPWH,  YFHMl ,  YFWH2 .  YFVOO 

* 

pwn  input 

008C  0004 

YFNMIN,  YFiaiOm ,  YFIOnK,  XfiaiMCl 

! 

p«n  it^t  limits 

0090  0000 

0090  0001 

SmiVOFUG 

i 

servof  lag  -  0  ->  no 

0091  0001 

MODETYPE 

1 

node 

0OS@ii>OMl>.. 

EXTSTAT 

external  status 

•1  yl'j:  ' 

MOVSTAT 

move  status  register 

0094  0001 

HOVFLAG 

t 

move  flag 

0095  0001 

SATFLAG 

saturation  flag 

0096  0002 

INTEGRAL,  INTEGRALl 

■■ 

integrator 

0098  0000 

■  ■ 

0098  0004 

DBCVAI.  ,]2BCSI&T  ,  OBCmP  .  DECSIGN 

decimal  io  variables 

009C  0000 

oesc  0004 

A,A1,A2,A3 

■" 

ccnmanded  accelera 

OOAO  0004 

V,V1,V2,V3 

; 

cccomanded  velocity  = 

00A4  0004 

iraVEBDF.HOVPBUFI ,  M0VPBUF2  ,  M0VPBUF3 

; 

conmanded  position 

0OA8  0004 

MOWBOF ,  MOWBOTl ,  M0WBUF2 ,  M0VVBUF3 

■■ 

ccamanded  velocity 

OOAC  0000 

OOAC  0002 

OTCOUNT ,  UPCOOMTl 

; 

running  up  coenter 

OOAB  0003 

! 

3ninning  down  oecrater 

OOBO  oooo 

OOBO  0004 

MOVDEL ,  MOVDELl ,  M0VDEL2  ,  M0VDEL3 

■" 

move  discretization 

00B4  0002 

PH2  FLAT , PH2  FLAT 1 

phase  2   flat  itera 

00B6  0003 

INDEXPOS ,  INDEXPOSl ,  INDEXP0S2 

position  at  last 

00B9  0000 

00B9  0001 

SHIFTNCH 

• 

#  of  bit  shifts  from 

oom  ooM'. 

OOBA  0001 

if 

_PICIiASTS!LJ>IStX: 

OOBB  0000 

OOBB  0000 

For  PICliASTER  Debag/B«nro  biniag  Purposes  Only 

OCBB  0000 

OOBB  0001 

CAPFLAG 

trace  capture  flag 

OOBC  0002 

CAPCOUNT,  CAPCOUNTl 

PICMASTER  trace 

oo»>M(iao 

CAPIMP.CAPTHPl 

trace  capture 

OOC^-OSM' 

OOCO  0000 

-  J ************************************************************************** 
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OOCO  0001 
OOCl  0000 

OOCl  0002 
00C3  0002 
00C5  0002 
00C7  0001 
00C8  0000 


ikJM  bmt  aUA  v~-'   ZERO,  ONE 

tblptr  ITemp ,  tblptrhTen?) 
TblLatLo,  TblLatHi 


;  constants 

;  temp  TABLE  Pointers  for 

;  Table  Latch  for  ISR  save 

;  tengp  alustut 


*************************  ************** 

mKB:  AUTCaiO 

DESCRIPTION:    Sets  no  auto  increment  or  dacrement 

mstsm  MACRO 


BSF 
BSF 
BSF 


•««*••*• 


_fsO 
_fsl 
_fs2 
_£s3- 


.************************* 


********************************* 


************************************************************************* 


VBSCX^Mm    SMI'  -mm  incEaiiieiit 


BSF  _£bO 
BCF   .  0  _£al 

_£a9.' 


.  «#«*#*#^M^#:##i*#«iN4^4lr##^*!'#*********  ************************  ****************** 
.  *****««#1fr^##4N^»*»#i##|tw*****************************^****** ************* 


MSJU 


;  BiSSE^INM*    ^SMtet'  mto  decreinent 


BCF  _fsO 

BCF  _fsl 

BCF  _fs2 

BCF  _fs3 


.  ************^**************AJb** ***************************************** 


.************************************************************************* 
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NAHBi  LQADAB 

DESCRIPTION:  Loads  extended  tnMl  Mtoaxy  AARG  atld  BARG 
ARGUMENTS: 


A  =>  AARG 
B  =>  BARG 


TIMIMG  (cycles) :  4 

Lcsmss  KAcato  -  a,b 


MOVFP 
MOVFP 
MOVFP 
MOVFP 


A+BO,AARG+BO 
A+B1,AARG+B1 
B+BO,BARG+BO 
B+Bl,BASa+81 


load  lo  byte  of  A  to  AARG 
load  hi  byte  of  A  to  AARG 
load  lo  byte  of  B  to  BARG 
load  hi  by-te  of  B  to  BARG 


.  ****************************'**.****************************«**********«**** 


OOOD 

mw  ■ 

0008 

0020 
OOOA 
002D 


. ************************************************************************** 

;         ascii  constants 


cm 


sat  OxOD 
'  •at'  ■  Oxl«- 
BS  set  0x08 

■  "SP  set  0x20 

LF  set  OxOA 

HH  set 
J 

. ********************************************************* 
;         cmds  constants  and  macros 


0001 


CBARRBADY 


set  0x01 


NUHPAR  set 

; 

;  Response  characters 


0021 
003F 


OOOD 
0001 
0002 
0003 

0000 
0001 
0002 
0003 


CMD_OK 
CMD_BAD 


Exit  values 


HEX_SP 
HEX_MN 
HEX_CR 
HEiCCAK 

BKUm 
DBC_CR 
I»C_CAN 


set 
set 


set 
set 
set 
set 

set 
set 

set 
set 


0x00 
0x01 
0x02 
0x03 

0x00 
0x01 
0x02 
0x03 


Command  characters 


a04D 
00«P 
00S3 
0052 
0043 
0050 
0056 


DO_;IUIjL  set  CR 

DOJiOVB  set  <H'  :  H 

'  TStyjfBSDB     '  " '  '  B'el:  *0'  ;  O 

DO_SETPARAMETER  set  'S'  ;  S 

DO_READPARAMETER  set  'R'  ;  R 

DO_SHOTTER  set  'C  ;  C 

D0_READC0MP0S1TI0N  set  'P'  ;  P 

DO_READCOMVELOCITY  set  'V  ;  V 
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0070 

DOJUSADACTFOSITIOI 

set 

■P' 

p 

0076 

DO_RB»nACTVELOCITY 

'-set 

*v' 

V 

0058 

DO_EXTERNALSTATOS 

set 

'X' 

X 

0059 

DO_MOVESTATUS 

set 

■y 

y 

0049 

DO_READINDPOSITION 

set 

"I" 

1 

0043 

DO_SETPOSITION 

set 

'H' 

H 

005A 

DO_RESET 

set 

>Z' 

Z 

0073 

•    ."UW  '  ,  1 

,  set 

>S' 

-s- 

0063 

DO_CAPTORE 

set 

'c' 

c 

************************************************************************* 

NAME:  CHD_DEP 

DESCRIPTION:    Creates  all  the  definitions  for  a  consnand  table  data  struc- 
ture. The  first  word  is  at  the  Gcannand  character  used,  and 
the  second  word  is  a  pointer  to  the  function  that  handles 
this  ceranand  function. 


H^Ms.'&afcoatiaasas  w£tli' fe&W'<itaisr  entries  for  the: 
Suoetien  to  work. 

FUNC        comnand  execution  timbtion 
ROOT        NAME  ROOT 


DATA 
DATA 
ENDH 


ROOT 
FUNC 


0002 


C1ID_BI)TRY_I£NGTH  Wmt  2 

.  **  It  ****************************  *********************  ***********  ******* 
!  NAME:  CHD_START 

;  DESCRII>TIONi    Labels  the  start  of  the 

;  ■  ■  .     <n    ''II  ^i.  - 

CMD_START  MftCS^ 

:  J  ■  r  Itiaiai  tXW  •  ■  .  .  .  b.    _  : 

LABEL 


table. 


******#^AM^:m0************************************************************ 
*******^^**ilt****  *************  **********************4iW*  ****************** 

NAME:  CMD_END 

DESCRIPTION:    Marks  the  end  of  the  commemd  table  with  an  entry  of  0x00 


Kb 


j**************************************************0mmH!Mt%m*************** 


; 

t************************************************************************** 
!  PID  Constantnts 

;  define  PIV  parameters,  computation  based  on  errors  only.  Does  not  involve 


ffi  I  Wl'MI>illUifl|(TMIilllMiiyi<li 
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Servo  Qeoti&Lof  a  DCkBryeti  Mo^ 


No  Load  e  2Khz  : 

With  Indicator  Load  9  2Khz, 

•  •  9  4Khz 

*  •  9  0.5  Khz 

Me  Load  <  IKliz 
Hp  Load  •  IShz. 


Kp=3600,   Ki=112,   Kd=  28800,   Shiftcount  =  3 
Kp=2300  Ki=  41,  Kd=  32200,   Shiftcount  =  4 
Kp=1024,   Ki=8,   Kd=31405   ,   ShiftCount  =  5 
Kp=5400,  Ki=310,  Kd=23400  ,  ShiftCount  =  2 

.     I!p=3600,  Ki=192,  IdelSMO,  ShiftStan  =  3 
^JLl^^lSOO,  Ki=52,  KitstSeOQ,  ShiftNura  =  4 


Adjust  Shiftcount  by  maximizing  Kd  (for  a  16  bit  signed  num) 


************************************************ 


005D 


♦define  _KP  1800 
♦dBf  lAe  _KV  !  15600 


16  bit  Kp 
16  bit  Ki 
16  bit  Kv 


3200 
2000 


_VEL_LIMIT 


set 
set 


(  (_RATED_SPKBD*_?NCODBR^TE)/;  1/4  Rated  sp 
0x2000  ;  use  smaller 


0004 


.^A£  _SERVO_PID  »* 
_SH1FTMK. 


''e<ia 


.  *******************  ******************  ***************** 


0000  C021 


ORG 
goto 


0x0 

Stiurtup 


reset  vector 
startup 


0020  C07D 


08G 
goto 


0x20 

InterruptPoll 


interrupt 


4  *  *n**^*'iMf*M* ****** 


*  *  *  *  *  **  *************^************ *************************  * 

Startup 


I^aeStlFTKXIs    IShis  routine  is  called  On  t^ie'  bacdaare  reset  or  tdien  the 
program  wishes  to  restore  initial  conditions.  Initiali- 
zation of  run-time  constants  talras  place  here. 


RSTORNS: 


restart  to  safe  and  Initial  state 


STACK  OTILXSATICai:  none 
TIMING  (in  cycles)  i  X 


startup' 


0021  8406 


bsf 


_glintd 


disable  all 


0022  8404 

0023  8504 

0024  8604 

0025  8704 


BSF 
BSF 
BSF 
BSF 


_fsO 
_fsl 
_fs2 
_fs3 


0036  BOl* 
0027  4A01 


movlH  0x18 
movpf     wreg, f srO 


;  clear  all 


0028  2900 

0029  IPOl 
0Q2A  C028 


meraloop 


clrf  indfO 
incfsz  fsrO 


goto 


memloop 


002B  1562 


Incf 
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Servo  Control  of  a  DC-Brush  Motor 


\J\J^\^  DO\Jj 

movlb 

banks 

;  bBzi]c3  ini 

002D  B03F 

loovlw 

TC0N2_1NIT 

002E  770A 

movfp 

wreg , tcon2 

siovlw 

PWIDCH  INIT 

•  set  duty 

0030  720A 

0031  730A 

znov:^ 

wrag,pw2d^ 

0032  BOCO 

znovlw 

PW1D0I(_IIIIT 

0033  700A 

wrag.pwldcl 

0034  710A 

0035  B006 

movlw 

TCONl.INIT  ;nw.ijLJHBt  organization  eit  I^WWs 

U  U  J  D    /  D  U  A 

movfp 

wreg, tconl 

0037  B802 

;  bank2  initiallnkttea  , 

0038  BOFF 

movlw 

PR1_IN1T 

movfp 

wreg,prl 

;  initialize  timer 1  period 

003A  BOOF 

movlw 

PR2_INIT 

«E«>f>pr2 

003C  B800 

;  bankO  initialization 

003D  B080 

movlw 

RTCSTA_INIT 

003E  fiSOA 

movfp 

wreg, r testa 

;  sets  RTC  for  external  ii^ut 

003F  B0F8 

movlw 

QxFS 

;  EtA2  connected  to  KUtAK  Input  of  LliD18200 

;  Qb  n<Met,  tlnw  palMt  Iii^  biEBaking  tlte  mstoc 

if  _gERIAL_IO 

0041  B090 

movlw 

RCSTA_1NIT 

0042  730A 

;  set  receive  status 

;  «et  tBansmlt  atatuli 

0044  75 OA 

zndV'fp 

wreg,txsta 

r 

movlw 

SPBRG_IN1T 

;  set  baud  rate 

0046  770A 

movfp 

wreg,spbrg 

0047  B0P3 

0048  710A 

;  set  port  B  for  irtiatever 

0049  BSOl 

;  bankl  initialization 

if  ==  TRUE) 

M0VK16  _KP,KP 


004A  BOOS 

004B  0126 
004C  BD07 
004D  0127 


MOVLW 
MOVWF 
MOVLW 
MOVWF 


(1800)  6  Oxff 

KP+BO 

(  (1800J  SS.  'i| 
KP+Bl 


_ICI,KI 


004E  B034 
004F  012A 

0050  BOOO 

0051  012B 


MOVLW 
MOVWF 
MOVLW 
MOVWF 


(52)  &  Oxff 
KI+BO 

((52)  »  8) 
KI+Bl 
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0053  0129 

0054  B03C 

0055  0129 


HOVLW 
MOVHF 
MOVIM 
W3WF 


(15«00)  &  Oxff 
KV+BO 

((15600)  >»  8) 
KV+Bl 


endif 


MOVKIS  JWCLJ.lMia'.AL 


0056  BOOO 

0057  0123 

0058  B020 

0059  0124 


HOVLW  (_ACCL_LIMIT)  6  Oxff 

MOVWF  AL+BO 

MOVLW  (  (_ACCL_LIMIT)  '  >»  8) 

MOVWF  AL+Bl 


J10VK16  _VELJ<IH1T,VI. 


005A  BOOO 
005B  0120 
005C  3032 
005O  0121 


MOVLW  (_VEL_LIM1T)   S  Oxff 

MOVWF  VL+BO 

HOVLW  ( (_VELJiIMIT)   »  8) 

MOVWF  VL+Bl 


005E  B004 
005F  01B9 


0060  5289 


novlw 
movwf 


_SHIFTNaM 
SBIFTOOM 


0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 


B080 
4ASB 
BOtB 
4«8F 
B040 
4A8C 
BOOl 
4A8D 


0059  2916 
006A  2307 
006B  8517 
006C  8307 

0060  8C06 


movpf  pwl^teb.YFHH+Bl 


inovlw 
movpf 
movlw 
movpf 

movlw 
movpf 
movlw 
nen^f 

elr£ 

bsf 
bsf 

bcf 


PWMAXL 

wreg,YFWHAX-)>BO 
PMMAXB 

wreg ,  7FWKAX+B1 

PWMINL 

wreg,YPWMIN+BO/ 
FWMINH 

«reg,YPVO(IN+Bl 

plr 

_tan2ie 
_peie 

_glintd 


initialize  i»an  limits 


clear  flags,  set  indiviual  interrupts 


enable  interrupts 


006B  B802 


movlb  bank2 


006F  290B 
0070  290C 


clrf 
clrf 


rtccl 
rtcch 


eUAiu?  counter 


0071  2912 

0072  2913 


clrf 
clrf 


tmr31 
tmrSh 


clear  down  counter 


0073  BOPF 

0074  170A 

0075  C074 


movlw  OxFF 
delay     decfsz  wreg 
goto  delay 


0076 
0077 
0078 
0079 
007A 
007B 


6A0B 
080C 
0812 
0813 
330A 
C06F 


movfp 
iorwf 
iorwf 
lorwf 


rtccl, wreg 
rtcch, w 
tnr31,H 
aiir3h,W 


tstfsz  wreg 

goto  zeroctrs 


motor  still  moving 


007C  C124 


goto 


PollingLoop 


. ************************************************************************ 
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mm 


t  MAMB:  Interruption 


InterruptPoll 


007D 

0138 

movwf 

ISKMBEG 

;  save  H  Reg 

007E 

6A04 

movfp 

alusta.wreg  ') 

007F 

01C7 

aiovwf 

alustaTemp 

;  save  alusta 

0080 

4F37 

movpf 

bsr, ISRBSR 

;  save  BSR.wreg 

0081 

4DC3 

movpf 

tblptrl , tblptrlTenp 

;  save  Table  Pointers 

0082 

4EC4 

movpf 

tblptrh,  tblptrhTemp 

0083 

A0C5 

tlrd 

0,TblLatLo 

0084 

A2ce 

tlrd 

l.TblLatHl 

;  save  Table  Latch 

1                       1 11 '  lOBJMilif 

0085 

B801 

movlb 

bankl 

0086 

B0E5 

call 

doMPosMVel 

■  calculate  measured  position  and 

;  velocity 

0087 

Bill 

call 

didtxtstat 

;  evaluate  external  status 

0088 

2293 

rlncf 

MOVSTAT.W 

0089 

B501 

andlw 

0x01 

t  then  do  presnove*  This  is  only 

008A 

0494 

subwf 

MOVFLAG.W 

;  executed  oice  at  the  beginning  of 

008B 

9F0A 

btfsc 

wreg.MSB          ^/.N  --■  . 

;  each  move 

008C 

E23D 

call 

doPr^ove 

008D 

9E93 

btfsc 

M0VSTAT,bit6 

;  is  motion  continuing? 

DOSE 

E30F 

call 

doMove 

;  if  so,  do  move 

008F 

E09E 

call 

doError 

i  calculate  position  and  velocity 

;  error 

0090 

3390 

tstfsz 

SERVOFLAG 

;   test  servoflag^  if  0  then  no  servo 

0091 

B4AC 

call 

doSexvo 

;  do  servo 

if 

_PICMASTER_DEBUG 

0092 

3  3BB 

tst£sz 

CAPFLAG 

0093 

E79A 

call 

d@Cay^t«r«!{i^p. 

;  for  PIC-HA^^^  ^ace  Capture,  desno 

mat.: 

0094 

BSOl 

0095 

2916 

.elrf'v 

pir 

-;  clsMC~»ll  tW^H^vpt  request  flags 

0096 

A4C5 

tlwt 

0 , TblLatLo 

0097 

A6C6 

tlwt 

1 , TblLatHi 

;  restored  table  latch 

0098 

6DC3 

movfp 

tblptrlTeij),  tblptrl 

0099 

eEC4 

movfp 

tblptrhTaiip,  tblptrh 

;  restored  table  pointers 

009A 

6F37 

movfp 

ISKBSR.bsr 

;  restore  BSR, wreg, alusta  &  Table 

009B 

e4C7 

-  .  ' 

00 9C 

6A38 

009D 

0005 

retfie 

.  *****«*********iHlli9t*4r^i|g^ik**** ********* 

.  **^********^A************^***#***^***«l»*****-*«********** **********## 

;  10^1  .       i  ^  ^Brror  .  j 

}  ■        -i  hTtL  ji^g  I  (|t  .i«.  .  ■Oft 


doError 

MOV24       POSITION, POSERROR 


calculate  position  error 


mm 
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009E  6A55 
009F  4A79 
00 AO  6 AS  6 
OOAl  4 ATA 
0aA2  6A57 
00A3  4A7B 


MDVFP 

MOVPF 
MOVFP 
MOVPF 
MOVFP 
MOVPF 


POSITION+BO.wreg 
wreg , POSERROR+BO 
POSITION+Bl.wreg 
wreg , POSERROR+Bl 
PCS  ITI0N+B2 , wreg 
wreg ,  P0SERRaR+B2 


get  byte  of  POSITION  into  w 
move  to  POSERROR(BO) 
get  byte  of  POSITION  into  w 
move  to  POSERROR(Bl) 
get  hsriM  of  POSITION  into  w 
to  P0SERR(»(B2) 


MPOSITION,  POSERROR 


D0A4  6A72 
00A5  0579 
eOA6  fiA73 
mk7  037& 
im»»  fijk74 
0dA9  0378 


MOVFP 
SUBWF 
MOVFP 


MPOSITION+BO.wreg 
POSERROR+BO 
MPOSITION+Bl.wreg 
POSBRKOR+Bl 
MP0SITI0N+B2, 
P0S&<R0R'fB2 


get  lowest  byte  of  MPOSITION  into 
sub  lowest  byte  of  POSERROR, 
get  2nd  byte  of  MPOSITION  into 
sub  Sad  byte  of  POSERROR,  save 
gek  '3tei  b/te  of  MPOSITION  iiate  ' 
sub  3rd  byte  of  POSERROR,  save 


OCAA  9F7B 
OOAB  C0B7 

OdAC  6A7A 

OOAD  B580 
OOAE  097B 
OOAF  29CA 
OOBO  327B 
OQBl  COCl 
0OB3  S$97B 

eoB3  Bb7P 

0OB4  4A7A 
00B5  2B79 
00B6  COCl 

00B7  eA7A 

00B8  S^lWiJ^zti  ; 

OOBA  2B0A 
OOBB  307B 
OOBC  COCl 
OOBD  2B7B 
OOBE  297A 
OfflSP  877A 
OOeO  297$ 


pneg 


btfsc 
goto 

movfp 

andlw 

iorwf 

clrf 

cpf sgt 

goto 

olrf 

niovlw 

joovpf 

sett 

goto 

movfp 

iorlw 

sfidwf 

setf 

cpfslt 

goto 

setf 

clrf 

bsf 

olrf 


P0SERR0R+B2 ,K9B 

pneg 

POSSiBOR'fBl  ,wreg 
0x80 

P0SERS0R+B2 

wreg 

P0SERR0R+B2 

psatok 

P0SS«0R+B2 

0x7F 

wrag, POSBRROR+Bl 


saturate  error  to  lowest  16  bits 


psatok 

POSERROR+Bl , wreg 
0x7F 


wreg 

P0SERROR+B2 

psatok 

P0SERR0R+B2 

POSERROR+Bl 


clear  hi^  byte  for  debug  purposes 


set  high  byte  to  OxFF  for  debug 


psat^ 


OOCl  eA58 
00e2  «K7& 
00C3  £a59 
00C4  4A7D 
00C5  eASA 
00C6  4A7E 


H0V24  VELOCITY,  VELERROR 

MOVFP  VELOCITY+BO ,  wreg 

MOVPF  wreg,VELERROR+B0 

MOVFP  VEL0C1TY+Bl,wreg 

WHtSW-  wreg.VEIiBRROMtBl 

mHOff  VEL0CITY+B2  ,wr»tf' 

MOVPF  wreg,VMiERR^«'B2 


calculate  velocity  error 

get  byte  of  VELOCITY  into  w 

move   to  VELERROR (BO) 

get  byte  of  VELOCITY  into  w 

mcnre  to  VELERROR  (Bl) 

get  byte  of  VELOCITY  into  w 

BTOVe  to  VELERROR  (B2) 


SUB24      MVBLOCITY, VELERROR 


00C7  «A75 
00C8  057C 
OOC?  «iCTe 
OOGA  037S 
OOCB  6A77 
OOCC  03 7B 


MOVFP 

SUBWFB 

MOVFP 


imOCITyihBO ,  wreg 

VELERROR+BO 

MVELOCIT!f').Bl^,«t«Sr 

VELERROR+Bl 

MVEL0CITY+B2 , Wreg 

VSLERR0R+B2 


•  t^t  lowesf  byte  of  MVELOCITY  into  w 
sub  lowest  byte  of  VBLBRROR,  save 

2iid  byte  of  MVELOCITY  into  w 
sub  2nd  byte  of  VMiBRROR,  save  in 
get  3rd  byte  of  MVELOCITY  into  w 
suii  3rd  byte  of  VELERROR,  save  in 


Oe&>  btfsc      VELBRROR+B2,M3B  ;  saturate  «r6r  to  lowest  16  bits 

OOCB  CODA  goto  vneg 

-   :  :  :•      _   -vpoS'  • 
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OOCF 

eA7D 

nwvfp 

VSIfRROR+Bl ,  wreg 

OODO 

B580 

andlw 

0x80 

OODl 

097E 

iorwf 

VELERR0R+B2 

00D2 

290A 

clrf 

wreg 

00D3 

327E 

cpf sgt 

VELERR0R+B2 

00D4 

C0E4 

1  3  . 1 1'.i 

goto 

vsatok  "■ 

00D5 

297E 

clrf 

VELERR0R+B2 

00D6 

B07F 

movlw 

Ox7F 

00D7 

4A7D 

movpf 

wreg ,  VELERSOR+Bl 

00S8 

2B7C 

00D9 

C0E4 

vneg 

goto 

VMtok 

OOCA 

6A7D 

movfp 

VELERIU^+Bl ,  vcreg 

OODB 

B37F 

iorlw 

0x7  F 

OODC 

0B7E 

■j:     ■        ? , 

andwf 

VELERR0R*B2-  ' 

OODD 

2  BOA 

setf 

wreg 

OODE 

301B 

apiBlt 

vELBiatm(4'B2  - 

OODF 

C0E4 

goto 

vsatok 

OOEO 

2B7E 

setf 

VELERR0R+B2 

OOEl 

297D 

clrf 

VELERROR+Bl 

0022 

877D 

bsf 

VELERROR+Bl.MSB 

00E3 

297C 

vsatok 

clrf 

00E4 

0002 

return 

;  NAME:  doMPosHVel 

;  OESCRIPTIOHi    Calcu^tes  Cttfrent  position  from  QpCount  and  DownCount 


DOES  78AC 
OOEe  79AD 


doMPosMVel 

;  Do  l^CounCer  first 

II0VFF16  DPCOtJNT,THP+B0 


MOVFP 


UPCOONT+BO , TMP+BO+BO 
UPCQUNT+Bl ,  Tt^BO+Bl 


save  old  upcouzit 

move  UPCOUNT(BO)   to  TMP+BO(BO) 
aECOnilT(Bl)   to  'I»F+B0(B1) 


adtJt) 


O0E7  4C0A 
00E8  4BA!C 
00E9  310C 
OOEA  C0E7 
OOEB  4AAD 

OOSC  2975 


00  ED  6AAC 
OOEE  0176 
OOEF  6AAD 
OOFO  0177 


ntovpf 

clrf 

:«>  U.  (IIW16 

MOVFP 
,  : .  MOVWF 
MOVFP 
HOVHF 


movpf      r  tech,  wreg 
movpf  rtccl,UFCOONT+B0 
cpfseq  rtcch 
goto  readUp 

wreg,UPCOUNT+Bl 


MVELOCITO+BO- 

DPCOUNT ,  MVELQCiCM^aiXai 

UPCOUNT+BO ,  wreg 
MVELOCITY+Bl+BO 
UPCOUNT+Bl , wreg 
■moCITT+Bl+Bl 


;  Skip  next  If  HI  hasn't  changed 
;  HI  changed,  re-read  LO 
;  OK  to  store  HI  now 

;  eiear  bits  below  binary  point 

J^^^K^j^kpute  t^count  incremeUt* 

;  get  byte  of  UPCOONT  into  w 
;  move  to  MVELOCITY+B1(BO) 
;  get  byte  of  UPCOUNT  into  w 
-r^ijiosre  to  BWELOCITY+Bl  (BW  ' 


SOBle  TIIP+BO,MVELOCITX*S1 


OOFl  6A18 
00F2  0576 
00F3  6A19 
00F4  0377 


MOVFP  ■mpfBO+BO ,wreg 

SUBWF  MVELOCITY+Bl+BO 

MOVFP  TMP+BO+Bl,wreg 

SOTWFB  MVELOCITY+Bl+Bl 


;  get  lowest  byte  of  mP+BO  into 

;  sub  lowest  byte  of 

;  get  2nd  byte  of  TMP+BO  into  w 

;  sub  2nd  byte  of  HVELOCITY+Bl, 


mm 
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Now  do  DownCounter 

M0VFP16  DOWNCOUNT,TMP+B0 


;  save  old  downcount 


OOFS  78AE 
00F€  79jyF 


MOVFP  DOWNCOUNT+B0,TMP+B0+B0 
MOVFP  DOW»CODIJT+B1,TMP+BO+B1 


;  move  DOWNCOUNT  (BO)  to 
IDOWNCOCWr(Bl)  to 


OOr?  B802 
0OF8  S30A 

00F9  52AE 
OOFA  3113 
OOFB  C0F7 
OOFC  4AAF 


00^  7A^ 
00^  7BKF 


movlb 
movpf 

movpf 
cpf seq 
goto 
movpf 


bazik2       ;  timers  in 

tmr3h,wreg 

tmr3 1 ,  DOWNCOUNT+BD 

tmrSh 

readDovm 

tfxeg.DOHNCOUHT+Bl 


HOVFPie  IX)WNCOUNT+B0,TMP+B2 


MOVFP 
MOVFP 


DOWNCOUNT+BO+BO ,  TMP+B2+B0 
DOV«NCOairT+B0+Bl ,  TMP+B24B1 


I  Slcip  next  if  HI  hasn't  changed 

t  HI  cdiangedf  re-read  LO 

;  OK  to  store  RI  now 

;  confute  downcoimt  incresnent 

;  move  DOWNCOUNT+BO  (BO)  to 

f  nowe  DOWNCOUNT+BO  (Bl)  . 


08FF  6A18 

0100  051A 

0101  6A19 

0102  031B 


SDB16  THP'»B0,mP+B2 

MOVFP  T^E'+B0+B0,wreg 
TMP+B2+B0 
TMP+B0+Bl,wreg 
TMP+B2+B1 


MOVFP 


get  lowest  byte  of  Tlffi+BO  into 
sub  lowest  byte  of  TMP+B2,  save 
get  2nd  byte  of  TMP+BO  into  w 
sub  2nd  byte  of  THP'fB2,  save  in 


SOBie       TMP+B2 ,  MVELOCITX+Bl 


0103  6A1A 

0104  0576 

0105  6A1B 

0106  0377 


MOVFP 

SUBWF 
MOVFP 
S0BWFB 


TMP+B2+B0,wreg 
MVELOCITY+Bl+BO 
TMP+B2 +B1 , wreg 
MVELOCITY+Bl+Bl 


compute  new  measured  velocity 

get   lo«est  byte  of  TMP+B2  into 
sub  lowest  byte  of 
get  2nd  byte  of  TMP+B2   into  w 
sub  2nd  byte  of  MVBLOCITY+Bl , 


0107  2978 

0108  9F77 

0109  2B7S 


clrf 

btfsc 

setf 


MVEL0CITy+B3 
MVE1.0CITX+B2  ,MSB 
MVEL0C1TY+B3 


sign  extend  measured  velocity 
24  bit  additi<»i  to  measured 


ADD24  MVELOCITY+Bl.MPOSlTIiai' 


OlOA  6A76 
OlOB  0F72 
OlOC  6A77 
OlOSlAlf  3t  tir 
OlOE  6^78 
OlOF  im 


:  IS  !1  3: 

.■ij   TH  BSC... 

•  did  u 


MOVFP  MVELOCITY+Bl+B0,wreg 

ADDWF  MPOSITION+BC 

MOVFP  MVELOCITY+Bl+Bl,wreg 

JOXmC  KPOSITI(»i+B].      .        I  Mu< 

MOVFP  HVEL0CIT7+B1+B2  ,wreg 


sqi'  ^It'iiimWC  MP0SITI0ir+B2 


compute  new  measured  position 

get  lowest  byte  of  MVELOCITY+Bl 
add  lowest  byte  of  MPOSITION, 
get  2nd  byte  of  MVELOCITY+Bl 
aaa  2nd  byte  of  MPOSITION,  save 
get  3rd  byte  of  HVELOCITY+Bl 
add  3rd  byte  of  MPOSITI(»l,  save 


0110  OOKt  : 


delta  position  =  measureS' 


doExt&tat  • 


;  DESCRIPTION:    Get  +liiiiit, -limit, GPI  from  PORTS  and  set  in  EXTSTAT 


0111  9407 

0112  CUB 


doExtstat 

btfss  _intir 

goto  otherblts 

MOV24  MPOSITION,  INDEXPOS 


^216 


0 19%  MicrediipTaobrtelogy  me. 


0113  6A72 

0114  4AB6 

0115  6A73 

0116  4AB7 

0117  6A74 

0118  4AB8 


MOVFF  HPOSITION+BO.Wreg 

HOVFF  wreg,INDEXPOS+B0 

MOVFP  MPOSITION+Bl,wreg 

MOVPF  wreg,INDEXPOS+Bl 

MOVFP  MP0SITI0N+B2,wreg 

MOVPF  wreg,  INDEXP0S+B2 


;  get  byte  of  MPOSITION  into  w 

;  move  to  INDBXFOS(BO) 

;  get  byte  of  MPOSITION  into  w 

;  move  to  INDEXPOS(Bl) 

;  get  byte  of  MPOSITION  into  w 

;  inOVB  to  INDEXP0S(B2) 


0119  see? 

OllA  8792 


bcff 
■  bsf 


_intir 
EXTSTAT.MSB 


OllB  B800 
one  6A12 
OllD  190A 
OllE  B561 
OllF  4A18 

0120  1D18 

0121  0818 

0122  0992 

0123  0002 


otherbits 

movlb  bankO 

movfp  portb,wreg 

rrcf  wreg 

emdlw  0x61 

movpf  wreg.TMF 

«fsq^£  flip 

loiwf  •mm.w 

iorwf  ESIIS^t 


;  get  +limit, -limit  and  GPI 
;  arrange  in  correct  bit  posi 

«r-!.»'  ■ 

I  •!»'»? 

■  set  in  ^CTSTAT 


return 


NAME:  PollingLoop 


DBSOIIPTION: 


The  actual  polling  loop  called  after  the  board's 
initialization      -  • -kv 

System  globals  anA  hard»asa  iat^%itili.za&  and  the 
'Aaterzi^t  psooasses  started. 


PollingLoop 


if  _SERIAL_IO 

/' 

0124  E557 

e»U 

0125  B681 

eall 

0126  31C2 

!  OuM^  to:  xaeeive  buffer 

0127  C124 

goto 

0128  E576 

call 

Getchar 

;  if  so,  get  character 

0129  4A39 

movpf 

wreg ,  CMDCHAR 

;  put  in  CMDCHAK 

else 

clr«4fe 

goto 

;  wait  for  Intn-rupt 

endif 

************************************************************************** 


include  'mult. asm*      ;  Double  Precision 

'  ]|iBl(ti«i^ieatioa  Routine 
. ************************************************************************* 

Double  Precision  MaltlisiJ,les^<n  Soutlne 
U 

NAME:  Cmult 

DESCRIPTION:     Mult:  AARG   (16  bits)   *  BARG   (16  bits)   ->  DPX   (32  bits) 

(a)  Load  the  1st  operand  in  locations  AARG+BO  £  AARG+Bl  (16  bits) 

(b)  Load  the  2nd  openmd  in  locations  BARG+BO  s  BARG+Bl   (16  bits) 

(c)  call  Dmult 

(d)  The  32  bit  result  is  in  locations   (DPX+BO ,DPX+B1 ,DPX+B2 , DPX+B3 ) 
In  the  signed  case,  a  savings  of  9  cllcs  can  he  realized  by  choosing 
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;  BARG  as  the  positive  factor  in  the  product  when  possible. 

;  TnmiG  (worst  case) :    unsigned:  173  elks 

;  signed:        if  BARG  positive:     170  elks 

;  if  BAKG  negative:     179  elks 


0001 


SIGNED  equ 


PRUE  ;  Set  This  To  'TRUE'   for  signed  multiply 

;  and  'FALSE'   for  unsigned. 
.************************************************************************* 

KiltiplieatioB  Macro 
.  *******  *^.*************«***********^********************************  ****** 


; (worst  case) 


uasignad) 
slgnadi 


11+7*1$»8*11  »  169  clkB 
11+7*10*7*11+S  =  163  elk» 


mm. 


BARG+BO , i 

BARG+Bl,  i-8 

add«v(l) 

DPX+B3,W 
DPX+B3 
DPX+B2 
DPX+Bl 

DPX+B3,W 

DPX+B3 
DPX+B2 
DPX+Bl 
DPX+BO 


MOLTMftC  miXO 

variable  i 

1  =  0 
if  SIGNED 

while  i  <  15 
else 

  while  i  <  IS 

endlf 

if  1  <  8 
btfsc 
else 
btfsc 

endif 

goto 
if  i  <  8 

rlcf 

rrcf 

rrcf 

rrcf 
else 

rlcf 

rrcf 

rrcf 

rrcf 

rrcf 
endif 

i  =  i+1 
endw 

clrf  DPX+BO 

return 

addO 

movfp  AARG+BO,wreg 
addwf  DPX+B2 
mov^     AlkBiS+Bl ,  wreg 
'  '  'ai^hffe   X>gS.*V3  ■  ' 
rlcf  AA8a+Bl,W 
rrcf  1    ■OR»(«a  : 
rrcf  DPX+B2 
rrcf  DPX+Bl 

1  =  1 

if  SIGMBD 

%^le  i  <  IS 

else 

'«*lle  i  <  16 
endif 

if  1  <  8 

btfss  BARG+BO, i 

else 

btfss  BARG+B1,1- 

^uiif 

goto  noaddfvd) 


test  low  byte 
test  high  byte 


;  rotate  sign  into  carry  bit 
;  for  i  <  8.  no  meaningful 
;  are  in  DPX+BO 


;  rotate  sign  into  carry  bit 


;  if  we  get  here,  BARS 


;add  Isb 
; add  nsb 

;  rotate  sign  into  carry  bit 
;  for  i  <  8,  no  meaningful 
;  are  in  DPX+BO 


test  low  byte 
test  high  byte 
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01993  MldooMpTaohMlosy  he. 


add#v(i)  -V,, 
movfp      AARG+BO ,  wreg 

addwf  DPX+B2 
,  movfp  AARG+Bl,wreg 

addwfc  DPX+B3 
iioadd#v(i) 

if  i  <  8 

rlcf 

rrcf 

rref 

rrcf 
else 

rlefi  ■a.AH^Bl.W 

rrcf  DPX+B3 
■  rrcf 

rrcf 

rrcf 
endf 
i  =  i+1 
endw 
if  SIGNED 

rlcf 

rrcf 

rrcf 

rrcf 


AARG+B1,W 

DPX+B3 

VBX*B2 


DPX+B2 
DPX+Bl 


;add  Isb 
;add  msb 


;  rotate  sign  into  carry  bit 
;  for  i  <  8,  no  meaningful 
;  are  in  DPZ+BO 


rotate  sign  into  can:y  Mtr 


AARG+B1,W 
DPX+B3 
PPX+B2 
DPX+Bl 


endif 


since  BARG  is  always  made 
the  last  bit  is  known  to  be 


Double  Precision  Multiply  { 
(  «»IG*BARS  ->  :  32  bit 


012B  971F 
012C  C137 


if  SIGNED 

.,   btf  SS      BASStUslC^, ' 
.gote  asfp^ 

■asi6 


..MRG+BO 


;  test  sign  of  BARO 

;  if  Bsiaitive,  ok 

;  it  MpN^i«e.  then  neg^ete 


012D  131C 
012E  131D 
012F  290& 

0130  151C 

0131  HID 

0132  131E 

0133  131F 

0134  290A 

0135  151B 

0136  HIP 


0137  291B 

0138  291A 


0000 
0000 


AARG+BO+BO 
AARG+BO -l-Bl 
wreg 

AARG+BO+BO 
ADDWFC  AARG+BO+Bl 

NEG16  B 
BARG+BO+BO 
BAR6+B0+B1 
wreg 


COMF 
COMF 
CLRF 
INCF 


COHF 
COMF 
CLRF 


mmH  and  BADS 


endif 
argsok 

MULTHftQ 


clrf 
clrf 


DPX+B3 
DFX+B2 


;  clear  initial  partial  product 
;  use  macro  for  multiplication 


variable  i 

i  9  0    ^  , 


else 


while  i  <  16 
endif 

if  1  <  8 
btfsc 

else 
btfsc 
endif 

goto  addtv(i) 
if  i  <  8 

Zlef  DPX+B3,W 
rrcf  DPX+B3 


BARO+B0,i 
B2fflS+Bl,i-8 


;  test  low  byte 
;  test  hi^  byte 


;  rotate  sign  into  carry  bit 
;  for  i  <  8,  no  meaningful  bits 
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rrcf 

;  are  in  jjfA+Du 

rrcf 

else 
rlcf 

UFa+dJ  ,  W  - 

•               i^ig   o  X  ysii   J^ii  WW           ^      MX  w 

rrcf 

TM^V.lD'^  111 

rrcf 

DPX*^               '  ' 

rrcf 

rrcf 

endif 

K  -X  i  j  i  .  .      ■ .  i 

=  i+1 

endw 

if  i  <  8 

mmiS^^iy  rytet  Bsia  ^in  - 

btfsc 

;   test  low  cyte 

else 

btfsc 

;  t@Bt  xiisfa  Dyte 

endif 

013A  C19C 

goto 

addO  ' 

if  i  <  8 

013B  lAlB 

rlcf 

DPX+B3 , W 

;   rotate  sign  into  carry  bit 

013C  191B 

rrcf 

DPX+B3 

;  for  i  <  8,  no  n^eaniiigful 

013D  191A 

rrcf 

DPX+B2 

;   are  in  DPX+BO 

rrcf  -• 

else 

rlcf 

DPX+B3 , W 

;  rotate  sigi?.  into  carry  bit 

rrcf 

DPX+B3 

rrcf 

DPX+B2 

rrcf 

DPX+Bl  ^ 

rrcf 

DPX+BO 

endif 

i  =  i+1 

if  i  <  8 

btfsc 

BftRG+BO , i 

;  test  1^  byte 

else 

btfsc 

BMtiS^Bl ,  1-8 

>  test  high  l^te 

endif 

ge>^«  ■  . 

If  i  <  8 

0141  lAlB 

rlcf 

'■  V  rotate  sign  into  carry  bit 

0142  191B 

rrcf 

gor  i  <  8,  no  meaningful 

0143  191% 

rrcf 

0FX+B2 

;  are  in  DPX+BO 

0144  1 91 9 

rrcf 

DPX+Bl 

else 

rlef 

wi^^mi^-  ■ 

;  rotate  sign  into  carry  bit 

rrcf 

rrcf 

rrcf 

I^+Bl 

rrcf 

E^X+BQ 

endif 

0002 

i  =  i+1 

'  /  .  z 

if  i  <  8 

BARG+BQ  4 1 

else 

btfsc  ~ 

BAR6+B1 ( 1-3 

•  test  high  byte 

endlc 

goto 

add2 

i£  1  <  8 

0147  lAlB 

rlcf 

- 

;  rotate  S3.^  into  carry  bit 

0148  191B 

rrcf 

;  for  i  <  8,  no  meaningful 

0149  191A 

rrcf 

BPX+^ 

;  are  in  DPX+BO 

ai4A  1919 

rrcf 

S^+Bl 

else 

rlcf 

DPX+B3,W 

;  rotate  sign  into  carry  bit 

rrcf 

DPX+B3 

rrcf 

BPX4B2  - 

rrcf 

DPJi+tl 
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rrcf 

endif 

0003 

i  =  i+1 

if  i  <  8 

014B 

9B1B 

btfsc 

BARG+BO , i 

;  test  low  byte 

else 

btfsc 

BARG+Bl, 

,  i-8 

;  test  high  byte 

endif 

014C 

CIBA 

goto 

add3 

U  1  <  8 

X 

014D 

lAlB 

rlcf 

DE>Z:+B3,W 

■j   -   .  _ 

;  rotate  sign  into  carry  bit 

014E 

191B 

rrcf,  '  i 

D^B3 

;  for  i  <  8,  no  neaaifiiE^ftil  - 

014F 

191A 

rrcf 

DPX+B2 

;  are  in  DPX+BO 

0150 

1919               \  •-•1 

rrcf 

DPX+Bl 

else 

rlcf 

Ur^A+OJ  t  n 

;  rotate  sign  into  carry  bit 

rrcf 

DPX+B3 

-  1  -                    •,  ■ 

rrcf 

.—       i     '     a    ^       J  teit 

rxcf 

rrcf 

endif 

1.'  i  - 

0004 

i  =  i+1 

if  i  <  8 

0151 

9C1B 

btfsc 

BARG+BO 

,  i 

;  test  low  byte 

else 

btfsc 

S«@»B1 

,  ixfl'  . 

;  test  bifl^  byte 

endif 

0152 

C1C4 

goto 

add4 

if  i  <  8 

0153 

lAlB 

rlcf 

DPX+B3,W 

;  rotate  sign  into  carry  bit 

0154 

191B             .:;       y- '        ■  ' 

rrcf 

DPX+B3 

;  for  i  <  8 ,  no  meaningful 

0155 

191A 

rrcf 

DPX+B2 

;  are  in  DPX+BO 

0156 

1919                 -r        .  i    i  - 

BPXkBl 

else 

rlcf 

DPX+B3,W 

;  rotate  sign  into  q93^e>^  -iB^^ 

rrcf 

DPX+B3 

rrcf 

DPX+B2 

rrcf 

DPX+Bl 

rrcf 

DFX+BO 

endif 

0005 

i  «  i+1 

1£  i  <  8 

0157 

9D1B 

btfsc 

B2UU3+BO 

t  i 

J  test  low  byte 

else 

btfsc 

BARG+Bl, i-8 

;  test  higb  byte 

endif 

0158 

CICB 

goto 

adds 

it  i  <  8 

0159 

lAlB 

rlcf 

DPX+B3,W 

;  rotate  sign  into  carry  bit 

015A 

191B                     ..'<:•  . 

rrcf 

DPX+B3 

;  for  i  <  8,  no  meanixigful 

015B 

191A 

rrcf 

DPX+B2 

;  are  in  DPX+BO 

CISC 

1919            ».-  •■<  :\ 

rrcf  >3«e9»Bl 

•Ise 

rlcf 

DPX+BB.W 

;  rotate  sign  into  ea#fy^^.£' 

rrcf 

DPX+B3 

;  V . -  ,1 

1 

rrcf 

DPX+B2i< 

•                   ^  ,,-,> 

( 

rrcf 

DPX+Bl 

rrcf 

DPX»BO-- 

■ftdif 

I- /'J 

0006 

i  =  i+1 

■  •             ..     .  - 

1£  i  <  8 

015D 

9E1E 

btfsc 

BARG+BO 

,  i 

;   test  low  byte  ' 

else 

x.i' 

btfsc 

\aa«B+Bi 

.i-8 

;  test  hlj^  byte         - : 

endif 

015B 

G1D8 

goto 

add« 

if  i  <  8 

015F 

lAlB 

rlcf 

DPX+B3,W 

;  rotate  sign  into  carry  bit 

0160 

191B 

rrcf 

DPX+B3 

;   for  i  <  8,  no  meaningful 
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Ulol  IsJ^ 

rrcf 

'  are  in  DPX+BO 

i^fVA^Odt                         -  '■  ' 

else^° 

rlcf 

DPX+B3,W 

;  rotate  Bign  into  oa^g^  iS^i. 

TiDYijiH^  1,-, 

'  -  -  ■          <    ■  ■ 

T'^W^     r  > 

i  =  i+1 

if  i  <  8 

0163  9F1E 

btfsc 

btfsc 

•   if*«tfiiJi'            Inrtie                     ''■■"J  1 

oim  cxm  ■ 

if  i  <  8 

01d5  lAlB 

rlcf 

r*inv_LD^    Tj»t  ' 

UiOD  I^IB 

DPX+B3 

•   for  i  ^  8  (  no  irieaningf ul 

0167  191A 

rrcf 

0168  1919 

rrcf 

DPX+Bl 

^lef 

rrcf 

DPX+B3 

rrcf 

t*yt^  v_i_  m 

...v      .i  .  - 

rrcf 

DPX+Bl 

rrcsf 

DFX+BO 

e^di£ 

1-- 

0008 

9    -  ' 

if  i  <  8 

-, 

btf  sc 

BMIG+BO ,  i 

;   test  low  tjyte 

else 

0169  981F 

btf  sc 

BARG+Bl, i-S- 

;  test  high  byte 

endif 

016A  ClEC 

goto 

add8                   r  I 

if  4  «:  J? 

Iri+X'-:  ".'         t:j  J  ; 

»»S«W  --Mi 

;  rot&'te  si^^  xn^^^  ^sn^E^  silt 

rrcf 

•  for  i  <  8r  no  flteam  ingf^i 

rrcf 

DP36*®SS''''  *'.:'-i:-.T 

rrcf 

DPX+Bl 

else 

016B  lAlB 

rlcf 

DPX+B3,W 

;  rotate  sign  into  carry  oit 

016c  191B 

uIdD  191A 

rircf 

DPX+B2        •  :■■ 

Oli^ 

rrcf 

DI«+B1                 '-r  -J  ^ 

rrcf 

DPX+BO  if'Hi-- 

endif 

0009 

i  =  i+1 

5    -    t  " 

if  i  <  8 

i            5  .3 

btf9C 

;  test  low  byte            filvi  Aci 

A 1  r  '  3''  r 

0170  991F 

btfsc 

;  test  lii0h  byte          '' '  ^ 

endif 

I 

goto 

add9 

if  i  <  8 

rlcf 

DPX+B3 , W 

f  rotate  sign  xnto  carry  oxt 

rrcf 

DPX+B3 

;  for  X  <  8 «  no  xi^aninsfful 

rrcf 

DPX+B2' 

;  are  in  DPX+BO 

'  -  t    -  1. 

0172  lAlB 

rlcf 

DPX+B3,W  X 

;  rotate  sig^n  into  carry  bit 

0173  191B 

rrcf 

DPX+B3 

0174  191A 

rrcf 

DPX+B2 

0175  1919 

sr  .'d  f<^,  :  .■    ■  1 

rrcf 

DPX+Bl 

0176  1918 

rrcf 

DPX+BO 

i  =  i+1 

(•     /•         > jo;^ 

ei    >  ■■ 

if  i  <  8 

btfac 

;  test  Xo»  lisyte 

4-222 
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else 


0177 

9A1F 

btfsc 

BAR6+Bl,i'8 

:^iyte 

endif 

0178 

C202 

«ddl0  'ni>m 

tf  i  <  « 

rlcf 

DPX+B3,W 

. 

rotate  sign  into  carry  bit 

*  rrcf 

DPX+B3 

for  i  <  8,  no  meaningful 

rrcf 

DPX+B2 

cure  in  DPX+BO 

0179 

lAlB 

rlef 

rotate  eign  into  oa£z^;failt 

017A 

191B 

DPX+B3 

017B 

191A 

DPZ+B2 

017C 

1919 

DPX+Bl 

017D 

1918 

OOOB 

i  —  1+1 

^                               IL    1   <  o 

btfsc 

test  low  Isyte 

017B 

9B1F 

tse^  lattiE^  byte 

endlf 

017F 

C20D 

goto 

.  if  1  <  8 

.     -  ■  rlcf 

DPX+B3 , W 

rotate  sign  izJ^O'  <3afry  bit 

rrcf 

DPX+B3 

for  i  <  8  ^  no  ne^iiikgful 

rrof 

DPX4-B2 

are  ■DPX+BO 

rrcf 

else 

0180 

lAlB 

rlcf 

UFa+b J  f  W 

ss&^^'fee  ivi^B  into  carry  bit 

0181 

191B 

rrcf 

DPX+B3 

0182 

191A 

;  rrcf 

DPX+B2 

0183 

1919 

rrcf 

DPX+Bl 

0184 

1918 

t 

e&dif 

i  =  i+1 

if  i  <  8 

btfsc 

dAKij+dU  ,  1 

test  low  byte 

else 

0185 

9C1F 

btfsc 

BARG+Bl f  i - 8 

tes  t  high  byte 

eiiidif 

0186 

C218 

goto 

-  51  J44fcs  i  <  ■« 

rlcf 

JJlTA+lM  « w 

f 

ip^tA!^^  slem  into  cArrv  bi  t 

^  '  *" 

DPX+B3 

t 

^iSiP  ^  ^  ft     no  mean  j.n£r fill 

■f 

rrcf 

DPX+Bl 

else 

0187 

lAlB 

rlcf 

DPX+B3 ( W 

rotate  sign  into  carry  bit 

0188 

191B 

rrcf 

DPX-4<B3 

0189 

191% 

OlSk  1919 

rrcf 

OtMi' 

%Vi.i 

rrcf  ' 

endif 

i  =  i+1 

if  i  <  8 

Om  >             J  ^  btfsc 

BilflG^BO « i:  : 

■f 

else 

018C 

9D1F 

btfsc 

BARO+Bl,i-8 

test  lilgb  byte 

-     .  .p,         .  --.■.=«Bdif 

018D 

C223 

goto 

addl3 

if  i  <  8 

rlcf 

0PX+B3,W 

rotate  sign  into  carry  bit 

rrcf 

for  i  <  8,  no  meaningful 

rrcf 

are  in  DPX+BO 

rrcf 

DPX+Bl 

else 

018E 

lAlB 

clef 

rotate  sign  into  carry  bit 

018F 

191b 

0190 

rrcf 

urJL-roZ  -«» 

0191 

11919 

rrcf 

•  ■  *  -  ■ 

0192 

1918 

rrcf 

DPX+BO                  '  . 

'' 

end  if 

OOOE 

i  =  i+1 

if  i  <  8 

btf  sc 

dAK(«+oU  /  X 

;  test  low  byte 

else 

0193 

btf  sc 

;  test  ni^n  Dyte 

endif 

019!4cC2^S  ■ 

goto 

addl4 

if  i  <  8 

rlcf 

DPX+B3,W 

;  rotate  sign  into  carry  bife 

rrcf 

DPX+B3 

;  for  i  <  8,  no  meaningful 

rrcf 

DFX+B2  ■ 

;  are  in  DPX+BO  ' 

rrcf 

DPX+Bl 

else 

0195 

lAlB 

rlcf 

DPX+B3«W 

;  rotate  sign  into  carry  bit 

0196 

191B 

rrcf 

^X+B3 

0197 

191A 

rrcf 

DPX+B2 

0198 

1919 

rrcf 

BPX+Bl 

0199 

1918 

rrcf 

DPX+BO 

endif 

000? 

i  =  i+1 

019A 

2918 

clrf 

DPX+BO 

;  if  we  get  here,  BARfS  s  o 

019B 

0002 

return 

addO 

019c 

6A1C 

movfp 

AARG+BO , wreg 

019D 

OFIA 

addwf 

DPX+B2 

;add  Isb 

019E 

6A1D 

movfp 

AARG+Bl,wreg 

019F 

11  IB 

ac^wfc 

DPXiMS '  ;  add 

■"' 

01  AO 

lAlD 

rlGf 

AARC3+B1,W 

;  rotate  sign  into  car^ry%St 

OlAl 

191B 

rrcf 

DPX+B3 

;  for  i  <  8,  no  meaniil^-ful 

01A2 

191A 

rrcf 

DPX+B2 

;  are  in  DPX+BO 

01  A3 

1919 

rrcf 

DPX+Bl 

0001 

i  =  1 

1 

if  SIcajED 

while 

i  <  15 

else 

while  i  < - 

endif 

if  i  <  8 

btfss 

BARG+BO;U  j 

test  low  byte 

else 

btfss 

9ARiS+Bl,i-8  ; 

test  high  byte 

endif 

0ptO 

ad*i#v(i) 

movfp 

AARG+BO , wreg 

addwf 

DPX+B2   ;add  Isb 

movfp 

AARG+Bl^wreg 

addwfc 

^  '  A-- 

noadd#  V  { i  ] 

if  i  <  8 

rlcf 

AARG+Bl ,  W 

•  rotate  si^  into  car¥y  bit 

rrcf 

DPX+B3 

•  for  i  <  8,  no  meaningful  bits 

rrcf 

DPX+B2 

are  in  DPX+BO 

rrcf 

DPX+Bl 

^  ■ 

'■ 

else 

- ' '" 

rlcf 

AARG+Bl,  W  ; 

rotate  sign  into  carry  bit 

rrcf 

DPX^«I^ 

rrcf 

DFX+B2 

rrcf 

DPX+^  '  - 

rrcf 

DPX+Bty.' 

i  =  i+1 

endw 

if  i  <  S 

.<  t 

01A4 

911B 

btfss 

BAR@+BO,i 

test  low  byte 

Servo  Control  of  a  DC-Brush  Motor 


else 

btfas 

BMS+Bl 

,  i+8 .  ^  test          feyba  >. 

endif 

mm  msk 

o  ~  ■  - 

gotoj.  ' 

addl 

OlAS 

6A1C 

ms*^, ' 

01A7 

OFIA 

iadd  Isb 

OlftS 

6A1D 

01A9 

lllB 

;  add  mab 

dM  S  e>b 

if  i  <  8 

OlAA 

lAlD 

rlcf 

AARG+B1,W 

;  rotate  sign  into  carry  bit 

OlAB 

191B 

rrcf 

DPX+B3 

;  for 

i  <  8,  no  meaningful  blfea  ;> 

OlAC 

191A 

rrcf 

DPX+B2 

;  are 

in  DPX+BO 

1919 

xse£ 

d  t 

^  ■ 

alaie 

>.|  r:-T'-t 

rlcf 

AAKG+Bl.W 

;  rotata  sls^  late  carry  bit 

rrcf 

DPX+B3 

rrcf 

DPX+B2 

rrcf 

DPX+Bl 

.    ;-i  ... 

rrcf 

DPX+BO 

•ndif 

Ik   *  ■> 

00fi2 

i  =>  i+1 

;a« .« 

it  I  <  a 

OIAB 

921K 

bttaa 

else 

btf  ss 

wmBtm. 

;  t^t  '^te 

endif 

OlAF 

C1B4 

goto 

noadd2 

add2                 met  3011 

OIBO 

CAIC 

novfp 

AAR6+B0,wreg  sio 

OlBl 

OFIA 

aiajit 

;  ada  ]^ 

01B2 

6A1B 

ag   tI^  ■• 

mm  lllB 

addwfc 

■  add  asb 

if  i  <  8 

01B4 

lAlO 

rlcf 

AARG+Bl , W 

;  rotate  sign  into  carry  bit 

01B5 

191B 

rrcf 

DPX+B3 

;  for  i  <  8,  no  meaningful 

;  a««  ^  |»%+B0 

rrcf 

else 

rlcf 

AARG+Bl , W 

;  rotate  alg^  into  carry  bit  i 

rrcf 

DPX+B3 

rrcf 

DPX+B2 

rrcf 

DPX+Bl 

xxef 

9«  i  • 

«>dlf 

0003 

i  =  i+1 

if  i  <  8 

01B8 

93  IB 

btfss 

BARG+BO , i 

;   test  low  byte 

else 

btfss 

BARG+Bl,i-8 

;  test  high  byte 

■SBdif 

01B9 

(^Wt 

Soto 

noad^ 

add3 

OIBA 

6A1C 

movfp 

AARG+B0,WSfl«9  li--- 

OIBB 

OFIA 

addwf 

DPX+B2 

;add  Isb 

OIBC 

6A1D 

movfp 

AARG+Bl  ,wreg 

OIBD 

lllB 

addwfc 

DPX+B3 

;add  msb 

»Ba<id3 

If  t  <  8 

OIBB 

liOD 

net,  mima»Bi.v 

;  KPtBte  Wtgtk  into  oanyi  b^st '  '• 

191B 

SK(+B3 

;  tet  i  <  8.  BP  meaningful 

OICO 

rrcf 

■  *  1 

;  ar*  in  DPX+BO 

rrcf 

DFZ-kBI 

else 

-  .  t.!  » 

rlcf 

AARO+Bl.W 

;  rotata  aign  into  carry  bit 

rrcf 

DPX^m  ' 

rrcf 

DPX+B2 

rrcf 

DPX+Bl 

rrcf 

DPX+BO 

4-225 


Senrd  ContiyGtti  d  iCI^ifiisEf  Motor 


endif 


01C2  941B 


01C3  C1C8 

01C4  giac 

OICS  OFIA 
01C6  6A1D  '-^ 
01C7  1118 


01C8  lAlD 

Of  eA  i.siA 

OICB  191$ 


0005 

OICC  951B 


OICD  C1D2 

OICE  6A1C 
OICF  OFIA 
OlDO  eAlD 
OlDl  lllB 


noadd4 


adds 


■    i  =  i+1. 
if  i  <  8 
btfss 

else 

btf  31  ■. 
endif 

movfp 
addwf 
-    '  '  movfp 
addwfc 

if  t  <  8 
rlGf 
■>  :  rrcf 
rrcf 

rrcf 
else 
rlcf 
rrcf 
rrcf 
rrcf 
rrcf 

endif 

i  =  i+1 
if  i  <  8 

btfss 
else 

btfss 
«idif 

goto 


BKRG<ItBO  ,  i 
B»{lG+Bl,i-8 

AARG+BO ,  wreg 
DPX+B2 

AARQ+Bl,wreg  i 
DPX+B3  -  ! 

1 

AABG+B1,W 

Dm*mr  ■      -  I 

DP3C+B2' 
DPX+Bl 

AARG+B1,W 
DPX+B3  1 
DPX+B2  '  1 

DPX+Bl 
-^DI%4«0 


BASO+BO , i 
BAIt@+Bl  ,148 
noaddS 


movfp  AARG+BO,  wreg 

addwf  DPX+B2    ;  add  Isb 

movfp  AARG+Bl,wreg 

addwfc  DItXti'Bd.  ;  add  sab 


;  test  low  byte 

!  test  hi^  byte         :)!a;  ft  i 


;add  Isb 
;add  msb 

j  rotate  sign  into  mrry  Mt 
;  for  i  <  8,  no  meaningful 
;  are  in  DPX+BO 

;  rotate  sign  into  carry  bit 


!  teat  low  byte 
;  test  high  byte 


01D2  lAlD 
01D3  191B 
01D4  191A 
01D5  1919 


if  i  <  8 
rlcf 
rrcf 
rrcf 
rrcf 

else 
rlcf 
rrcf 
rrcf 
rrcf 


AARG+B1,W 
DPX+B3 
DPX+B2 
DPX+Bl 

AAKG+B1,W 

DPX+B3 
DPX+B2 
DPX+Bl 


rotate  sign  into  carry  bit 
for  i  <  8,  no  meaningful 
are  in  DPX+BO 


rotate  sign  into  carry  bit 


rrcf 


DPX+BO 


endif 


i+1 


OlDS  9«SE 


OlD?  eiDC 
03M 


adds 


if  i  <  8  4! 

btfss  -Wa^BO.t  . 

else 

btfss  miBm-Bl ,  t-M 

endif 

goto  noaddS 

mov^<  AIHSMSSitWref 


test  low  byte 
test  high  byte 


4-22B 


mfsM  ^mH^i^BLWO-mm^  Mom 


01D9 
OlDA 


OlDC 
OIDD 
OlDE 
OlDF 


OFIA 
6A10 

Urn 


lAlD 
191B 
191A 
1919 


OlEl  C1B6 

01E2  SAIC 
01B3  OFIA 
01B4  6A1D 


01E6  lAlD 
01E7  191B 
DISS  191A 


ami 


0008 

:a    nni*^  i;:lLti.  ^'i-; 


OIBB  ClPO 
OlEC  6A1C 

OlED  OFIA  MYX  wX      -  i 

OlEE  6A1D 

011^  lllB  ^  \ 

noaddS 


OlFO  lAlD 
OlFl  191B 

Oiaa  ism.     ;  fiJ 

mM4  wsm        Mixta  ai 

0009 


acldwf 
nov^ 

8-  .  . 
if  i  <  8 
rlcf 
rrcf 
rrcf 
rrcf 
else 
tlet 
rrcf 
rrcf 
rrof 
rref 
endif 
i  =  i+1 
if  i  <  8 

el«a 

btfss 
endif 

goto 


DPX+B2  ;add  Isb 
AASS+Bl.wreg  ' 
DFX+B3    j  add  i 

A'  ft'. 

AARG+Bl.W 

DPX+B3 
DPX+B2 
DPX+Bl 

AAROdBl.W.  ;i 
DFX+B3 

DPX+B2         S  >  1 


.ta«HM»W,.*o;'> 

noada!^  ^-        1  -  -  -■ 


movf  p      AAR&t-BO ,  wr e$  ^  i 
wddwf     eFX+B2  .-add-  Isbi 
moT^oij<aiMs+Bl,«:«g->  ■> 
addwfc    DPZ+B3    ;add  i 


if  i  <  8 
rlcf 

rlcf 

rrcf 

rrcf 

»cf 

rref 
•ndif 
i  3  1*1 
if  i  <  8  " 

btfss 
else 

btfss 
endif 

goto 

movfp 
addwf 
movfp 
addwfc 

if  i  <  8 

rlcf 

rrcf 

rrcf 

rrcf 
else 

rlcf 

rxef 

nref 

rrcf 

rrcf 
«idif 
i  =  1+1 


AARG+Bl.W 

AARG+B1,W 

DPX+B3 

DPX+B2 


BARG+Bl,i^8 


AARG+BO ,  wreg 
DPX+B2    ;add  Isb 
AARG+Bl ,  wreg 
!»X4B3  .-aildtaefe 

i.i 

AARa+ii,W 

DPX+B3 
DPX+B2 
DPX+Bl 

AARG+B1,W 
DPX+B3         a  >  i 
DPJC<fB2  trtti 
DEX+Bl  i:.'.: 
DSX+BO' 


;  rotate  sign  into  carry  bit 

;  for  i  <  8,  no  meaningful 

;  axe  in  OPX+BO  - .  Ci 


;  rotate  sign  into  cuxy  bit- 


I  teat  high  byte 


Oi' 


;  rotate  sign  into  carry  bit 
;  for  t  <  8,  sn  meaninafnl 
;  are  i»  tSPX*^ 

f.iii  eosfl 
;  rt!ifea£e:  sign  into  oazi^  MX 


!  test  low  ^te 
;  test  high  byte 


•MO 


i  EQitOik  altpi  into  carry  bit 
;  for  i  <  8,  no  raaaningful 
;  are  in  DPX+BO 


rotate  sign  into  carry  bit 


ittniil  Ml  mi  lijiiTiii  lim^iy  lii 


4-227 


019$  SUF 

01P7  6A1C 
01P8  OFIA 
01F9  6A1D 
OlFA  lllB 


imo 

OIPC  191B 
OlFD  191A 
OlFE  1919 
OIPF  1918 

OOOA 


0200  921F 

0201  C206 

0202  6JklC 

0203  OFIA 

0205  lllB 


0206  lAlD 

0207  191B 

0208  191A 

0209  1919 
02aA  1918 

OOOB 


020B  931F 


«dd9 


noadd9 


'  I F.  noaiddlO 


o.2«e.  mil 

iin  oii-l  rag] 

02  OD  6A1C. •      :  » 
020E  OFIA 
02  OF  SAID 
0210  lllB 


noaddll 


BARG+B0,1 
BARS+Bl.i- 


if  i  <  8 
btfss 

else 
btfss 

endlf 
goto 


movfp  AARG+BO,wreg 

addwf  DPX+B2    ;add  Isb 

movfp  AARG+Bl,wreg 

adAffc  DPX+B3   ;add  nsb 


if  i  <  8 

rlcf 

rrcf 

rrcf 

xrcf 
else 

rlcf 

rrcf 

rrcf 

rrcf 

rrcf 
endif 
i  =  i+1 
if  lr'<8.^  t 

btfss  ' 
else 

btfss 
endif 

goto 

movfp 
addwf 
movfp 
addwfc 

if  i  <  8 
rlcf 
rrcf 
rref 
rref 

else 
rlcf 
rrcf 
rrcf 
rrcf 
rrcf 

endif 

i  =  i+1 

if  i  <  8: 
btfss 

else 

btfss 

endif 
goto 


AARG+B1,W 
DPX+B3 
DPX+B2 
DFX+Bl 

AAI^Bl.W 
DPX+B3 

DPX+B2 
DPX+Bl 
DPX+BO 


..s+;:ga 


BASG+Bl, 1-8 
noaddlO 

ASBSjMk,wres  ^  : 

AAieS44Bl',ia:eg 
DPX+B3    ;add  msb 


AASG-fBl.W 

SFX+Bl 

AARG+B1,W 

DPX+B3 

DPX+B2 

OFX-fBl 

DPX+BO 


BARG+BO,i> - 
BAR0+B1,1%8 
noaddll 


movfp  AARG+BO , wreg 

addwf  DPX+B2    ;add  lah 

movfp  AARG+Bl.wreg 

addwfc  DPX+B3   ;add : 


if  i  <  8  •.  u 

rlcf  MBSaESi.W 

rrcf  DK+aSu 

rref  DHt+SSC 

rrcf  DPX+Bl 

else 


test  low  byte 
test.  high  byte 


rotate  sign  into  carry  bit 
for  i  <  8,  no  meaningful 
are  in  DPX+BO 


rotate  sign  into  curry  bit 


test  low  I^te 
test,  high  byte 


;  rotate  sign  into  carry  bit 
;  for  1  <  8,  no  maanlngful 
;  are  In  DPiC+SO 


rotate  sign  into  carry  bit 


;  test  low  byte 
;  test  high  byte 


;  rotate  sign  into  caa^^y  bit 
;  for  i  <  8,  no  mnwniimettl 
;  are  in  DPX+BO 


« tm&*iHBm6Mp  TMnMBir  mc. 


4^228 


0211  lAlD 

0212  191B 

0213  ISlAi': 

0214  m9 

0215  1918 

OOOC 


0216  941F 

0217  C21C 

0318  SAIC 

0219  OFIA 
021 A  6A1D 
021B  lllB 


addl2 


noaddlS 


02 IC  lAU) 
021D  191B 

021E  191A 

021F  1919   

0220  1918 

OOOD 

221  9S1P 

0222  C227 

adiai3 

0223  6A1C 

0224  OFIA 

0225  CAIS 
0^<  UIB 

noaddlB 


0227  lAlD 

0228  191B 

0229  191A 
022A  1919 
022B  1918 

OOOB 


022C  961F      .J  I  iSvC, 

flaan-  east 


022E  6A1C 
022F  OFIA 
0330  eAlD 
0231  lllB 


rlef  A^Q+B1,W 
reel  v^t^wz 

rrcf 

rrcf 
endif 
i  =  i+1 
if  i  <  8 

btfss 
else 

btftBS 

•ndif 
goto 


•  kot«^^sign  into  car£y  bit 


BARG+BO , i 


BKH»fBl,i^ 


movfp 
addwf 
movfp 
addwfc 

if  1  <  8 
rlef 
rrcf 
rrcf 
rref 

rlef 
rreif 

rrcf 
■  rrcf 

rrcf 
endif 
i  =  i+1 
if  1  <•«• 

btfss 
else 

btfss 
ezidif 

goto 

addMf 
siovfp 
addwfc 

if  i  <  8 
rlef 
rref 
rref 
rref 

•Isa 
rlef 
rrcf 
rrcf 
rref 
rref 

•ndif 

i  ■  i+1 

if  i  <  8 
btfss 

else 
btfss 

•ndif 


noaddl2  '  >  '•■ 

AARG+BO,wreg 
DPX+B2    ;add  Isb 
AASG+Bl ,  wreg 
DPX+B3    ;add  msb 


AARG+B1,W 
DPX+B3 
DPX+B2 
OfX+Bl 


AMKMSl.W 

DPX+B2 
DPX+Bl 
DPX+BO 


BUtO+BO,  1 
-  Bia&)'Bl,i-8 
noadai3 

B»«S2   ;add  life 
MIi(3+Bl,wreg 
DFX+B3    ;add  msb 


AARG+Bl.W 


test  low  byte 


test  high  byte 


;  rotate  sign  into  carry  bit 
;  for  i  <  8,  no  meaningful 
;  are  in  DPX+BO 


;  rotate  sign  into  carry  bit 


;  test  low  hyl^ 
;  CBtft;  Isye* 


rotate  sign  into  carry  bit 

;  for  i  <  9,  niO'  mme^migs^ 


MC4B2  ■.•'."^iA(..,UPn' "  (  a!B«:-dni  DSX+BO 
OPX+Bl 


movfp 
addwf 
movfp 
additfe 


AAKG+B1,W 

DPX+B3 

DPX+B2 

DPX+Bl 

DPX+BO 


BKBG+BO.i 

soa4dl4i 

AASG+BO ,  wreg 
DPX+B2 

AARG+Bl,wreg 
DPX+B3 


rotate  sign  into  cany  bit 


;  test  low  byt*. 
;  test  hi{^  Ivta 


;add  Isb 


;add  msb 


4-229 


0232  mm 

0233  193JB 

0234  191A 

0235  1919 

0236  1918 

OOOF 

0237  lAlD 
03:38  t»Xm 

(asat  191A 

023A  1919 
023B  1918 


if  i  <  8 
rlcf 
rrcf 
rrcf 
rrcf 

else 
rlcf 
rrcf  . 
rref 


AARG+Bl ,  V 
DPX+B3 
DPX+B2 
i3FX+Bl 


AA!!£M.Ba.,W 

rtcf  ^  DPX+Bl 
rrcf  DPX+BO 


endlf 
i  =  i+1 
if  SIGNED 
rlcf 
rrcf 
rrcf 
rrcf 
rrcf 

endif 


AWIG+B1,W 

DBX+BS 

DPX+H2 

PEX+Bl 

DPX'i'BO 


rotate  sign  into  carry  bifc 
for  i  <  8,  no  meaningful 
are  in  DPX+BO 


rotate  sign  into  carry  bit 


since  BARS  is  alwajM  Wadgl  : 
the  last  Mt  is  Imatitar  t(», 


023C  0002 


return 

. *************************************#*********************************** 


inclaas  *fer^;ee*.asni"  ; 

Trajectory  Operation 

, ************************»***«******%****************** 

;  TrajesMC^  Generation  Routines 

. ******************************* ******************************#*********** 


.  ************************4 
;  NAME!  doPreMove 


******** 


*|k*******  *******************  ************ 


;  DESCRIPTION: 
doPreHove: 
CLRle  INTECai 


023D  2996 
023E  2997 


023F  6A5B 

0240  4A5F 

0241  6A5C 

0242  4A60 
024§  mtS^ 

0244  4AS1 

0245  8P93 

0246  8693 

0247  8593 

0248  eAC2 

0249  4A94 


CLRF 
CLRF 


INTEGRAL+BO 
INTEGRAL+Bl 


lfQV24  NMOVVAL.MOWAL 


MOVFP 
MOVPF 
MOVFP 
MOVPF 
MOVPP 
MOVPF 

bcf 

bs£ 

bsf 

movfp 

novpf 


NMOWAL+BO ,  wreg 
wreg,MOWAL+B0 
NMOWAL+Bl ,  wreg 
wreg,MOWAL+Bl 
msmKU*^2 ,  wrsg 
wreg.MOWAL-fBi: 

MOVSTAT.bit? 
M0VSTAT,bit6 
MOVSTAT ,  bi  t5 
ONE,  wreg 
wreg.HOVi^iAS 


;  move  buffer  to  MOWAL 

;  get  byte  of  NMOWAL  into  w 

;  move  to  MOWAL  (BO) 

;  get  byte  of  NMOWAL  into  w 

;  move  to  MOWAL  (Bl) 

;  get  byte  of  NMOWAL  intte  w 

;  move  to  MOWAL  (B2) 

;  clear  buffer  flag 

•  set  notion  status  flag 

;  set  move  in  progress  flag 

;  initialize  MOVEFLAG  to  1 


024A  2951 


clrf  OPOSIIfiOSF+gO 
POSITION,  OPOSITION+Bl 


initialize  buffers 


024B  6A55 
024G  4A52 
024D  6A56 


MOVFP  POS1T10N+B0,wreg 
MOVPF  wreg,OPOSITION+Bl+»e 
MOVFP      POSITION+Bl ,  wreg 


get  byte  of  POSITION  into  w 
move  to  OPOSITION+B1{BO) 
get  byte  of  POSITION  into  w 


9BB 


024E  4A53 
024F  eA57 
0250  4A54 


MOVPF  wreg,OPOSITI0N+Bl+Bl 
MOVFP  P0SITI0N+B2,wreg 


;  move  to  0P0SITI0N+B1(B1) 

;  get  byte  of  POSITION  into  w 

;i.mmm  to  oposiTia»»Bl(B2} 


Wsm2  OFOSITION.MOVPBOF 


0251  SASl 

0252  4AA4 

0253  6A52 

0254  4AA5 

0255  Si^3 

02S8  4A&7 


OPOSITION+BO.wreg 
wreg,MOVPBUF+B0 
OPOSITION+Bl , wreg 
wreg,MOVPBUF+Bl 

opessTi.@is*iSt<Mim 

0POSi¥iall+B3,wreg 


MOVFP 
MOVPF 
MOVFP 
MOVPF 
MOVFP 
MOVPF 
MOVFP 

MOVPF  wreg,M0VPBC^B3 


get  byte  of  OPOSITION  into  w 
move  to  MOVPBUF(BO) 
get  byte  of  OPOSITION  Into  w 
move  to  M0VPB(;f(B1) 

^^0mm£  oeosiTioN  into  w 
•mm  tof  iisiyPBOT(B2) 

get  byte  of  OFOSITIOI  into  w 
move  to  ]I0VPB0F(B3) 


0259  2995  olrf  SATFLAG 

CUil6  MOVTIMZ  il^' ■mear  i^i/Sea  tines 

025A2967  CLRF  MOVTIME+BO 

0258  2968  CUtF  MOVTIMB+Bl 


025C  29e& 
02SD  296B 


CLRF 
CUtF 


Tl+BO 

■n+Bi 


0  used  as  flag  £o£  no  maximum 


CliRlS 


T2 


025E  2960 
025F  296D 


CLRF 
CLRF 


CLR16  TAU 


T2+B0 
T2+B1 


CD^   ■      .  .V(J<t 

•  "I-  ■  ;  'i 


0260  296E 

02M.  29«F  -  •  J^- 


CLRF 
QUO' 


HOVSEL 


TAU+BO 
THT+Bl 


'-'I'  elieair  stove  d^si^i^-t»atl6n  eii^i 


0262  29B0 

0263  29B1 

0264  29B2 

0265  29B3 


CLRF  MOVDEL+BO 

CLRF  MOVDEL+Bl 

CLRF  M0VDEL+B2 

CLRF  M0VDEL+B3 


CLR16 


75 1  T^"VC>f! 


;  clear  ^uwe  2  flat  counter 


0266  29B4 

0267  2^5 


CLRF 
CLRF 


PH2FLAT+B0 
PS2FIAT'«'B1 


mm  mt% 
os<e»  csm 


tatfsz 
goto 


mode 


pmode 
M0VFP24 


HOVVSL.nCP 


<UWC  MC» 


026A  785F 
G36S  7960^-' 


MOVFP 
MOVFP 
MQIVFF 


MOWAL+BO ,  TMP+BO 
MOWAL+Bl ,  TMP+Bl 

Mov«Ur»B2 ,  neMMH 


;  move  MOWAL(BO)  to  TMP(BO) 
;  move  MOWAL(Bl)    to  TMP(Bl) 

tjfmuro  Movvfti.(B2)  to  nffiBS) 


02 6B  0276 


btfss 
goto 


THP+B2,t^ 
mvpos 


fl  inmi  llTrmi  Tl  in  T  umIi^i  I'm  ifi  i"**- 


mmmmm^awcm^  Mem 


NEG24      TMP  '       I . 


S3  67 

1.3]f« 

.1 

.  COHF 

MP+SO  -1- 

0276 

1319 

COMF 

TMP+Bl 

0271 

13U 

COMF 

TMP+B2 

0272 

2»0& 

CLRF 

wreg  ■< 

0273 

1518 

INCF 

TMP+BO 

0274 

1119 

ADDWFC 

TMP+Bl 

0275 

lllA 

ADDWFC 

TMP+B2 

;c 

;■■  i                                                    %ixii  li;; 
,:i  ;            -                                              lA.  »t. 

0276 

291C 

(iaitoir/t' 

eirf 

;  calculate   abs(IIUVWiI4>  -^3 

0277 

2910 

clrf 

MOVTMP+Bl 

1.  :r:    '          .     <  do  imnedlate  move  iC^mg^- 

tive 

1. 

,UF'  ' 

0278 

291E 

clrf 

M0VTMP+B2 

0279 

801C 

bsf 

MOVTMP+BO.bitO 

027A 

811C 

.  -Hi,-'  a 

bsf 
,  MOVEMP, 

MOVTMP+B0,bitl 
,TMP 

027B  6A1C 
027C  0518 
027D  6A1D 
027E  0319 
027F  6A1E 
0280  031A 


MOVPP 

SUBWF 

MOVFP 

SUBWFB 

MOVFP 


MOVTMP+BO ,  wreg 
TMP+BO 

MOVTMP+Bl, wreg 

TMP  +  Bl 

M0VTMP+B2,wreg 

'n(p+B2 


get  lowest  byte  of  MOVTMP 
sub  lowest  byte  of  TMP,  save 
get  2nd  byte  of  MOVTMP  into 
sub  2nd  byte  of  TMP,   save  in 
get  3rd  byte  of  MOVTMP  into 
sub  3rd  byte  of  TOP,  save  in 


0281  971A 

0282  C28E 

0283  2B90 

02«<  mm^- 

l)2«@  tt393 
02S6  8S93 


btfss 

goto 

setf 

elrf 

be£ 

bcf 


TMP+B2,MSB 

nonzero 

SERVOFLAG 

HOVSlW.blte 


;   check  for  zero  move 

;   set  servoflag  to  restore 


A0024      MOWAL,  POSITION 


0287  6A5F 

0288  0F55 

0289  SftSO 
028A  llSfi 

e2«s  safiii 


MOVFP 
ADDWF 

vimm 

ADDNFC 
MOVFP 


MOWAL+B0,wreg 
POSITION+BO 
KOWAL-i-ai  ,vama 

posiTicarfBl 

MOWAL+B2,vprag 
P0SITiai(+B2 


get  lowest  byte 
add  lowest  byte 
get  2nd  byte  of 
add  2nd  byte  of 
get  3rd  byte  of 
add  3cd  byte  of 


of  MOWAL 
of  POSITION, 
HOWM/  into 
POSITION, 
nOWJtL  into 
POSITION, 


028D  0002  return 
no^eco 

CUt32  MOWBQT 


02 8S  29A8 
028F  29A9 

0290  29AA 

0291  29AB 


CL^  HOWBOF+BO 

CtRF  MOWBUF+Bl 

CLRF  M0VVBUF+B2 

CLRF  M0VVBUF+B3 


0293  «MSl 
0293 

0294  4A69 

0295  29A3 


0296  6A20 

0297  4AA0 

0298  6A21 

0299  4AA1 
02 9A  6A22 
029B  4AA2 


MOV24 


iDov^  IIOVV>L4'B2,wreg 

andlw  0x80 

movpf  %n:eg,lfOVSIGN 


clrf 
VL,V 

IKWPF 
MOVFP 

MOVPF 
MOVFP 
MOVPF 


V+B3 


VLffBO.wreg 

wreg,V+BO 

VL+Bl,wreg 

wreg,V+Bl 
VL+B2 ,  wreg 
wreg,V+B2 


move  sign 


create  appropriate  velocity 
acceleration  limits  from 

get  byte  of  VI  into  w 
move  to  V(BO)  ,    t  _ 

get  byte  of  VL  into  w 

move  to  V(B1) 

get  byte  of  VL  into  w 

move  to  V(B2) 


4^ 


m9i»m  iiiiii'ii|iiiwiiiiwiijne. 


mmmmmmmmmmmmmmmm^mmmmm\     i  i  lu i  WMM— — ■ 


clr£ 

A+B3 

V  O-'^^    1ft' 'vol*  ?o 

AL,A 

T"  " 

02 9D  6A23 

BOVFP 

AL+B0,wreg 

;  get  byte  of  AL  into  w 

029E  4A9C 

MOVPF 

wreg,A+BO 

;  move  to  A(BO) 

029F  6A24 

MOVPP 

AL+Bl,wreg 

;  get  byte  of  AL  into  w 

02&0  4A9D 

MOVPF 

wreg,A+Bl 

;  move  to  A(B1) 

02A1  6A25 

JUj-fB2tWreg 

;  get  h^tm  o£  M  tni^  v 

02A2  4A9B 

W3re9,A+B2 

;  movia  Co  ]l(S2;) 

S3;:'' 

W. 

02A3  290A 

clrf 

wreg 

02A4  3259 

cpf sgt 

MOVSIGN 

02A5  C2B8 

goto 

mine 

NEG32 

V 

02&6i3.3H»*  .aA-.'VQiei 

v+BO              :>      ,  ..!■. 

02*7  mtar'  ■^  •.-"'Cl* 

-      :     -    ■  l 

V+Bl  ^ 

02M;i3ft2 

COMF 

V+B2 

02J19  ir3A3 

COMF 

V+B3 

02AA  2  9  OA  -h 

CLRF 

wreg 

02AB  15A0 

INCF 

V+BO        ,:■    .    ■  ■ 

02AC  llAl 

ADDWFC 

V+Bl 

02AO  11A2 

02AE  11A3 

ADDHFC 

V*S3 

NEG32  A 


02AF 

13  9C 

COMF 

A+BO 

02B0 

139D 

iJM'Bl                  u  -• .  •  .  1 V  ■  ov 

02B1 

139B 

4k<'B2                   fti  ta^ 

02B2 

13  9F 

^  'n 

•JM.B3  J 

02B3 

290A 

TdiA^'  - 

-wreg                  ?  - 

02B4 

159C 

INCF 

A+BO 

02B5 

119D 

ADDWFC 

A+Bl 

02B6 

119E 

ADDWFC 

A+B2                                 s  • 

02B7 

H9F 

ADDNFC 

A+BS 

■» 

(■  •!<  «.  ■r'l  w 

^<='  ** 

02BS 

2963 

clrf 

HMOWkL«B0 

evaltiate  MDWAL/2 

M0V24 

HOWAL ,  HHOWAL+Bl 

02B9 

6A5F 

<  MOVFP 

IfOWAL+BO.wreg 

get  byte  of  HOWAL  into  w 

02BA 

4A64 

MOVPF 

wreg,HtfOWAL+Bl+B0 

imVB  to  HHOWAL+Bl(B0) 

02BB 

6A60 

K0<9WkIrfBl ,  Wt*0 

1 

get  Igjf^'  of  HOWAL  into  w 

02BC 

4A65 

mam  to  hhowal+bkbi) 

HOVPf 

MSWKi+B2 ,  unres    '         ■  i 

get  byte  of  MjOOTait  ^Meo  « 

■mm 

4»m 

MOVPF 

wrag,BI«>VVAL+Bt»BZ-  ^ 

move  to  HHOV«Hrt^Me$>  L 

RRC32  HMOWAL 

?i  ; 

half  move  in  Q8 

02BF 

1A66 

RLCF 

aiomAL+B3,W  -S" 

new*  siiga  istiO  earty  bit 

02C0 

1966 

RRCF 

HM0VVAL+B3 

02C1 

1965 

RRCF 

HM0WAL+B2 

02C2 

1964 

RRCF 

HMOWAIrfBl 

1  r  mc 

02C4 

C2FE 

goto 

modeready 

02C5 

yao6iB 

btfse 

HODBTyPE.HSB 

is  it  torg^e  aeve? 

goto 

tmode 

Mam  teiMtaDof  a  eo^tisti  Mobfr 


02C7 

2966 

clrf 

HMCIVWi+B3 

iim4 

02C8 

6A5F 

MOWAL-f  BO ,  wreg 

02C9 

4A63 

MOVPF 

wreg,HMOWAL+B0 

02CA 

eAeo 

MOVFP 

MOWAL+Bl,wreg 

02CB 

4A64 

MOVPF 

wreg ,  HMOWAL+Bl 

02CC 

6A61 

MOVFP 

M0WAL  +  B2  ,  wreg 

02CD 

4A65 

MOVPF 

wreg ,  HM0WAL+B2 

:-  Je:  \  ^ 

02CE 

9F61 

btfsc 

M0WAL+B2,MSB 

02  CF 

2B66 

setf 

HM0WAL+B3 

SUB32 

MOWBUF 

HMOWAL 

02D0 

6AA8 

MOVFP 

MOWBUF+BO ,  wreg 

02D1 

0563 

SDBWF 

HMOWAL+BO 

0202 

eAA9 

iravFP 

MOWEOF+Bl ,  wreg 

02D3 

0364 

SUBHFB 

BliOVV3a,+Bl 

02D4 

6AAA 

MOVFP 

M0WBDF4-B2 ,  wreg 

02D5 

0365 

SUBWFB 

HM0WAL+B2 

02D6 

6A%B 

MOVFP 

M0WBUF+B3 ,  wreg 

02D7 

0366 

SUBWFB 

HM0WAL+B3 

02D8 

eAee 

movfp 

HM0WAL+B3 ,  wreg 

02D9 

B580 

andlw 

0x80 

02ak  ms  9 

movpf 

wreg.MOVSna? 

02Iffi 

29A3 

clrf 

V+B3 

I)K>V24 

VL,V 

02DC 

6A20 

MOVFP 

VIj+BO  ,  wreg 

02DD 

4AA0 

MOVPF 

wreg,V+B0 

02ns 

6A21 

MOVFP 

VIi+Bl,wreg 

02IS'  4M1 

MOVPF 

wreg,V+Bl 

02EO 

6A22 

MOVFP 

VL+B2  ,wreg 

02E1 

4AA2 

MOVPF 

wreg,V+B2 

02E2 

299F 

clrf 

A+B3 

IKIV24 

02E3 

6A23 

MOVFP 

AL+BO,wreg 

02E4 

4A9C 

MOVPF 

wreg,A+BO 

02E5 

6A24 

fl- 

MOVFP 

AL+Bl ,  wreg 

02E6 

4A9D 

MOVPF 

wreg, A+Bl 

02E7 

6A25 

MOVFP 

AL+B2 ,  wreg 

02BS 

ic 

MOVPF 

wreg,A+B2 

02E9 

290A 

clrf 

wreg 

02EA 

3269 

cpfsgt 

MOVSIGN 

02EB 

goto 

moderea^ 

IIE632 

V 

02BC 

13A0  n 

-  trvon 

■  COMF 

V*SO 

02ED 

13A1 

cem 

V+Bl 

02EE 

13A2  - 

COMF 

V+B2 

02EF 

13  A3 

COMF 

V+B3 

02F0 

290A 

CLRF 

wreg 

02F1 

15  AO 

INCF 

V+BO 

02F2 

llAl 

ADDWFC 

V+Bl  ^■ 

02F3 

11A2 

ADDWFC 

V+B2 

02F4 

11A3 

ADDWFC 

V+B3 

ccnpute  final  mimia  initial 

gefc  t^e  of  ICQMO.  Into  w 

move  to  HMOWALiBO) 

get  byte  of  1I9VVAL  into  w 

move  to  HMOWAL  (Bl) 

get  byte  of  MOWAL  into  w 

move  to  HMOWAL  (B2) 

■5,  ^  •/■  ■ 


get  lowest  byte 
sub  lowest  byte 
get  2nd  byte  of 
sii&Kjtod  byte  of 
gee'3rd  byte  of 
sub  3rd  byte  of 
get  4th  byte  of 
sub  4th  byte  of 


of  MOWBUF  into  w 
of  HMOWAL,  save  in 
MOWBOF  into  w 
HHOWAI.,  •MMijUIA- 
MOWBOF  lne«  • 
HMOWAL,  save  in 
MOWBUF  into  w 
HMOWAL,  save  in 


,1.  .  %>■  - 

H/r; 

create  iqppropriate  velocity  and 
acceleration  linits  from  move  sign. 

get  byte  of  VL  Into  w 
move  to  V(BO) 

g^i^fta  of  VL  into  w  I  0%' 

wsm'.'ee  V(B1)  i :". 

get-'^lKte  of  VL  into  w 

:eo  v(B2) 


;  get  isyte  of  AL  into  w 
;  move  to  A(BO) 

;  get  byte  of  AL  into  w 
;  move  to  A(B1) 
;  get  byte  of  AL  into  w 
;  mGHraC  to  A(B2)  •'•■3  9Ei 

,     ;i  *!■ 
•.'.»  », 


NEG32 


02F5  139C  COMF  A+BO 

02F6  139D  COMF  A+Bl 
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Control  of  a  DC-Brush  Motor 


oaf?' 

02F9 
02FA 

02FB 
02FC 
02FD 


139K 
13  9F 
398A 
159C 

119D 
119E 
119F 


02FS  29«2 
02FF  9F61 
0300i,«Bfiap<n 

03011. 3B90 


COHF  A-I'B2 

COMF  A+B3 

CLRF  wreg 

INCF  A+BO 

ADDWFC  A+Bl 

ADDWFC  A+B2 

ADDWFC  A+B3 
nodesm^ 

drf  HQVVAL+B3 

btfac  iKwaa^ta, 

amtf '  1fSV«Ht+B3 


sebf ' 


set  servoflag  to  restore 
i£  stopped 


if 


_P1CMASTER_DEBUG 


For  PldfASTBR  Debug/servo  tuning  p^orses  only  Purposes  Oaly 

testCapCount 

0302  6ABC  movfp  CAPCOUNT+BO.wreg 

0303  08BD  iorwf       CAPCOUNT+Bl , W 
030*J<ttHMc^    ••o   .d    -            movpf      teeg.^ypFU^'   -  •) 


0305  0002 


return 


tmode 

MOVie  MOWAL+Bl.YPHH 


torque/voltage  mode 
set  new  comnvuRileii  imJiue 


0306  6A60 

0307  0188 

0308  6A61 

0309  0189 


MovFs  nbwAiiH-Bit-BO  ,ms*a 

MovKF  rsm*ao 

HOVFP  MOWAL-fBl+BlrWeg 

MOVWF  -xsiaftBi 


;         byte  of  MOWAL+Bl  into  w 
!  neve  yphm(BO) 
;  gat  byte  of  MOWAL-tBl  into  h 
;  loove  to  YPm(Bt) 


030A  2990 
030B  B50B 
030C  2994 
030D  8D93 

030E  C302 


if 


else 


•ndif 


Olrf  SERVOFLAG 

'Catll'  ''■■%:mws0im 
clrf  mwtjus 
bof  MOVSTAT.bitS 
_PICMASTER_DEBUG 
goto  testCapCount 

return 


disable  servo 

set  pwm  duty  eyele 


****************** 


[************************************************ 


********************************************************************* 
doMOva  t>vr:rvi 


DESCRIFTION]    In  poeitlOD  med».  <iiM|$M0UUt'%eiweB  ax*  p^fozned.  Phasel 
and  {tose2  regg^ectivaly,  it£#'*l9ie  periods  for  the  first  and 
second  halves  &t  the  move.  The  move  time  is  defined  as  zero 
at  the  beginning  of  the  move,T2  is  the  time  at  half  the 
move,  Tl  is  the  time  when  c 
;  begins, (the  region  of  constant  velocity  reduces  to  a  point 

;  in  the  case  where  maximum  speed  is  not  realized,  and  the 

;  trapezoidal  move  degenerates  into  a  trianglular  move, 

i-  together  with  T1=T2),  and  TAD  is  the  total  time  of  tba  move. 

•■'f-,  -  the  accelerations  are  +-AL  or  0. 

j^'i  <«•-- 


triangle  speed 


trapezoidal  i^eed 


4-235 


/    \  /  V  ' 

/     \  ■  w  \ 

/  \  :■■         i/^  \ 

/  \  /  \ 

0       T1=T2     TAU  0  Tl  T2  TAD 


Let  X  denote  the  undershoot  and  y  the  overshoot  ccaniiailded 

at  adjacent  sairple  times  as  half  the  move  is  crossed. 

In  the  case  of  a  triasgular  move,  the  discretization  acr^r 

is  given  by 

error  =  min  (2x,2y) 

Per  a  ^^pazetdal  move;  the  discretization  error  is 

error  =  min  (2x,y-x)  <•  .5*  (maximum  cemuoided  speed) 

This  discretization  error  is  resolved  in  the  final  sample 
time  of  the  move  by  executing  a  step  to  the  final  position 
at  zero  spMlS«         mtbod  eoployed  here  the  best  possible 
perfoxBiSBsa  wl^' regard  to  discretization  error  without 
dynamically  modifying  velocity  and  acceleration  limits. 


■  -1  HIJT .    T.  - 

-■\'  -■  1 


In  velocity  mode,  ramp  moves  are  performed. 

/•ifinal  VBlocity 

/ 

...  / 
'/■ 
/ 

initial  velocity  / 

0  SIUT 


030F  290A 

0310  1567 

0311  1168 

0312  B468 

0313  3391 
0314<«Utl 

0315  6AC2 

0316  3194 

0317  C3DB 


0318  7CB0 

0319  7DB1 
031A  7BB2 
03 IB  7FB3 

031C  6A51 
031D  4AB0 
031B  6A52 
031F  4AB1 


I1IC16  MOVTIHB 


CLRF 


wreg 

(NOVTIHB)  +B0 
UffiHFC     (MOVTIME)  +B1 

call  doPosVel 
tstfsz  MODETXPB 


.i»-rsfli..i'.. 


phasel 


pmovB  ■•  T  ■  .10  ■ 

movfp  ONE,  wreg 

cpfseq  MOVFLAG 

goto  phase2 

MOVFP32  MOVDEL.HOVTMF 

3IBV0f<i  .li@ig3igr^,MOVTl(P+B0 

MOVFP  MOWSriBl.llOVTHP+Bl 

MOVFF  HOVDEL+B2,HDVralP4.B2 

MOVFP  M0VDEL+B3 ,  M0VTMP+B3 

MOV32  0POSITI0N,M0VDEL 

MOVFP  OPOSlTION+BCwreg 

MOVPF  wreg,MOVDEL+B0 

MOVFP  OPOSITIOII«Bl,wreg 

MOVPF  wreg.MOVDEL'fBl 


;  increment  move  time 


evaluate  iterative  equations 


test  if  in  phasel 


save  previous  discretization  error 
move  IKWDB.(BO)  to  MOVHSfBO) 
man  I(OV]m(Bl)  to  IKnnniP(Bl) 
;  move  M0VDEI.(B2)  to  I«}VT)IF(B2) 
move  M0VDEL(B3)   to  HDVTIIF(B3) 
test  if  half  move 
get  byte  of  OPOSITIOtJ  into  w 
move  to  MOVDEL(BO) 
get  byte  of  OPOSITION  into  w 
move  to  MOVDEL(Bl) 
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« 1M3  MleR«h|pMHnala8)F  Inc. 


tsrvd  CofrifbOCif  a  D(^€^sli  Motor 


mo  fii^3 

0322  6A54 

0323  4AB3 

0324  6A63 

0325  OFBO 

0326  6^64 

0327  llBl 

0328  eA65 

0329  11B2 
032A  6*«J^.,. 
032B  1163' 

032C  6AA4 
032D  05B0 

asm  SMS 

632F  03B1 

0330  6AA6 

0331  03B2 

0332  6AA7 

0333  03B3 

0334  9769 

0335  C33F 


0336 
0337 
0338 
0339 
033A 
033B 
033C 
033D 
033B 


13B0 
13B1 
13B2 
13B3 
290A 
15B0 
llBl 
11B2 

11^ 


033F  97B3 

0340  C3A5 

0341  6A6A 

0342  oseB 

0343  330A 


0344  C378 


0345 
034S 
0947 
0348 
0349 
034A 
034B 
03  4C 
034D 

034E 
034F 
0350 
0351 
0352 
0353 
0354 
0355 
03S6 
0357 
0358 
0359 


139C 
139D 
139E 
139F 
290A 
159C 
119D 
119E 
119F 

6AB0 
OFIC 
6AB1 
HID 
6AB2 
lllE 
6AB3 

C36E 
2B6C 
2360 


1  i»«.«ri'< 


MOVFP 
W3VSV 
MOVFP 
MOVPF 
ADD32 
MOVFP 
ADDWF 
HCWPP 
JffiOHFC 

iKme 

ADOHFC 

MOVFP 

ADDWFC 

SDB32 

MOVFP 

SUBWF 

KOIVFF 

SDBWFB 

MOVFP 

SUBWFB 

MOVFP 

SUBWFB 

btfss 

goto 

NEG32 

COMF 

COMF 

COMF 

COMF 

CLRF 

INCF 

ADDHFC 

ADDtQng 

ADDHJ'8 

mposl 

btfss 

goto 

TFSZ16 

MOVFP 

lORWF 

TSTFSZ 


wr  eg ,  HOVDBti+K 

0P0SITI0N+B3 , wreg 
wreg,M0VDEL+B3 
HMOWAL.MOVDEL 

HMOWAL+BO ,  vnreg 

MOVDEL+BO 

ffllSVVM>*Sl,wag 

IBSfVSfBri'Bl 


■M  to 

M  In 


r.g  f/ 


iiovDra.+B2 

HM0WAL+B3 ,  Wreg 
M0VDEL+B3 
MOVPBUF ,  MOVDEIi 

MOVPBUF+BO.wreg 

MOVDEL+BO 

MOVPBOF+Bl ,  wreg 

NOVDEL+Bl 

M0VPBnF+B2  .weg 

M0VDEL+B2 

M0VPBUF+B3,  vnreg 

M0VDEL+B3 

HOVSIGN.HSB 

nposl 

MOVDBL 

MOVDEL+BO 

MOVDEL+Bl 

M0VDEL+B2 

M0VDEL+B3 

wreg 

HOVDEL+BO 

HOVIffiil-BS 

M0VDEL+B3,MSB 

speedup 

Tl 

Tl+BO,wreg 
T1+B1,W  , 
wreg 


t2netl 
A 

A+BO 
A+Bl 
A+B2 
A+B3 
wreg 
A+BO 
A+Bl 
A+B2 
A»B3 

MOVDSCMOVTHP 
HOVDEL+BO , wreg 
MOVTMP+BO 
MOVDEL+Bl ,  wreg 
MOVTMP+Bl 
H0VDEL+B2,wreg 
1K>VTHF+B2 
M0VDEL+B3 ,  wreg 

ll3Vra0+B3,HSB 

triok 

T2+B0 

T2+B1 

A 


get  byte  of  ePOSITION  into  w 
move  to  MCnMS^  (B3)  ,^ 
get  Jsgfite  of  OSOSmm  int©j«,.  . 
Biovs  to  MOVDEL(B3)  ":.„ 

;  get  lowest  byte  of  HMOWAL  into  w 
add  lowest  byte  of  MOVDEL,  save  in 

r  get  2nd  byte  of  HMOWAL  into  w 
add  2nd  byte  of  HOVIKL,  save  in 
get  3rd  byte  of  aiOWAL  into  w 
add  3rd  byte  of  MOVDEL,  save  in 
get  4^  l>yte  of  raiOVViai  Into  w 
aM        byte  of  MOVdSII.  si^^|a. 


get  lowest  byte 
slib  lowest  byte 
get  2nd  byte  of 
sub  2nd  byte  of 
get  3rd  byte  of 
sub  3rd  byte  of 
get  .4tb  byte  of 
su|>  '-^ih  byte  of 


of  MOVPBUF  into 
of  MOVDEL,  save 
MSDVPBUP  into  w 
lfCnn>EL,  save  in 
MOVPBUF  into  w 
MOVDEL,  saye  in 
MOVPBUF  ini 


JF  intg  .nr  . 


3»tC> 


continue  to  speed  up  if  in 
if  Tl^o,  laaximum  velecttgf  & 


reached, 

bas  been  set  in  ^ocaiia? 
negatjp  A  for  speeddottt 


aiA.  ctio 

ItaV  IS'.  -: 

T.ai  idto 

test  x-y  <  0 

get  lowest  b^e  of  HOVDEL  into 
add  lowest  b^e  of  HOVTHP,  save 
get  2nd  byte  of  MOVDEL  into  w 
add  2nd  byte  of  MOVTMP,  save  in 
get  3rd  byte  of  MOVDEL  into  w 
add  3rd  byte  of  MOVTMP,  save  in    -  ^ 
get  4  th  byte  of  MOVDEL  into  w 
add  4th  byte  @t  HUV^HP,  saveVin 
if  new  disca»£ixatloe  «cror  larger, 
ISSitdoa?  to  define  T2,  elflm^g^ 
s^  m=-l  fox  bacte^  ujj^ 

Qjpate  A  to  undo  ^^^^ 
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035A 
03SB 
035C 
035D 
035E 
035F 
0360 
0361 
0362 
0363 


13  9C 

lih' 

13  9E 
139F 
290A 
159C 
119D 
119E 
119F 
E48A 


0364  139C 

0365  139D 

0366  139E 

0367  139F 

0368  290A 

0369  159C 
036A  119D 
0368  119E 


036E  6A67 
036F  0F6C 

0370  eAes 

0371  1160 


0372 
0373 
0374 
037S 
0376 
WTf 

0378 
0379 


6A6C 

oieA 

6A6D 
016B 
1594 

'Bsm 

2B6C 
2ASD 


t2netl 


037A  6A«7 
037B  0P6C 
037C  6A6S 

037D  116D  '■ 

037E  781C 
037F  791D 

0380  7A1E 

0381  7B1F 

0382  8804 

0383  IBIC 

0384  IBIO 

0385  IBIB 

0386  IBIF 

0387  6A18     ;  '    ,  ' 

0388  OFIC    ■  " 

0389  6A19 
038A  HID 
038B  6A1A 
038C  HIE 
03  SO  6A1B 

63f|i  '  ■ 

0391  6AB1 

0392  HID 


COKF 

A+BO 

COMF 

COMF 

A+B2 

COMF 

A+B3                    .  ^ 

CLRF 

wreg  _ 

INCF 

A+BO 

ADEWFC 

A+Bl 

ADDWFC 

A+B2 

ADDWFC 

A+B3 

call 

undoPosVel 

A 

catsr' 

A+BO 

COMF 

A+Bl 

COMF 

A+B2 

COMF 

A+B3 

CLRF 

wreg 

INCF 

A+BO 

ADDWFC 

A+Bl 

ADDWFC 

A+B2 

.APDNFC 

A+B3 

call 

doPosVel 

triok 

ADD16 

M0VTIME,T2 

MOVFP 

MOVTIME+BO , wreg 

ADDWP 

T2+B0 

MOVFP 

MOVTIME+Bl , wreg 

ADDHFC 

T2+B1 

M0V16 

T2,T1 

MOVFP 

T2+B0,Hrag 

MOVWF 

Tl+BO 

MOVFP 

T2+Bl,vn:eg 

MOVWF 

Tl+Bl 

incf 

MOVFLAS 

goto 

mvok 

setf 

T2+B0 

eetf 

T2+B1 

ADDie 

M0VTIME,T2 

MOVFP 

HOVTIME+BO ,  wr  eg 

ADDUF 

T2+B0 

ME>VTIMB+B1 ,  wreg 

T2+B1 

MQ><nwp,7iip 

w^W' 

MDVTMP+BO ,  TMP+BO 

MOVFP 

MOVTMP+Bl , TMP+Bl 

MOVFP 

M0VTMP+B2 , TMP+B2 

MOVFP 

M0VTMP+B3 ,  TMP+B3 

BLC32 

HOVTMF 

BCF 

„carry 

RLCP 

MOVTHP+BO 

RLCF 

MOVTUP+Bl 

KLCF 

M0VTMP+B2 

RLCF 

M0VTMP+B3 

ADD32 

TMP ,  MOVTMP 

MOVFP 

TMP+BO, wreg 

ADDWF 

MOVTMP+BO 

MOVFP 

1KP+Bl,Hreg 

ADDWFC 

HOVTOP+Bl 

MOVFP 

'niP+B2 ,  wreg 

ADEWFC 

M0VTMP+B2 

MOVFP 

TMP+B3 , wreg 

ADDWFC 

M0VTMP+B3 

ADD32 

MOVDEL,  MOVTMP 

MOVFP 

MDVDEL+BO ,  wreg 

ADDS*' 

MDVTMP+BO 

MOVFP 

MDVSSi+Bl ,  wreg 

addhPc 

MOVTMP+Bl 

■  .  - :  <H 
1-1  <  1 


it  I : 


!  neg^ile  A  again  for  speeddown 


and  reevaluate  iterative  equations 

;   add  time  to  T2 
get  lowest  byte  of  MOVTIME  into  w 
add  lowest  byte  of  T2 ,   save  in 
get  2nd  byte  of  MOVTIME  into  w 
a^TSjjd  byte  of  T2,  save  in  T2(B1) 

get  byte  of  T2  into  w 
move  to  Tl(BO) 
get  byte  of  T2   into  w 
move  to  TKBl) 
increment  move  flag  for 
eKecata  last  phasel  move 

set  T2=-l  for  backup 

add  time  to  T2 

get  lowest  byte  of  MOVTIME 

add  lowest  byte  of  T2,  save 

get  2nd  byte  of  MOVTIME  into 

add  2nd  byte  of  T2,  save  in  T2(B1) 

test  if  3x-y  <  0 

move  MOVIMP(BO)  to  TMPtBO) 

move  MOVTMP (Bl)    to  TMP(Bl) 

move  MOVTMP  (B2)   to  TMP(B2) 

move  MOVTMP (B3)    to  TMP(B3) 


get  lowest  byte 
add  lowest  byte 
get  2nd  byte  of 
add  2nd  byte  of 
get  3rd  byte  of 
add  3rd  byte  of 
,^et  4  th  byte  of 
a^  <th  byte  of 


3«it  lowBst  byte  of  MS^BEL 
atik^^owaat  "l^e  of  MEWEHP, 
get''2Bd  byte  of  HOVDEI,  into 
a<Sa  2nd  byte  of  MOVTMP,  save 


of  TMP  into 
of  MOVTMP, 
THP  i>M:o  w 
MOVTIQ^,  save 
TMP  into  w 
MOVTMP,  save 
TMP  into  w 
MOVTMP, 
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0393  6AB2  . 

got  3xd  byte  of  MOVDSi  Intdi-  i' 

0394  lllB 

'ADDMFC 

IK3VTMP+B2 

add'  S'rd  Isyte  of  ssvit 

0395  6AB3 

MOVFP 

M0VDEL+B3 ,wreg 

; 

get  4th  byte  of  MOVDEL  into 

0396  lllF 

ADDWFC 

M0VTMP+B3 

; 

add  4th  byte  of  MOVTMP,  save 

0397  971F 

btfss 

M0VTMP+B3,MSB 

; 

if  new  discretization  error 

0398  C39B 

goto 

trapok 

; 

tedce  one  more  flat  st^ 

0399  2BB4 

setf 

PH2FLAT+B0 

039A  2BB5            lie  o' 

set£-  Ml 

I>B2FLAT«B1:'  1  .  ' 

ADD16 

T2,PH2FLAT 

039B  6A6C 

MOVFP 

T2+B0,wreg 

; 

get  lowest  byte  of  T2  into  w 

039C  0FB4 

ADDWF 

PH2FLAT+B0 

; 

add  lowest  byte  of  PH2FLAT, 

03 9D  6A6D 

MOVFP 

T2+Bl,wreg 

; 

get  2nd  byte  of  T2  into  w 

039E  11B5 

ADDWFC 

PH2FLAT+B1 

; 

add  2nd  byte  of  PH2FLAT, 

1*1,  PH2  FLAT 

6il6A 

■:T1+B0,wreg 

; 

get  lowest  byte  of  7|l  into  w. 

03X0  05B4 

.; 

a^ttvlicNOBt  \fit»  of  'M^SASEA'iAii  . 

03A1  6A6B 

MOVFP 

Tl+Bl,wSag 

; 

#et  2&a  byte  of  Tl  l^to  w  ^loe 

A.; 

03A2  03B5 

SUBWFB 

PH2FLAT't'Bl 

; 

sub  2nd  byte  of  PH2FLAT, 

03A3  1594 

incf 

MOVFLAG 

; 

increment  move  flag  for 

03A4  C3CB 

goto 

nrvok 

; 

execute  last  phasel  move 

speedup 

MOVFP32  V.MOVTMP 

; 

test  if  maximum  velocity 

03A5  7U0 

HDVFF 

v*BO,mmm*ma 

v 

mSCHC-VlBO)   to  liOVTHP(BO)  kS>.'. 

03AS  TOM 

MOVFP 

V+B1,M0V«IP+S1 

./> 

move  V(B1)  to  UOVmPtBl)    Tl'  : 

03A7  7EA2 

MOVFP 

V+B2  ,M0VTMP+B2 

move  V(B2)  to  I(0V«P{B2) 

03A8  7FA3 

V+B3,MOVTMP+B3 

move  V(B3)  to  MOVTMPIBt) 

SXJB32 

MOWBUF ,  MOVTMP 

03A9  6AA8 

MOVFP 

MOWBUF+BO ,  wreg 

get  lowest  byte  of  MOWBUF 

03AA  051C 

SUBWF 

MOVTMP+BO 

sub  lowest  byte  of  MOVTMP, 

MOVFP 

mwBi^+Bi .  Hsetr 

9»^.!t>A  byte  ef  MOWBUF  into.:  - 

03AC  031D             .  /  * 

MOVTMP+Bl 

.■J 

stds  2nd  byte  of  MOVTMP,  save' 

^^  - 

03AD  6AAA 

1  -  MOVFP 

M0WBUF+B2 ,  wreg 

get  3rd  byte  of  MOWBUF  into 

03AE  031E             1  , 

SUBWFB 

M0VTMP+B2 

sida  3rd  byte  of  MOVTMP,  save 

03AF  6AAB           i.  - 

MOVFP 

M0WBUF+B3 ,  wreg 

^t  4th  byte  of  MOWBOT  into 

03B0  031P 

SUBWFB 

M0VTMP+B3 

S^mSI^  tvte  of  WSmSB,  save  in 

03B1  9769 

btfss 

MOVSIGN.MSB 

mm  C  3BC 

.  1 

■  4 

nEG32 

V  - 

03B3  131C 

COMF 

MOVTKP+BO 

03B4  131D 

COMF 

MOVTMP+Bl 

COMF 

M0VTMP+B2 

03E6  131F 

COMF 

MDVTMP+B3 

03B7  290A 

CLHF 

vireg 

03-B9  ISlC                    i  ■:-\ 

.^JSH^. ... 

it  11 

1  "icn.. 

w 

O'^i.-staa-  (Or    ■)  ■ 

Q3BA  113.S: 

JUSMFG! 

HOVTMPtBa 

Dill) 

03BB  11 IF 

ADDMFC 

IIDVTMP+B3 

npos 

03BC  971F 

btfss 

M0VTMP+B3,MSB 

03BD  C3CE 

goto 

mvok 

if  not,  execute  move 

.111  -W^M 

Tl 

If  so,  cbecdc  to  see  if  Tl 

0^  SAfiA  , 

Tl+BO ,  wreg 

OSra*  OSfiB             ■  ■,if:  V,. 

lOKMF 

T1+B1,W  K'jx.u^ 

03Cd  33dA 

TSTFSZ 

wreg 

already  been  set 

03C1  C3CE 

goto 

mvok 

03C2  E48A 

call 

undoPosVel 

if  not,  backup  and  redo 

CLS32 

A 

equations,  resulting  in  an 

03C3  299C 

CLRF 

A+BO 

csxr 

A+Bl 

a«£c 

03CS  299B 

CLRF 

A+B2 

ail3  Sltr 

03C6  299F 

CLRF 

A+B3 

03C7  E468 

call 

doPosVel 

maximiun  speed  <a  VX, 

03C8  2BeA 

setf 

Tl+BO 

evaluate  Tl                         ■  ! a  . 

03C9  2B6B 

setf 

Tl+Bl 

13-  ■.■■V 

ADD16 

MOVTIME.Tl 

03eft  mSl         Jta  :c  ,  ■\- 

KaVFSj 

^MDVTIMB.'i'B^tW^s) 

• -sior'.'.*.; 

get  lowest  byte  of  MOVTIME 

63CB  0F6A 

ADDWF 

Tl+BO 

add  lowest  byte  of  Tl,  save 

4^39 


03CC 

6  AS  8 

MOVFP 

MOVTIME+Bl , wreg 

get  2nd  byte  of  MOVTIME  into 

03CD 

lies 

ADDWFC 

Tl+Bl 

add  2nd  byte  of  Tl,   save  in 

tip. 

MOVPBUF-^Bl  /  POS  J'KE  W 

dicni^  "QS  caic|ilated  position 

03CB 

6AAS 

HOVFP 

MOVPBUF+Bl  hkBO  /  WTsg 

get  byte  of  MOVPBUF+Bl  into 

OacF  4AS5 

wreg, POSITION+BO 

move  to  POSITION  (BO) 

0360 

MOVFP 

MOVPBUF+Bl+Bl , wreg 

get  byte  of  MOVPBUF+Bl  into 

4A30 

V  XT  C 

wreg, POSITION+Bl 

move  to  P0SITI0N{B1) 

DAA/ 

MOVFP 

M0VPBUF+B1+B2 , wreg 

get  byte  of  MOVPBUF+Bl  into 

03p3 

4A57 

MOVPfi" 

wreg, P0SITI0N+B2 

move  to  POSITION {B2) 

M0\/0  A 

move  QO  calculated  velocity 

t 

nuifvw'  ■ 

X3UV  V         TlaU'T>Sv  f 

03]D5 

4A50 

inoVtB  to  VELOCITY(BO)  •■'f*3 

03D6 

6AA9 

iroVFP 

nvj  vvDur  tdu+dj.  ,  eg 

get  byts  of  MOWBUF+BO  Into 

031)7 

4A59 

MOVPF 

ijirr<a^   \/irr  fVTTY+RI 

move  to  VELOCITY {Bl) 

03D8 

6AAA 

niJVViaUC  T-DU-rO^  «  Wx 

«ot-   Vnrl*o          MflWRtTP+RO  int"ri 

03D9 

4A5A 

MOVPF 

wreg f  v£51Aa.x  i  x 

JUk^VV            V'&UUVA^i  IDA  1 

03DA 

0002 

return 

'"■il  '4'  mQ   ^  ■     s  < 

PB2PUkT  *■ 

IS  ^xa^  section  cxnisneur 

03DB 

6AB4 

PH29EAT+B0  f  wirog 

03DC 

08B5 

TORWF 

r>iJlt?T  nnt-LDl  w 
irriZ  exjt\  L  +iS±  ,  W 

03DD 

330A 

J.  b  i  t  bZ. 

wreg 

03DE 

C3FF 

goto 

flat 

MOWBUF 

IS  vsxocity  zero? 

03DP 

SAAB 

MOVFP' 

-MOWBUF+BO  rwrog*  '  ~ 

a3E0 

08A9 

MOVVBWP+Bl, If '  ' 

03E1 

HOWBOF+^frViW  • '-' ■       'f*^  ' 

03E2 

08AB 

lORWF 

MOVVBUF+^3 ,  W 

03E3 

330A 

TSTFSZ 

wreg           '  • 

03E4 

C41C 

goto 

mready 

if  not,   execute  move 

03E5 

2994 

clrf 

MOVFLAG 

if  so,   clear  MOVFLAG 

03B6 

8B»3 

bc£ 

MOVSTAT , bi  t€ 

clear  motion  status  flag 

03E7 

tBm. 

bef 

HOVSTAT  f  Sl'Cs 

clear  move  in  progress  £la#i'"  ' 

A 

set  'zwro  velocity  euid  acceXMAtlHa, 

03E8 

299C 

CXiRF 

A+BO 

03E9 

299D 

CIiRF 

A+Bl 

03EA  299E 

CXjRF 

A+B2 

03EB 

299F 

CLRF 

A+B3 

■  •( 

•Pl 

M0V16 

OSBC 

MOVFP 

£fi>VTIME+BO ,  wxsg 

get  byte  of  IfOVTIIIE  into  w 

'0>i.m 

PRJVrIc 

TAU+BU 

mov«i  to  TAU(BO) 

03SE 

SA68 

MUv  r  f 

MOVTIME+Bl , wreg 

get  byte  of  MOVTIME  into  w 

03EF 

OlSF 

PlKJWtC 

TAU+Bl 

move  to  TAU(Bl) 

UrUb  i  i  i  UN , MUv FoUr 

execute  last  move  to  P(0)+MOWAL 

03F0 

6A51 

MOVFP 

urub  ILL  uiN+iju ,  wr  eg 

get  byte  of  OPOSITION  into  w 

03P1 

4AA4 

wreg,  wuvFcUr  +iaU 

move  to  MOVPBUF(BO) 

get  byte  of  OPOSITION  into  w 

osrj 

4AA5 

MOVPF 

wreg ,  mu  v  irisujr+ox 

mova  to  MOVPBnP(Bl) 

03P4 

6  AS  3 

nonQTTTnMxR*?  TiTT-oiT 

\jtr^o±  1  xunxo^  ,  wxeg 

get  byte  of  OPOSITION  into  w 

03F5 

4AAe 

I  -  ■  - 

move  to  M0VPBOT'(B2) 

03F6 

6AS4 

MOVFP 

S.^t^V.'ID  X  1  X  \JVi  ^IDJ  ,WXtr^ 

get  byte  of  OPOSITION  into  w 

03P7 

4AA7 

MOVPF 

i.r>-&/-t  \fr\\  rum  tt?  j-r  T 
wirey  ,       v  risur  +i5  j 

move  to  H0VPBDF(B3) 

ADD24 

MOWAL .  MOVPBUF+Bl 

03V!8-  SIM 

■HOWAXff  BO ,  vnr«g 

get  lowest  l^te  of  MOVW.  iato 

H 

03F9 

<ms 

Mftw  ti  iiif ig  A.n  1  ^ftn 

nU  V  Jr  BU  JTt-O  XtOU 

■  am  Invest  isyte  of  msVVSaF*Mt', 

03FA 

6A60 

-ificyy^p 

nUV  VAu+BX  f  mXOg  -"^  * 

•  get  2(kd  byte  of  inWM.  into  w 

03FB 

11A6 

HuvFoUf -t-BX+Bl 

aiSdI'i&id  liyte  of  UOVFBOF+Bl,  save  in 

03PC 

6A61 

HDVFP 

nvj  V  VALt+B^  (  wf og 

ge€  3^  l^yte  of  MOWAL  into  w 

03PD 

11A7 

ADDWFC 

MOWDBTTTJ'A'ftl  xtl?  ^ 

■  add        byte  of  MOVFBDF+Bl,  save  in 

03FE 

C41C 

goto 

mready 

03FF  2B1C 

Mtf 

HOmfP-i-BO 

At  •  " 

0400 

2B1D 

setf 

HOVTMP+Bl 

Jfc  ^  " 

ADD16 

MOVTMP,  PH2FIA$T   '      '  ' 

■  OeeAiaent  by  one  use  DEC16 

0401 

6A1C 

MOVFP 

MOVTMP+B0,wres  •       '  • 

get  laewsst  byte  of  HOVTHP  into 

w 

0402 

0FB4 

ADDWF 

PH2FLAT+B0 

a^  tewBst  byte  of  PH2FliAT,  save  in 
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0403 

SAID 

MDVFP 

geHt  aid  byte  of  WSmSte 

into  w 

0404 

11B5 

ADDHFC 

PH2FLiW4-Bl 

add  sad  byte  of  PlQKdra 

,  save  in 

TFSZ16 

PH2FLAT 

0405 

eAB4 

MOVPP 

PH2FLAT+B0,wreg 

0406 

03B5 

lORWF 

PH2FLAT+B1,W 

0407 

330A 

TSTFSZ 

wreg 

■'  r 

0408 

C41C 

goto 

mready 

tJia  ■ 

0409 

299F 

clrf 

A+B3  ■^■.♦••s 

be^kl3q?eed  down  aaetloB 

Ct  s 

MOV24 

AI„A                            S' • 

040A 

6A23 

MOVFP 

AL+BO,wreg  ; 

get  byte  of  AL  into  w 

' '  ' 

040B 

4A9C 

MOVPF 

wreg,A+BO  ; 

move  to  A(BO} 

'-; . 

040C 

6A24 

MOVFP 

AL+Bl,wreg  ; 

get  byte  of  AL  into  w 

04  OD 

4A9D 

MOVPF 

wreg,A+Bl  ; 

move  to  A{B1) 

040E 

6A25 

MOVFP 

AL+B2 , wreg  ; 

get  byte  of  AL  into  w 

040F 

*>m 

M  oaai  uA- 

wreg,A+B2     •>.    -  •  ii, .' V- -Rs 

maWWSe  A(B2) 

0410 

390» 

'.eljSf'.-r- 

wreg        -i-  -  ■ 

-• iVoe 

0411 

31C9 

w  oypit 

u 

0412 

C41C 

I  ! 

goto  -  "■ 

Tivr- 

■ 

NEG32 

A  -l,.iA'-.:^'. 

■-. .  ..• 

0413 

139C 

COMF 

A+BO            .  --J    -  .^^  ;:  • 

-  '7 

■ 

0414 

139D 

COMF 

A+Bl 

0415 

139B 

COMF 

A+B2 

:  I- 

0416 

139P 

COMF 

A+B3 

0417 

390A 

CljRF 

m:eg                 i  ,  ".ft  "iM 

041 S 

159C- 

;<. 

WCF 

A+BO           •  ■, . 

■TO-' 

'->?» 

0419 

119D 

ADDWFC 

A+Bl 

04  lA 

119E 

ADDWFC 

A+B2 

041B 

119F 

ADDWFC 

A+B3 

MOV24 

MOVPBOF+Bl , POSITION 

04tC 

m^s 

HOVFP 

MOVFBQF-)>Bl+BOi,%IBa0r  v-.-!; 

Oc. 

041I> 

4%55 

MOVPF 

wreg,  FOSITION+BO         '  <; 

matN  to  POSITION (BO) 

^'  • 

041E 

eAA6 

MOVFP 

MOVPBUF+Bl +B1 , wreg 

get  byte  of  MOVPBUF+Bl 

into  w 

041F 

4A56 

MOVPF 

wreg, POSITION+Bl 

move  to  POSITION  131) 

0420 

6AA7 

MOVFP 

MOVPBUF+Bl +B2, wreg        -  ; 

get  byte  of  MOVPBUF+Bl 

into  w  ' 

MOVPF 

wreg,  P0SITI0N+B2  •« 

iiK>v«  «o  FOSITION  (B2) 

A  '  . 

M0V24 

MOWBUF+BO ,  VELOCITY 

0432 

CMS 

MEIVFP 

MOWn^'+BO4^BO,«a»0  ; 

g«t  bsf^  of  mimmm*sB 

'iaifa.  m 

0423 

4X58 

MOVPF 

nmW  «o  VELOCITY  (BO) 

0424 

eAA9 

MOVFP 

MOWBUF+BO+Bl  ,wreg 

get  byte  of  MOWBUF+BO 

into  H 

0425 

4A59 

MOVPF 

wreg, VELOCITY+Bl  ; 

move  to  VELOCITY (Bl) 

0426 

6AAA 

MOVFP 

MOWBUF+BO +B2,  wreg  ; 

get  byte  of  MOWBUF+BO 

into  w 

0427 

4A5A 

MOVPF 

wreg , VEL0CITY+B2 

mows  to  VBL0CITy(B2) 

0428 

0002 

vmov 

return 

-  -"  r.-a 

- 

.a-.-.'.J-Tlet«,|!»T3r 

■- 

I  ; 

H0VFF32 

l«)VV»Ii,1iOVTIIF"  "'^-c-t; 

t«Mt'if  final  velocity  reached 

0429 

765F 

MOVFP 

MOWAL+BO ,  MOVTMP+BO 

move  MOWAL(BO)    to  MOVTMP(BO) 

042A 

7DS0 

MOVFP 

MOWAL+Bl ,  MOVTMP+Bl 

move  MOWAL(Bl)    to  MOVTMP  (Bl) 

042B 

7B61 

MOVFP 

M0WAL+B2  ,  M0VTMP+B2 

move  M0WAL(B2)  to  M0VTHP(B2) 

042C 

7F62 

MOVFP 

M0WAL+B3  ,  M0VTMP+B3 

move  H0WAL(B3)   to  HDVTMP(B3) 

SUB32 

MOWBUF.MOVTMP 

Q43B 

".      C  i 

.  MUB^ 

get  lowest  byte  of  MOWBUF  into 

« 

042B 

osic 

SOBHF 

HOVfMP+BO 

snb  lowest  byte  of  MOVTMP,  save 

la 

042F 

6AA9 

MOVFP 

HOWBUF+Bl.wrag  ; 

ge^.  2ad  bj/iem  of  MOWBDF 

into  w 

0430 

03  ID 

SUBWFB 

MOVTMP+Bl 

stib  2»d  byte  of  movthp, 

save  in 

0431 

6AAA 

MOVFP 

M0WBUP+B2 ,  wreg  ; 

get  3rd  byte  of  MOWBUF 

into  w 

0432 

031E 

SUBWFB 

M0VTMP+B2 

sub  3rd  byte  of  MOVTMP, 

save  in 

0433 

6AAB 

MOVFP 

M0VVBUF+B3 , wreg 

get  4th  byte  of  MOWBUF 

into  w 

0434 

031F 

M0VTMP+B3  ( 

sub  4th  byte  of  MOVW^, 

0435 

9769 

btfsa 

MOVSIQN.MSB 

0«3« 

G4A0 

goto 
NBG32 

MOVTMP 

0437 

131C 

COMF 

MOVTMP+BO 

0438 

131D 

COMF 

MOVTMP+Bl 

0439 

131E 

COMF 

M0VTMP+B2 

043A 

131F 

COMF 

M0VTMP+B3 

043B 

290A 

CLRF 

wreg 

043C 

151C 

INCF 

1C3VTMP+B0 

4^2A^ 


Senrd  ^tuioi'af  a  ©^Unsfi  Motor 


043D 

HID 

•mmm*si,,  ..     ■ ' 

-IH 

043E 

HIE 

043P 

lllF 

ADDWFC 

M0VTMP+B3 

0440 

971F 

btfss 

M0VTMP+B3,MSB 

0441 

C45B 

goto 

vmovGOJc 

;   if  not,  continue 

CLR32 

A 

;  if  so,  set  A=0  and  continue  with 

0443: 

8f9E    i . 

;      _3           -  - 

A+BO 

-/  , 

0443 

CLRF 

A+Bl 

0444 

2#9B 

w  ^3 til  _/ 

CLRF 

A+B2 

0445 

299F 

•■'1  -<  ■   ^  •'■ 

CLRF 
MOV32 

A+B3 

MOWAL.MOWBUF 

;  move  unless  the  final  velocity 

0446 

6A5F 

MOVFP 

MOWAL+B0,wreg 

;  get  byte  of  MOWAL  into  w 

0447 

4AA8 

MOVPF 

wreg ,  MOWBUF+BO 

;  move  to  MOWBUF(BO) 

0448 

6A60 

msmm 

MOWAL+Bl ,  wreg  OI->  ,^ ,  ;^ 

;  get  byte  of  MOWAL  into  w  le/,.' 

0449 

4AA9 

MOVPF 

wreg ,  MOWBUP+83. 

;  move  to  MOWBUF(Bl) 

C 

0441k. 

6AE1 

MOWP 

M0WAL+B2 ,  Jur^ 

;  gefe  jjj^'te  o£  MOWAL  iato  w 

04«» 

4AAA 

MOVPF 

wr  eg ,  M0VV^W+B2 

•  ;  mova  to  MOWBOTIBa) 

04 4C 

6AS2 

WNT? 

M0WAL+B3,wreg 

;  get  byte  of  MOWAL  into  w 

044O 

4A«B 

JKJVPF 

wreg ,  M0WBUF+B3 

; 

;  move  to  M0WBOP(B3) 
;   is  zero. 

044E 

2994 

clrf 

MOVFLAG 

;   clear  MOVFLAG 

044F 

8D93 

bcf 

MOVSTAT.bitS 

;  clear  move  in  progress  flag 

M0V16 

HOVTIME.TAU 

r 

0450 

mm 

IfiJVFP 

MOVTIME+BO ,  wreg 

-    ;  get  Isyfce  of  MOVTIKB  iato  w" 

0451 

016E 

MOVWF 

TAU+BO 

;  move  to  TAU(BO) 

0452 

MOVFP 

MOVTIME+Bl ,  wreg 

;  get  byte  of  MOVTIMB  into  w 

0453 

016F 

MOVWF 
TFSZ32 

TAU+Bl 
MOWAL 

;  move  to  TAU(Bl) 

0454 

6A5F 

IKJVFP 

MOWAL+BO.wreg 

04iS' 

OMIlL.'flJ: 

MOWAli+Bl„M            ■  ir_" 

04  5  S 

08S1 

lOBMF 

MOWAL+BZjW        '  - 

0457 

0862 

M0WAL+B3,W 

0458 

330A 

cwreg 

0459 

C45B 

;goto  1 

VBoveok 

045«. 

SS93 

'  ".f  .  VI  ' .    -  '. 

■■bcf 

MDVSTAT,bit6 

;  if  final  velocity  is  zerO/  &%mett 

;  motion  status  flag 

MOV24 

MovPBUF+itt ,  ^mcam 

045B 

eAAS 

MOVFP 

MOVPBUF+Bl+B0,wreg 

•  get  byte  of  MOVSBOF+Bl  into  w 

045C 

4A55 

MOVPF 

wreg,  POSITION+BO 

;  move  to  POSITION  (BO) 

045D 

6AA6 

MOVFP 

MOVPBUF+Bl+Bl ,  wreg 

;  get  byte  of  MOVPBUF+Bl  into  w 

045E 

4A56 

MOVPF 

wreg, POSITION+Bl 

;  move  to  POSITION  (Bl) 

a45F 

6AA7 

MOVFP 

MOVPBUF+Bl +B2 , wreg 

;  get  byte  of  MOVPBUF+Bl  into  w 

0460 

4A57 

MOV^ 

wreg,  PQ$IVI<a;«B2 

;  move  to  P0S1TI«»I(B2) 

IK)V24  ' 

-MOWBOT+BO  i  VES0C2W 

0461 

6AA8 

MOVFP 

MOVVBUF+B0+B0,wreg 

;  get  byte  of  MO'S'VSOFi'BO  int6  «r 

0462 

4A58 

MOVPF 

wreg ,  VELOCITY+BO 

:;  move  to  VELOCITY  (BO) 

0463 

eAA9 

MOVFP 

MOWBUF+BO+Bl ,  wreg 

;  get  byte  of  MOWBUF+BO  into  w 

0464 

4  AS  9  - 

MOVPF 

wreg , VELOCITY+Bl 

;  move  to  VELOCITY (Bl) 

0465 

6AAA 

MOVFP 

MOWBUF+B0+B2  ,wreg 

;  get  byte  of  MOWBUF+BO  into  w 

04«S*s#®afi'.'«"/VCM  lo  a3S.<  :f-a»M9VM>';  «wre!g,VBL0ClW-tsB2 ^'-aV'sBii;  B>8'*e'"«o  VEL0CITY(B2)  Q'.f- 
r.i  rii  fi  or  ■• 
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Servo  Control  of  a  DC-Brush  Motor 


. ********************************** 


********** 


*********** 


,******************** 


*  *******'«'**********»*********************** 


I  KMSSi  doPosVel        ■■  •••  •    ■ 

•  DeSQtlFTIOli    Bvalnates  the  lt«;«tlvie  eqpwtiens  for  trtgpezol^l 


V(k)=V(k-l)+A, 


P{k)=P(k-l)+V(k-l)4-A/2, 


where  abs  (A)  =  {AL/ 0)  depending  on  the  region  of  the 
being  executed. 


d^oaVel 


0468  eAAS 

0469  0FA4 
046A  6AA9 
046B  llKk 
046C  6AAA. 
046D  HAS 
04S8  SAAB 
04SF  11&7 


0470  6A9C 

0471  OPAS 

0472  6ft9I>«>  oir.t  Hje^^KH 

0473  llA*    -   •  ^jiT-f.. 

0474  6A9E 

0475  llAA 

0476  6A9F 

0477  llAB 


ADD32  MOWBUF.MOVMW 

MOVFP  MOWBUF+BO.wreg 

ADDWF  MOVPBUF+BO 

MOVFP  MOWBUF+Bl.wreg 

AinMFC  MOVPBOF+Bl 

MOVFP  JiOWBl7F'<-B2,wreg 

BOWS*  •  MOWJKP+BS  (Wjsejfi  TV 

ADDWPC  M0VPBUF+B3 

ADD32  A.MOWBUF 

MOVFP  A+BO,wreg 

ADDHF  MOWBDF+BO 

PjXX^PC  ttOWBUF+Bl 

MOVFP  A+B2,wreg 

ADDWFC  MOWBUF  +  B2 

MOVFP  A+B3,wreg 

ADDWFC  M0WBOT'+B3 


P  (le- 
ge t 
add 
get 
add 
get 

am 

add 


1)+V(k-1) 
lowest  byte 
lowest  byte 
2nd  byte  of 
2nd  byte  of 
3rd  byte  of 

tH&i  iS^e  of 
4th  byte  of 


of  MOWBUF  into  w 
of  MOVPBUF,   save  in 
MOWBUF  into  w 
MOVPBDF,  save  in 
MOWBOT  into  « 
MDViiE^,  save' is 
HOWItW  into  w 
MOVPBUF,  save  in 


;  V(k)=V(k-l)+A 
get  lowest  byte  of  A  into  w 
add  lowest  byte  of  lfi>VVBUF,  save  in 
g)^v%ld  liyte  of  A  txa»  w    fiM4  M*u 
aaas-'aad  byte  of  MOVVBOF,  sMaairnvto 
get  3rd  byte  of  A  into  w 
add  3rd  byte  of  MOWBUF,  save  in 
get  4th  byte  of  A  into  w 
add  4th  byte  of  JXSWmSF,  save  in 


0478  7C9C 

0479  7D9D 
047A  7B9B 
047B  7F9F 


MOVFP  A-fBO  ,  MOVIWP+BO 

MOVFP  A+Bl ,  MOVTMP+Bl 

MOVFP  A+B2 ,  M0VTMP+B2 

MOVFP  A+B3 ,  M0VTMP+B3 


^  •  iij.i .  ^cMt  Ml— Wlie  h/2 

1  move  A(BO)  to  MOVIMPtSO) 

;  move  A(B1)  to  M0VTMP{B1) 
;  move  A(B2)  to  M0VTMP(B2) 
;  move  A(B3)    to  M0VTMP(B3) 


047C 

047D  19tF 
047E  191E 
047F  191D 
0480  191C 


RRC32 

KLCF 

RRCF 

RRCF 

RRCF 

RRCF 


MOVTMP 

Mwmip+B3 

M0VTMP+B2 
MOVTMP+Bl 

MOVTMP+BO 


noWB  sign  into  carry  bit 


0491  fiKlC 
04«2  0FA4 

0483  6A1D 

0484  11A5 

0485  6A1E 

0486  11A6 

0487  6A1F 

0488  11A7 


'""■fvor 


ADD32 
MOVFP 

ADDiar 

MOVFP 

ADDWFC 

MOVFP 

ADDWFC 

MOVFP 

AKWEC 


MOVTMP,  MOVPBUF 

wivvie*ao  ,iioB»g  i 

HDWPBOF+B*  -  ■  nf^ 

MOVTMP+Bl, wresr  } 

MOVPBUF+Bl  ; 

M0VTMP+B2,wreg  ; 
M0VPBUF+B2 

M0VTMP+B3 ,  wreg  ; 
mVPBOF+BS 


;  P(k)=P(k-l)+V(k-l)+A/2, 
gmt  Icwcse  bgfte  of  MQVIMP  iiiSie  « 
»aS-l'OMest  brte  of  MOVPBUF,  save 

get  2nd  byte  of  MOVTMP  into  w 
add  2nd  byte  of  MOVPBUF,  save  in 
get  3rd  byte  of  MOVTMP  into  w 
add  3rd  byte  of  MOVPBUF,   save  in 
get  4th  byte  of  MOVTMP  into  w 
add -4th  byte  of  MOVKTOF,  save  in 


in 


0489  0002 


retuxnr 
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^gsMef^mW^smsmh  Motor 


r************************************************ 


********* 


t***** ************************************************ *********** 

NAME:  undoPosVel 

DBSCRIPTION:    Bacdofaxd  iteration  of  Uie^«iqeif«&ions  for  treq^ezoidal 
g&asctk.tioa 


Vtk-l)=V(3c)-A, 


P  (k-1 )  =P  (k)  -V  (k-1 )  -A/2 , 


where  abs (A) = {AL, 0}  depending  on  the  region  of  the 
being  executed.  This  routine  is  used  to  reverse  a 
to  be  made  beymd  a  decision  point. 


undoPosVel 


048A 

6A9C 

048B 

05A8 

SUBWF 

048C 

6A9D 

'SUBWFB 

048S 

JKUVJfX' 

048P 

S0BHFB 

0490 

6A9F 

Vf  It 

0491 

03AB 

OiJDVIC  a 

SUB32 

0492 

&m 

HOVF? 

0493 

SOBWF 

0494 

6AA9 

MOVFP 

0495 

03AS 

SUBWFB 

0496 

6AAA 

MOVFP 

0497 

03A6 

SUBWFB 

0498 

6AAB 

MOVFP 

0499 

03A7 

SDBI^B 

MOVPP3: 

049A 

7C9C 

MOVFP 

049B 

7D9D 

MOVFP 

049C 

7E9E 

MOVFP 

049D 

7F9F 

MOVFP 

J 

I!RC32 

049E 

lAlF 

RLCF 

049F 

191F 

RRCF 

04A0 

191E 

RRCF 

04A1 

191D 

RRCF 

04A2 

191C 

RRCF 

•1  ..-1151  (Kivot: 

04A3 

6A1C 

..   ■■-  p.-ij   SIT  .  (t 

04A4 

05A4 

04A5 

6A1D 

MOVFP 

04A6 

03A5 

SUBWFB 

04A7 

6A1E 

MOVFP 

04A8 

03A5 

SUBWFB 

04A9 

6A1F 

MOVFP 

03A7 

SUBWFB 

04AB 

0002 

return 

A.MOWBUF 
A+BO , wreg 
MOWBUF+BO 
A+Bl,wreg 
MOWBUF+Bl 
A+B2  ,wreg 
M0WBUF+B2 
A+B3 , wreg 
M0WBUF  +  B3 

MOWBUF.MOVPBUF  ; 
MOWBOF+BO ,  wreg- ; 
MDVPBUF+BO  ; 
MOWBUF+Bl, wreg  ; 
MOVPBUF+Bl  ; 
M0WBUF+B2 ,  wreg  ; 
M0VPBUF+B2 
M0VVBUF+B3,wreg  ; 
MDVPB0F+B3  ; 


V(k-l)=V(k) -A 
get  lowest  byte 
sub  lowest  byte 
get  2nd  byte  of 

^■rsfd  ^*  of 

sub  3rd  byte  of 
get  4th  byte  of 
sub  4th  byte  of 

P(k)-V(k-1) 
•get'  lowest  byte 
sub  lowest  l^vte 
get'  2nd  byte  of 
sub  2nd  byte  of 
get  3rd  byte  of 
sxib  3rd  byte  of 
get  4th  byte  of 
Mb  *tii  byte  of 


of  A  into  w 

of  MOWBUF,  save  Sfii'l  t«>' 
A  into  w 

save  In 


MOWBUF, 
A  into  w 

MOWBOT, 
A  into  w 
MOWBUF, 


save  m 


I. .A*  on:' 
lA.'l  a<»»" 
nAi',1  sat'. 
IS.' 


save  in 


of  HOWBOF  into  w!!** 
of  MOVPBDF,   save  " 
MOWBUF  into  w 
MOVPBUF,  save  in 
MOWBUF  into  w 
MOVPBUF,  save  in 
MOWBUF  into  w 
MSVPKIF,  save  in 


(■  t 


A.MOVTMP 
A+B0,MOVTMP+B0 
A+B1,M0VTMP+B1 
A+B2,MOVTMP+B2 
A+B3,MOVTMP+B3 

HOVTMP 

M0VTMP+B3,W 

M0VTMP+B3 

M0VTMP+B2 
MOVTMP+Bl 
MOVTMP+BO 

.o  - 

■myrswr+BO  '.a 

MOVTMP+Bl ,  wreg 

MOVPBUF+Bl 

M0VTMP+B2 ,  wreg 

M0VPBUF+B2 

M0VTMP+B3,wreg 

H0VFBUF+B3 


;  confnite  A/ 2 

;  move  A(BO)   to  MOVTMP(BO) 

;  move  A(B1)   to  MOVTMP(Bl) 

;  move  A(B2)    to  M0VTMP(B2) 

;  move  A<B3)    to  M0VTMP(B3) 


m6ve  sign  into  carry  bit 


i'-'Mk-D-F  (k)  -V(k-l)  -A/2, 

sue 'towBSt  byte  of  MOVIHF  into  w 
f  SUB'<S6weg%  ;^e  of  HOTOBDF,  save  ih 

;  get  2nd  byte  of  MOVTMP  into  w 
;   sub  2nd  byte  of  MOVPBUF,  save  in 
;  get  3rd  byte  of  MOVTMP  into  w 
;  sub  3rd  byte  of  MOVPBUF,   save  in 
;  get  4th  byte  of  MOVTMP  into  w 
;  sub  4th  byte  of  HOVPBUF,  save  in 
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e  1983  mmMfftrnmumriK. 


Servo  ControPdf  a  DC-Brush  Motor 


if  _SERVO_PID 

include  *pid.asin'  ;   PID  Algorithm 

.*************************************** 


********  *************** 


;  .  PID  Servo  In^lementation 

fl  nini      ^.^  It    -Jv  -as,    ■  9«T^  "' 


********;******#*******  *********%## 

NAME:  doSecvo    in  "Vry. 

tSSCRIPnoH:    Peffozais  "Uie  servo  loop>e*ISulalifSgH. 


H  .1  ■  -J 


doServo : 


mils  6ft7  9 

04AB  6A7A 
04AF  0185 


e4B0  7C84 

em  ims 

04B3  7F27 
04B4  E12B 

04B5  5880 
04B6  5981 
04B7  5A82 
04B8  5B83 
04B9  290A 
04BA  3295 
04BB  B552 


M0V16  POSERROR.UO 

MOVFF  FOSERRC»t+B0,wreg 

HOVI^  UO+BO 

MOVFP  POSERRQR+Bl.wreg 

IfOVWF  tJO+Bl 


..J Iff  ax 

■-/rl    .o'>  I 


LOADAB 

KJVFP 

HOVFP 

MOVFP 

MOVFP 

call 

MOVPP32 

MOVPP 

MOVPF 


elxf 

cpfsgfi 

call 


UO,KP 

U0+BO,AARG+B0 

KP+BO ,  BAKS+BO 
KP-l'Bl,B»(S4'Bl 

Enult 

DPX.Y 
DPX+BO, Y+BO 
DPX+B1,Y+B1 
QPX4-B2,¥+B2 
m>X.*-B3,'t*Vi 
weg 
SXTFUte 
do Integral 


save  new  position  error  in 
gat  fa|^  at  BOSQ®^  w 
nowe  ee  BO(M»  »"«!*  P""  : 

get:4i^e  of  POSERRQR  into  w'' 
mcnr«lKo  UO(BI) 

conpute  KP*UO 

load  lo  byte  of  UO  to  AARG 
lead:%i  byt»  of  tJO  t&  lOtmS&r-  t..^"' 
load  io  tyte  o#'i^:ce  iMIBt 
lolnS'lil  byte  of  KP  to  Bilita 

Y=KP*UO 

move  DPX(BO)    to  Y(BO) 
move  DPX(B11   to  Y(B11 
w3<m.■mm■k'Bt^  to  Y(^i         QBSa  tr^/i' 
ncwl»X(B3)  to  y(B3)  f f^"  : 

i£:^)iM«rloas  otttput  saturated,  do 
aet'ttecmniilate  integrator 


04BC  7C96 
04BD  7D97 

Mm  7^ 

mm  itsi 

O4C0  E12B 


04C1  eAis 
04C2  OFSO 

04C4  1181 

04C5  6A1A 
04C6  1182 
04C7  eAlB 
04C8  1183 


Oic9  70B4 
04CII  7DS5 


mtSOlB  INTEGRAL,  KI 

WSWW  INTEGRAL+BO,AARG+BO 
INTEGRAL+Bl.AASG+Bl 

HEiVVP  Kl+BS.BASart'BS  ' 

MOVFP  Ki+Bl.KRa^'Bl 

call  Ettiult 

ADD32  DPX,Y 

MOVFP  DPX+BO, «reg 

ADDWF  Y+BO 

MOVFP  ia>X+Bl,«a:eg  ^ 

SDDWFC  y+Bl 

MOVFP  DPX+B2 ,  wreg 

ADDWPC  Y+B2 

MOVFP  DPX+B3,va:eg 

MSMFC  y+B3 

tio.miis 

mqvfp  ii0+b1,mrs«b1  '> 


conjJUte  KI*INTEGRAL 
load  lo  byte  of  IMTEGRAL  to  AARG 
load  hi  byte  of  INTEGRAL  to  AARG  ' 
load  lo  byte  of  KI  to  BM&tW^  »T'U 
load  hi  byte  of  KI  to  S«»ai<>?'t  >^t  f) 


Y=KP  *UO+KI * INTEGRAL 

get  lowest  byte  of  DPX  into  w 

add  lowest  byte  of  Y,   save  in  Y(BO) 

ge^aad  byte  of         into  w 

aadrSnd  byte  of  Y,  save  in  YTBl) 

get  3rd  byte  of  DPX  into  w 

add  3rd  byte  of  Y,   save  in  Y(B2) 

get  4th  byte  of  DPX  into  w 

add  4th  byte  of  Y,  save  in  Y(B3) 


«V*(II0-W1)  tSM*  ICf 

rsO{BO)  te  »M»(MO)  <»'- 
;jfe(Bl)  to  AJWSfBl)  -  tO' 


04CB  6A86 
04CC  051C 
04CD  6A87 
04CE  03 ID 


SUB16  Ul.AARG 

MOVFP  Ul+BO,wreg 

SUBWF  AARG+BO 

MOVFP  Ul+Bl,wreg 

SDBWFB  AARG+Bl 


;  get  lowest  byte  of  Ul  into  w 

;  sub  lowest  byte  of  AARG,   save  in 

;  get  2nd  byte  of  Ul  into  w 

;  sub  2nd  byte  of  AARG,  save  in 


4^45 


Servo  Control  of  a  DC-Brush  Motor 


M0VFP16 

KV, BARG 

04CF  7S28 



MOVFP 

KV+BO ,  BARG+BO 

;  move  KV(BO)    to  BARG(BO) 

04D0  7F29 

MOVFP 

KV+B1,BARG+B1 

;  move  KV(Bl)    to  BARG(Bl) 

04D1  B12B 

call 

Etnult 

ADD32 

DFX,  Y 

;   Y=KP*UO+KI*mTEGRAL+KV*  (UD-Ul) 

04D2  6A18 

" "  ■  ■  ■  •  *  ■  • 

Maws-  - 

04D3  0F80 

3I»#.    -  -le-y  ■ 

>  adtd  lowest  Isyte  of  Y,  aava  ia  ¥(B0) 

04D4  6A19 

MOVFP 

BPX+Bl.Mreg 

;  get  2nd  byte  of  DPX  into  w 

04D5  1181 

ADDWFC 

Y+Bl    ■  "    ■  ■■'    •  • 

f  a€d  %d  byi^  o£';Y,  sbue  in  Y(B1) 

04D6  6A1A 

MOVFP 

DPX+B2 , wreg 

;  get  3rd  byte  of  DPX  Into  w 

04D7  1182 



ADDWFC 

Y+B2 

;   add  3rd  byte  of  Y,   save  in  Y(B2) 

04D8  6A1B 

MOVFP 

DPX+B3 ,  vnreg 

;  get  4th  byte  of  DPX  into  w 

04D9  1183 

ADDWFC 

Y+B3 

;  add  4  th  byte  of  Y,  save  in  Y(B3) 

M0V16 

U0,U1 

;  push  errors  into  U(k-l) 

MOVFP  • 

;  get  byte  o#  «>■  into  w 

04&B  OlSS 

MDVWF 

Ui+BO 

;  move  to  Dl  (BO) 

04DC  6A85 

MOVFP 

XJO+Bl>wreg 

;  get  iyte  of  OO  Into  w 

04DD  0187 

MGVWF 

■Bl+si-  ; 

;  IttOvS"  't©  tJiL'(  Bl )      I ' 

04DE  290A 

clrf 

wreg 

04DF  32B9 

cpf sgt 

SHIFTNUM 

04E0  C4E9 

goto 

grabok 

04Sa  7^9 

movfp 

SKIFm)H,TMP 

toisrabloop 

Y 

04E2  8804 

BCF 

_carry 

04E3  1B80 

r,l   r.:  ■-■  --i,7.:)H  " 

RLCP 

Y+BO 

04E4  1B81 

RLCF 

Y+Bl 

04E5  1B82 

RLCP 

Y+B2 

0«Mt  1883 

Y+B3 

»mW  1718.  , 

tsip                ;  : 

O1IE8  G4a2o.x«A  -. -1  atl  54  ••■  •'.I 

.  gcablo^     s  -.  ^  ir 

<  ■ 

04E9  2995 

clrf 

SATFIAG 

04EA  9F83 

btfso 

Y+B3,MSB 

;   saturate  to  middle  16  bits, 

04EB  C4P9 

goto 

negs 

;  keeping  top  10  bits  for  pwldcH 

ISMW  -  -    ■  1 

;  and  pwl^^v  iti 

live: 

04EC  6A82 

.  movfp 

Y+B2,wreg 

;  check  if  Y  >*•  2**23 

■  iie^ 

04ED  B580 

;andlw . 

0x80 

ZSAc 

04EE  0983 

.  il        o  J    !  " 

lorwf 

Y+B3 

fr-M 

04EF  29aA 

clrf 

wreg 

04P0  3283 

-  R            1        ^  'if 

cpf sgt 

Y+B3 

04F1  C505 

goto 

zero6bits 

;   if  not,   zero  6  bits 

04F2  1595 

incf 

•   if  so,   set  Y=0x007FFFFF 

04F3  2983 

,  clrf 

V+B3 

;  clear  for  debug  purposes 

04F4  B07F 

OieTF"' 

nlj' 

04P5  4A82 

BloVpf 

wregil^*®;-  - 

04F6  2B81 

■!  c.  -.  1     ■■  -  ■-■ 

setf 

Y+Bl 

04F7  2B80 

setf 

Y+BO  •. 

Ml:       :           ■  ■ 

04F8  C505 

goto 

zero6bits 

negs 

04F9  eA82 

movfp 

Y+B2,wreg 

;  check  if  Y  <=  -2**23 

04FA  B37F  ■ 

,  iorlvr 

Ox7F 

04FB  0B83 

andw£i 

Y+B3 

04FC  2B0A 

setf 

wreg 

04FD  3083 

opfislt 

Y+B3 

04FE  C505 

goto 

zero6bits 

;  if  not,  zero  6  bits 

04FF  2B95 

setf 

SATPLAG 

;  if  so,  set  Y  =  0xPF800000 

setf. 

tY+B3 

OSOl  2982 

clrf 

Y*B2 

0502  8782 

1  .  :-  Ji;  1  •  u;. 

■  Y+B2,MSB 

0503  2981 

Y+Bl  '■■ 

0504  2980 

clrf 

Y+BO 

zeeefiislts 

MOV24 

Y+Bl , YPWM+BO 

;  move  Y  to  YPWM  and  zero  6  bits 

0505  6AS1 

MOVFP 

Y+Bl+B0,wreg 

;  get  byte  of  Y+Bl  into  w 

0506  inm. 

MDVPF 

wreg, YPWM+BO +B0 

t  move  to  YPWM+BO  (BO) 

asm  m0i  w 

•  MOVFP 

Y+Bl+Bl,wreg 

;  ge/ti  hyte  of  Y+Bl  into  w 

MDVPF 

wreg, YPWM+BO+Bl 

;■  tamm  to  YPWM+BO  (Bl) 
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Senl#  OaoMMi^m'^lGiiWtm^  Mem 

I  -  -  .  -  t  -  I       1  ■IWI«l»MW!MW'»MWMMMWiMMWI» 


0509  6K»3  mSVFP     T<-Bl+a3«iirag'vKr;Vigilir'.S]fe^^'<VIWt  into  w 


1  j&0Ss^^^s^  ^ 

.  i#<MW<^poifie  fi»r  torqaa  moae  ' 

050B  BOCO 

novlw 

OxCO 

050C  0B88 

andwf 

YPWM+BO 

c  ■: 

050D  9F89 

btfsc 

YPWM+B1,MSB 

s . 

050E  C516 

goto 

tml  imi  t 

f  9.-  . 

tpliaiit 

050F  9692 

btfss 

EXTSTAT,bit6 

OSIO  C51CS  .< 

1.;    i  1 

goto 

nplimitok 

•,..t!  T*cC 

CLR32 

YPWM 

,            .              -  ...    :  ,', 

0511  2988 

cta^ 

0512  29S9 

¥PHIf»Sl 

0513  298A 

CLRF 

YPWM+B2 

0514  298B 

CLRF 

YPWM+B3 

e 

0515  CSIC 

goto 

nplimitok 

01- 

tailiinic 

:-r       ...                              i>«;o  a»-o 

0516  9592 

btfBS 

EXTSTAT,bit5 

0517  CSIC 

goto' 

nplinitok 

C.",Jl£...      li.',  . 

CLR32 

YPWM 

.  ;            r'-  - 

0518  2988 

CLRF 

YPWM+BO 

0519  2989 

CLRF 

YPWM+Bl 

051A  298A 

CLRF 

YPHM+B2 

051B  298B 

•CHtF  ■  ■  ' 

TfPVOJ+BS 

B^limitok 

SfSlC  B07P 

•atntlv 

"1'  MS^biHiM^'         Mi)61tut  to  tralpolaz 

05IS 

movpf 

vnreg.TMP+Bl 

051B  BOCO 

movlw 

PW1DCL_1NIT 

051F  4A18 

movpf 

wreg,TMP+BO 

ADD16 

TMP, YPWM 

0520  6A18 

MOVFP 

TMP+BO,wreg 

;  get  lowest  byte  of  TMP  into  w 

0521  0F88 

AODNF 

YPWM+BO 

;  add  lowest  byte  of  Tmm,  ssvs  in  YPWM  (BO) 

0S22  «ai9 

'•a;  .'9tti>iaH4  MtiSKoC  lie?  into  w 

0523  1189 

YFH«+B1 

,         2nd  byte  of  XPIOt,  save  in  YFtO!(Bl) 

0524  2919 

clrf 

TMP+Bl 

..  (  cotrect  by'  1  LSB 

0525  B040 

movlw 

0x40 

;  add  one  to  bits  of  pwldcXi 

0526  4A18 

h  • 

movpf 

wreg,TMP+BO 

ADD16 

TMP , YPWM 

0527  6A18 

MOVFP 

TMP+BO ,  wreg 

;  get  lowest  byte  of  TMP  into  w 

05a<  0FS8 

ASEWF 

XPMI«BO 

;  add  lowest  kyte  of  WMUf  am*  itt  llJMMtWH 

0529  fiJU.9 

MOVFP 

niP+Bl.wreg 

;  get  2nd  byte  of  VI0  into  w 

052A  1189 

tPm^Bt  - 

<  add  2na  l3!ft^  bfrmte.  iam  in  YIHI(Bl) 

052B  291A 

clrf 

TMP+B2 

;  check  pwm  maximum  limit 

052C  298A 

clrf 

YPWM+B2 

;  IiMD18200  must  have  a  minimum  pulse 

0S2O  298B 

-else."'!. 

■  so  duty^^CBBRist  aet'be  o  or  100% 

■  HS^FPIS 

0S2B  788B 

MQVFB 

YFIOfUEfaO.TIIP+BO;  move  yFHlBkX(BO)   to  1W(B0) 

052F  798F 

wivwf  ■ 

imm3etm,^mp*vi;  move  yFMinx(Bi)  to  imfibi) 

SOB24 

YPWM,  TMP 

0530  6A88 

- 

MOVFP 

YPWM+BO , wreg 

;   get  lowest  byte  of  YPWM  into  w 

0531  0518 

SUBWF 

TMP+BO 

;  sub  lowest  byte  of  TMP,   save  in  TMP(BO) 

0532  6A89 

MOVFP 

YPWM+Bl,  wreg 

;  get  2nd  byte  of  YPWM  into  w 

0533  0319 

.....  . 

SUBWFB 

TMP+Bl 

;  sub  2nd  byte  of  TMP,  save  in  TMP(Bl) 

0534  ■•mm 

wsms 

YfHi!«B2,wreg 

asm  miA 

STOBWFB 

TKP+B2 

!  sab  3rd  £yte  of  Tli^,  save  Sm  ^ralP'(ii2} 

0536  971A 

btfss 

TMP+B2,MSB 

-  t                           '1  V,.  _;|-  iy. 

0537  C53D 

goto 

testmin 

M0V16 

YPWMAX.YPWM 

;  saturate  to  max 

0538  6A8E 

MOVFP 

YPWMAX+BO.wreg    ;  get  byte  of  YPWMAX  into  w 

0539  0188 

MOVWF 

YPWM+BO 

;  move  to  YPWM  (80) 

MS3ft  SKUf 

WVFP 

3    ;  get  byte  ef  ICPinBUC  into  « 

asm  0189 

MOVNF 

YFWM+Bl 

;  move  to  YPWM{Bl)                               *<'00  n..-" 

0536  CS4B 

goto 

limitok 

J,.;  '••.00 

testmin 

053D  291A 

clrf 

TMP+B2 

;  Check  pwm  minimum  limit  ' 

053E  298A 

clrf 

YPWM+B2 

053F  298B 

clrf 

YPWM+B3 

4-247 


0510 

?8#C 

0541 

79«D 

0542 

6A88 

0543 

0518 

0544 

6  AS  9 

0545 

0319 

0546 

6A8A 

0547 

031 A 

0548 

9P1A 

0549 

C54E 

054A 

6A8C 

054B 

0188 

054C 

SASD 

054D 

0189 

0S4E 

B803 

054P 

7088 

0550 

7289 

0551 

0002 

0552  6A84 

0553  0F96 

0554  6A85 

0555  1197 


MOTOPIS 

msms 

SUB24 

MOVFP 

SUBWF 

MOVFP 

SUBWFB 

MOVFP 

SUBWFB 

btfsc 

goto 

M0V16 

MOVFP 

MOVWF 

MOVFP 

MOVWF 

movlb 
movfp 
movfp 

return 


■  •  arPSIISSi'lSH"  gr  IK . : 

YPWMIN+B1,TMP+B1 
YPWM,  TMP 
YPWM+B0,wreg 
TMP+BO  ; 


,  wreg 
,  wreg 


YPWM+Bl , 
TMP+Bl 
YPWM+B2, 
TMP+B2 
TMP+B2,MSB 
1  imi  tok 
YPWMIN,  YPWM 
YPWMIN+BO ,  wreg 
YPWM+BO 

YPWMIN+Bl,wreg 
YEWM+Bl 

bank3 

YPWM+BO, pwldcl 
ypWM+Bl,pwldch 


1;  nWTO  YfMDKtBO)   to  TMP  (BO)  " 
;  move  YPWMIN(Bl)    to  TMP(Bl) 

get  lowest  byte  of  YPWM  into  w 

sub  lowest  byte  of  TMP,   save  in  TMP(BO) 

get  2nd  byte  of  YPWM  into  w 

sub  2nd  byte  of  TIW; j in  Hff  fBl) 

get  3rd  byte  of  XPWJ  Into  w  i'^-:  ^0 

sub  Jrd  byte  of  IMP,  save  in  TMP(B2) 


;  saturate  to  mm 

;  get  byte  of  YPWMIN  into  w 

;  move  to  YPWM (BO) 

;  get  byte  of  YPWMIN  into  w 

;  move  to  YPMJ(Bl) 

;  set  9mi  dW^  >Wole 


.  *************************  ***********  ******* 

0*mjt^fi^  *,aj  *  *  *  **  *  ***  *f  _*  ***  J*  *  »*  *  ***«*^*fi»j@»^^  *  *  4*  ****  *********** 
;  I^^Et  dolntfegrai 

;  "     '  .--i 

;  DESCRIPTION:    Evaluates  the  Integsd'         the  sexvo  calculations. 

;  -  :  .,  L 

dolntegral  .    -.«-,.  J' 

...  ^'^WL- 
.  .  .    ,   '.^      :   AI»1S  .nVajXIITSG^Aii  ^:'#.4l»•<Mee9^'-'r;' 


.^MOVPP  UO+BO,wreg 
INTEGRAL+BO 
MOVPP  UO+Bl,wreg 
ADDWFC  INTEORAL-fBl 


;  get  lowest  byte  of  UO  into  w 
;  add  lowest  byte  of  INTEGRAL,  save 

;  get  2nd  byte  of  UO  into  w 
r  aSi-^Smi  i0mw£  integral,  save  in 


.'AS  ns- 

tiA.;  :-.s? 

.•-.jr  3S<*t 

in 


J  ****^^*,****  *#****.****•****  **********.**!H;*,*t  **********  ************* 

endif  ^ 

■■-  .  vltf" 

if  ._SERIAL_IO  ■•   ,',  'I' 

'insilM^. 'oterial  i  asm'  .  i^.Ss^tcl  I /O' Routines 

J  ********************  ***********.4^^****.#*1^**£*****4t<*  ********  ******** 

piqv'  :     •'  .  3feE±«l  :I/0  •  BlSili^  Functions 

;  ^  '1  \'.'r.       ■  ,,.'7 

.  ***************f  .******,*********,******  *,*#«^***j*s*****  ************* 


I  its' ^iWC  /I      |,*|^***^#.*******.****ft*****************'******************************  'It^* 

i  NAME;  IdleFunction 


0557  0004 

0558  0002 


;  DESCRIPTION:  This  routine  will  perform  worlc  while  doing  waits  in 
;  serial  I/O  functions. 

f  ., 

i»  e>j«l  .     ■  .  ,.■      ■  s  VQ. 

K@i«Puacti<Mi  •    '    -It  ^'.v.. 
»  wdi  X  "  „-  •-■  .         "  '>i-  '  ■■'•1 

CMMBT 


51.  /,  3  a  r; 

•5810  Mtc 

.-9: 1 


J  ****^**  *  ******************************************** 


**************************************************************** 


DoCommand 


DESCRIPTION:    Search  conanmid  table  for  oeanand  ana  mMeOtm  it. 


0559  B059 
055A  4A0D 
055B  B007 
4»0B 

Om>  AB3A 


055E  A93A 
055F  A23B 
A93C 

OSes  30C1 

05«3  C56E 

0564  3139 

0565  C55E 

0SS5  Br79 

0567  633B 

0568  e23C 
0SS9  0000 


'69Stt  BOOD 
esse  B679 


ftSeS'  C124 


0S6F  CS6A 


movlw       (CMD_TABLE  &  Oxff) 


o;  n>-     .  j.MV 


czndFinish 


movpf 

wreg, tblptrl 

movlw 

page  CMD_TABLE 

movpf 

WTttg  t tblptrh 

tablxd 

tablrd 

0,1,  CMDTEMP 

tlrd 

1 ,  CMDPTRH 

tablrd 

CMDTBiP.WEeg 

ZERO 

goto 

noComuuid 

cpf seq 

CMDCHAR 

goto 

tr^extCmd 

call 

PutChar 

IDDVfp 

CMDPTRH, pclath 

mov^ 

nov 

CMDPmL.pcl 

<ssXX 

FutChar 

CR  ' 

call 

PutChar 

goto 

Follins^oc^ 

movlw 

CI<D_BAD 

goto 

cmdFinish 

CMD_TABLE  LSB 
CMDTABLE  MSB 


read  entry  frcoi  tabl# 


indirect  to  ccnmand  routine 


'  cibarae^u; 
ccanu^  »u£iae  tollawa 


s^d  error  character 


lay  GR 


0570  B021 

0571  CS6A 


.***************************ik******«************ *************************** 
. *************************************************************************** 

;  ■  t . r-.  ■•5  :  ,  ■ 

!  ISSCRIFTirai:    The  do  nothing  - '  iHiiiiHlir'^ii  |j  II  fir;- Irrimnlmr  if  the  chip  is 
;  working.  Initlatsd <saxs^6mBa  return. 

do_null  .       T  '  jfT. 

movlw      CMD_OK  .1 1 '  1 

goto     •  catdFinlt^ 

y  ******.****★*«*,«#»*»***-*#* **»***^y^jHj|^^pS|g|ijxl>*^^^g^^j^  . 

V  ■  Mftr  ;  ■ 

,  *********************************£**,********************«** *~*******  ******** 

;  NAME:  dojnove  '  - 

;  DBSCRiPnoN:     Commands  the  axis  to  move  to  a  new  position  or  velocity. 
;  Position  data  is  relative,  and  in  encoder  counts.  Velocity 

.}  ■•■■'■SUbti'-im-  atmolutittp  MaS^^  wntfiMr  eooats/aaaipl*  time  anilti.- 

piled  by  256.  All  teei^ws  are  parf omed  by  the  controller  such 
that  velocity  and  acceleration  limits  set  into  parameter 
xnonory  will  not  be  violated.  All  move  comnands  are  kept  in  a 
one  deep  FIFO  buffer.  The  eennand  in  the  buffer  is  mecated 
as  soon  as  the  currently  ema^tl^mi  conuana  is  aaBplM&ii^ 


9m. 
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0572  B6CC 


0573  9F93 

0574  CS7E 


0575 
0576 

0577 
0578 
0579 
057A 
057B 
BS7C 
0571) 


&i3i 
4A5B 

6A32 
4A5C 
6  A3  3 
4A5D 
8793 
B021 
C56A 


057E  B03F 
057F  05SA 


AKGUHENTS: 
dojocwe 

if 
call 
else 
call 

endif 

btfsc 

goto 

HOV24 

MOVFP 

HOVPF 

HOVFF 

HOVPF 

MOVFP 

MOVPF 

bsf 

movlw 

goto 

bufoverf  low 

movlw 
goto 


M  [800000, 7FFFPF] 

OBCIO 
OetDecVal 

GetVal 


M0VSTAT,bit7 

bufoverf low 

VALBUF ,  NMOWAL 

VftLBDF+BO.wqagi' 

«reg,NHOWAt+B0 

VAIiBUF+Bl.wreg 

wreg,NMOWAL+Bl 

VALBUF+B2,wreg 

wreg ,  NM0WAL+B2 

M0VSTAT,bit7 

OfflLOK 

andFinl«h 


;  test  if  buffer  available 

;  if  so,  accept  value  into  NMOWAL 

'  4  geti  byte  of  VALBDF  into  w 
ative  to  NMOWAL  (BO) 

;  get  byte  of  VALBUF  into  w 

;  move  to  NMOWAL(Bl) 

;  get  byte  of  VALBUF  into  w 

;  move  to  NMOWAL  (B2) 

;  set  buffer  full  flag 


CHD_JAD  ;  el»e»  xMiixft;'«rroir 
cmdFinish 


3ft  J9r.^^. 


***************************** ****** ******** 
********************************************  ************************r*~**4^*ai 

tOUlEi  do.jnode 

INSCRIPTION:    An  argument  of  *P'  will  cause  all  subsequent  move  commands 
to  be  incremental  position  moves.  A  *V*  argument  will  cause 
all  subsequent  moves  to  be  absolute  velocity  moves. 

'     .'  -  -.  -  .  •'•1' 

O  tP.Vl  -5 


do_mode 


058O  ES57 
05tl  B681 
aft92  M!C2  - 

0583  C580 

0584  E676 

0585  4A4D 

0586  2991 

0587  B050 
«»88>'3rM>  

mm  essfe 

05SII  'CS99 

058B  B056 
058C  314D 
058D  C590 

0S8P'  CS9S    •  lO'i 

0590  B054 

0591  314D 

0592  C596 

0593  2B91 


call 

call 

'qpfse^ 

goto 

call 

movpf 

clrf 

movlw 

cpfseq 

goto 

goto 

movlw 

cpfseq 

goto 


goto-,  :  medeek' 


IdleFunctlon 
OetChJc 

am 

do_jnode 

GetChar 
wreg ,  STRVALL 
MODETXPE 

>p, 

testV 

modeok 

•V 

STRVALL 
.testT 


novltt 

cpfseq 

goto 
setf 


STRVALL 

modeerror 

MODETYPE 


;  get  single  character  loqp 

;  MODETYPE=0  for  position  moves 

;  position  moves  for  type  P 

;  velocity  moves  for  type  V 

eJfPX=l  for  velocity  moves 

'-}  TORQtJE  Moves  for  type  *T' 

;  M0DETYPE=-1  for  torque  moves 


.  ao, 


4-250 


e  1993  MiersehilpTaBbMisgyilne. 


Servo  Control  of  a  DC-Brush  Motor 


0594 

0595 


0596 
0597 


0598 

0599 


2990 
CS98 


B03P 
C56A 


6A4D 

E679 


clrf    .  SERV0FUU3 

goto  modeok 
modeerror 

BlOVlW  CMD_BAD 

goto  cmdFinlsh 

modeok 

movfp  STRVALL.wreg      >  ^cjUd'tCype  ehuacter 

call  PutChar 


;  disable  servo 
t  mode  error 


05  9A 
0S9B 


B021 
C56A 


movlw  O!0_0K 

goto       oodFinish  ' " 

1. 

********************** **************************** 
******************  ****************1l@ei#^****«**^tt***********««b»*^ 

NMjKs  do_setparaBieter  ^'>a»  •^'i':" 

DESCRIPTION:    Sets  controller  parameters  to  the  value  glveo. 
Parameter  # 


VL=««locity  limit         :  i) 

AL=acceleration  limit  1 

KP=proportional  gain  2 

KP=velocity  gain  3 

KPsintegral  gain  4 

IK=lntegrator  mode  5 

FV=velocity  FF  6 

FA=acceleration  FF  7 


[0,7FFFFF] 
[0,7FFFFF] 

[8000, 7FFF] 
[8000,7FFF1 
[8000,7FFF1 

[0.31 


[8000, 7FFF]  :  Be>t 
[8000, 7FFF]   I  HOC  Ht^^ 


•  r>e« 


;  ARGUMENTS: 

S    [O.FFl    [ 800000, 7FFFFF] 

do_aetparaineter 

059C  £669 

call 

GetPar 

get  parameter  number 

0S9D  B008 

movlw 

NUMPAR  ; 

check  if  in  range  [0, NUMPAR] 

OS9B9033>  ' 

cpfslt 

VMiBOF+BO    '  - 

0S9P  CSCl 

goto 

Serror 

05A0  B07C 

-1  aovlw 

(PARJTABLE  &  Oxff)  ; 

wmjsmsM-ti'SB 

05A1  4A0D 

movpf 

wreg,tblptrl 

05A2  B007 

movlw 

page  PAR_TABLE  j 

05A3  4A0E 

movpf 

wreg,  tblptrh 

05A4  AB3D 

tablrd 

l.l.eftRTEMP 

aetNextPar 

05A5  A23D 

tlrd 

1 , PARTEM? 

read  entry  from  t^le 

05A6  A93E 

tablrd 

0,1, PARLEN 

05A7  A93F 

tablrd 

0,1,PARPTR         i'.^'  '  -J 

1 . .                                         , tut 

I.  as» 

OSM  BOOS 

movlw 

NDMPAR  ; 

error  if  end  of  table 

05A9  303D 

i^fslt 

PARTEHP 

OSAA  CSCl 

goto 

Serror 

05AB  6A3D 

movfp 

PARTEMP.wreg 

05AC  3131 

cpf seq 

VALBUF+BO 

05AD  C5A5 

goto 

setNextPar 

osia  6mF 

movfp 

PliRPIIIi.wareg  ; 

pointMV-SeiiF'pirameter  in  fMirl 

OSAF  e90A 

movfp 

wreg.fsrl 
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05B0  E6CC 


05B1  B031 
05B2  610A 


05B4  8O04 
05BS  8604 
OSBS  SP04 


if 

call 
else 

endif 


DECIO 
OetDecVal 


get  rmi  value  in  VALBOF 


movlw  VALBUF 

movfp  wr  eg ,  £  sr  0 

BCP  _fsl 

BSF  _fsa 

BCF  _fe3 


;  pointer  to  VALBDF  in  fsrO 
;  set  autoincrsBMnt 


mset  6800 
05S8  0738 
0SB9  333B 

asm  C5B7 


OSBB  8404 
05BC  8504 
05BD  8<^^ 
OSBB  8704 

05BF  B021 
05C0  C56A 


setGetMore 

i7i\z         Bov^  indfO.isdfl 

tstfsz  PKRLEUt 

ilTr.ccib   goto  setGetMore 


AUTONO 


BSF 
BSF 


_£sO 
_£sl 
_£s2 
_fs3 


movlw  CMD_OK 
goto  cindFinish 


;  mbwe  new  value  to  paraaetex 


;  no  autoincrement 


05C1  B03F 
05C2  C56A 


05C3  E669 

05C4  BOOS 
05C5  3031 
OSCe  C5EB 

0Se7  B07C 

05C8  4A0D 

05C9  B007 
05CA  4A0E 

05CB  AB3D 


movlw  CMD_BAD 
goto  cmdFinish 

. *************#************************************************************ 

*******  ****^1^i^^j^*^t^*it*^mit-it*ii***ii**iiii*iiti***ii****;affffffi*f^. 
NNIE!  do_readparaiiietar  ^  ^^n  m 

OBSesaPTICM:    Seturas  VtiiB  pttuaUt  W&aa  o£  a  puameter.  <' 

■.memasms:      r  [o,ff] 

RBTDRNS:  The  present  value  of  tl^  revested  paraneter  is  returned. 

do_readparaineter 


call 


GetPar 


novlw  NUMPAR 

cpfslt  VALBUF+BO 

goto  Rerror 

novllt  (PARJTABLB  &  Ox£f) 

aovpf  wreg,  tblptrl 

movlw  page  PAR_TABLB 

movpf  wreg,tblptrh 

tablrd  1,1, PARTEMP 


;  get  parameter  number 

;  check  if  in  range  [0, NUMPAR] 

'i      ..  . 

<t  mm^fBLB  LSB 
;  PARJTABLB  MSB 


05CC  A23D 


tlrd 


1,PARTBMP 


;  read  entry  from  table 
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05CD  A93E 
05CE  A93F 

05CF  BOOS 
05D0  303D 
05O3.  csm 

05D2  6A3D 
05D3  3131 

05D4  C5CC 

05D5  6A3F 
0506  S90A 

05D7  B031 
0SD8  610A 


tablrd 
tablrd 

movlw 

c^fslt 

goto 

movfp 
cpfseq 

goto 

movfp 


error  If  end  of  table 


-  1-0 


0,1,FARLEN 
O.l.PARPTR 

ITOMPJiR 

PARTBHF 

Rerror 

PARTEMP , wreg 

VALBUF+BO 

readNextPar 


PARPTR,wreg  ;  pointer  to  parameter  in  fsrl 

wreg,  f sM>  ^  .  ' ,     ■  0*j«i 

VM*SF  x»i<,riiai.',-i  !f»iv^  pSI^Sm  to 'SauaOF  in  fsrl 
wreg,f*rt> -^^  '.".-'^  ^".'I'CH      5>w^  ■ 

SJ    ■-      '       n    }  se£  Itatoiocresnent 


05D9  8404 
05DA  8D04 
05DB  8604 
OSDC  8P04 


_fsO 
_f8l 
_fs2 
_fs3 


CLR24 


VALBOF 


;  clear  old  VALBOF 


05DD  2931 
05DB  2932 
05DF  2933 


CLRF 
CLRF' 
CLRF 


VAIBUP+BO 
VALBDF+Bl 
VAI.BtlF+B2 


05E0  6008 

05E1  073E 

05E2  333E 

05E3  C5E0 


readGetMore 

movfp 

decf 


indfl, indfO 

PARLEN 
tstfsz  PARLEN 
goto  readGetMore 


;  read  parameter  into  VALBDF 


no  autoincfsoieint 


3' 


a5E4  8404 

OSES  8S04 
OSEe  8604 
0SE7  8704 


OSES  B728 


BSF  _fsl 
BSF  _fs2 
BSF  _f  S3 


;  send  parambSiK  value 


i-««d.l5^' 
else 
call 


FutOecVai  ' 


PatVal 


;,s.-,"ri  r-vw 


ft';:  ! 


05B9  B021  . 
05BA  C56A 


asvlw  CMD_OX 
goto  ondFlnlsh 


05EB  B03F 
OSBC  C5«A 


movlw  CMD_BAD 
goto  cradFiniah 


8CV8  AOi 


. ********** 


*********************************************************** 


. ************************************************************************** 

;  KAMBt  do_stautt«r 


;  DESCRIPTION!    Rwtiumft  tiM  time  {in  taB0%so  tin*  ci&m.tm  [0,FFFF])  since  the 

f  Mtmtt  o£  the  pareee^.Wve  aae^'te^p^t^rea  the  comnandad  u 

;  Bwaaured  valuefff'OfiT  j>9»ttion '^MtuA'  velocity  at  the  tine-ii^  tl£v 

;  conmuuidi 
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;  ARGUMENTS: 
;  RETDRNS: 


ii'f.'i  soar 

The  time  since  the  start  of  the  present  move  is  ret«U&£S3i'C:: 


05ED  6A55 
OSEE  4A40 
05EF  6A56 

dsn  ^7 

05F2  1A42 


do^shutter 

MOV24       POSITION, CPOSITION 

MOVFP  POSITION+BO ,  wreg 

MOVPF  wreg,CPOSITIQH+B0 

MOVFP  FOSITI(»I+Bl,wreg 

;     mmsf'c  ^ireg.CPOSITICM+Bl 

MOVPP  POSmoH>i<B2,iiree.>' ^ 

:.  HDVPF  wreg,CFOSITICN+B2 


capture  commanded  position 

get  byte  of  POSITION  into  w 
move  to  CFOSITIOH(BO)  •> 
get  byte  of  POSITION  Into  w 
raowe  te  CPOSITION  (Bl) 
getrtiyta  of  POSITIOI  into  w 
move  to  CPOSITION  (B2) 


0SF3  &im 
05F4  4A43 

05F5  6A59 
05F6  4A44 
05F7  6A5A 
05F8  4A45 


M0V24      VELOCITY, CVGLOCITX       '  ;  capCuxe  conmanded  velocity 


HOVFF  VELOCITY+BO.wreg 

MOVPF  wreg,CVELOCITy+B0 

MOVFP  VELOCITY+Bl.wreg 

MOVPF  wreg,CVELOCITlf+Bl 

MOVFP  VEL0CITY+B2,wreg 

HOVFF  wreg,CVEL0CITY+B2 


get  tyte  of  VELOCITY  into  w 

move  to  CVELOCITY(BO) 

get  byte  of  VELOCITY  into  w 

move  to  CVELOCITy(Bl) 

get  byte  of  VELOCITY  into  w 

move  to  CVEL0CITY(B2) 


05F9  6A72 
05FA  4A4e 
05FB  6A73 
05FC  4A47 
OSPD  S»7  4 
OSFE  4M8 


M0V24      HPOSITION,  CMPOSITI^      ;  cs^ture  measured  position 


MOVFP  :  JJPOSITXON+BO  ,wreg 

MOVPF  wreg,CMPOSlTION+B0 

MOVFP  MPOSITION+Bl ,  wreg 

MOVPF  wreg,CMPOSITION+Bl 

MOVFP  MPOSITI0II+B2,Kr^ 

Wfnv  w:a9,CMP0SITI0N'fB2 


;  get  byte  of  MPOSITION  into  w 

;  move  to  CMPOSITION(BO) 

;  get  byte  of  MPOSITION  into  w 

,-  move  to  CMPOSITION(Bl) 

;  get  byte  of  1IP0SITI<»I  into  w 

;  move  to  CHPOSinON(B2) 


MVELOCITY.CMVELOCITY      ;  capture  measured  velocity 


05PF 

oeoi 

0602 
0603 

0604 


6A75 
4iV49 
eA76 
4IU& 
6A77 
4A4B 


0605  2933 


0606  6A67 

0607  0131 

0608  6A68 

0609  0132 


060A  B728 


MOVFP 
MOVPF 


060B  :b021  ' 


ill  til 

■trtJ  I  a: 


MOVPF 
MOVFP 

MOVPF 

clrf 
M0V16 

MOVFP 
MOVWF 
MOVFP 
MOVWF 

if 

call 

else 
call 
endif 

gofeo 


MVELOCITY+BO ,wreg 
wreg,  OCVMiOCITY't'BO 
^tTO(S@ITY+Bl  ,w£ii^ 
wreg,  CHVBLOCITY+Bl 
MVBL0CITY+B2  ,  WMe ' 
wreg ,  CMVEL0CITy+B2 

VALBUF+B2 
MOVTIMB.VALBCIF 

MDVTIMB+BO ,  wreg 

IfOVTIHB+Bl ,  wreg 
VALBUF+Bl  - 

DBCIO 

PutDecVal 


PutVal 


;  get  byte  of  MVELOCITY  into  w 
;  move  to  CMVSZ<OCITY(B0) 
;  get  byte  of  HVELOCITY  Into  w 
;  move  to  CM</EL0CITY(B1) 

gA6  bfta  of  MVELOCITY  Into  w. 
;  move  to  CMVEL0CITZ(B2) 


.  t  captiuse  move  time,  move  to  VALBDF 

;  get  'bgt.a  of  MOVTIME  into  w 
;  move  to  VALEOFIBO) 
^  (  get  byte  of  MOVTIME  into  w  t'J    '  s 
I  t;  move  to  VALBaF(Bl) 


cndFinislii 
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,***************************************************************************** 


***************************************************************************** 

mMB:  do_jceadcaaposition 

DBSCRIPTION:    Returns  the  commanded  position  count  Hhich  vias  captured 
'durli^  tb^  last  shutter  coaraand. 

JIROOinSNTS !        P "  "  '  ■ 

RETDRNS:  The  last  captured  position  count  is  returned.   1800000, 7FFFFF] 


do_readconposition 


oeoD  eA40 

OeOE  4A31 
060F  6A41 

0610  4A32 

0611  6A42 

0612  4A33 


HI3V24  CPOSmON.VMACIF 

HOVFP  CPOSmON-iF897«»<ig 

IK>VI>F  wreg,VALBUF+BO 

)K>VFP  CP0SIT10N+Bl,wreg 

MOVPF  wreg,VALBUF+Bl 

MOVFP  CP0SITI0N+B2 , wreg 

MOVPF  wreg,VAI.BUF+B2 


;  BKWe  CPOSITION  to  VlKBUr 

:i:  'a-  : 

'■'^''t  get  byte  of  CPOSITIOf  imo  w 

;  move  to  VALBUF(BO) 
;   get  byte  of  CPOSITIMJ  into  w 
;  move  to  VALBUP{B1) 
;  get  byte  of  CPOSITIOK  into  w 
to  VALBaF(B2) 


0613  B728 


if 

call 

call 
endif 


DBCIO 
PutDecVal 


PutVal 


0614  B021 

0615  C56A 


inovlw  CMD_OK 
goto  ondFinish 

.***************  *************«««««#-ikir|t#%****f##fft*********^********««*«*%i^#*** 


***************************************************  ********^***«;*.»«*«*«**** 
NAME:  do_readccnrvelocity 

DBSCRIPTKm:    Returns  the  commanded  velocity  multiplied  by  256  H^til^Wi- 
captured  during  the  last  shutter  command. 


The  last  captured  cooBUaded  velocity  tines  25S  ia  xaitiuMMd. 
(800000, 7PPPFF) 


RBTORHS: 


do_7eadccBiveloclty 


0616  6A43 

0617  4A31 

0618  eA44 

0619  4A32 
061A  6A45 
061B  4J^ 


061C  E728 


M0V24 

CVB[ACITy,VALBnF 

;  nswe  eemnemded  velocity  to  vaiiBOF 

MOVFP 

CVELOCITY+BO ,  wreg 

;  get  byte  of  CVELOCITY  into  w 

MOVPF 

wreg, VALBUF+BO 

;  move  to  VALBUF(BO) 

MOVFP 

CVELOCITY+Bl , wreg 

;  get  byte  of  CVELOCITY  into  w 

JBVPT 

%ireg,VALBUF+Bl 

;  move  to  VALBUFCBl) 

MOVFP 

CVSL0CITY+B2 , wreg 

,-  get  byte  of  CVELOCITY  into  w 

HOIVPF 

wreg,  \a£B0F'»'B2^ 

;  mem  to  VALBDF(B2) 

if 

DECIO 

call 

PutDecVal 

else 

call 

PutVal 
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061D  B021 
OeiE  CSSA 


movlw      CMD_OK  ,, -  :. 

goto  cmdFinish 
liV'l    *  int.. 

***#*#*#**^* ***************************************** ******* 


.  ********  ft******************************************-******************  ***** 

;  NAME:  do_readactposition 


DESCRIPTION:     Returns  the  measiired  position  count  which  was  captured 
daring  the  last  shutter  conmand. 


1!he  last  ca£>titEed  Pleasured  position  count  is  returned. 
[800000 ,  WWMWit''!  IT  ■  » 


do_r  eadactposition 

-1M0V24  mBmsmm.vmxoF 


.move  nsasured  positioo  tMAt' 


061F  6A46 

0620  4A31 

0621  6A47 

0622  4A32 
0«23  eA48 
0624  4A33 


0«25  E728 


IKJVFP  CHPOSlTIOII+BO.wreg 

MOVPF  wreg ,  VALBUF+BO 

MOVFP  CMP0S1TI0N+Bl,wreg 

MOVPF  wreg,VALBUF+Bl 

WWFV  GlfP0SITI0N+B2,wreg 

MOVPf  wr.eg,VALBUF+B2 

if  DECIO 

call  PutDecVal 

else 

call  > 

endif 


PutVal 


get  byte  of  CMPOSITIOM  inbe  w 

move  to  VALBUF(BO) 

get  byte  of  CMPOSITION  iata  W 

move  to  VALBUF(Bl) 

get  byte  of  CMPOSITION  into  w 

move  to  VALBUF(B2) 


0626  B021 


movlw  CMD_OK 
goto  cmdFinish 


,  *******************************************#**.******************#»*,******* 
************************************************************* *******#***«* 


e6>.f  'do_readaefevieloc&ty 


;  DESCRIPTION:  Returns  the  measured  velocity  multiplied  by  256  wlii<^  was 
;  captured  during  the  last  shutter  command. 


;  j^GOHEHTS;  v 

RETURNSi  The  last  captured  meaanced  veloeity  times  256  is  returned. 

[800000, 7FFFFF) 


0628  eA49 

0629  4A31 
062 A  6A4A 
062B  4A32 
062C  SA4B 
062D  4A33 


MOVFP  CMVELOCITY+BO.wreg 

MOVPF  wreg,VALBHF+BO 

MOVFP  CMVELOCITY+Bl.wreg 

MOVPF  wreg,VALBUF+Bl 

MOVFP  CMVBL0CITY+B2,wreg 

MOVPF  wreg,VALB0F+B2 


i  Bi£We  measured  velocity  Wax-  f. 

;  get  byte  of  CMVELOCITY  into  w 

;   move   to  VALBUF(BO) 

;  get  byte  of  CMVELOCITY  into  w 

;  move  to  VALBUF(Bl) 

;  get  byte  of  CMVELOCITY  into  w 

;  mtvs  to  VAI£DF(B2) 
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0S3B  B728 


if 

call 
else 

endif 


DECIO 
PutDecVal 


PutVal 


062F  B021 

0630  cseA 


movlw 
goto 


CMD_OK 
cmdFinish 


. *************************************************************************** 

-{.HAKE:  do_extenialstatus 


DESCRIPTION: 


AKSOHENTS: 
RETURNS: 


Returns  a  two  digit  hex  number  which  defines  the  state  of 
the  bits  in  the  external  status  register.   Issuing  this 
command  will  clear  all  the  bits  in  the  external  status 
register  uniLess  $)|e  strent  Hbichiset  the  bit  is  still'  tnie^ 


The  external  status  register  is  retximed. 


clD_extemalstatus 


0631  8406 

bsf 

_glintd 

0632  6A92 

movfp 

EXTSTAT.wreg 

0633  2992 

clrf 

EXTSTAT 

0634  SC06 

bcf 

_glintd 

m%s  seas 

call 

PutHex 

0636  B021 

movlw 

CJ1D_0K 

0637' GS«a,  

1                goto  ■ 

cndFlaialf  - ' 

************************ 


-Jit    <  f■- 
NAME :  do_movestatus 


DESCRIPTICm: 


ARGUMENTS: 


Returns  a  two  digit  hex  nusiber  nAlich  deflaas  idle  state  of 

the  bits  in  the  move  status  register.  Issula^  tixifl  fXOTnwTld 
will  clear  all  the  bits  in  the  move  statuS'  re$|islt«^  Unless 
the  event  which  set  the  bit  is  still  true^ 


Ibe 


status  register  is  rebirBsd. 


dojiovestatus 


0638  6A93 

0639  B688 


movfp 
call 


MOVSTAT.wreg 
PutHex 


063A  B021 
063B  C56& 


movlv 
goto  ■: 


CMDJiK 
pndFinish 
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.*************************************************************************** 


;  NAHB:  do_readii»^osltion 

;  DBSCRIPTZOH:  Returns  the  last  index  position  ct^tured  in  position  counts. 
;  RETURNS ;  nie  last  captured  index  position  is  returned. 


0e3C  6AB6 
063D  4A31 
063E  6AB7 
063F  4A32 
0640  6AB8 
a641»4A33 


0642  E728 


do_readini^positian 

IK3V24  mDBXFOS.VALBOF 

IHDBXPOS+BO  .wrecr 
«reg,VALBUF+BO 

INDEXPOS+Bl ,  wreg 
wreg,  VALBUF+Bl 
INDEXP0S-fB2 ,  wreg 

DECIO 
PutOecVal 


MSVPF-- 
if 

call 
else 
call 
endif 


;  move  measured  velocity  to  VALBDF 

f  get  byte  of  INDEXPOS  into  w 
,-  move  to  VALBOF(BO) 

;  get  byte  of  INDEXPOS  into  w 
;   move  to  VALBUF(Bl) 

;  get  byte  of  INDEXPOS  into  w 
move  to  VAI.BUF(B2) 


0643  B021 

0644  C56A 


movlw 
goto 


CMD_OK 
ondFinish 


.  *************************************************************************** 


0645  S6CC 


0646  6X31 

0647  4A55 

0648  6A32 

0649  4A56 
064A  6A33 
064B  4A57 


J  ********************************************** 

;  NAMEl  do_setposition 

;  ASCRIPTION:  Sets  the  measured  and  cononanded  position  to  the  value  given. 
>  '  This  baannand  shbuld  ii6t'^  b^t  unless  the  move  FIFO  buffer 


ARGUMENTS : 


B  [800000, 7FFFFF] 


^_setposi  tion 

if  DBCIO 

call  GetSecVal 
else 

call  GetVal 
endif 

nSVl*  VaLBDF,  POSITION 

lOVFP  VUAOF+BO.wreg 

MOVPF  wreg,  POSITION+BO 

MOVFP  VALBUF+Bl,  wreg 

MOVPF  wreg,POSITION+Bl 

MOVFP  VALBUF+B2 , wreg 

MOVPF  wreg,P0SITI0N+B2 


;  get  hSte  of  V%LBDF  into  w 

;  move  to  POSITION  (BO) 

;  get  fcyte  of  VALBUF  into  w 

;  move  to  POSITION (Bl) 

;  get  byte  of  VALBUF  into  w 

;  move  to  POSITION (B2) 
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MOV24  VALBHF.MPOSITION 


064C  6A31 
064D  4A72 
0e4E  6A32 
0^  4A.73 
0^0  6A33 
0651  «A74 


0652  2980 

0653  2981 

0654  2982 
0SS5  2983 

0656  B021 

0657  C56A 


0658  B021 

0659  E679 
0«5A  C021 


OfSm  2990 


065C  B021 
065D  C56A 


065S  B6CC 


MOVFP  VALBUF+BO,wreg  ;   get  byte  of  VALBUF  into  w 

HaVFF  wreg.MPOSITION+BO  ;  move  to  MFOSITIONOO) 

HOV^P  VALBOF-tBl.wreg  ;  get  by«e  of  VALBDF  Into  w 

MOVPF  v«:eg,KFoilTIC»)+B2  ;  move  to  MP0SITI0H(B2) 


CLR32 

CUSP 
CLRF 
dJlF 
CLHF 


Y+BO 
Y+Bl 
X+B2 
Y+B3 


movlw      C14D_0K  .-,  .  A   '"  "I 

goto       csKjFinlsh  ^ 

. *************************************************************************** 
"4  [»!-=.»  MMfflt  dojr«*»t  ,  .: 

DBSCSIPTIONi     Performs  a  software  reset. 

ARGDMQITS:  Z 


do_reset 


movlw  CMD_OK 
call  Putchar 


goto 


Startup 


********************************************************** 


5f 

.!<';i  i 


(ilo_stop 

DESCRIPTION:     Stops  servo  by  clearing  SERVOFLAG. 
do_stop 

clrf         SERVOFUU:  c 

movlw  CMD_OK 
goto  cmdFinish 

.  ***********  *****  *  ************** 

do_captare 


do_capture 

if  ( (_PICMASTER_DEBDG  ==  1)  £&   (DECIO  ==  1)  ) 

T-  -call       SetOaeVal  .. 
endif 

if         (  (_PICMASTER_DEBUG  ==1)   &&   (DECIO  ==  0)) 
call  GetVal 

endif 

if        JPICMASTBRJOBBOG  ==  1 
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065F  6A31 

0660  OIBC 

0661  6A32 

0662  OIBD 


0663  6A31 

0664  OIBE 

0665  6A32 

0666  OIBF 

Oe67  8621 
0668  C56& 


•  1    T'-.i-'-    :  - 


HOVl  6  VALBDF ,  CAFCOUNT 

MOVFP  VALBUF+BO.wreg   ;  get  byte  of  VALBUF  into  w 

MOVWF  CAPCOUNT+BO  ;  move  to  CAPCOUIIT(BO) 

mmv^"  VM.B^a$.;«ee«#->iiMK^$l:e  oe  WtlADF  into  w 

■ma^mov  CAPCODirr+Bi-      i^iSSlV^  cio^intibi) 

BDV16  VSLBOP.qVPTKP 

MOVFP  VALBUF+BO.wreg   }  get  byte  of  VALBUF  into  w 

MOVWF  CAPTMP+BO  ;  move  to  CAPTMP(BO) 

MOVFP  VALBUF+Bl ,  wreg    ;   get  byte  of  VALBUF  into  w 

MOVWF  CAPTMP+Bl  ;  move  to  CAPTMP(Bl) 


novlw 
goto 


CMD_OK 
oadFinish 


endif 


NMIE:  GetFar 


DBSCRIFTICM:    Get  a  parameter 
it  in  vaLBUF+BO. 


[O.FF]  frcdi' serial  port  and  place 


0«S9  2jt31 
066A  2932 

066B  2933 


CLR24  VMiBDF 

CLRF  VALBDF+BO 

CLRF  VALBDF+Bl 

CLRF  Vai.BDP+B2 


066C  E6B2 
06 60  eA4E 
066E  B50F 
066F  4A31 

0670  1D31 

0671  E6B2 

0672  6A31 

0673  0E4E 

0674  4A31 

0675  0002 


call  GetHex 

movfp  HEXVAL.wreg 

andlw  OxOF 

aovpf  wreg.VMiKIF+BO 

swapf  VALBDF+BO 

call  GetHex 

movfp  VALBUF+BO ,  VIBg 

addwf  HEXVAL.W 

novpf  wreg.VALBOF+BO 


****************************************************************** 


*  *  *  *^*  *##«^iSra^*  «*«ir*WWWWWW«rvWW1Wir»«»%»<l^  ********************* 

lOMBt  OetChar 


;  DESCRIFTIcmi  Get  character  frcm  receive  buffer. 
OetChar 


0676  B800 

0677  S«m 


0678  0OO3 


movlb      bcmJcO  ;  set  bankO 

movpf     rereg.wzeg         i  receiw  charaeter 

return 

*************************************************************************** 


**************************************************************************** 
;  MMfBi  PutChar 

; 

;  OBSCRIFTIONt    sand  character  out  the  serial  port 
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ARQUMENTS: 


wreg  contains  byte  to  be  transmitted 


FutChar 


0679  B801 


067A  9116 
067B  C67A 


0S7C  B800 


067O  9115 
067E  C67D 


0S7F  4Aie 
0680  0002 


movlb  bankl 


bufwait 


btfss 
goto 


shfmit 


_tbnit 
bufwait 


movlb  bankO 

btfss  _tZBlt 

goto  shfwait 

movpf  wreg,  txreg 

return 


!  see  batikl 

;  tS  ftransmlt  buffer  enpty? 


;  sab  bonkO  <li<<'j 
;  Is  transmit  ehift  register  agpty?  '  ' 

•  if'  SO;  send  ^wracter  -~ 


************************** 

HMIBi  GetChk 

DESCRIPTION!    Check  if  charactai^  Is  in  receive  buffer. 


GetChk 


0681  B801 

0682  560A 

0683  B501 

0684  0002 


movlb  bankl 

movpf  pir.wreg 

andlw  CHAKSEADZ 
return 


;  set  bankl 

;  retiim  status  in  wreg 


****************<***.**«***********«*********************«******«************ 

NMiBi  FutBec 

DESCRIPTIONi     Converts  a  hex  value  [0,F]  in  wreg  to  its  ASCII  equivalent, 
^e  i^per  nibble  of  wreg  is  ass\mied  to  be  zero. 

StRRY  C(»iDITICNS:  wreg  =  value  to  be  ceovarted  and  sent  in  ASCIZ  decimal 


if 


OSes  913  9 
668t  Sfi79 
0687  0002 


addlw  0x30 
call  PutOiar 
return 


::;  '%x»ivert  to  ASCII 


endif 


********************** 


********************************* 


****************  **4********«*****^^*#f***««»|r*******:«*****W^«******pkt«*-^ 

KftME:  PutB^ 

■■  .  —  ■'►iirt  " 

OESCRI^riQNt    Convert  the  wreg  value  to  ASCII  hexadecimal .  The  output 

format  is  two  digits  with  the  A-F  parts  in  upper  case  and 
leading  zeros.  The  result  is  sent  out  the  serial  port  with 
FutChar. 

ENTRY  caNDITIcmSi  wreg  =  value  to  be  converted  and  sent  in  ttSCII  iM^e 
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0688 
0689 
068A 

oesB 

06BC 

06W 
0690 
0691 
0692 


IDOA 
B50F 
4A4F 
2D0A 
B9i99 
970& 
<^93 
Bel7 
084F 
C695 


0693  B030 

0694  0E4F 


069S  B679 


0696 
0697 
0698 
0699 
069& 
069B 
069C 
069D 
069E 
069F 


6A4E 
B50P 
4A4F 
2D0A 

9ie» 

970A 

C6A0 
B037 
0E4F 

ceA2 


OfiAO  B030 

06U.  ismv 


06112  S679 
06A3  0002 


puth20 


puth25 


putl20 


{mtl25 


movpf 

swapf 

andlw 

movpf 

negw 

addlw 

btfss 

goto 

movlw 

addwf 

goto 

siovlw 
addwf 

call 

movfp 

andlw 

movpf 

negw 

addlH 

btfss 

goto 

movlW' 

addwf 

goto 

Biovlw 
addwf 


wreg,HE3CVAL 

wreg 
OxOF 

wreg.HEXTHP 
wreg 
>0x09 
wregrMSB 
puth20 
-A'  -OxOA 
HEXTMF.W 
patli2S 


PutChar 

HEXVAL.wreg 

OxOF 

wreg.HEXTIW 

wreg 

0x09 

wreg, MSB 

I)Utl20 
'A' -OxOA 
HEXTMF.W 
putl25 

<0' 

BBXTMP.W 
PutChar 


call 
x«tum 

■  ^^^fi^***^c*^r  *******  It*******  **********************  *********************  ********* 
. ^*********************************** *******************  ******************** 


-'7  •.   i  Ltaam:  ■  Putstr 

;  DESCRIPTION:     Sends  a  ciiaractca:  string  out  the  serial  port. 


06A4  AB4C 

06A5  A24C 
06A6  A94D 

06A7  6A4C 
06A8  31C1 
0eA9  C6AB 

06AA  0002 

06AB  E679 

06AC  6A4D 
06AD  31C1 
06AE  C6Ba 

06AF  0002 

06B0  E679 
06B1  C6A5 


futstr 

tablrd  1,1,STRVALH 
GetNSxtPalr 

tlrd  l.STRVALH 

tablrd  0,1, STRVALL 

movfp  STRVALH.wreg 

cpfseq  ZERO 

goto  putH 
return 


putH 


piitL 


call 


PutChar 


movfp  STRVALL,  wreg 

cpfse^  2SS.0 

goto  piitli 

return 


call  PutChar 
goto  GetNextPair 
f ************************************************************************** 


. *************************************************************************** 
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NAME: 

DESCRIPTION! 

RETUBNS: 
QetHex 
getnxt 


Receive  an  ASCII  hex  character  from  the  serial  port  and 

convert  to,  nunez'ical  wk4»0.  .  - 

■  f>     ,,  ■ 

numerical  value  In  '  ' 


call 

call 

OeBS  C6B2 

goto 

getnxt 

06B6  2950 

clrf 

HhiAb  lAi 

06B7  E676 

call 

Get Char 

06B8  4A4E 

movpf 

wreg , HEXVAL 

0oB9  Eo79 

call 

FuCLnar 

Q6B11  BOOD 

inovlw 

CR 

06BB  044B 

sulswf 

06BC  330A 

tstfsz 

wreg 

06BD  C6BF 

goto 

gthlO 

06BE  C6C9 

goto 

gthCR 

■ '  ^hlO 

zooVfp 

HBXV^  t  wreg 

OSCO  -1-'., 

06C1  97aA 

btfss 

mreg,!!!^'"' 

06C2  C6C5 

goto 

gth20 

06C3  B009 

inovlw 

0x09 

0eC4  0F4E 

addwf 

HEXVAL 

gth20 

06C5  BOOF 

movlw 

OxOr 

06C6  0B4E 

anAiff 

06C7  2950 

clrf 

REXST&T 

0608  0002 

return 

gthCR 

06C9  BOOl 

movlw 

0x01 

06CA  4A50 

movpf 

wreg.BBXSTAT 

06CB  0002 

return 

.  *********** 

******************  ****************4^.9k9E****#*ik*********************^li@£Stl^4Nf^* 
getval 


DBSCRIFTIcai:    Get  a  value  (800000, 7FFFF1K> 
it  in  VALBUF. 

if  DECIO 

else 


the  serial  port  and  place 


GetVal 


CI.R24  VALBDF 


getnext 


call  GetHex 

inovlw  0x01 

cpfseq  BBXSTAT 

goto  shift 

matt--  .  »u»tMt<.n  |.>i«. 

smapS-  VAIiB(;iF+B2      '  ' 

nov^  VKLBDF+B2,'Mresr' 
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andlw 

OxFO 

movpf 

wreg , VALBUF+B2 

swapf 

V2JjBUF+B1 

movfp 

VALBUF+Bl  /  WC&Q 

andlw 

OxOF 

addiff 

VKt4iPF+B2  . 

xoovfp 

VALBDF+Bl , wreg 

andlw 

OxFO 

movpf 

wreg , VALBUF+Bl 

swapf 

VALBUF+BO 

movfp 

VALBUF+BO ,  wrer 

cuidlw 

OxOF 

addwf 

VAZaOF+Bl 

movfp 

VAIiBUF+BO ,  wreg 

andlw 

(hcFO 

addwf 

HEXVAL.W 

movpf 

wreg , VALDOF+BO 

goto 

getnext 

endif 

*********************************************************************** 

************************************************* 


NAME: 


*********** 

GetDecVal 


DESCRIPTION:     Get  a  value  [-8388608,83886071   from  the  serial  port  and 
place  it  in  VJOiB^P- 


EETOBNS: 
if 

GetDecVal 


numerical  value  is  returned  in  VftLBUP 
DECIO 

VM.BUF 


06CC  2931 
06CD  2932 
06CE  2933 


CLRF 
CXRF 

CLRF 


VALBUF+BO 
VALBUF+Bl 
VALBUF+B2 


06CP  E708 
OeDO  2B9B 
06D1  BOOl 
061X2  3199 

06D3  a9i9e 


call 
setf 
movlw 


GetDec 

I^SIGN 

DEC_|OI 


cpfseg  DECSTAT 
clrf  DEcsnai 


06D4  E708 


getdecnext 

call 


06DS  B<td2 
06DS  3199 
06D7  ceD9 
06D8  CSFD 


06D9  S804 
06D&  1B31 
06!»  1B32 
06DC  1B33 


06DF  6A32 
0680  4A35 


novlw  DEC_CR 
^iCseq  DECSTAT 


goto 
goto 


mullO 


BCF 
DLCP 
RLCF 
SLCF 


MOVFP 
MOVPF 
MOVFP 
MDVPF 


mullO 
fixsign 


!tLC24  VALBOF 


_c!arxy 
VAIiBOP+BO 
VaiiBOF-l-Bl 
VALBUF+B2 


H0V24  VALBOF.DVALEOF 


VALBOF+BO ,  wreg 
wreg,DVAIiBOF+B0 
VALBDF+Bl, wreg  ' 
wreg,  DVALBQP+Bl 


;  multiply  VALBBF  by  two 


i$l  OWALBDF 

;  get'b^e  of  Valbuf  into  w 
;  move  to  DVAIiBDF(BO) 
7  get  byte  of  VALBUF  into  w 
;  move  to  iDVALEOF(Bl) 


omsmmmm 
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06E1  6A33 
«U6 


MOVFP 
MOVFF 


VALBUF+B2,vareg 
wreg,  DVALBUF+B2 


!)LC24  VMiBOF 


get  byte  of  VALBUF  into  w 
move  to  DVM:.BDF(B2) 


omt  1B31 

06SS  1B32 
06E6  1B33 


KLCT  ' 
BLCP 


VAiaOF+Bl 
V%IiBUF+B2 


RLC24  VALBOF 


;  VAXiBUF  now  maltlplled  by  etj^t 


oegT  SS04 
1B31 
06E9  1B32 
OeEA  1B33 


BCF 
BLCF 
RLCF 
RLCF 


_C!u:ry 
VALBOF+BO 
VALBOF+Bl 
VKLBUF+B2 


ADD24  DmLBaF.VSIiBDF 


06EB  6A34 
06EC  0F31 
06ED  6A35 
06EE  1132 
06  EF  6  A3  6 
06F0  1133 


MOVFP 
SODNFC 
MOVFP 
ADDWFC 

CLR24 


DmLTOF+BO ,  ttre^ 
Via>BaF+BO 
DWAIiBDF+Bl ,  wreg 

DVALBT]F+B2  ,wreg 
VftI,BUP+B2 

EVALBDF 


VALBOF  now  miltiplied  by  ten 

get  lowest  byte  of  DVALBUP  into  w 
add  lowest  byte  of  VALBUF,  save  in 
get  2ad  byte  of  DVALBUF  into  w 
adi^aiia  byte  of  VALBOF,  save  in 
3ei'3i?d  byte  of  DVALBDF  into  w 
a^d  3rd  byte  of  VALBUF,  save  in 


esri  2934 

06F2  2935 

06F3  2936 
06F4  6A98 
06F5  4A34 

OeFS  eA34 
06r7  0P31 
06F8  6A35 

06F9  1132 
06FA  6A36 
06FB  1133 

OSFC  ceD4 

OCF0  S90A 
06F«  329B 
06FF  0002 


CLBS 

CLRF 

movfp 

movpf 

ADD24 

MOVFP 


f ixslgn 


MOVFP 

ADDWFC 

MOVFP 

ADDWFC 

goto 

clrf 
cpfsgt 
return 
NEG24 


DVALBOF+BO 
D7ALBDF+B1 

DVALBUF+B2 
DECVAL , wreg 
wreg, DVALBUF+BO 
DVALBUF,  VALBUF 
DVALBUF+BO, wreg  ; 
VALBt)F+BO  i 
DVALBDF+Bl.wreg  ; 
VALBUF+Bl  ; 
DVALBUF +B2, wreg  ; 
VALBUF+B2  ; 

getdecnext 

wreg 

DBCSICN 

VALBOF 


get  lowest  byte  of  DVALBUF  into  w 
ad^'SiowNM:' byte  of  VALBOF,  mm  ^' 
^  21id  bytfe  of  DVALBDP  into  w       >'  T-.  ^  ■  r. 

add  2nd  byte  of  VALBUF,   save  in  VALBUF  (Bl) 

get  3rd  byte  of  DVALBUF  into  w 

add  3rd  byte  of  VALBUF,  save  in  VALBUF  (B2) 


0700 
0701 
07O2 

0703 
0704 
0705 
070fi 


1331 
U33 
1333 
290A 
1531 
1132 
1133 


VALBOF+BO 
VMiBI^+Bl 
V»LB0FfB2 

wreg 

VALBUF+BO 
KSSamc  VALBOF+Bl 
ADDWFC  VALBaF+B2 


CQMF 
COHF 
CLRF 


0707  0002 


return 
endif 


■MAIA 
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, *************************************************************************** 


GetDec 


;  OBSCRIPTION:  Racelve  an  ASCII  deQisal  chaxaeter  from  the  serial 
;  cx>nvert  to  Its  .«iineslesl  value. 


numerical  value  is  nt^uzned  iMpSBCVKL 


if 


0708  E557 

0709  E681 
07 OA  31C2 
070B  C708 

070C  B676 
070D  4A9S 

070E  E679 


070F 
0710 

oni 

0713 
0714 
0715 
0716 
0717 
071S 
0719 
071X 


getdecnxt 

call 


BOOD 

3mi 

B02D 

0498 
30C1 
C722 
B020 
0498  . 


071B  BOOT 
071C 

Q71B  2ifS» 
miJt  0902 

e  V  lF  8902 

0720  4A99 

0721  0002 

0722  BOOl 

0723  4A99 

0724  0002 

0725  BOOO 

0726  4A99 

0727  0002 


w  c-Jn  ^   *  I.  "  >\  '! 
.'il  >f.'  >  gtd09 
w  c  -  -  -* 


gtdCR 


SftdSP 


IdleFunction 
call  GetChk 
cpfseg  ONE 
goto  getdecnxt 


GetCtwr 
voreg/DBCVAL 
PutChar 

CR 

DBCVAL.W 


call 
movpf 

call 

movlw 
stibwf 
c^fslt 
goto 
movlw  HH 
subwf  DECVAL 
cpfslt  ZERO 
goto  gtdMN 


movlw 
subwf 


gtdCR 


SP 

DECVAL, W 


goto  gtdSP 


movlw 
andwf 
elrf 
return 

movlw 
movpf 
retvim 

movlw 
movpf 
return 


OxOF 

DECVAL 

DECSTAT 


DEC_CR 
wreg.DBCSTAT 


wr  eg ,  DECSTAT 


movlw  ISC_SF 
movpf     wreg, DECSTAT 

return 


-II. 


endif 

.  *******  *****tt***if  ***********  It*******  ************  It************************** 

>  I  ■ 


■  *************************************************************************** 
FutVal 


DBSCRIPTION2    Sends  the  value  in  VALBOF  [800000, 7FFFFF]  out  the  serial 


if 

else 


DBCIO 


PutVal 
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movfp 

VALBUF+B2,vn:eg 

call 

PutHex 

movfp 

VALBUP+Bl t wreg 

call 

PutHex 

movfp 

call 

PutHex 

endif 

':i  9v««  ^''«ijgs  •'  PutDecflftO.            ^         ■          -''^                                     ' -■  - 

•  DESCRIPTIC^:  Seiid  l^ec  valufl  in  VALBUF  [-MMSS, 8388607]  out  the  serial 

■  '                                  i   i,  • 

»       if  DECio               '"■     ■-■•»!.■■       J  -                               ar.'-.'i  aa*"' 

PtttlJec^flal  -  -   -.   ■  "■ 


0728  9733 

0729  C734 


btf  S8      VALBC7+B2 ,  MSB 
goto  p<^os 
VALBUF 


mm  tm% 

072B  1332 
072C  1333 
072D  290A 
072E  1531 
072F  1132 
0730  1133 


CQHF  «a,BOF*S0 

asm  'va£iS£e>»Bl 

COHF  VALBaF+B2 

INCF  VALBUF+BO 

ADDWFC  VALBUF+Bl 

ADDWFC  VALBOF+B2 


mm.  Ms 

0732  B6t9 

0733  C736 

0734  B020 

0735  E«79 


0736  BOS0 

0737  4A0D 

0738  B007 

0739  4A0E 

073A  A934 


pi^os 


movlw 
call 

goto 

movlw 
call 


pddigits 

movlw 

movpf 
movlw 
movpf 

tablrd 
reat3N«ctDec 


PutChar 
pddigits 

SP 

PutC3jar 

-I  ;'.:,.  .  .    il-      It:   'is  IVO 

(BEcjrABi.a  £  Oxff)       !  DBCurjsffiia  : 

wreg.tblptrl         t..  M 
page  DEC_TABLE  DS 
wreg, tblptrh 


0, 1,DVALBUF+B0 


073B  A034 
073C  Mas 
073D  A936 


tlrd 

tablrd 

tablrd 


0 ,  DVALBtTF+BO 
1,1, DVALBUF+Sl 
0,1, DVALBUP+B2 


read  entry  from  table 


073E  2B0A 

mm^  urn* 

0740  C7«2 

0741  C756 

0742  1534 

0743  2B98 


setf 


getdigit 


goto 


incf 
setf 


wreg 

unitspositi^ 

DVALBUF+BO 
DECVAL 


uni-t^dsition  if  end  of  table 


restore  to  power  of  10 
set  DECVAL  to  -1 


0744  1598 


0745  6A34 

0746  0531 


"iaacf 

S0^4: 


DECVAL 

DVALBOF ,  VALSi^  ^ 

m&s^r+^ ,  wreg 

^jpE<SW-i#0 
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0747  6A35 

0748  0332 

0749  6A36 
074A  0333 


MDVFP 

SOBWFB 

MOVFP 


DVALBUF+Bl.wreg  ;  get  2nd  byte  of  DVALBUF  into  w 

VALBUF+Bl  .  ;  sub  2nd  byte  of  VALBITF,  save  in  V»LB0P{B1) 

DVAIiBUF+B2,vn:eg  ;  get  3rd  byte  of  DVALBUF  into  w 

VALECIF+B2    ^       ;  sub  3rd  byte  q£  VALBD7,  save  in  VAIiBDP(B2) 


074B  9733 
074C  C744 


btfss 
goto 


VAIiBDF+B2,^|^ 

inc 


ftDD24      DVALBOF.'WaHaP   ;  if  so,  oqrjseet  VALBUP  for  next  digit 


074D  6A34 
074E  0F31 
074F  6A35 
0750  1132 

otm,*M0t  ■ 

07S2  1133 


HOVFP      DVALBUF+BO.wreg  ;  get  lowest  byte  of  DVALBUF  into  w 

ADDWP      VALBUF+BO  ;  add  lowest  byte  of  VALBUF,  save  in 

MOVFP       DVALBOF+Bl ,  wreg  ;   get  2nd  byte  of  DVALBUF  into  w 

ADDWFC     VALBUF+Bl  ;   add  2nd  byte  of  VALBUF,   save  in  VALBUF (31) 

M9VFP'~  D««l^R^'*>B2fWre9';-{^  Sed-byte-of  DVALBUF  into  w 

ADDHSC    ^mLmF*92  >;.  'a^  l^xd  byte  of  VALBUF,  sAve  in  Vimaum) 


0753  6A98  i,,,.  irOBSs-'CS 

0754  E685 


call 


^evMi,wreg 

PutDec 


send  DECVAL 


0755  C73B 


goto 


readNextDec 


get  next  table  entry 


0756  6A31 

0757  B685 


0758  0002 


unltsposition 

movfp  VALBUF+BO, wreg   ;  units  position  value  now  in  VALBUF 

call  PutDec  ,1  ■,  ,j,  ( 

return  ,  ,  t.  . 


endif  .i  M  -  V' 

.  1e***ilif******-k1r1r  It*************************************  ******  ********1Hlil**^iH, 


,******************************************************** 


****************** 


C»D_STaRT  CMD_TABLE 
CHDTABLE 


0759  OOOD 
07SA  0570 


OffiLPBF  do_jiall,00_jnXLIi 

QATA  D0_J1ULL 
:  DA7A:  .  do_null 


CMDJDBF  dojiiove,DOJI10VE 


075B  004D 
075G  0S72 


DATA 
EMTA 


DOJIQVB 
dojBGVe 


CMD_DEP  dojnode.OOJJpei 


075D  004F 
075E  0580 


DATA  D0_ 
DATA  do_iiiode 


CHD_DEF  do_setparainetec,PQ_SBTFAKAMETER 


0T5F  00S3 
0760  059c 


DATA 

I3ATA 


DO_SETPARAMETER 

do_setparaineter 


CMD_DEF  do_readparameter,DO_READPARAMETER 


0761  0052 

0762  05C3 


DATA  DO_READPARAMETER 
DATA  do_readpiu:aiiieter 


FWtMlliMfllilMBllIlM 
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CMD_DEF  do_shutter,I50_SBailTai 


0763  0043 

0764  OSSB 


0765  0«50 

0766  060D 


DATA  DO_SHUTTER 

DATA       do_Shutter>  ilCOx.'.         v  •  ■  i  ^ 

T\.'        AT  . 

CHD_PEF  do_rea^<^6l»itlcin,D0/'^EMX:oiIF0SI<ri0N 

DATA        DO_READG(aiFSSte«lCSI  "Aj 
DATA  do^eadcoaposiU(»i 


tooo  r 
Oioo  rr:a 


CMD_PBF  do_readeaiBvel'&isity,MjllBAJx;taiVE3:<0CITY 


0767  oes« 

0768  0616 


DATA 


POJREAIXIOMVKLOCITY 
<lo_reaclcon*feloetty 


CMD_DEF  do_readactgil*t1tion,B0iaiEADJkCTPOSITIO[J 


AiOO  i>i~:i 


0769  0070 
076A  061F 


DATA 
DATA 


DO_READACT  POSITION 

do_readactposi  tion 


CMD_DEF  do_readactvelocity ,  DO_READACTVELOCITy 


f7«»  0»16 
076C  0S2S 


DATA 
□ATA 


DO_RmU3ACTVIiOCITlf 
do_readact'^elocity 


CMD_DEF  do_externalstatus,DO_EXTERNALSTATaS 


076D  0058 
0768  0631 


DATA 
DATA 


DO_EXTERNALSTATUS 
external^ast^s 


076F  0059 
0770  0638 


O^^EF  doLjnavesata^1ii»evB0_JI^G^STATUS 

DATA  BOJiOVBSTAWSE 

DATA       dojHovestatto  ■  i  .  ■ 

CMDJJEF  do_readin^««dUon,Sft.^ADlNDK)SITIOJI 


0771  0049 

0772  063C 


DATA 
DATA 


DOJIEADINDPOSITIOH 
do_^readixi^osition 


0773  004«  - ' 

0774  0645 

SiAiir  oil 


0775  005A 

0776  0658 


aiD_pEF  do_setpositlon,DO_SETPOSITIOS 

aATA  do_s*t|>Bsiti£«. 
ajDJiEP  do_reBet,D0jBlB8ST 


DATA 
DATA 


DO_RESET 
do  reset 


CMD_DEF  do_stop,DO_STOP 


0777- 0fl73: 
0778  065B 


DATA 
DATA 


DOLSTOP 

do_s  top 


_P  ICMASTER_DEBUG 
CMD_DEF  do_captUre,DO_CAPTDRE 


ff77A  WSE. 


■  -■in   I...   .   DATA  :■■ 
■.  i^u  0»TA  -  ■  <S^jj^ffi*a*»;  'K.o 

-    ,  vjco I   '  ■       ■  ■  ■-,.^:.- 


077B  0000 


DATA 


0X00 


;  In  PAS._TABIjE,  the  code  woxd  Is  toa^^Sews^'i  ' 

>       ,  rl'&Af  WjVt;- 


uOOK  Al  ■ 
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Low  Byte  Is  t---at  bytes,  HI  Byte  Is  function  code 


077C  0003 

PML.TABLB 

DATA 

0x0003 

077D  0020 

DATA 

VL 

077E  0103 

DATA 

0x0103.-- 

077P  0023 

DATA 

AL 

DATA 

0781  0026 

DATA 

Kp 

0782  0302 

DATA 

0x0302 

0783  0028 

::DATA 

KV 

0784  0402 

DATA 

0x0402 

0785  002A 

DATA 

KI 

0786  0501 

DATA 

0x0501 

0787  oeac 

DATA 

IK 

0788  Ofi02 

■■:<  ■: 

0789  002D 

DATA 

F» 

07SA  0702 

DATA 

078B  002F 

DATA 

FA 

07SC  0008 

DATA 

NUHPAR 

it 

I»CIO 

07811  mm 

DBC_TABLE 

DATA 

09C423F 

OTSE  OdOf 

DATA 

0x0 OOF 

078F  869F 

DATA 

0x8 6 9F 

0790  0001 

DATA 

0x0001 

0791  270F 

DATA 

0x270F 

0792  0000 

DATA 

0x0000 

0793  03E7 

DATA 

0x03E7 

0794  OOOO 

DATA 

0x0000  ,f  . 

079S  0063 

DATA 

0x0063 

0796  0000 

DATA 

0x0000 

0797  0009 

DATA 

0x0009 

0798  0000 

DATA 

0x0000 

0799  IWF 

DATA 

endif 

endif 


0060 


if  _PICMASTERJ3EBUG 

include  *picmastr.asm'  ;  PIC-MASTER  0^»ig  (data  capture)  Fit^ 

•define  CaptureAddr         0x8000  ;  addr  for  dannv  T^le  Writes  (to  TRAC3C 


07S&  BOM 
e7»  OSOB 
079e  B080 


*************************************************************************** 
doCaptureRegs 


DB9CRIPTI0N: 


doCaq^tureRegs 

movlw 
novwf : 
Biovlw 


Captures  Desired  Register  Values  To  PIC-MASTER  Trace  Buffer 
Intended  for  ^QffkSfgR  Demo/debug/ servo  tuning  Purposes  Only 
Capture  Ae  foUowing  xmgiBtaea  to  Trace  Buffer  by  putting 
A  Trace  point  on  a  TABtdf  iasCie^tion.  Trace  only  2nd  CyclS' 

(a)  POSERROR  (position  error  :  16  bits) 

(b)  VELERROR  (velocity  error  :  16  bits) 

(c)  MPOSITION  (measured  position  value  ;  24  bits) 

(d)  MVELOCITY  (measured  velocity  value  :  24  bits) 

(e)  POSITION  (commanded  position  ;  24  bits) 

(f )  VELOCITY  (comm<uided  velocity  :  24  bits) 

(g)  y  (output  of  servo  loop  :  32  bits) 

(b)  YIW(  (output  value  written  to  MH  i  10  bits) 


(CtqptureAddr  &  Oxff ) 
tblptxi  . 
CaptureAadr/256 


;    lendl  hdr  ! skip  start! 
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079D  OlOE 


movwf  tblptrh 


setup  table  pointer  address  ?3 


079E  AC79 
079F  A67A 
of  POSERROR 

07A0  ttC79 
POSERROR 


tablwt 
tlwt 


capPerr 


0.  0,POSERROR+B0 

1,  P0SERK0R+B1 


tablwt     0,0,  POSERROR+BO 


dumiy  tablwt 

now  table  latch  =  16  bits  contwts 


perform  actual  table  write  of 


07A1  AC7C 
07A2  A67D 


07A3  AC7C 


tablwt 
tlwt 


capVerr 


0.  0,  VELERROR+BO 

1.  VELStSOR+Bl 


tablwt    0,0,  VELB8ROR+B0 


capture  Velocity  error 


07A4  AC72 
07A5  AS73 


07A6  AC72 


tablwt 
tlwt 


CO.MPOSITION+BO 
l,MPOSITiaN+Bl 


tablwt    0,0,  MFOSITICai+BO 


Gesture  neasTired  position 


07A7  AC55 
07A8  A656 


07A9  AC55 


tablwt 
tlwt 


c^Fos 


0.  0,POSITION+B0 

1,  P0SITI0N+B1 


tablwt  CO.FOSITION'fBO 


capture  commanded  position 


07AA  AC75 
07AB  A676 


07AC  AC75 


tablwt 

tlwt 


capHvBl 


0.  0,MVELOC1TY+B0 

1,  MVEL0CITY+B1 


tablwt  0,0,MVELOCITO+B0 


c«^ture  measured  velocity 


07AD  AC58 
07AE  A659 


07AF  ACS8 


Ci^Vel 


tablwt 
tlwt 


0.  0,VELOCITO+B0 

1.  VBLOCITir-i'Bl 


tablwt     0,0,  VELOCITY+BO 


Centura 


velocity 


07BO  AC88 
0781  AS89 


07B2  AC8S 


capPwn 


tablwt 
tlwt 


tablwt 

DEC16 


0.  0,YPWM+BO 

1,  yPHH+Bl 


o,o,ypwi(+BO 

CAFTOP 


c^tuxe  coananded  velocity 


07B3  290A 
07B4  07BB 
07B5  03BF 


CLRF 
DECP 
SUBWFB 


wreg 

CAPTMP+BO 
CAPTMP+Bl 


TFSZ16  CAFTHP 


07B6  6ABE 
07B7  08BF 
07B8  330A 


HOVFP 
lORWF 
TSTFSZ 


CAPTMP+BO , wreg 
CAPTMP+Bl, W 
wreg 


07»a  OO02 
07BA  0001 


return 
DATA 


HALT  instruction  (avail  only  in 


07BB  29BB 


HaltTrace 

clrf 
M0V16 


CAPFLAO 

CAPCOraiT ,  CAPTMF 


07BC  6ABC 
07BD  GIBE 
07BE  6ABD 
07BF  OIBF 
07C0  0002 


wsmw 

MOVMP 
MDVPP 
MOVWF 
return 
. ************** 


CAPCOONT+BO ,  wreg 
CAPTMF+BO 
CAFGOUN^T+Bl ,  wreg 
CAPTMP+Bl 

****************** 


;  get  byte  of  C&PCOraiT  into  w 
;  move  to  CAPTHP(BO) 
;  get  byte  of  CAPCOONT  into  w 
to  CAPTMP(Bl) 


***************************************** 


end 


Errors 
Warnings 


m 
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Implementation  of  the  Data  Encryption  Standard  Using  PIC17C42 


INTRODUCTION 

In  Janutuy  1 977,  The  UnKed  States  government  adopted 
a  product  cipher  developed  by  IBM®  as  Its  official  en- 
cryption standard  [1].  This  algorithm,  called  the  Data 
Encryption  Standard  (DES),  Uas  been  adopted  as  a 
worldwide  standard  for  data  encryption  by  ISO  (Interna- 
tional Standards  Organization)  [2,  3].  This  application 
note  describes  the  implementation  of  tf«e  DES  algorithm 
on  PIC17C42. 

THE  DATA  ENCRYPTION  STANDARD 

The  DES  algoritiim  is  a  substitution  cipher  whicii  takes 
a  block  of  64  bits  of  Input  (plaintext)  Into  a  unique  block 
of  64  bits  of  output  (ciptiertext),  undertlie  control  of  a  64 
bit  key,  whicli  is  known  only  to  the  people  intended  to 
read  the  message.  In  this  system,  plaintext  information 
is  divided  into  several  blocks  which  are  then  operated 
upon  independently  to  generate  a  sequence  of  ciphertext 
blocks.  The  basic  Idea  behind  DES  is  to  build  a  strong 
system  out  of  simple,  Individually  weak,  components. 
The  DES  cryptosystem  is  based  on  a  system  of  transpo- 
sitions and  permutations.  The  permutation  box  or  P- 
box,  Is  used  to  transpose,  or  map  a  sequence  of  input 
values  to  another  sequence  of  values  of  the  same 
length.  Substitutions  are  performed  by  what  Is  called  S- 
boxes.  A  combination  of  the  S-boxes  and  P-boxes  can 
ibe  viewed  £is  a  decoder/coder  operation,  where  the 
ioutput  is  simply  a  linear  mapping  of  the  Input  values. 
Each  combination  of  the  S-box  and  P-box  comprises  a 
single  weak  component  of  the  algorithm.  By  including  a 
iSirfn^lMly  largenumberof  siagesinthepiDductcipher, 
Ihe  oaqMJt  can  be  made  to  be  a  non-linear  function  of  the 
input. 

The  mapping  of  input  to  output  is  one-to-one  and  Invert- 
ible,  since  the  encrypted  messages  can  be  decrypted. 
The  DES  has  three  distinct  components:  key  schedule. 


KEY  SCHEDULE 

Th«D^  usesa64-bit  key  for  encryption  Eind  decryptkxt 
prwiess.  IhRSIIy,  the  original  64-bit  key  is  reduced  to 
564)it  fay  ignoiing  every  eighth  bit.  In  general  these  bSs 
am  used  as  parity  bits  to  make  sure  that  there  were  no 
enmwhenenteilttsthelwyorduringkeytransirasskxi. 
After  4he  SMA  key  is  extrected  a  different  48-bit  key, 
reieirad  to  as  suMcay,  is  generated  for  each  o(  the  16 
rounds  of  #a  OES.  These  ffff/s,  K^,  are  detennkied  as 
shown  In  P^ure-1 .  The  5&liR  is  divkled  into  two  28- 
btt  l^lvas  C,  and  D,  ti^lsii trai  shifted  left  by  either 
1  or  2  digHs,  depentflng  on  iie  round.  Table  1  shows  the 
n  umber  of  circular  left  shifts  for  C|  and  D|  halves.  Afterthe 
shifting  operation,  48  out  of  the  56  bits  are  selected. 
Since  this  operation  permutes  the  order  of  the  bits  as 
well  as  selecting  a  subset  of  the  original  bits,  it  is  called 
compressk>n  peimutation  or  permuted  choice.  The  per- 
muted chone  1  and  pemriuted  choice  2  matricas  are 
shown  in  Figure  2  and  Rgure  3  respectively. 


TABLE  1:   LEFT  SHIFTS  FOR  KEY 
GENERATION 


Iteration 

«  of  left  shifts 

1 

2 

1    ■  J 

3 

2 

4 

a 

5 

2 

6 

2 

7 

2 

8 

2 

9 

1 

11 

.  12 

2 

13 

2 

14  . 

.,r  15 

^:    .  .ss.  *Si 

.16 

1        Si  K 

A4.li«MiefiDeM|^.fW]flSia#:tne. 
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FIGURE  1  -  KEY  GENERATION 


''i 


64-bit  key 

I 


28 


Permuted  Choice  1 
Matrix 


I 


Circular 
left  sliift(s) 


\"l  "■'-1,  -■ 


II  I.  I-         ■   .  ' 


Circular 
left  stiift(s) 


C16 


I 


28 


4-. 


Do 

I 


Circular 
left  shift(s) 


Di 


56 


Circular 
left  shHt(s) 


r 


'16 


wtj.-v!!:  li  .    SB  . 
/ —  ■ 


Permuted 
Choice  2 
Matrix 


Permuted 
Choice  2 
Matrix 


48 


K3 


JM,J  El 


48 


FIGURE  3  -  PERMUTED  dtOlCE  2  KHAHtDC 
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27 
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36 

63 

55 

47 

39 
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52 

31 

37 

47 

55 

30 

40 

31 
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7 

62 

54 

46 

38 
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CIPHER  FUNCTION 

The  strength  of  the  DES  is  based  on  the  cipher  function 
component.  This  is  a  fixed,  highly  non-linear  function 
which  guarantees  that  each  bit  of  the  ciphertext  depend 

After  an  initial  pennutation,  the  64-bit  blocic  of  plaintext 
'  is  broken  into  a  right  half  and  left  half,  each  32  bits  long. 
,  TNSStep  is  followed  by  1 6  identical  rounds  of  operation, 
caHaitfunction  f,  that  combines  the  data  with  a  48-bit 
kf^,  1^  At  each  stage  i,  the  inputs  are  the  left  block  L^^ 
flFKiiTOe  right  block  R,.^  of  the  previous  stage,  and  the 
outputs  are  the  left  shift  block  L|  and  right  bkx:k  R|  of  this 
stage.  The  outputs  of  L|  and  R|  of  each  stage  are 
computed  from  L|.^  and  R|.^,  andj^  s^^^y.lC.^,at  if 
generated  from  the  encryptk>n  ka)^/li1  tMnw'wit^  a 
round  of  the  DES  can  be  shown  as:      .  3-  -  ■  vv 

R|  =  Li.iXORf(R|.„K|) 

All  the  complexity  of  the  DES  algorithm  lies  in  the 
funcikxif,  as  shown  in  Figure-4.  The  functton  has  four 
^ps  that  are  carried  out  in  sequence.  First  a  48-bit 
number,  E,  is  constructed  by  expanding  the  32-bit 
previous  right  value,  R,., ,  according  to  a  fixed  transposi- 
tion and  duplication  rule.  Then,  K,  and  Rj-I  are  XORed 
together,  generating  a  48-bit  result.  This  output  Is  then 
partittoned  Into  eight  groups  of  6  bits  each ,  each  of  which 
is  fed  into  a  different  S-box  or  substitution  box.  The 
S-boxes  generate  four  instead  of  six  outputs.  In  other 
words,  the  64-bit  input  is  mapped  into  a  32-bit  output. 
Each  S-box  is  a  table  of  4  rows  and  16  columns.  Each 
entry  In  the  box  is  a  4-bit  number.  The  six  input  bits  of  the 


S-box  specify  under  which  row  and  column  number  to 
k>ok  for  the  output.  Figure-7  shows  the  8  S-boxes. 

The  6  Input  bits  specify  an  entry  in  the  S-box  in  a 
particular  fashion  as  follows:  the  first  and  last  bits  of  the 
sequence,  taken  together,  represent  a  number  between 
0  and  3  (row  entry),  while  the  middle  4-bits  represent  a 
number  between  0  and  1 5  (column  entry) .  The  output  is 
simply  the  entty  that  corresponds  to  the  (row,  column) 
entry.  For  example,  that  the  input  to  the  first  S-box  Is  the 
binary  sequence  1 1 001 0.  The  first  and  last  bits  combine 
to  form  10  whkih  corresponds  to  the  third  row  of  the 
S-Ijox.  The  middle  four  bits  are  combined  to  fomi  1001 
which  corresponds  to  the  ninth  column  of  the  S-box.  The 
corresponding  entty  in  the  first  S-box  is  12.  Therefore 
the  value  of  1100  is  substituted  for  110010.  The  substi- 
tution t>oxes  are  the  most  critical  step  in  the  DES 
algorithm  and  rmre  tfian  anything  else  give  DES  its 
security. 

Finally,  the  last  stage  consists  of  a  permufatton  stage 
that  generates  a  32-bit  output.  After  the  16  rounds,  the 
left  and  right  halves  are  joined,  and  a  final  permutatien 
generates  the  ciphertext.  The  final  permutation  is  ttie 
inverse  of  the  initial  permutatk>n.  Figure-8  shows  a  bkick 
diagram  of  the  enciphering  portnn  of  the  algorithm. 
While  the  reverse  process  of  deciphering  is  shown  In 
Figure  11.  The  initial  permutation  and  inverse  initial 
permutation  matrices  in  Figure-8  are  shown  in  Figures  9 
and  1 0.  Where  the  algorithm  requires  bit  manipulation  of 
a  stream  of  data  according  to  a  matrix,  the  matrix  is  read 
from  left  to  right,  top  to  bottom,  and  interpreted  as  the  bit 
position  In  the  output  block.  ,  For  example,  the  initial 
permutation  matrb(tRfii$liit»btt1  to  bitSd,  bit2tObit50, 
bits  to  bit42.  etc. 


FIGURE  4  -  FUNCTION  f  (Ri,  K,  ^  |) 
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INVERTIBILITY 

The  DES  cipher  function  is  not  necessarily  invertlble, 
meaning  to  decode  a  message,  it  is  not  necessary  to 
recover  the  input  to  the  cipher  function  from  its  output 
and  a  knowledge  of  the  key.  In  fact  the  cipher  function 
must  be  highly  non-linear  to  be  resistant  to  plaintext 
attack  (a  method  used  for  breaking  a  given  algorithm). 
Invertlbility  of  the  DES  is  that  one  half-word  of  the  output 
is  precisely  the  bit  configuration  which  was  used  to 
encode  the  other  half,  with  the  aid  of  the  particular  stage 
subkey.  Therefore,  by  using  the  subkeys  in  reverse 
order,  the  encryptton  process  can  be  reversed.  This  is 
really  the  reason  that  one  half-word  is  always  passed 
through  unchanged-to  provide  the  meanstri  decrypting 
the  other  half-word. 

PIC17C42  IMPLEMENTATION  OF  DES 

CPU  processing  is  required  to  generate  the  encryption 
icsy  into  the  DES  subkeys.  The  64-bit  encryption  key  is 
reduced  to  56-blts,  by  ignoring  every  eighth  bit,  usually 
used  as  parity  bit. 

The  majority  of  the  DES  code  is  for  the  Implementation 
of  the  permutation  of  the  block  of  bits.  The  56-bits  of  the 
key,  stored  in  K1  through  K8,  scrambled-bit  output  is 
stored  in  the  eight  bytes  D0-D7.  The  scrambling  is 
accomplished  by  constructing  D0-D7,  one  bit  at  a  time. 
This  is  accomplished  by  initializing  the  DO  to  D7  loca- 
tions to  a  known  state  (cleared) .  Then  the  64-bits  of  plain 
text  are  processed  through  the  Initial  Permutation  Matrix 
(IP),  which  permutes  the  plain  text  and  divides  the 
information  into  two  32-bit  blocks. 

The  use  of  Indirect  addressing  and  the  PIC16/17's 
single  word  instructions  allows  tight  efficient  coding  of 
the  DES  algorithm.  These  bit  testing  capabilities  allows 
the  same  code  structure  to  generate  the  differentsublcey'  ' 
bkx:ks.  This  permutatton  macro  looks  like: 

I      Permute     Kacro  KEV, TEST, BIT 

Bros  C  KEY,  TEST 

BSF  INDOF0,BIT 
endm  d 

VVIi«r»tieyistheDESI(eyandTESTIstteMi8thel^^ 
teMg  lnied.  n  «»  KEY<TI^>  bit  is  sat,  then  the  bH 


TABLE  2:  DES  ALGORITHM  REQUIREMENTS 


Function 

Prnnram 

Memory 
(words) 

Instruction 
cycles  ms 

Key  management 
and  subkey 
generation 

382 

2729  0.436 

Encryption 

798 

7714  1.234 

A  bit  rate  of  about  51  kbps  baud  can  be  achieved,  with 
a  device  utilization  of  1 00%.  This  makes  the  PiCI  7C42 
a  price/perfonnance  leader  for  DES  aigoritms. 

CONCLUSION 

We  have  demonstrated  the  implementation  of  the  DES 
algorithm  on  the  PIC17C42  microcontroller.  The  160  ns 
cycle  time  of  the  PIC17C42  makes  possible  a  half- 
duplex  rate  of  approximately  51  kbps  for  the  DES.  This 
rate  is  as  good  or  superior  to  other  implementations  of 
the  algorithm.  The  high  performance  of  the  PIC17C42 
provides  a  low  cost  alternative  to  many  dedicated  solu- 
tions resulting  in  minimum  system  cost  because  of  the 
programmabllity  of  the  devk:e. 
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jThe  main  algorithm  requinmlliii  the  16  subkeys,  each  < 
{^«IMteng,b»seReMd.  These  16  subk«fs  are  then 
fuss*  «  #»  1«  sft^  of  Ihe  aJ|D*im. 
lUsIng  the  generated  subkeys,  the  incoming  stream  of 
'bits  can  be  encrypted  or  decrypted.  Table  2  shows  the 
iraquHwmnts  of  the  DES  algorithm. 
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FIGURE  9 'INmAL  PERMUTATION  MATRIX 
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FIGURE  8  -  DES  ENCRYPTION  BLOCK»PtAGftAM 
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APPENDIX  A 


NOTE:  The  PIC1 7C42  code  implementing  the  DES  is  not  published  because  it  falls  within  the 
U.S.  Department  of  State  Export  Con^)R6gdteitonss~' 

Please  contact  your  local  Microchip  sales  ofliy "to  aiaiw  a  cqay  of  the  code.  

.•;.i|yt 
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Implementing  a  Table  Read 


INTRODUCTION 

This  application  note  shows  how  to  implement  a  Table 
look-up forall  PIC16/17  products.  The  examples  shown 
are  for  the  PIC16CXX  family.  An  explanation  of  differ- 
ences for  the  P IC 1 6C5X  family  and  Piei7C42  is  at  the 

end  of  this  application  note. 

To  access  data  in  Program  Memory,  a  table  read  opera- 
tion must  be  performed.  The  Table  consists  of  a  series 
of  RETLW  K  instructions  where,  the  8-bit  table  constants 
are  assigned  to  the  literal  K.  The  first  instruction  in  the 
Table  computes  the  offset  to  the  table  by  using  "addwf 
pel'  and  consequent^  the  program  branches  to  the 
appropriate  ircitfit*  xtobUclion  (see  ixample  1); 


IMPLEMENTATION  ''^ 

Program  Counter  Loading 

TTie  PC  in  the  PIC16CXX  is  13-bits  wide.  The  low  8-bits 
(PCL)  are  mapped  in  RAM  at  location  02  and  are  directly 
readable  and  writable.  The  high  5-bits  are  not  accessible 
directly  and  can  only  by  written  through  the  PCLATH 
(see  Figure  1).  The  PCLATH  is  a  r/w  register  with  only 
five  of  its  bits  Elemented  <4:0>,  t#elM)rfal&^i«ad 
as  '0'. 


FIGURE  1  -  LOADING  OF  PC  IN  DIFFERENT 
SITUATIONS 


Example  1 .         ' "  - ' 


movlw    offset  ;load  offset  in  w  reg 


Table: 

addwf  pel 

retlw  'A' 

retlw  "B" 

retlw  'C 


;add  offset  to  pc  to 
(•generate  a  computed  goto 
.•return  the  ASCII  char  A 
;  return  the  ASCII  char  B 
;  return  the  ASCII  char  C 


12         8  r 


5^      PCLATH  <4:0>^  '/ 


I  INST  wilh  PCL 
I  MURMt 


-iPOLATH  <4:3> 


1'  0|IBMto.<«iesO> 


The  method  is  straightfonward,  however  certain  precau- 
tions have  to  be  exeicised  when  doing  a  Table  read  In 
the  PIC16CXX. 


Implementing  a  Table  Read 


Call  and  Goto  Instruetiona 

When  executing  a  call  or  goto,  the  low  1 1  -bits  are  loaded 
directly  from  the  instruction  opcode.  The  high  2-bits  are 
loaded  from  bits  3  and  4  of  the  PCLATH.  It  is  a  good 
practice  to  pre-load  the  PCLATH  with  the  high  byte  of  the 
location  of  the  routine  before  executing  the  roUttUClW" 
can  be  done  as  follows:  . 

Example  2. 


movlw    HIGH  Table 

movwf  PCLATH 
call  Routine 


;load  high  8  bit 
.■address  of  Table 

; into  PCLATH 

; execute  Call 
; Instruction 


Ofe   n  the  program  memory  size  Is  less  than 
2<  bvlsb  ihnn  tha  above  prai.> 


Computed  Goto  instruction 

Any  instnjction  with  PCL  as  the  destination,  will  load  the 
PCH  with  the  5  low  bits  from  the  PCLATH  (see  Figure  1 ). 
In  Program  3,  if  the  address  where  the  (^1  ygas  mads, 
was  on  page  0  and  the  address  of  the  actual  table  was 
on  page  3,  then  when  executing  the  computed  goto,  the 
program  will  go  to  a  location  in  page  0  instead  of  a 
'  location  on  page  3.  To  avoid  the  program  from  branchf^ 
ing  'erratically*  when  doing  a  table  read,  the  PCLATH 
should  be  pre-loaded  with  the  high  byte  of  the'  Tabto' 


afikJress.  ExanmleSs 

Exampto  S.";  '^  ■  ' 

org .  OnSO 
^meg^  offset 

■it*'J'n'.:-..  li 
v         -i;'':<<i  :■:  ■n.:: 
-  r  ol  <-').  -u  a  Ur. 

Table 

addwf  pel 


i  how  this  can  be  done. 


;->(!■:((«  ifUii  to  b.'l'e 


.;^0^.  I9C1 

^load  offset  in  wir^Sr 


rTHbla  located  In  sa>3«'3 


retlw 
retlw 
retlw 


;add  offset  to  pc,  to  ^ 
;  generate  a  compuiied  goto 

/return  the  ASCII  char  A 
; return  the  ASCII  char  B 
; return  the  ASCII  ct^r  C 
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When  doing  a  computed  goto  for  a  table  read,  care 
should  taken  about  page  boundaries.  The  ADDWF  PCL 
instruction  will  not  compute  a  value  greater  than  8-bits. 
In  Example  4,  the  result  of  the  computed  goto  will  result 
in  a  branch  to  an  unintended  portion  of  the  code.  The 
user  either  has  to  be  cautious  as  to  where  in  a  page  the 
Table  is  resident  or  will  have  to  monitor  page  roll-over 
and  add  It  to  the  PCLATH  ahead  of  the  computed  goto. 


movlw   HIGH  Table 


movwf  PCLATH 
iiK»rlw  offset 
call  Table 


org.  Oj^Oaff 

T«*lei^  , 

addwf  p£L  ' 

retlw  'A'  ' 

retlw  'B' 

retlw  '  C ' 


;code  location  in 
;page  0 

;load  Bf&Xta  %ri.th  hi 
; address 


;load  offset  in  w  reg 


;Table  located  end  of 
;page  2 


;value  in  pc  will  not 
;roll  ov«^  tc^  pag9  3 

; return  the  ASCII 
; char  A 

; return  the  ASCII 
; char  B 

.•return  the  ASCII 
;char  C 


To  tal<e  care  of  both  table  location  and  page  boundary 
crossing,  it  is  necessary  to  do  a  13-blt  computed  goto 
operel|i^«l^mfiM  «iaMi>«tlnS'<£  is  L 

The  code.  ^;^l^m^v^mmMmtSS0mif^ 

access  a  'mmi0m¥mmmimsmih.i>\\ i*-. 

fl(1! fTi  urf  a! I,  '  i-i 

'  -nisv  I ^'  rl  rv: ';a(i)< v  ' 

tow  Table    ;get  low  8  bits  -8(1 "  ' 
; address 

offset         ;do  a  8  bit  add 

V   _        '  .-operation.,,^,^.,^,, 

HIGH  Table  ; get  high  5.-))fftiW(^ 

; address 

status, c     ;page  crossed? 

1  ;yes  tboi  inc  hlj^ 

•address 

; latch 

; load  computed  offset 
;  in  w  reg 


movlw 

addwf 

movlw 

btfsc 
addlw 

movwf 

movt 

,  ca^  l 

Table : 
movwf 

retlw 
retlw 


offset^  w 
Table 


1    ^  b«»fc»o^ 


pel  ''^         jload  conqsuted  offset 


..^return  ttfe.^^^^^ 
,-ohar  A  -.y,. 

;  return  the  ASCII 
;  char  B 

; return  the  ASCII 
;  char  C 


Interrupts 

Interrupts  are  handled  like  a  call,  i.e.  the  present  PC+1 
address  is  saved  on  the  stack  and  the  program  vectors 
tokx»tion0x04.  In  example  5,  if  the  interrupt  occursjust 
before  the  "movwf  pel"  Instruction  (at  label  "Table"),  then 
the  present  fetched  Instruction  will  be  executed,  i.e. 
movwf  pel,  the  new  computed  PC  will  be  incremented 
and  saved  on  stack  (as  the  return  from  interrupt  address) 
and  the  program  will  vector  to  the  interoipt  vector.  On 
return  from  interrupt,  the  program  will  go  to  the  intended 
offset  of  the  table  + 1 .  This  is  a  very  undesirable  result, 
so  intemjpts  must  be  disable  during  a  table  read  opera- 
tion, i'i    \Ui«VlK  j 
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SECTION  2 


Example  6 


SXFamiiy 

ffie-WeteCSX  has  no  PCH  or  PCLATH  register,  so  the 
user  has  to  take  into  consideration  all  the  precautions 
mentfoned  in  Section  1 .  In  PIC1 6C5X ,  the  location  of  the 
Table  has  to  be  in  the  top-half  of  a  512  byte  page.  This 
restriction  Is  not  valid  for  the  PIC16CXX  family.  To 
convert  a  table  read  operation  from  PIC1 6C5X  code  to 
the  P^CieCXX  code,  %e  following  should  be  done: 

1.  llMnlwe  any  program  mamoiy  temk  select  ilKlruc- 
tk)tlB|PiCt6056S7),  If  present.  These  are  not  nec- 

2.  Do  a  13-blt  computed  goto  operation  (as  shown  in 
Example  5),  when  doing  a  table  read  operation. 


ittonfBrtfiePICt7C42 

Unlike  the  PIC16CXX  family,  ^^IQt7C42  Jeitis  the 
P6laTH  wMh  the  PCH  value  diiitig  a  caM  oif'  goto 
operation,  however  a  computedgcild,  does  nottalcs  care 
of  page  boundary  crossing.  A  164>il!  )30mpllti#  jump 
adefesss  sliouki  be  caleulatad  before  the  table  read  Is 
ameOUS.  Stampieetfiowshowthislsdone. 

Example  6  allows  the  user  to  locate  his  Table  at  any 
program  memory  location,  however,  for  large  table  or 
tables  which  cross  page  boundaries,  it  is  racommeiKled 
that  the  tablrd  /  tird'  Instniction  be  used,  these  Instiuc- 
forti^  read  operations  ahd  are  very 

codd  elfli^ent. 

As  mentioned  In  Section  1 ,  Inten'upts  must  be  disabled 
during  a  table  read  using  the  "retlw  K"  Instruction  (Ex- 
ample 6).  Note  It  is  not  necessary  to  disable  interrupts 
when  using  the  "tablrdAIrd"  Instruction  for  table  read 
operaUons. 


ntovlw    LOW  Table     ;get  low  8  bits  of 
; address 

addwf     offset  ;do  a  8  bit  add 

; operation 

movlw     HIGH  Table    ;get  high  8  bits  of 
; address 


btfsc  status, c 

addlw  1 

movwf  Pid^ffer 

call  Table  ' 


Table: 

movf 
movwf 
movt 
mbv^f 

retlw 

retlw 

retlw 


PchBuf fer,w 
PCLATH 
offset:, w 
pel 


;page  crossed? 

;yes  then  inc  high 
; address 

;  load  in    tenp  r 
; location 


;get  high  offset 

; load  in  latch 

;get  low  offset 

;  load  eb^uted 
; offset  in  PCL 

.■return  the  A^tt 
;char  A 

; return  the  ASCII 
;char  B. 

; return  the  ASCII 
;char  @ 


•  ....  ..  .-  «,!..   I,  I,  '.r... 


Author:  Stan  D'Souza,  Logic  Products  OMsion 


Microchip 


Techniques  to  Disable  Global  Interrupts 


This  application  brief  discusses  four  methods  for  dis- 
abling global  interrupts.  The  method  best  suited  for  the 
application  may  then  be  used.  All  discussion  will  be 
specific  to  the  PIC16CXX  family  of  products,  but  these 
concepts  are  also  applicable  to  the  PIC17C42,  and  are 
shown  in  the  B  examples. 

To  disable  interrupts,  either  the  Global  Interrupt  Enable 
(OIE)  bit  must  t>e  cleared  or  all  the  individuai  Intenupt 
enable  bits  must  be  cleared.  An  issue  arises  when  an 
instmction  clears  the  GIE  bit  and  an  intemipt  occurs 
"simultaneously".  For  example,  when  a  program  ex- 
ecutes the  instruction  BCF  INTCON,  GIE  (at  address 
PC),  there  is  a  possibility  that  an  interrupt  will  occur 
during  this  instruction.  If  an  interrupt  occurs  during  this 
instruction,  the  program  would  complete  execution  of 
this  instruction,  and  then  immediately  branch  to  the 
user's  interrupt  service  routine.  This  occurs  because  the 
GIE  bit  was  not  clear  (disabled)  when  the  interrupt 
occun-ed.  Normally  at  the  end  of  the  interrupt  service 


routine  is  the  RETFIE  instruction.  This  instruction  causes 
the  program  to  return  to  the  instruction  at  PC  + 1 ,  but  also 
sets  the  GIE  bit  (enabled).  Therefore  the  GIE  bit  is  not 
cleared  as  expected,  and  unintended  program  mnecu- 

tion  may  occur. 

One  method  to  ensure  that  the  GIE  bit  is  cleared  is 
shown  in  Example  1 ,  as  well  as  in  the  PIC16CXX  data 
sheets.  This  method  tests  the  state  of  the  GIE  bit,  after 
clearing,  to  ensure  that  it  was  not  accidentally  set  In  the 
user's  interrupt  service  routine  by  the  RETRE  instruc- 
tion. If  the  GIE  bit  was  accidentally  set,  the  pfOigFam 
blanches  back  to  the  In^tuction  thsd  cleai«it»:4iii  bit. 

In  this  method,  the  time  to  ensure  that  the  QIg  W  is 
clear^  is  indeterminate.  Dependingonthefreq^^l^^of 

occur.  For  soma  appisaMons,  this  nriay  be  undeniable. 
The  following  tttrae  mattwds  address  this  issue. 


EXAMPLE  1  A:  FORCING  THE  GIE 


LOOP     BCF  INTCON,  GIE 

BTFSC  INTCON,  GIE 
GOTO  LOOP 


BSF  INTCON,  GIB 


BIT  CLEAR  (METHOD  1,  PIC16CXX) 


;  Disable  Global  Interrupts 
;  Global  Interrupts  Disabled? 
;  NO,  try  again 

;  YES,  continue  with  program  flow 
;  Re-«Bable  Global  Interrupts 


EXAMPLE  1B:  FORCING  THE  GLINTD  Bn*  CLEAR  (METHOD  1,  PIC17C42) 


LOOP     BSg  CPUSTA,  GLINTD 

BTTSS  CPDSTA,  GLINTD 
GOTO  LOOP 


BSF  INTCON,  GIE 


Disable  Global  Interrupts 
Global  Interrupts  Disabled? 
NO,  try  again 

YES,  continue  with  program  flow 
Re-enable  Global  Interrupts 
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The  second  method  is  to  disable  the  individual  interrupt 
enable  bits.  If  it  is  known  which  bits  are  enabled  at  this 
point,  it  can  easily  be  done.  Example  2  shows  the 
disabling  of  interrupts^  wfiere  it  is  known  whk:h  sources 
are  enabled  ( >Wpil|tWlllll  liiilllHllll  Hill  lllllTO@M..- 
pin  interrupt). 


This  method  also  requires  the  same  number  of  instruc- 
tions for  the  disabling/enabling  of  interupts  as  method 
1 ,  but  requires  a  knowledge  of  which  Individual  interrupt 
enable  bits  need  to  be  disabled  and  (more  importantly) 
re-enabled.  The  major  advantage  of  this  method  is  that 
it  can  minimizes  the  time  delay  entering  the  code  seg- 
ment which  follows  Uw  ^ibil  «lhere  interrupts  are  dis- 
abled. 


EXAMPLE  2A:  CLEARING  KNOWN  INDIVIDUAL  INTERRUPT  ENABLE  BfTS 
(METHOD  2,  PIC16CXX) 


MOVLW   b ' 10011111 ■ 


MOVLW 
lORWF 


b'OllOOOOO ■ 
INTCPN,  F 


Disable    Peripheral  and  TOCKI  pin  interrupts, 

All  ot)^r  bits  unchanged  '  . 

•n       ..  .       .    '    :  6!*i^)t;  (.•' 

■  !i  Ik!  .ait" 

Re-enable  Peripheral  and  TOCKI  .piai  ixttm^fysS^fs  .Tcaot-.Br 
All  other  bits  uncha^ed  r    ,,  -yi^  o»-Bi1ijf 


EXAMPLE  28:  CLEARING  KNOWN  It 


IDIVIDUAL  INTERRUPT  ENABLE  BFTS 


MOVLW  b'llllOOll' 
MIDW  INTSTA,  F 


MOVLW  b'OOOOllOO' 
lORWF   INTSTA,  F 


Disable  Peripheral  and  TOCKI  pin  interrupts. 
All  other  bits  unchanged 


Re-enable  Peripheral  and  RT  pin  interrupts. 
All  other  bits  unchanged 


.,Jr  ,2', 
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This  method  also  requires  more  instructions  for  the 
disabling/enabling  of  interrupts  than  in  method  1  or 
method  2,  and  also  a  byte  of  data  RAM  to  temporarily 
store  the  value  of  the  INTCON  register.  The  major 
advantage  of  this  method  is  that  it  minimizes  the  time 
deley  into  the  code  segment  which  follows  the  poM 
where  interrupts  are  disabled. 


Method  3  can  be  used  if  the  states  of  the  individual 
interrupt  enable  bits  are  unknown.  A  temporary  byte  of 
dcda  RUtA-is  required  to  store  the  value  of  ttie  INTCON 
Jillii^'iMWttiodtts  ihpwn  in  atsn^  3. 
t  hortfern     ->bfV"  jis^ui-  - 

;iUT>ir.  rtflP  vC  "'tiH  ■cm/?  ■  , 

SI«ailP&»lft^lGlBnRINGTHEINDIVie^     INTERRUPT  ENABLE  BfTS  (METHOD  3,  PIC16CXX) 

SI  i;  c .  KicrtK  r  -fff  te  spRlr  -  • 

ont  ibIA,  BCfVp     INTCON,  W 

MCWtiW  b'lOOOOHl" 
ANDNF    INTCON,  F 


Move  the  value  in  INTCON  to 

Disable  all  individual  interrupts, 
AlyL  ot^r  bits  UQC^i^B^eifd  . 


,t  tilt  ■■ 


Hon/f  s^imcaisi,  w 
icxsm  imcm,  f 


Restore  the  INTCCXI  register 


EXAMPLE  38:  CLEARING  THE  INDIVIDUAL  INTERRUPT  ENABLE  BITS  (METHOD  3,  PIC17C42) 


MOV^  INTSTA,  S_IIITSTA  ;  Move  the  value  la  INTSTA  to  a  shadow  register 
HOVLW  b'llllOOOO*  ;  Disable  all  individual  Interrupts, 

ANDWF  INTSTA,  P  ;  All  other  bits  unchanged  .    .  _  , 


MOVF  S_INTSTA,  W 
IC^NF  INTSTA,  F 


;  Restore  the  INTSTA  register 
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.3^ftial  irMhod  is  to  MI9  a  AMI^ 

ifi  the  interrupt  service  rotgnfitst^smifrie  whteh  fetum 
instruction  to  use.  That  is;^riMeiF«n»of  ttie  RETURNor 
jih9^ligTll£  (whie^  enablasittMiGIE)  instructions.  Ex- 
<aiiiplii4ahow»IMs  impiementation,  which  require  that 
a  general  purpose  bit  be  available  to  hold  the  "shadow 
'GlEvalue.  In  this  example,  the  shadow  GIE  (S_GIE)  bit 
is  contained  in  0ie  register  FL.AG_REG.  If  an  Intermpt 
occurs  during  the  clearing  of  the  shadow  GIE,  the 
Intermpt  is  responded  to.  At  the  end  of  the  interrupt 
service  routine,  the  shadow  GIE  bit  is  cleared  so  the 
RETURN  instruction  is  executed.  The  GIE  bit  remains 
dssdjied  and  progiam  emcution  returns  to  the  instaic- 


tion  vrhich  tries  to  clear  the  GIE  (disable).  No  interrupts 
can  occur  during  this  instruction  since  the  GIE  bit  was 
not  re-enabled  after  the  inten'upt  sen/ice  routine. 

This  method  also  requires  more  instructions  for  the 
disabling/enabling  of  Intenupts  than  in  method  1  or 
method  2,  a  single  bit  of  data  RAM  to  temporarily  store 
the  value  of  the  desired  GIE  value,  and  increases  the 
Intermpt  service  routine  execution  time  by  one  Instruc- 
tion cycle,  for  most  occun'ences  of  inteiiMPls  JMIMNS^ 
worst  case).  TTie  major  advantage  of  this  meHwd  Hket 
it  minimizes  the  time  delay  into  the  code  segment  which 
follows  the  point  where  interrupts  are  disabled.  Also,  tfie 
individual  inteniipt  enablii^^|iae$i  not  be  modified. 


EXAMPti  4As  THE  "SHADOW"  GIE iTT  (METHOD  4;  PieieOOQ 


org  0x004 
IIlTjSEiWICE_PO0TIlJE 


BOTSC    FIJ«3_RK3,  SJ3IE 
RETFIE 
RETURN 
ElIDLlNT_SERVICE_I85tmiffi 


Is  the  S_QIB  hit  enabled? 

YES,  the  GIE  should  be  enabled 

NO,  the  GIE  should  be  disabled 


MAIN 


BCF 
BCP 


FLAG_REG ,  S_GIE 
INTCON,  GIE 


Disable  the  shadow  GIE  bit 
Disable  the  GIE  bit 


BSF        FLAG_REG,  S_GIE 
BSF        INTCm,  GIE 

END 

EXAMPLE  4B:  THE  "SHADOW"  GLINTD  BIT  (METHOD  4,  PIC17C42) 

org  0x004 


BTFSS      FU«3_RKG,  S_GL1NTD 
RETFIE 
RETDRN 
EIS1D_UJT_SERVICE_R0WPINE 

MAIN  : 


;  Enable  the  shadow  GIE  bit 
;  Enable  the  GIE  bit 


i  Is  the  s_GLIIITD  bit  enabled? 

,-  YES,  the  GliIMTO  should  be  enabled 

;  HO,  the  SLINTD  should  be  disabled 


FLASLitEG,  S_GLINTD 
CPD9TA,  GLINTD 


Disable  the  shadow  GLnraD  bit 
Disable  the  GLINTD  bit 


BCF 
BCF 


FLAG_REG,  S_GLINTD 
CPUSTA,  GLINTD 


Enable  the  shadow  GLINTD  bit 
Enable  the  GLINTD  bit 
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i^lml^ylBS  to  Disable  Global  Interrupts 


In  ooncludiMi  CinarantnMttwds  exist  to  ensure  And  aH  tc^lTC 
kitsmipts  al»ciMMail  tlw  requirement(s)  of  ttie  appli- 
@ttim<iMNIti>»«#:h  <rf  the  methods  Is  the  best  fH.  A 
OGilfHHlEiweAftcMtrwit  methods  is  shown  in  Table  1 . 


TABLE  1:  COMPAfflSON  Of  DIFFEREm"  METHODS 


Program  Memory 

Data  Memory 

Cycle  Dal^rfi^ 
Bert  Caee          VMMtt  SIM 

2wotds*N 

2 

Indetermmate 

Method  2 

2  words  *  N 

1 

1  +  Tisr 

Methods  -  PIC16CXX 
-  PIC17C42 

4  words  *  N 

1  byte 

3 

3  +  Tisr 

3woids*N 

1  byte 

2 

2  +  Tisr 

M0thod4 

2  words  *  N  -f  2  words 

Ibit 

1* 

1  +  CTIsr+2) 

Legend:  N    -  Number  of  occurances  to  disable  /  re-enable  interrupts. 
l%r  -  Time  to  execute  the  interrupt  service  routine. 

*       TMs  mettiod  incre^es  the  interrupt  sen/Ice  routine  time  (Tisr)  by  1  cycle  for  most  occurence 
(2  cycles  worst  case). 


Atifhor:  kkuk  Palnm- Logte  Pmluc^  Divishn 
ContrbiMmm    UarOn  BurghanUt  -  Manager 
ApplhaUem  fCmtral  Europe) 
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IEEE  754  Compliant  Floating-Point  Routines 


'XMi^r:  Frank  Testa 


INTRODUCTION 

TNs  a|)plication  note  presents  an  innplementation  of 
^following  floating  point  math  routines  for  the  ' 
rtCl6/17  microcontroller  family: 

INTxx(A)  float  to  integer  conversion 

FLOxx(A)  integer  to  float  conversion 

NRMxx(  A )  normalize 

FPAxx(A,B)  add/subtracf 

FPMxx(A,B)  multiply 

FPDxx(  A ,  B )  divide 

Routines  for  ttie  PIC16/17  families  are  provided  in  a 
modified  IEEE75432  bitfornristi6geiHdr«ahV^iSionsih 
24-bit  truncated  format. 

FLOATING  POINT  ARITHMETIC 

Althougli  fixed  point  arithnteOdiiaAi't^Miy  be  employed 
in  many  numerical  problems  through  the  use  of  proper 
scaling  techniques,  this  approach  can  become  compli- 
cated and  sometimes  result  inJ^Sj^fiPiBntocHiiuthEat^ 
possible  using  floating  point  methods'^'.  Ftoatkig  point 
arithmetic  is  essentially  equivalent  to  arithmetic  in  scien- 
tific notation  relative  to  a  particuiar  base  or  rcKlix.  tn  the 
fecial  case  of  base  two  or  biltaiit.'SiittinMtii^  a  number 
A  has  the  floating  point  represerrtation: 
■  -  n  ■•  ■ 

A  =  f*(2*).  f=  Z  {a(k)*(2*)) 
k=1 

where  f  is  the  fraction  or  mantissa,  e  is  the  exponent  or 
characteristic,  n  is  the  number  of  bits  in  f  and  a(k), 
k=1,..,n  are  the  bit  values  of  f  with  a(1)=MSB.  Typically, 
the  mantissa  is  in  normalized  sign-magnitude  represen- 
tatkm  with  implk»t  MSB  equal  to  one,  and  e  is  stored  In 
biased  form,  where  the  bias  is  the  magnitude  of  the  most 
negative  possible  exponent'^  If  m  is  the  number  of  bits 
in  the  biased  exponent  e'': 

e"  =  e  +  2"^' 


Using  biased  exponents  permits  comparison  of  expo- 
nents through  a  simple  unsigned  comparator,  and  fur- 
ther results  in  a  unkjue  representalbn  of  zero  given  by 
f  =  eb  =  0, 

Algorithms  for  radix  conversion  are  discussed  in 
APPENDIX  A,  and  can  be  used  to  produce  the  binary 
floating  point  representation  of  a  given  decimal  number. 
Examples  of  sign-magnitude  fkiating  point  repr^enta- 
tions  of  some  decimal  numbers  are  as  follows: 


Decimal 

e 

f 

1.0 

1 

.10000000 

0.15625 

-2 

.10100000 

0.1 

-3 

.110011001100.... 

1.23x10^ 

11 

.10011001110 

Wis  important  to  note  that  the  only  numbers  that  can  be 
represented  exactly  in  binary  arithmetic  are  those  which 
are  sums  of  powers  of  two,  resulting  In  non-terminating 
binary  representations  of  some  simple  decimal  numbers 
such  as  .1  as  shown  atxsve,  and  leading  to  truncation 
errors  regardless  of  the  value  of  n.  Floating  point 
cateulations,  even  involving  numbers  admitting  an  exact 
binary  representation,  usually  lose  information  after 
truncation  to  an  n  bit  result,  and  therefore  require  some 
rounding  scheme  to  minimize  such  roundoff  errors'^'. 
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ROUNDING  METHCM^ 

liS^lSirMt  Eik^PHPHs  (9  a  number  whose  magni- 
iHAitiKtass  than  or  equal  to  that  of  the  exact  value, 
ttM%  possibly  causing  significant  error  buildup  during 
a  long  sequence  of  calculations.  Simple  adder-based 
bounding  by  adding  the  NSB  to  the  LSB  is  unt»^|glj 
'^o^wiMrt^  ^^tbie  to  to 
the  two  nearest  n  M  valdes^l  In  Ms  case,  magnitudes 
are  always  rounded  up  thereby  producing  a  small  but  still 
undesirable  bias.  This  can  be  removed  by  stipulating 
that  in  the  equidistant  case,  the  h^  j^  y^Uf  y^r0 
is  selected,  commonly  referred fo^Si^IHe  rouhdlhg  WfHe 
nearest  method,  the  default  mode  in  the  IEEE754  stan- 
dard'*'^'. The  number  of  guard  bits  or  extra  bits  of 
precision,  is  related  to  the  sensitivity  of  the  rounding 
method  since  using  more  guard  bits  results  in  fewer 
equidistant  cases  to  be  resolved.  Since  more  than  one 
guard  bit  requires  an  extra  byte  In  PIC1 6/1 7  arithmetic, 
only  one  guard  bit,  usually  handled  in  the  carry  bit,  is 
employed  in  this  library  of  floating  point  routines.  Near- 
est neighbor  rounding  wittj-sneL! 
following  simple  result: 


n  Bit  Value 

Guard  Bit 

Result 

A 

0 

round  to  A 

A 

1 

If  A,LSB«0.  round  to  A 
if  A,LSB=1 ,  round  to  A+1 

A+1 

H-i-JiinMaiW'dlliri 

0 

h  111  itiflmiM^irl 

round  to  A+1 

Another  interesting  rounding  method,  is  Von  Neumann 
rounding  or  jamming,  where  the  exact  number  is  trun- 
^ed  to  n  bits  and  then  set  LSSrirt.  Aith0l^#iff  etrars 
'Can  be  twice  as  large  as  'ih  r^uM'li'WM^ieiii  H  'is 
unbiased  and>  requWes  fiH# Wr#%M  ftilt 


FLOATING  POINT  FORMAf  S,, 

In  what  telloM^,  wb  use  1|!ii^tol|Q\ffing  floating  point 

formats-  '■"■»■->. 


eb 

radix 
point 

fO 

f1 

f2 

JEEE754 
32rbft 

xxxxxxxx 

Sxxxxxxx 

xxxxxxxx 

cxxxxxxx 

truncated 
24-bit 

xxxxxxxx 

Sxxxxxxx 

xxxxxxxx 

wAiere  eb  Is  theblased  8-W#f;^i^iiiMliia^fa13F 
0x80,  S  is  the  sign  bit,  9nd,by|Ets.|ci  f1  and  f2  constitute 
the  mantissa  with  fO  the  mqst.fignificant  byte  with  Implicit 
I^SB  =  1.  It  is  important  io  note  that  the  IEEi7S4 
st«1tte«i  fonHd^  ptaces'the  sign  bit  a^'thtfli^of  eb 
iMi  the  LSB  of  the  exponent  as  the  l\4SB  of  fO.  Because 
dthe  (nhtfent  byte  structure  of  the  PIC16/17  family  of 
mic«9CorMlem,  more  efficient  code  was  possible  by 
adopting  the  above  fomitf S  rather  than  striS^  Adhering 
to  the  IEEE  standard. 

The  limiting  absolute  values  of  the  above  floating  point 


324>it  format 

eb 

lAI 

e 

f 

decimal 

MAX 

0XFF7FFFFF 

FF 

7F 

7FFFFF 

1.70141 17E+38 

MIN 

0x01000000 

01 

81 

000000 

2.9387359E-39 

^litmmimwm^mimM^  «qMai  *wmm^m^  4W*t»it 

24-  to  mm  ommn^'W^fiMk:  mfiMifi^ifiitf  'm 
atiiMiini  zero  b^  In  the  qiantlssa,  a  32-  to  24'bit 
convei^on  routftiewould  typiciilly  amploy  nearest  neigh- 
bor rounding  before  tmncation. 

To  produce  the  correct  representation  of  a  particular 
decimal  number,>  a  Mgh-level  language  compiler  and 
debugger  coukf  be'used  to  display  the  internal  binary 
representation  on  a  host  computer  anEnMtfke  the  appro- 
priate conversion  to  the  above  fomM^  ff  Mis  approach  is 
<n«^MBM«  «igD«Wm>fOF«poiiu#^  tMis'ri^Hssen^ 
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FLOATING  POINT  EXCEPTIONS 

Although  the  dynamic  range  of  mathematical  calcula- 
tions is  increased  through  floating  point  arithmetic,  over- 
flow and  undettlow  are  both  possible  when  the  limiting 
values  of  the  representation  are  exceeded,  such  as  in 
multiplication  requiring  ttje  addition  of  exponents,,  or  in 
mmsn  with  the  dlHil4Aii''<f -ei#«iin^ 

10  oimflciw  or  underflow  in  special  cases.  Similarty, 
atfdUen  and  subtraction  after  mantissa  alignrneot,  fol- 
l°M!i{^MJ9§(iatizatjpn  ,can  also  lead  to  such  excep- 
flens.  Pmmiiffpm,  if  nearest  neighbor  rourafing  is  en- 
abled, WwHig  port  qvertlow  can  occur  in  the  case  of 
rounAig  OUFfnWFPP  wAh  NSB=1  since  sKlding  the 
NSB  vrauldb*ra(|utrad,  resulting  in  mantissa  overflow 

.lhMspniducingM«ipiiH»illi«V4^^ 

DATA  RAM  REQUIREMENTS 

3^mMl!m^mBasiSmiom*ki)emm  locadionsfutt  uasdl^ 

S8»''  ^     =    AEXP        AARG  and  ACC  exponent 

AC^Oi^BO    =    AARG+BO  AARG  and  ACC  mantissa 

ACC+BI    =    AARG4B1  "  :  m  . 

ACC+B2    =  AARG+B2 

ACC+B3  additional  ACC  storage 

ACC+B4 

ACC+B5 

SIGN  sign  In  MSB 

FPFLAQS     '        1'^  '     excSption  ffegs,  option  1*8 

BEXP  BARG  exponent 

BARG+BO  BARG  mantissa 

BARGkBI 

BARG+B2 

TEUP+BO  temporary  stonqe 

TEMP4BI 
wtwrsBxsx. 


The  axBeptkin  flags  and  option  bits  in  FPFLAGS  are 
d^edastslows: 


:«S'-i"Hi'U-  3 


2  1 


lOV  '  integer  owatf  tow  flag 

FOV  floating  point  overflow  flag 

FUN  floating  point  underflow  flag 

FDZ  floating  peMimlBe  by  zero  flag 

RND  nearest  neighbor  rounding  enable  bit 

SAT  saturate  enable  bit 

USAGE 

For  the  unary  operations,  Input  argument  and  result  are 
In  AARG.  The  binary  operations  require  input  argu- 
ments in  AARG  and  BARG,  and  produces  the  result  in 
AARG,  thereby  simplifying  sequencing  of  operations. 

EXCEPTION  HANDLING 

All  routines  return  WR  EG = 0x00  upon  successful  comple- 
tion and  WREG  =  OxFF,  together  with  the  appropriate 
flag  bit  set  upon  exception.  If  SAT  =  0,  saturation  is 
disabled  and  spurious  results  are  obtained  in  AARG 
upon  an  exception.  If  SAT=  1 ,  saturation  Is  enabled  and 
only  overflow  or  underflow  exceptions  produce  satu- 
rated results  in  AARG.  Saturation  is  not  applied  on  a 
divide  by  zero  exception.  ^ 

ROUNDING 

With  RND  =  0,  rounding  is  disabled,  and  simple  trunca- 
tion is  used,  resulting  In  some  speed  enhancement.  If 
RND  =  1,  nearest  neighbor  rounding  is  implemented. 

INTEGER  TO  FLOAT  CONVERSION 

TheiouHne  HjOxxoonverls  the  two's  complement  inte- 
ger in  AAR8  to  the  abovs  floating  poM  representation, 
producing  the  rasutt  In  AEXP,  AAR®,  Hw  routine  initial- 
izes the  exponent  to  move  the  radbc  piMloihsMMthe 
MSB  and  then  calls  the  norniaTize  routine.  An  example 
Is  given  by: 

FL024(  12106 )  =  FL024(  0x2F4A )  =  0X8E3D28  =  12106.0 
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The  routine  NRMxx  takes  an  unnormatizedfloelingpoM 
number  with  all  bits  explicit  in  AEXP,  AARG  and  loft 
shifts  the  mantissa  and  adjusts  the  exponent  until  the 
result  has  an  explicit  MSB  =  1 ,  followed  by  applicialKM 
IhBsJgnbit  thereby  mMUngllwMSBImplkdtThfe 
is«lled  by  PLOxi^PAkicani  FF&k,  stid  is  usuai^not 
rMMded  aiiliUc^  fte  uMr  sirK»  aU  opeiattons  pn^ 
dudng  a  ftoatlhg  point  reseH  are  Implicitly  nomiatized; 

FLOAT  TO  INTEGER  CONVERSION 

inefWlURe  INTxx  converts  the  nomnalizedfiofdingpdint 

pmeMleia  «  imUt  of  «iB>Ma^^werflow.  the 
mOTRsnin  AARS  tolMsNlied  by  AEXP  and  converted 
to  tWD^  eamplMMM  rapfesentatioh.  As  an*  exsfiiple, 

INT24(  123.45 )    INT24<  Otemem^mfB"  T23 

r*  ' 

ADENTIOWSUBTRACTION 

The  floating  point  add  routine  FPAxx,  takes  the  argu- 
ments in  AEXP,  AARG  and  BEXP,  BARG  and  returns 
the  sum  in  AEXP,  AARG.  If  necessary,  the  arguments 
are  swapped  to  insure  that  AEXP  >=  BEXP,  and  then 
BARG  is  then  aligned  by  right  shifting  by  AEXP  -  BEXP. 
The  mantissas  are  then  added  and  the  result  is  nonnal- 
ized  by  calling  NRMxx.  The  subtract  routine  FPSxx 
simply  toggles  the  sign  bit  in  BARG  cmdn^MN^if  ftA^- 
Several;  exsmples  are  jas  follows: 
-      beMq<^  Wii  e»  fwiJBi .  ■ 

FPA24<  •.32212E45..1 1  iatSE*A ) 

=  FPA24(  Cb(SFFBA8. 0x8B0B00 ) 
=  0X8FF2F8  =  -.31100E+5 

FPS24(  .89010E+4,-.17802E+5 ) 

=  FPS24(  0X8E0B14, 0X8F8B14 ) 
=  0x8F50gE  =  .26703E-t-5 


The  1lMHae>^einl«iiillip^  foutine  FPMxx,  takes  the 
aigtiniMlr-Irt  4EXP.  AA^' and  BEXfi,  BARG  and 
tfilBirethe  product  in  AEXP,  AARG.  MtaFMIing  «MNgi 
argument,  the  si^i  and  exponentef  tM  ttsultilue 
computedtogether  with  testingforoverfkiw.  The  mantis- 
sas arethen  multiplied  usingastandafdadd-shift  method, 
followed  by  postnomialization  If  necessary.  For  ex- 
ample, consider 


FPM24(-.32212E+5,.11120E+4 ) 

=  FPM24(  0X8FFBA8,  OxSBOBOO  ) 
=  0X9A88A4  =  -.35820E+8 

DIVISION 

The  floating  point  divide  routine  FPDxx,  takes  the  nu- 
merator in  AEXP,  AARG  and  denominator  in  BEXP, 
BARG  and  retums  the  quotient  in  AEXP,  AARG.  After 
testing  for  a  zero  denominator,  the  sign  and  exponent  of 
the  result  are  computed  together  with  testing  for  divi- 
dend alignment.  If  the  argument  mantissas  satisfy  the 
inequality  AARG  >=  BARG,  the  divkiend  AARG  is  right 
j^^^PfKf  ^onebitfutd  the  exponent  is  adjusted,  thereby 
resulting  In  AARG  <  BARG  and  the  divkJend  is  aligned. 
iil^iMfit'penMiiNM  dM#i  sequence  and  elimi- 
nates the  need  for  postnonnaaisllen.  After  tesUng  for 
overflow  or  underflow  as  apM>ptial|i^  tM^m^^mMm 
then  cHvkled  using  a  slariara  sHill-suKiaa  mmMfeq 
mMied.  AslmplaeiGBirnplelsgivenby:       -  ' 

FPD24(  -.16106E+5,  .24715E+5 ) 

=  FPD24(  0X8EFBA8, 0x8F41 16 ) 
>.Ox80A6D4  =  -.65167E+0  i 
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APPENDIX  A 

Several  algorithms  for  decimal  to  binary  conversion  are 
given  below.  The  integer  and  fractional  conversion  algo- 
ritfims  are  useful  in  both  native  assembly  as  well  as  high 
level  languages,  and  comprise  the  basis  for  the  floating 
point  decimal  to  binary  conversion  algorithm  A.3.  Algo- 
rithm A.4  is  a  more  bmte  force  metliod  easily  imple- 
mented on  a  calci|||8;li^iQr  in  aJiisfh-lvwel  langue^  on  a 
host  computer. 

A.1  Integer  conversion  algorithm[3]: 

Given  an  integer  N,  wtiere  d(k)  are  the  bit  values  of  its  n 
bit  binaiy  representation  with  d(0)=LSB, 

Mt  .n?      ,  '  '>  I.  ( 
n-1 

N=  X  {d(k)*(2'')} 

i-.f,:  .1.     i.p  -  £»ISB9'X  ■•    .  .         IP  '-■ 

|{=0  .  'Ill'  .    ■■■  <'^'  •  •    ■■«     ■  — 

'    N(k)=N      .       '  ' 

d(k)  =  remainder  of  N(fi)/2 
'     N(k+1)  =  [  N(k)/2 ) 

endw 

where  [  ]  denotes  the  greatest  integer  function. 

A.2  Fractional  conversion  algorithm[3]: 

Given  a  f  ractk>n  N,  where  d(k)  are  the  bit  values  of  its  n 
bit  binary  representation  with  d(1>=MSB: 

n 

N=  Z  {d(k)*(2-'^} 

k=0 

N(k)  =  l^ 

.   d(k)  =  [N(kr2] 

N(k+1)  =  fractkinal  part  of  N(k)*2 

k  =  k+1 

enciw 


A.d  iFfoating  point  decimal  to  binary 
conversion  algorithm[3]: 

Given  a  decimal  number  A  =  F  *  1 0^,  and  the  number  of 
mantissa  bits  n,  where  F  is  not  necessarily  normalized, 
the  binary  f  k>ating  point  represantatnn  A = f  *  2*  can  be 
found  as  foltows: 

normalize  F  and  adjust  E 

convert  10^  to  the  normalized  binary       .  |, 

representaSwn  f  *2* 

convert  the  fractton  ft  to  She  btetf^yiMftHflOf 

oomputaf =f  *f  c< 
nonnatizefandac|usle1fniieMHafM>40i  > 

■,11  >  r"  -r! 

The  conversion  of  the  integer  10^  can  be  done  with 
algorithm  A.1 ,  or  if  space  is  available,  can  be  performed 
by  a  table  lookup.  Furthermore,  the  conversion  should 
be  made  using  a  numlser  of  guard  bits  and  than  rounded 
to  an  n  bit  result  by  the  desired  roumling.nM#)o$l- 

A.4  Floating  point  decimal  to  binary 
conversion  algorithm: 

Gh«n  a  dedmal  number  A,  and  the  maid>er  of  mantissa 
bits  n,  lha  bilB  In  the  mantissa  of  the  above  binary 
represantaSonof  A,  a^)iKi!^;2p.^Mei@«|^)r«MSB. 
are  given  by  the  following  algorithm: 

z  =  In  A/ In  2 

e=int(z) 

if  e  <=  z 

e  =  e  +  1 

endif 

x  =  A/(2**e) 

k=1  .» 
whilek<=n 

ifx>=2**(-k)    ;  '-r^  ' 

aW=1    "  '  .3 

else 

a(k)  =  0 

endif 

x  =  x-a(k)*2"(-k) 
k=k  +  1 

endw 

Formally,  the  number  A  then  has  the  fk>ating  point 
rapresentaflon: 

n 

A  =  f*(2»).f=  ICaMMZ-"^} 
l@1 


.-Ti.  />it 
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c 

c 

c 

c 

c 
1 


plementation  of  algorithm  A.4  is  ghfOf 
PROGRAiVI  FPREP 
IIVIPLiCiT  I^ONE 
REAL'S  X,Y,Z 

INTEGERS  K.N,P,A(32|,EB,F,BIAS  "  • 


GLOSSARY 


PRINT  200 

200  F0RM/«iT(1X,'ENTER  N:  ',$) 

100  FORI«IAT(l5) 
C 

2       PRINT  201 

201  FORMAT(1  X.'ENTER  Y:  ',$) 
•MfeAD  lOI.Y 

101  Fommm&,^m^:-.,..'- 

IF(Y.LE.0.)QOT®tf'  ■  ./ 


F=0 

Z=DLOG(Y)/DLOG(2.D0) 
P=INT(Z)      ' 'i; 
IPpili^m^lNP*1 

X=Y*2.**(-P) 
DOK=1,N 

IF(X.GE.2.**(-K))THEN        '  "  ' 
A{K)=1 

ELSE  A 

A(K)=0 
ENDIF 

IF(A(K).NE.0)F=IBSET(F,31-K+1) 
)6=X-DBLE(A(K))*2.**(-K) 
eiJDOO 


PRINT  300,P,(A(K),K=1,N) 
300  F0RMAT(1X,I5,3X,8(I2,I2,I2,I2,1X))  , 
C 

PRINT  400,EB,F 
400  PORMAT(1X.24,^,Z8) 
C 

GOTO  2 

C 

END  .' 


BIASED  EXPONENTS  -  nonnegative  representation  of 
exponents  produced  t>y  adding  the  alisolute  value  of  the 
most  negative  eiqsonent  to  a,  two's  oomplement  expo- 
nent. 

FLOATING  POINT  UNDERFLOW  -  occurs  when  the 
real  number  to  be  represented  is  smaller  in  absolute 
vstoe  ffm  tffb  iinlillMlfo£tting  poM  t«|hpeK 

FLOATING  POINT  OVERFLOW  -  occurs  whap 
number  to¥4'l«ptiiss«rtM  Is  larger  #i  al}S9ftl»^^t^ 
than  the  largest  floating  point  number. 

GUARD  BITS  -  additional  bits  of  precision  carried  in  a 
calculation  for  improved  rounding  sensitivity. 

LSB  -  least  significant  bit 

MSB  -  most  significant  bit 

NEAREST  NEIGHBOR  ROUNDING  -  an  unbiased 
rounding  method  where  a  number  to  be  rounded  is 
rounded  to  Its  nearest  neighbor  In  the  representation, 
with  the  stipulation  that  if  equidistant  from  its  nearest 
neighbors,  the  neighbor  with  LSB  'a0S)f(10<i»m  is 
selected. 

NORIVIALIZATION  -  the  process  of  left  shifting  the 
mantissa  of  an  unnonnallzed  floating  point  number  until 
9m  K^B  equals  one,  while  decFBEsing  Ihi  #cps^i^  by 
the  number  of  left  shifts. 

NSB  -  next  significant  bit  just  to  the  right  of  the  LSB. 

ONE'S  COMPLEMENT  -  a  special  case  of  the  dimin- 
ished radix  complement  for  radix  two  systems  where  the 
value  of  each  bit  is  reversed.  Although  sometimes  used 
in  representing  positive  and  negative  numbers,  it  pro- 
duces two  representations  of  the  number  zero. 

RADIX  -  the  base  of  a  given  number  system. 

RADIX  POINT  -  separates  the  integer  and  fractional 
parts  of  a  number. 

SATURATION  -  mode  of  operation  where  integer  and 
floating  point  numbers  are  fixed  at  there  limiting, yslues 
when  an  underflow  or  overflow  is  detected. 

SIGN  MAGNITUDE  -  representation  of  pd^itiwe  and 
negative  binary  numbers  where  tif  tIMAMMffi  is 
expressed  togethec^ti^  ftjf  fppopitite  i^f^ 
sign  bit.  >■ 

TRUNCATION  -  discarding  any  bits  to  the  right  of  a  given 

bit  location. 

TWO'S  COMPLEMENT-aspecial  case  of  radix  comple- 
ment for  radix  two  systems  where  the  value  of  each  bit 
is  reversed  and  the  result  is  incremented  by  one.  Pro- 
ducing a  unique  representation  of  zero,  and  covering  the 
range  -2**(n-1)  to  2**(n-1)-1 ,  this  is  more  easily  applied 
in  addition  and  subtraction  operations  and  is  therefore 
the  most  commonly  used  method  of  representing  posi- 
tive and  negative  numbers. 
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FIGUME 1:  INTEGER  TO  FLOAT  CONVERSION 
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FIGURE  3:  FLOATING  POINT  MULTIPLY 
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IEEE TiA Compliant  Floating-Point  Routines 


FIGURE  5:  FLOATIN©  POINT  SUBTRACT 


Toggle  B 
Sign  Bit 


Save  XOR  of 
SigmlnTEMP 


Save  Sign  of  A 
InSIQN 
IMaMetASB's  Explicit  I 


Compute  Shift 


Right  Shift  B  1 

by  Byte 

BEXP-8  1 

< 


BEXP24 


Yee 

Right  Shift  B  1 

by  Nibble 

BEXP  = 

BEXP-4  1 

Add  Next  1 

Significant  Bit 

P 

for  Rounding 

Right  Shifts  b 

1 

No 

Right  Shift  by  1 -Bit 
EXP  =  EXP  +  1 


Yee 


Reetore  SII3N 

i„A 

I 


.If,,  ici't,:"!  I 
III'  1   •::■■■.>  : 


MEE  754  Compliant  FliiatingHPoinf  RdtUfiM^ 


FIGURE  6:  NORMALIZATION 
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TABLE  1 :  PIC1 7CXX  FLOATINQ  TOINT  PERFORMANCE  DATA 


May  .Gwel^fi 

PM 

DM 

 "  '   

FL024 

48  /  54- 

i£  1  /  £:d 

TO 

b 

IMT94. 

m  1 

1 1  /  28 

101 

Q 

NRM24 

39/46 

15/20 

63 

6 

FPA24 

116/131 

31 

212 

10 

FPS24 

117/132 

32 

213 

10 

mm 

175/189 

10/70 

10 

328/352 

11/277 

377 

11 

1 262 

1  UlcU  mmTiory 

FL032 

60/67 

26/30 

120 

7 

fi  n  /  "*fi 

HO/  on 

loo 

-7 

7 

imm 

48/55 

20/24 

108 

7 

FPA32 

144/159 

34 

329 

12 

FPS32 

145/160 

35 

330 

12 

FPM32 

^/336 

11/88 

13 

FPD32 

597/627 

12/478 

661 

14 

2085 

14 

Total  Memory 

TABLE  2:  PIC1 6C5X  /  PIC1  fOCX  FLOATING  POfflilT  PERPtftilAr^e  DATA 


Routine 

Max  Cycles 

Min.  Cycles 

PM 

DM 

•Ml': 

FL024 

83/88 

21  /25 

37 

6 

INT24 

80/89 

14/31 

64 

6 

NRM24 

72/77 

14/18 

26 

6 

FPA24 

194/210 

44 

102 

FPS24 

196/212 

46 

104 

298/313 

11  /218 

80 

FPD24 

469/495 

348 

117 

530 

Total  Memoty 

FL032 

104/110 

24/34 

52. 

,  7 

90/100 

15/32 

83 

mmz 

90/96 

18/28 

38 

7 

FPA32 

248/268 

50 

136 

14 

FPS32 

250/270 

52 

138 

14 

574 /S91 

12/315 

94 

14 

FPD32 

929/988 

704 

152 

14 

1  693 

14 

Total  Memory 

0  I^IMMIMMiaMMaise  Inc. 
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APPENDIX  A 


PIC16  24  BIT  FLOATING  POINT  LIBRARY  VERSION  1.14 

Unary  operations:  both  input  and  oatpu€'^r^.^&'^^*l&&8fi  *<is-V^ 

Binary  operations:   input  in  AEXP,AARG  and  BEXP,BARG  with  output  in  AEXP,AARG 

All  routines  return  WREG  =  0x00  for  successful  coii5)letion,  and  WREG  =  OxFF 


Mtsm  w.  ■i^xm  W^o^^i^  speQlf  ied  in.  f^^^^. 

elffp  Wstraf.  case  pSfple  ^f/ambm 


FL024  ■ 
r  ■.<.^  o'-ot! 


Functloo 


16  bit  integer  to  24  bit  floating  point  conversion 


ft 


^  


83 


SAT: 


:  M 


1  88  88 

NRH24  ^1'   Ii@£ii^llza6i^  at  isaatoxAUzaA  24  bit  floati«ir  ^Int  numbers 


'  Timii^: 


RUS 
0  1 


IHT24  ■•'    24  bit  flolit'ing  pokafe  A'li^ 


FPA24 


Timing: 



!  . 


BND 
0  1 


Timing: 
OKU  ;  f\ 


0  80,  86 

1  80  89 

24  bit  floating  point  add 

HND 

0  i.s  c.     1  1 


194  205 
i  194  210 

^24  bit  floating  point  subtracsfe 


SAT 


0 

196 
196 


1 

207 
212 


24  bit  floating  point  multiply 
Timing:  RND 


.15  \  •- 


e  1 09«  MIoaeh^MiMljglirM 


SAT 


0  298         309  .,    J..      L     ..^  :  -  -iCA.  I'l 

1  298  313  i-icJ 

FPD24  24  bit  floating  point  divide         ■'         .  :  1 

Tiffling:  ^ID  •■-  ^      ■  " '■  '  :  , - 

0  1 


0  469  491 

1  469  495 
list        r=:dec,x=on,t=off  ,p=16C71 
include  <PIC16.INC> 


************************************************************* 
************************************************************* 


;  24  bit  floating  point  representation 

;  It  is  iii^rtaat  to  note  that  the  use  of  biased  exponents  produces 

;  a  uniqtte  representation  of  a  floating  point  0,  given  by  ■  j>".' 

EXP  =  HIGMYTB  =  LOWBOTE  =  0x00,  with  0  being  the  only 
;  nunibet  With  EXP  =  0.»  .  -j.'  :   ■      ,  ..  : 

HIOHBYTE  8  Mt  iBQSt  slE^l£xcant  tiyte  (»£  mim'^'^iS^^'^'^^'^'^^'^vmMmsSMUb. 

!  SXSSI  =  KSBi  and  implicit  mantissa  MSB  =  1  and  radix  poin6  to 

;  left  of  MSB  ■  - 

;  LOVJBYTE  8  bit  least  significant  byte  of  sign-magnitude  matissa 

RADIX 

f  BXPOKENT  POINT      HIGHBYTE  LOWBYTE 

;  XX30SXXXX  .         Sxxxicxxx  xxxxxxxx. 

;  Define  literal  constants 

KJtPBtftS  128  ,  ■    .    ■  '  ■:<>■<■  : 

!  Define -iHtbtaryP-segleteir 'vaariaWtes  .  -•  . 

equ  OxOC        ;   8  bit  biased  exponent 

ACC  equ  OxOD        ;  most  significant  byte  of  contiguous  4  byte  accumulator 

SIGN  equ  0x13         ;  save  location  for  sign  in  MSB 

TlSffi  0x19       ;  tentiorary  storage  ■  'ii  ■,~r./, 

;  Define, ^ista^^ operation  argiim^ts  ^  >  ^  .>£ 

AEXP  equ         OxOC        ;  8  bit  biased  ei^nent  for  argment  A 

AAItS  e^         OxOD        ;  most  significant  Ts^Ke  ot  maatlssa  for  argument  A 

:  ji.  ■       .  U' .  ' .. : 

SBJtP  e^  0x15        ;  8  bit  biased  e^^onent  for  argimient  B 

BARS  equ         0x16        ;  most  significant  byte  of  mantissa  for  arlniment  B 

-  . ,  -  ,  -.fi-' 

;  Note:        (AEXP,  AARG+BO,  AARG+Bl   )     and     (EXP,  ACC+BO,  ACC+Bl) 

;  reference  the  same  storage  locations. 


r 

FPFIiAGS 

lOV 

FOV 

FDZ 


Aef'ine  Cloafei-ng  paint  library  raEee^tien:  flass- 


equ 
egu 

equ 

equ 


************ 


0 

1 

2 
3 
6 


floating  point  library  exception  Jflajre 
bitO  =  integer  overflow  flag 
bitl  =  floating  point  overflow  flag 
bit2  =  floating  point  mSexti^m  flag 
bits  =  floating  point  divide  by  ziero  flag 

bite  =  floating  point  rounding  flag,  0  =  truncation 

1  =  rounding  to  nearest  LSB 

bit?  =  floating  point  saturate  flag,   0  =  terminate  on 
'mase^tUm  witltost  satearatioii,  1  =  terminate  on 
exception  with  saturation  to  appropriate  valhe 


********************* 
********************* 


*************************** 
*************************** 


FI.024 


Integer  to  float  conversion 

Input:     16  bit  2's  consilanent  intsaer  right  justified  llfttJMB*SI3 ,  AftRO-^Bl 

^■,1-,.:  L.,  «^.lS/iC<ix'j  1  ■      :     J  •■■      ....  ;    ►J'i.:  ' -".;t 

M^Mfit  24  bit  floating  point  ntrndser  in  AEXF,  AtSSS+mr,  AAR(3+B4-  . 

ll«rtfeil»iiliMh»«5»«<lf%0&T'(  AJ«<».v.)  .-...'!.  '  f;      -  -  ..»■..•»  Jx-' 

oj    'i**-.^  .;lt  '      .  '    .:  'I       '-,.1  I  rui   t^r.r-      i^'.'  = 

Max  Timings  11+72  =  8.3  oiks  SAT  =  0  lU'-i, 

11+77  =  88  cllcs  SAT  =  1 


Mia  Timins!  7+14  =  21  elks 
PM:  11+26  ■  3? 


7+18  = 
DM;  6 


MOVLW 

16+EXPBIAS 

MOVWF 

EX!> 

MOVF 

ACC+BO,W 

MOVWF 

SIGSN 

BTFSS 

ACC+BO,MSB 

G0TO 

IISM24 

eem 

ACC+Bl 

ACC+BO 

INCF 

ACC+Bl 

BTFSC 

_Z 

INCF. 

ACC+BO 

AARQ  =  0 
25  elks 


initialize  es^onent  and  add  bias 
teet  sign 

if  <  0,  .ae^te  and  set  .l^B  ia  SEW- 


tttmmkistmtiem  soutine 

aapttfes     24  bit  unnormalized  floating  point  niiBlfeem,i»,JffiKP,  AARS+BO,  AftiiQ+Bl, 
with  sign  In  SIGN, MSB  emd  other  bits  zero. 

Use:         CALL  NBM24 

A.  jn«»;v:  t'--  I  Ji!.-  "  If.  .  .  ■-■Jut  ,       ..I  .  - 

0»t^«t  it  fait;  .asMmllZed  floating  point  niB^r  in  MBSS,  AARS+BO,  AARO+Bl 


Result:  AASS 


UCmiiLIiEi  AAR6  ) 


Max  Tialngi 
Min  Timing;  14  elks 


10+6+7*7+7  =  72  elks  SAT  =  0 

10+6+7*7+1+11  =  77  elks  SAT  =  1 


5^ 
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5+9+4  =  18  elks 
DM:  6 


msaizi 


CLRF 
MOVF 
BTFSS 

GOTO 

MOVF 

MOVWF 

BTFSC 

GOTO 


MOVF 

SUBWF 
BTFSS 
BTFSS 
GOTO 

BCF 

BTFSC 

OOTO 

RLF 

RLF 

DECFSZ 

GOTO 

GOTO 


TEMP 

ACC+BO,W 
_Z 

NORM24 
ACC+B1,W 
ACC+BO 
_Z 

RES024 
ACC+Bl 
TBMP,3 


_Z 
_C 

SETFaN24 


ACC+BO, MSB 
PIXS1GN24 
ACC+Bl 
ACC+BO 

NOiaCdA 

SETFUN24 


cleac  exponent  decrenent 
test  if  hlgfabyte=0 


;  if  so,  shift  8  bits  TEiy  » 
;  if  Mghby1:«r=0,  resultsO  ' 


-9 


-'3 


clear  «ai^  bit  i"- 

if  I(SB=1,  normalization  done 

otherwise,  shift  left  and 
decrement  EXP 

undnrf low  If  BXP=0 


FIXSIGN24 


BTFSS  SICai.MSB 


ACC+BO, 
0 


Float  to  integer  conversion 
Input:     24  bit  floating  point 
Itee:        CMi  INT24 


in  AEXP,   AARG+BO,  AARG+Bl 


Output:  16  bit  2's  conplement  integer  rl^t  justified  in  AARG+BO,  AAKG+Bl 


Result:  AARG  <-  IHT(  AARO  ) 
ICax  Timixig: 


26+6*6+5+13 


Mln  TiMixiffm9i*^.  =  l«tj«lto. 


PM:  64 


80  elks  RND  =  0 

26+6*6+5+19  =  86  elks 
26+6*6+5+22  =  Sff  sllsa 

19+5+7  =  31  elks 


MOVF 
MOVWF 

BSP 

MOVLW 
SUBWF 
BTFSS 

'  STPac 
■ocao 


ACC+BO, W 
SIGN 

ACC+BO, MSB 

EXPBIAS 
EXP 

EXP,  MSB 
_Z 


MOVF 


EZP,W 


#4  9MMt(!(»^>"T9<A»ialpey  ilniP- 
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SUBIM 
MDVWF 
BTFSS 
BTFSC 
GOTO 


16 
EXP 

_Z 

EXP, MSB 
SETIOV24 


GOTO 

tesma 

MOVF 
MOVWF 

axe 


a 

EXP.W 

_c 

SH1FT24 
EXP 

ACC+Bl 
«CC+BO,W 
ACC+Bl 
ACC+BO 


;  do  byte  sSift  if  GXP  8 


rotate  next  bit  for  rounding 


MOVF 

BTFSC 

GOTO 


EXP.W 
_Z 

SHIFT240K 


shift  conpleted  if  EXP'-i  =  .0' 


BCF 

Kim 

BBCFSZ  SXS,  . 
GOTO 


_G 

itlCC-ii  BO  . 
ACC+Bl 

SK1FT24 


right  shift  by  KXP 


SHIFT24.0K 


GOTO 

CLRF 

RLF 

ADDWF 

BTFSC 

BTFSC 
QOTO 


BBTUr 

COMF 

COUP 

INCF 

BTFSC 

IMCF 

RETLW 


ACC+Bl, LSB 

IIIT240K 

ACC+^ 

ACC+Bl 

_z 

ACC+BO 

ACC+BO,MSB 

SETIOV24 

SIGN, MSB 
0 

ACC+Bl 
ACC+BO 
ACC+Bl 
_Z 

ACC+BO 
0 


test  for  overflow 


If  ^ign  bit  hht,  negate' 


IiES024 


SETIOV24 


CLRF 
CLRF 
CLRF 

7r,>  ,L  a  an. 

BTFSS 

RETLW 


ACC+BO 
ACC+Bl 
EXP 
0 

FPSLAlSS.SAT 
OxFF  '  ' 


integer  result  equals  zero 
clear  EXP  for  other  routines 


s^t  integer  overflow  flag 
test  for  saturation 
return  error  code  in  WREG 


CLRF 

BTFSS 

MOVLW 


RLF 
RRF 
RETLW 


ACC+BO 

SICai.MSB 

OxFP 

<Ace+fio 

ACC+Bl 

SIGN 

ACC+BO 

OxFF 


saturate  to  largest  two's 
ccsiplesnent  16  bit  integer 

SIG».*ae',''4x  7F  WW 
SIGK  =  aPv  'Ox  30  00 


return  error  code  in  WRBG 


;  *************************************************************************** i,****i,lt******ii***lt* 

;  **************************************************************-*yt*  *******************  ********** 


Floating  Point  Multiply 
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e>^ 994  mem*iip'r«*imii6r  tm. 
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Input!    J^;%t|  floating  point  numbec.ia  KBIS,  AAEG+BO,  AARG+Bl 
2:4  bit  floating  point  number  in  TOtP,  BARG+BO,  BW^G+Bl 

nse:        CALL  TmZi 

Output!  24  bit  floating  point  product  in  tXXP,  AARG+BO,  *ftRG+Bl 
RSSUlt!  AASG    <-    AARG  *  BARG 

Max  Timing:  25+15*16+15+18  =  298  elks  laip  =  a  . 

2Si+15*16+15+29  =  309  elks 

25+15*16+15+33  =  313  elks 


WD  =  %,j0m:  =  0 
em  =  i  v  Ski  =  1 


Min  Timing! 


6+5 


11  elks 


AARG  *  BARG  =  0 
24+15*11+14+15  =  218  site. 


PIW4 


TK:  80 


KOVF 
BTPSS 

MOVF 

BTFSC 

GOTO 


_z 

BEXP.W 
_Z 

RES024 


out  11 

;  test         Zisro  arguments 


MOVF 


AARG+BO, W 
BASa+BO,W 


1  save  sign  in  SIGN 


MOVF 

ADDWF 

MOVLW 

BTFSS 

GOTO 


EXFBIAS 
_C 


ADDWF 
BTFSC 
GOTO 
GOTO 


EXP 
_C 

SETFOV24 
M0IC24 


set  multiply  overflow  flag 


Hn^:4 


ADDWF 
BTFSS 
GOTO 

BSF 
BSF 
BOF 


mmrn 

BTFSS 
GOTO 


_c 

SETPTM24 

AARG+BO, MSB 
BARG+BO,  MSB 
_C 

ACC+B3 
16 


AARG+Bl ,LSB 
MN0ADD24 


;  make  argument  MSB's  explicit 

;  Giear- Initial  partial  pro^oet 

;  initialize  counter 
;  test  Ms^^jrte 


HNDAa^4 


mm 

ADDWF 
MOVF 

BTFSC 

INCFSZ 

ADDWF 

RRP 
RSF 
RRP 

RRF 
BCF 

DECFSZ 


BARQ+B1,W 
ACC+B3  , 
B2»G+B0,H 
_C 

BARG+BO,  H 

ACC+B2. 

ACC+92 

ACC+B3 
ACC+BO 
ACC+Bl 
_C 

TEMP 

MMOP24 
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BTFSC 

GOTO 

RLF 

RliF 

RLiF 

DECF 


ACC+B2 ,MSB 

MROUND24 

ACC+BO 

ACC+B3 

ACC+B2 

satp 


BTFSC 
BTFSS 
GOTO 

INCP 

IHCF 

BTFSS 

GOTO 

RHF  .iMt- 

RBF 

IHCF 

BTFSC 

GOTO 


FPFLAGS.RND 
ACC+B3 ,  LSB 

A«fe+»0  ■ 
Jg..      1  i  ■  ■- 
ACC+B3 
_z  ■   ■   - "  " 

Aee+B2 


MUL240K 
AeC+'B2  ^ 
ACC+B3 
EXP 
_C 

SETFOV24 


;  rotate  next  significant  bit  into 
;  eaarj^-  for  souaaiag 


;  has  rounding  caused  carryout? 
;  if  BO,  rifht  shift 

;  check  for  overflow  ' 


MUI,240K 


BTFSS 


MOVF 

MOVWF 

RETLW 


BTFSS 
RETLW 


MOVLW 
MOVWF 


RLF 
RRF 

RETLW 


SIGN.HSB 
A(3CtB2:.,KSB 

;    .  '  9 

ACC+B2,W 

AARQ+BO 

ACC+B3,W 

AARG+Bl 

0 

PPFLAGS.FOV 
FPFLASS'.SAT 

OxFF 

A1^«B1 
SZQII 
AARG4'B0 
OxFF 


clear  ej^lloit  MSB  if  psslitive 


move  resmt%  to  AAR6 


set  floating  point  underflag 
test  for  saturation  - 
return  error  code  in  WB!^~' 


saturate  to  largest  floating 
point  number  =  Ox  FF  7F  FF 
modulo  the  appropriate  sign  bit 


return  error  code  in  WREG 


******** 
******** 


Fl$Kt4'ttff  PoiMl  Sivlde, 

Input!    24  bit  floating  point  dividend  in  ABXP,  AARG+BO,  AARG+Bl 
24  bit  f  loatiBS  pottot  divisor  in  BBXP,  'BARO+BO,  BARG+Bl 


Use: 


CAiJ^ 


FH324 


Oa^dit:  14  f  leatlag  point  ijuotl^t  In  AEXF,  liSSd^O,  -AARO-»Bl 
Result:   AARG     <-     AARG  /  BARG 


FPB24 


Max  Timing: 

Win  TM^W? 
m:  117 

MOVF 


29+13+15*26+25+12  =  469  elks         KND  =  0 

29+13+15*26+25+34  =  491  elks  RND  =  1,  SAT  =  0 
29+13+15*26+25+38  =  495  oiks        RND  =  1,   SAT  =  1 


24+12+15*20+12 


BEXP.W 


348  elks 

lai:  11 


test  for  divide  by  zero 


BTFSC 
GOTO 


SETFDZ24 


D24BKE0 


MOW 

XORWF 

MOVWF 

BSF 

BSF 

CLRF 
MOVF 
MOVWF 

MOVP 
MOVWF 

mmi 

SUBWF 

MOVF 

BTFSS 

INCFSZ 

SUBWF 


AARG+BO,W 
BARG+BO,W 
SIGN 

AARO+B0,MSB 
BAfia+BO.MSB 

TEMP 

AARG+BO,W 
ACC+B2 
AARG+Bl.W 
ACC+B3 

ACC+B3 

BARO+B0,H 

_C 

BABG+BO.W 
ACC+B2 


save  sign  in  SIGN 

make  argvunent  MSB's  explicit 

:i'  -.1 

clear  align  increment 

test  for  alignment  .a 


CLRF  ACC'I-B2 

CSIiRF  ACC+B3 

1  .ij  ■ 

BWSS  ^jJS-y, 

GOTO  DALIGII240K 

BCF  _C 

RRF  ACC+BO 

l«F  ACC+Bl 

tmif  ACC+B2 

mvun  0x01 

MOVWF  TEMP 

DM.IQH240K  MOVF  BEXP,W 

SUBt^  EXP 

BTFSS  _C 

GOTO  ALTB24 

AQEB24  HOVLW  EXFBIAS 

ADDWF  TEMP.W 

ADDWF  EXP 

BTFSC  _C 

GOTO  SBTFOV24 

GOTO  DAReOK24 

ALTffi4  MOVLW  EXPBIAS 

ADDWF  TEMP.W 

ADDWF  BaCP 

BTFSS  _C 

GOTO  SETFDIJ24 

DMtGOK24  HOVI.W  16 

MOVWF  TEMP+Bl 

DI.OOP24  RLF  ACC+B3 

RLP  ACC+B2 

RIiF  ACC+Bl 

BIiF  ACC+BO 

RLF  TEMP 

MOVF  BARG+B1,W 

SUBWF  ACC+Bl 

MOVF  BARG+BO,W 

BTFSS  _C 

INCFSZ  BARO+B0,W 
■              J.  ;'AGC+BO 


;  aliwJ'-'il  neoessjuy 

;  save  aiign/increment 

;  caa^mss  JtSXP  and  BEXP  < 

'  ',iC  ' 
■'■■.iTft 

-A-...'lJ1C  -  >:i 

I  set  <«is»i3s«w  flag  •  - 

j:  ■setj-mSmtiox  flag  ■'rr  i  .-i,'. 

,*  initialize  counter 

■) 

;  lefts  shift  -.  'I 

,  s^tsaoSi •  '  : 


BftBS+BO,W 


TEMP.LSB 
DREST24 


'BSF 
GOTO 


ACC+B3,I.SB 
DOK24 


M0VF 

BTFSC 
IHCP 
ASDHF 
BCF 


BHRS+Bl.W 
ACC+Bl 

_c 

BARG+BO.W 
ACC+BO 
ACC+B3 , LSB 


restore  -If  necessary 


DOK24 


DBCFSZ 
SOTO 


TEHP+Bl 
QUX3F24 


DROUIID24 


BTFSC 

BTFSS 

GOTO 

BCF 

8LF 

RLF 

SLF 


FPFLAGS.RND 
ACC+B3 , LSB 
DIV240K 
_C 

ACC+Bl 
ACC+BO 


compute  next  significant  bit 
for  roundixiff 


MOVF 
SOTWF 
MOVF 
BTFSS 


BARG+B1,W 

ACC+Bl 

BARG+BO,W 

_C 

BABG+BO,W 
'  ACC+BO 


subtract 


RLF 
lORHF 


0x01 


BTV9C 
INCF 


JtCC+B3 
_C 

ACC+B2 


BTFSS 

GOTO 

SRF 

RHF 

INCF 

BTFSC 

GOTO 


DIV240K 

ACC+B2 

ACC+B3 

EXP 

_Z 

SETFOV24 


test  if  rounding  caused  csurryout 


test  fof  «ir«£loir  < 


DIV240K 


BCF 


SIG3],MSB 
ACC+B2,MSB 


clear  explicit  MSB  if  positive 


MOVWF 


ACC+B2,W 
A^'»BO 
ACC+B3,W 
AARG+Bl 


move  result  to  AARG 


RETLW 


FPFLAGS.FUN 
FFFIdl9S,SA.T 
OxFP 


set  floating  point  underflag 
teofe  'fear  Mturation 
retuni '  erftar  code  in  HKBG 


MOVLW 
MOVWF 
CUtF 

CLRF 


0x01 
AEXP 
AARG+BO 

AARG+Bl 


saturate  to  smallest  floating 
point  nusiber  =  Ox  01  00  00 
modulo  the  appropriate  aU/n  bit 


5-32 
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SETFDZ24 


RLF 
RRF 
RETLW 

BSF 
RETLW 


SIGN 

AARG+BO 

OxFF 

FPFLAGS.FDZ 
OxFF 


return  error  code  in  WREG 
set  divide  by  zero  flag 


J  **************************************  ******************#*^^**^  ***********  ****** 
********************************************************************************************** 

Fleating  Point  Subtract  ■■1 

Input:     24  bit  floating  point  number  in  AEXP,  AARG+BO,  AARG+Bl 
24  bit  floating  point  number  in  BEXP,  BARG+BO,  BARG+Bl 

use:        eim.  f'PS24. 

Out^t:  24  bit  floating  point  sum  in  AEXP,  AARO»S0,  MiSISml 

Result:  AARG    <-    AAEG  -  BJUiG  '  ri 


Max  Timing: 


2+194  =  196  elks 


ma  • 


2+20S 
2+210 


207  elks 
212  elks 


iOID  =  1, 


Min  Timing;  2+44 
PM:  2+102  =  104 


46  elks 
DM:  11 


0x80 
BARO+BO 


,«T  .=  -a 

S«T'  =  1 


FPA24 


Floating  Point  Add 

Input:     24  bit  floating  point  number  in  AKXP,  AARG+BO,  AARG+Bl 
24  bit  floating  point  number  in  BEXP,  BARG+BO,  BAKG+Bl 

Use:  CALL  FPA24 

Output:   24  bit  floating  point  sum  in  AEXP,  AARG+BO,  AARG+Bl 
Result:  AARG    <-    AARG  -  BARG 


Max  Timing: 
Kin  Timing: 

wtk  ioa 

HOVF 

X9RW 

MOVWF 


25+25+6*6+5+31+72  =  194  elkfl       BHD  <W  0 

25+25+6*6+5+42+72  =  205  elks 
25+25+6*6+5+42+77  =  210  elks 


RND  =  l^j,-  SKT  =  0 
SND  »  t,  mt  =  1 


22+18+4  =  44  elks 


AARG+BO, W 
BARG+BO, W 
TEMP 


DM:   11  i,. 

;  exclti£iv«:<o£  of  signs  Id 


AEXP.W 


use  hms.it  AEXP  >=  BEXP 


MOVF 
MOVWF 
MOVF 
MOVW 

MOWI!'^ 


BEXP.W 
ACC+B2 
AEXP,W 


AEXP 


Otherwise,  swap  AAR<3  and  -S2atO 


S43 
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AL0Ca>B24 


MOVP 

MOVWF 

MOVF. 

MOVWF 

MOW  r, 

MDVWF 

mmw 

MOVF 


MOVF 
MOVMf 


mmm 

BSW 


^  ,x  • 

MOW 
SUBWF 
MOVWF 
BTFSC 

mmm 


BTFSS 

GOTO 

MOVWF 

RliF 

MOVF 


CLRF 
MOVF 
GOTO 
BCF 

■rrf: 


.KEFS@ 
GOTO 
INCF 
BTFSC 
INCF 

GOTO 
SBF 

mcF 


ALIGNED24 


GOTO 

BTFSS 

GOTO 

COMF 


BARG+BO,H 

ACC+B2 

AARG+BO,W 

BARG+BO 

ACC+B2,W 

AARG+B1,W 
BARG+Bl 
ACC+B2 , W 
AARG+Bl 

AARG+BO,W 

Sim 

AA^+BO,MSB 

Bf^^e^'BO  /ms 

BARG+BO, W 
ACC+B2 

Aec*B3 

BEXP.W 
AEXP.W 
BEXP 
_Z 

AR0traD24 


_C 

ALIGNB24 
BEXP 
ACC+B3 
A0C+fi2  ,W  '  ■  - 

■*iec+B3 

ACC+B2 
BEXP.W 
AK0raiD24 
_C 

ACC+B2 

ACC+B3 
BEXP 

ALOOPB24 
FPFLAGS ,  RND 
AIiI€0S!D24 

._C.-  ■  .': 
AI,IGNFD24 
ACC+B3 
_Z 

ACC+B2 
_Z 

ALI(SmD24 
ACC+B2 
ACC+B3 
EXP 

•_Z 

SETFOV24 

TEMP,  MSB 

AOK24 

ACC+B3 


save  sign  in  Sl&l 
make  MSB's  ej^llcit 


confute  shift  count  in  BE^ 

-     ■  K  -  -  -! 

if  BEXP  >=  8,  do  hyt&  shift 
rotate  next  bit  for  rounding 

already  aligned  if  BBXf  =  0 
right  shift  by  BEXP 


;  carry  fOE-rounding  ' 


negate  if  signs  opposite 


5^. 


COHF 

met 

BTPSG 


ACC+B2 
ACC+B3 
_Z 

ACC+B2 


AOK24 


MOVF 

ADEHF 

B9VSC 


MOVF 
JUXMF 


ACC+B3,W 

AABG+Bl 

_C 

ACC+B2,H 
AAKG+BO 


add 


BTFSC 
GOTO 
BTFSS 
e090 

RRF 

RRF 

INCFSZ  AEXP 

GOTO 

GOTO 


TEMP ,  MSB 

ACQHF24 

_C 

FIXSIGN24 

AASS+BO 

AARG+Bl 

FIXSIGN24 
SETFOV24 


shift  ri^t  and  increment  EXP 


ACOHP24 


GOTO 

COMP 

COMF 

INCF 

BTFSC 

INCF 


_C 

NRH24 

AARG+Bl 
AARG+BO 
AARG+Bl 
_Z 

AARG+BO 


;  normalize  and  fix  sign 

;  negate,  toggle  sign  bit  and 
;  then  ^^pnalize  -.  > 


MOVLH 
XORWF 
GOTO 


0x80 
SIGN 
NRII24 


f 54  Cciml^iiniJbl^ll^ting-Piiint  RdQtfHeS 


;  PIC17  24  BIT  FLOATING  POINT  LIBRARY  VERSION  1.14 

■   ■  .-J  . 

;  Unary  operations:  both  input  and  output  are  in  AEXP,AARG 

;  Binary  operations:  input  in  AEXP,AARG  and  BEXP,BARG  with  output  in  AEXP.AARG 

;  &11  ifcnieiiiee  SiKMett  HR8G  =  0x90  for  •tlecessful  congpl^lt^*,         VSXS  ^ 

;  for  an  error  cMj|l6t<>a  specified  in  7PFLAGS. 

;  Max  timings  are  worst  case  cycle  counts,  while  Min  timings  are  non-«EQeption 

;  beet  ca«e  eyele  counts.  '  : ; 

;  Boatine  Function  - 

•  KEiSS4  16  bit  Integer  to  24  bit  floating  point  conversion 

<tX3  uim    ■    ;l  .  OU 

1  Kax  Sttlag:  RND  ' 

,  0  1  ■  X  '    :r.  : 

;  0  48  48 

;  SAT 

1  55  55 

;  NBK24  normalization  of  unnonnalized  24  bit  floating  point  nioSsefS 


Max  Timing: 


0  1 

0  39  39 

1  4«  46 


IIJT24  24  bit  floating  point  to  16  bit  integer  conversion 

Wax  'FM^  :  SHO 

0  1 

0  57  61 

SAT 

1  57  65 
1^134                   24  bit  floating  point  add 
Max  Tlmlog: 

0  1 


SAT 


0  116  131 

1  lis  131 

!  *MS4  24  bit  floating  point  svftitraet 

;  Sax  Timing  :  RND 

!  0  1 

!  0  117  132 

!  SftT 

I  1  117  132 

;  PraB4  24  bit  floating  point  multiply 

!  Vax  Timlag:  RND 

;  0  1 

0  175  184 


9  T994!Mimsmgi  f ttMetoffidlnei 


SAT 


175 


189 


FPD24 

Kax  Timing  I 


24  bit  floating  point  divida 

'.(    >;   _>/■'  ■  - 

RND 
0  1 


328 
328 


347 
352 


list       r=dec,x=on, t=of f ,p=17C42 
include  <PIC17.INC> 

;  **4F«***«**t********** ************************************************ *«****#*****«**«*###4NNF«*  - 
; **♦*♦**»**»♦•*♦»#***##********#*******************************************♦**********♦♦♦*♦**** 

24  bit  floating  point  representation  -  '  t    ■  i  i: 

EXPONENT  8  bit  biased  exponent 

It  is  important  to  note  that  the  use  of  biased  exponents  produces 
a  unique  representation  of  a  floating  point  0,  given  by 
EXP  =  HIOHBYTE  =  LOWBYTE  =  0x00,  with  0  being  the  only 
number  with  EXP  =  0. 

8  bit  most  significant  byte  of  sign-magnitude  representation,  with 
SIGN  -  MSB,  and  inplicit  mantissa  MSB  =  1  and  radix  point  to  the 
left  MSB 


HIGHBYTB 


LOHBSTE  8  bit  least  significant  byte  of  sign-magnitude  matissa 


BXPCNEHT 
xxxxxxxx 


RADIX 
POINT 


HIGHBYTE 
Sxxxxxxx 


LOHBXTE 


;  Define  literal  constaats 

BXPBUS  eija  128 

;  Define  libriury  register  variables 


EXP 

equ 

0x18 

;  8  bit  biased  expon«it 

ACC 

e^ 

0x19 

;  most  significant  byte  of  contiguous  4  byte  aoctmiulator - 

SIGN 

equ 

OxlF 

;  save  location  for  sign  in  MSB                          -   ■>..-.  .j.-„  v: 

T^l^ 

equ 

0x25 

;  temporary  storage  - 

Befine  binary 

operation 

arguments 

AEXF 

equ 

0x18 

;  8  bit  biased  ei^onent  for  argument  A 

AARG 

equ 

0x19 

;  most  significant  byte  of  mantissa  for  axgusisnt  A 

BEXP 

equ 

0x21 

;  8  bit  biased  exponent  for  argument  B 

BABO 

eqtt.l  ^ 

-0x22 

;  most '  slgnif leant '  byte  of  mantissa  for  argument  B 

Ifotei  (ABXP, 

AARG+BO, 

AARG+Bl  )   -and     IBXP,  ACC+BO,  ASC+Bl)     <  .:• 

reference  the  si 

use  storage  locations. 

Define  floating  point  library  exception  flags 


qftnpitiiiriwMBfitMhiiiiuiiiiiine. 

&37 


\mE  754^ 


FFFL&SS 

eiju 

0x20 

;  floating  point  library  exception  flags 

J&f 
FOV 

egu 

0 
1 

t  hktQ  -  integer  ove^fl^ti^  £1^ 

I  bitl  =  floating  point  e«ac£low  flag 

FUN 

equ 

2 

;  bit2  =  floating  point  underflow  flag 

FDZ 

equ 

3 

;  bits  =  floating  point  divide  by  zero  flag 

BtgX 

6 

J  bite  =  floating  point  **aK(ling  "flag,  0  =  truncation 
;  1  =  otdtiased  rounding  to  nearest  LSB 

mi 

7 

;  bit?  =  floating  point  saturate  flag,   0  =  terminate  CTl 

;  exception  without  saturation,  1  =  terminate  on 
;  exception  with  saturation  to  appropriate  value 

««*».«*«**»«**  »*»l>*«******»»»»»»^ 

#«»***#**#•#«  #*«#**##******* 

Integer  to  float  conversion 

Input:  16  bit  2's  complement  integer  right  justified  in  AARG+BO,  AARG+Bl 

nse:  CALL  FL024 

Od^iuti  24  M-t  floating  point  nuadser  in  ABXP,  AlUfiS+BSV  AASQ-t-Bi 


FL024 


Result:  AARG  <-  FLOAT (  AARG  ) 
Max  Timing  I  9^39  »  48  elks 


9+45 


Mln  Tlminsf! 


S*1S  =21  oiks 


PM:  9+63 


72 

Movm 

MOVWF 
MOWP 
BTFSS 
GOTO 

COMF 
COMF 

INFSNZ  ACC+Bl 


6+20  = 

DM:  6 

16+EXFBIAS 

ACG+BO,SICar 

ACC+B0,HSB 

I9KH24 

ACC+Bl 

ACC+BO 

ACC+BO 


SAT  =  0 
54  elks 

AA^  °  0 
26  elks 


initialize  exponent  and  add  bias 

save  sign  in  ^I^CSX 
test  sign 

if  <  0,  negate,  set  MSB  in  SI<^ 


Normalization  routine 

Input:     24  bit  unnormalized  floating  point  number  in  AEXP,  AARG+BO,  AARG+Bl, 
with  sign  in  Siai.MSB. 

Wmet      @MEi  1)10124' 

Output:  24  bit  normalized  floating  point  number  in  AB3CF,  AARG+BO,  AARQ+Bl 

Result:   AARG     <-    NORMALIZE!  AARG  ) 


Max  Timing:  3+12+16+8  =  39  elks  SAT  =  0 

"  AA~-i,"e  •    ..  3*12+lS+lSf=  46  clks.^  ■ 


SAT  =  1 


Via  Tinting! 
t>H:  63 


lO-t-S  =  15  Oiks  .•^■■■MmiS-m  0 

3+5+4+8      20  elks 
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10)1124 

;  disaS  wt^onent  decreoient 

-  ACC+BO 

;  tesfe  if  hl0il!yte=O 

aoTO 

NRM24A 

TNIB24 

MOVLW 

OxFO 

;  test  if  hi^lmibble=0 

ANDWF 

ACC+BO,W 

TSTFSZ 

WREG 

11010124 

ACC+BO 

;  if  B'o',  shift  4  bits 

SWAPF 

ACC+B1,W 

ANDLW 

OxOF 

ADDWF 

ACC+BO 

SWAPF 

ACC+Bl ,W    .  • 

ANDLW 

OxFO 

MOVH? 

WRBQ,  ACC+Bl 

.  ;  Inerease  darasoBBBt  by  4.       i   .  : 

BCF 

_C 

;  clear  carry  bit 

BTFSC 

ACC+BO, MSB 

;   if  MSB=1,  normalization  done 

GOTO 

TNORHUN24 

RLCF 

ACC+Bl 

;  otherwise,   shift  left  and 

ACC+BO 

;  increment  decrement 

mew 

TEMP 

BTFSC 

ACC+BO, MSB  . 

GOTO 

TNORMU1J24 

RLCF 

ACC+Bl 

INCF 

TEMP 

BXBSC 

;  sisee  bi^iiaibble  1=  0,  ae  Most 

<S3TO 

TNORMUN24 

;  3  left  shifts  are  required 

RLCF 

ACC+Bl 

RLCF 

ACC+BO 

INCF 

TEMP 

•cmsaatat 

MOVFP 

TEMP,  WREG 

;   if  EXP  <=  decrement  in  TEMP, 

;  floating  point  underflow  -has 

GOTO 

,>'  £ETrai24 

;  occured  ^ 

SUBWP 

EXP 

;  oth^;^'Se^'^~  ^onqpute  EXP 

FIXSIGN24 

BTFSS 

SIGH, MSB 

....                     -I  . 

BCF 

ACC+BO,  MSB 

;  clear  explicit  MSB  if  positive 

RETLW 

0 

MOVFP 

ACC+B1,ACC+B0 

;  if  so,;  MSft  8  bits  by  aMe 

CZJIF 

BSF 

TEMP, 3 

;  ineigai^  HW^rament  by  8 

CFFSGT 

ACC+BO 

;  if  Mf^a^t^O,  result>»  . 

GOTO 

RBS024 

iftii^M*jt.*<'.i 

AUDHF 

ACC+BO ,W 

GOTO 

N0iaQ4A 

SWAPF 

ACC+BO 

;  if  so,  shift  4  bits 

BSF 

TEMP,  2 

;   increase  decrement  by  4 

lR»ai24A 

BCP 

_C 

;  clear  carry  bit 

ACC+BO.Hra 

;  if  KSBsl,  normal  Izaticm  draue 

GOTO 

TNORMOlKi  . 

RLCF 

ACC+BO  ■ 

;  otho^flSd,  ^l£t  le£t  and*'  - 

INCF 

TEMP 

;  increment  decrement 

BTFSC 

ACC+BO, MSB 

GOTO 

TNORMXmai 

RLCF 

ACC+BO 

INCF 

TEMP 

5h39 
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GOTO 
RLCF 
INCF 
GOTO 


ACC+BO 
TEMP 

TNORHUN24 


;  since  higfa^ibble  l==  0  ,  m.-Jmet. 
1  3  left  shifts  are  req^&«^'  - 


********************************************************* 

**************#*********(f'****#*,^'*********  **********************  *****************  ****** 
W%mmt  to  Integer  conversion  ('  - 

Ii^t:    24  bit  floating  point  number  in  2^P,  AJmC+BO,  SS(S+B1 
Ose:         CMi,        nslT24  '.. 

Output:  16  bltt      s, :@9iic>lenient  integer  right  justified  iv:aARG+BO,  AARG+Bl 
Result:  AARG     <-     INT  (  AARG  )  ^!  -i' 

Max  Timing:  11+34+12 


**** 
**** 


57  elks 

11+34+16 
11+34+20 


Km 

61  elks 
65  elks 


1,       =  1 


Hin  Timing: 


6+5  =  11  oiks 


AASe  =!  0 
11+10+7  =  28  elks 


ACC+BO , siam 

;  save  sign  in  Sica? 

i.ii9l9o  .1.  ; 

;  Bu^tffi'.  Men  ^«^noit 

EXPBIAS 

;  restove:  ieAjsCb'.  frcM  EXP       <  J  W 

EXP 

!  if  <=  tr-i- iesult=0 

GOTO 

RBS024 

■                          -]  " 

SUBI#^ 

EXP 

'r  Ifej  i^  r.  - 

;  if  >»;!ai6,,  integer  overflow 

SOTO 

.SSTIOW24 

;  will  OCOU2F  s 

EXP.W 

NEGW 

EXP 

MOVLW 

7 

;  do  byte  shift  if  EXP  >=  8 

EXP 

'  8111824 

SUBWF 

EXP 

;  EXP  =  am.  .  r 

RLCF 

ACC+Bl 

;  rotate  nacfblt  for  rounding 

MOVFP 

ACC+BO, ACC+Bl 

CLRF 

ACC+BO 

DCFSNZ 

EXP 

;   EXP  =  EXP  -  1 

^3iFT2itOK: 

;  shift  ooB¥>leted  if  EXP  ■  s  0  ■ : 

MOVLW 

3 

J  do  nibble  ^ift  if  EXB  4 

C5FSGT 

EXP 

GOTO 

SHIFT24A 

SUBWF 

EXP 

;  EXP  =  EXP  -  3 

SWAPF 

ACC+Bl,  W 

MOVFP 

WiSS,&CG+B2 

;  save  for  rounding 

tmsuti 

MOVPF 

WHEG, ACC+Bl 

ACC+Ba-' 

;  ro«!<et«ai@£B  bit  for  roundiiitg 

Dcraiz 

EXP 

;   ECR'  S1SHE»,  1 

GoTat 

SHIFT240K 

;  shift  OsiBn^eted  if  EXP  0 

BCF 

_C 

;  at  most  3  right  shifts  are  required 

mCF 

ACC+Bl 

;  right  shift  by  EXP 

DCFSNZ 

EXP 

GOTO 

SHIFT240K 

;  shift  ctSfiplleted  if  EXP  =  0 

5-40 


7PI  Compliant  BIMiiii#od1l  MCiMgd 


SNIB24 


SHIFT24 


SHIFT240K 


I1IT240X 


SBTIOV24 


BCF 

_C 

SXP 

GOTO 

c 

■  fjjjimiy  ■  -  A 

GOTO 

MOVLW 

^  oc*  rn 
L rr  btj  1 

EIXP 

GOTO 

anXr  La* 

SUBWF 

EXP 

SWAPF 

nuvr  f 

Ar>IDJ_iW 

OxOF 

MOVPF 

WREG , ACC+Bl 

SWAPF 

ACC+BO ,W 

ANDLW 

OxFO 

ACC+Bl 

ACC+BO«W 

OxOF 

WRBG,  ACC+BO 

RLCF 

ACC+B2 

DCFSNZ 

EXP 

GOTO 

SHIFT240K  . 

BCT 

_C 

RRCF 

ACC+BO 

RRCF 

ACC+Bl 

DCFSNZ 

EEXP 

GOTO 

SHIFT240K 

BCF 

_C 

RRCF 

ACC+BO 

RRCF 

ACC+Bl 

DCFSNZ 

EXP 

GOTO 

SHIFT240K 

BCF 

_C 

I^CF 

ACC+BO 

RRCF 

ACC+Bl 

BTFSC 

FPFLAGS , RND 

AcqtBi#L^ 

GOTO 

INT240K 

CLRF 

NREG 

ADDWFC 

ACC+Bl 

ADDWFC 

ACC+BO 

BTFSC 

ACC+BO , MSB 

GOTO 

SETI0V24 

BTPSS 

SIGN,  MSB 

RETLW 

0 

COME 

ACC+Bl 

COMF 

ACC+BO 

INFSNZ 

ACC+Bl 

INCF 

ACC+BO 

n  LIMIT  r^T 

0 

CLRF 

ACC+BO 

CLRF 

ACC+Bl 

COtF 

SXP 

RBTUf 

0 

BSF 

FPFLAGS, lev 

BTFSS 

FPFLAGS,  SAT 

CLRF 

■ 

ACC+BO 

BTFSS 

SIOI.IISB 

SETP 

ACC+BO 

shift  c^i^eted  if  SXP  =  0 
do  nibble  shift  if  EXP  >=  4 

sxe  =  WIS  - 

save  for  roundiqsFj 


rotate  next  bit  for  rounding 

EXP  =  EXP  -  1 

shift  conpleted  if  EXP  =  0 

at  most  3  right  shifts  are  required 
right  shift  by  EXP 


^lifti  ^aa^atnefk  if  EXP 


shift  consileted  If  EXP 


add  next  bit  for  roundljig 


if  sign  bit  set,  negate 


Integer  result  eqaals  zero 
clear  EXP  for  other  routines 


s^  ipt^lpB.  ^Sf^Q.<H(<  flag 
t^t  for  saturation 
re^urii  code  in  WSBB 

I 

saturate  to  largest  two's 
complement  16  bit  integer 
SIGN  =  0,   Ox  7F  FF 
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i!80057SA-pag83i1 


CompliafftsPlcidti.    PcMt  PI^W^ 


tlOVFF 


EfitBtf" 


ACC+B0,ACC+B1 

SIGN 

ACC+BO 

OStPF 


SIGN  =1,  Ox  80  00 


return  etro'f  cede  in  WREG 


. ********************** 
, ********************** 


******************************************************* 
******************************************************* 


r*  *  *  ** 
t***** 


Floating  Point  Multiply 

Input:    24  bit  floating  point  nuniber  in  AEXP,  AABS^if > W«a»Bl 
24  bit  floating  poi4iSt  auniber  in  BEXf,  BARG+BO,  BlotO+Bl 

Use:         CALL  FPM24 

Output:  24  bit  floating  point  product  in  AEXP,  AARG+BO,  AARG+Bl 
Result:  AARG    <-    AARG  *  BARG 


Wast  vtaingf 


Min  Timing: 


19+140+16  =  175  elks  R»  a  0 

19+140+25  =  184  elks 
19+140+30  =  189  elks  ' 


5+5  =  10  elks 


'■  ■S  ' 

m-.  21+16l9*%»-sS  ^4 


AARG   *   BARG  =  0 
13+5+37+15  =  70  elks 


CM:  10 


macro 


Max  Timing: 
Hin  Timing: 


10+14*9+4  =  140  dl*s 
33+4  =  37  elks 


END  S 


iy  =SAT  =  0 
ay  SAT  =  1 


PM:  3+16*2+4+14*9+4  =  169 

variable  i  =  0 
variable  j  =  1 

BCF  _C 


m-.  6 


eLRP 


if  i  <  8 


ACC+B2 
ACC+B3 


AARG+Bl ,  i 


BTFSC 
else 

BTFSC  AARG+BO , i-8 

endif 
GOTO 
i  +=  1 
endM 

ma  'disase^iat  ^bfe*  U@e%'  tfifice  1I^''b  are  ^cplicit 


Badd24lv(  1  ) 


clesu;  carry  bit 

ciiekc  bs&tial  partial  i^educt 


test  low  l^yte 


;  test  high  byte 


MOWS 
MOVFP 


BARG+BO, ACC+B2  ;  if  We  get  hai^,  ACC=0  so 
BARG+B1,ACC+B3     ;  BARS  for  add 

r.:  • ..  •-. 

ACC+B2  '■ 
ACC+B3 


IKi  754  CdiHlillaifegiaiiMng-Point  Routines 


while  j  <  15 
if  j  <  8 
BTFSS 
else 


eudif 
GOTO 


AABG+Bl, j 


AMiS+BO,  j-8 


I!noadd24*v(  j  ) 


Ha<3d24tv(  j  ) 

mVFB 

BAR0+B1,HRSG 

ACC+B3 

BARS+BO.MiBG 

Ibioada24tv(  j 

)  RRCP 

ACC+B2 

RRCF 

ACC+B3 

if  j  >  13 

RRCF 

ACC+Bl 

endif 

if  j  <  14 

BCF 

_C 

endif 

j  +=  1 

•ndw 

lbu3d241S 

MOVFP 

BARG+Bl.WREO 

ADDWF 

ACC+B3 

MOVFP 

BARO+BO.WRBO 

ADDHFC 

ACC+B2 

sxidbn 

CLRF 

WREG 

CPFSEC 

BEXP 

CPFSGT 

AEXP 

GOTO 

RES024 

iQ4ano 

MOVFP 

AMtO+BO.MRaO 

XORHF 

BASa+BO.W 

HOVPF 

WREO.SIOI 

MOVFP 

BEXP.HSBO 

ADDWF 

EXP 

MOVLW 

EXFBIAS 

BTFSS 

-  _c 

OOTO 

mam* 

ADDWF 

EXP 

BTFSC 

_C 

GOTO 

SETFOV24 

GOTO 

l(OIC24 

liT0N24 

ADDWF 

EX? 

BTPSS 

_C 

test  low  byte 


test-  bi«^  byte 


add  m>' 
add  insb 


save  bits  for  rounding 


clear  carry  »tate  possible 


add  Isb 
add  nab 

test  for  zero  arguments 


'T.-'Mmic*  i^ga-iK  .BISK  : 


;  move  blaa  and  overflow  test 


remove  biaa  and  un^rflow  <beB£ 


« im«Mlwei#(3MM3lw  toe. 
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Hl)L24eK 


GOTO 

SETFUN24 

BSF 

J    ulari^vs    dX  y  uilLcfii^    viii^D    o    ^v^i^  a.  ^  ^ 

B'S7 

«     11 A  A    ma               -'f'nr    TMll  t'Tnl  If^^^^l  on 

;    US6  jlla.CZ^o            «H*4.  irXiJ  -i-  J-  "Jii 

BTFSC 

_c 

;  check  for  postnormalization 

GOTO 

HRIGHT24 

DECF 

EXP 

GOTO 

MR0IJND2  4 

k  '•  .       .<     '  ■, 

RRCF 

ACC+B2 

RRCF 

ACC+fi3 

URCF 

AC^^Bl 

BTFSC 

FPFLAGS.Rim 

BTFSS 

ACC+B3  ,  LSB 

GO^ 

MUL240K 

CliRF 

HREG 

KLCF 

;  rotatie  next  significanlt  oiv  inco 

ACG+B3 

;  carry  for  rounding 

AG'C+B2 

S'*  -   "■'  - 

B^FSS 

_C 

;  has  rounding  caused  carryout? 

GOTO 

M[;ii240K 

RRCF 

ACC+B2 

;   if  so,  right  shift 

RRCF 

ACC+Bi3  ■ 

INFSNZ 

EXP 

;   test  for  floating  point  overflow 

SGTFOV24 

BTFSS 

sim.mB 

BCF 

AGC-f  B2  /MSB 

;  cleair  ffl^lteit  MSB  if  positive 

KOVFP 

ACC+B2,AARG+B0 

}  move  result  to  M^Q 

MOVFP 

ACC+B3,AAR0+B1 

SSTSN 

0 

BSF 

FPFLAGS , POV 

;  set  floating  point  underflag 

BTFSS 

FPFLAGS , SAT 

;  test  for  saturation 

RETLH 

OxFF 

;  return  error  code  in  WREG 

SS'IF 

AEXP 

;  saturate  to  largest  floating 

SETF 

AABG+BO 

f  ;?p©i»fe-i«aofeer  =  Ox  FF  ^F: 

SETF 

AAR6+B1  . 

}  module         j^ropriate'  sign  bit 

RLCF 

SIGN 

RRCF 

AARG+BO 

RETLW 

OxFF 

;  retuiCBi  tMfror  code  in  WREG 

********************  ********************** 
w  A***********************  *****************************  *****^3^^******  *************  ******* 

;  Floating  Point  Divide  -f  -  '  ■  - 

;  Il^t!     24  bit  floating  point  dividend  in  AEXP,  AARG+BO,  AARG+Bl 

J  24  hit  floating  point  divisor  in  BEXP,  BARG+BO,  BARG+Bl 


***** 
***** 


FPD24 


Oat^t:  24  bit  floating  point  quotient  in  AEXP,  AARS+BO',  AARG^Bl 


Result:  AARG  <-  AARG  /  BARG 
Max  Timing:-- 


^2+11+285+16  =  328  elks  RND  =  0 

22+11+285+29  =  347  elks  RND  =  1,  SAT  =  0 
'22+11+285+34  =  3^52  cUO»  BND  =  1,  SAT  =1 


Hln  'Bliateigpn.SFS'  .s  11  el]<& 


AARG  s  0 
30+237+10  =  277  elks 
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1  Ml  36+301-f40  =  377 

DIV16  macro 

Timings  1+16*20  =  321  elks 
variable  i  =  0 


CM:  11 


BCF 

while  i  <  16 


CLRF 

lOiCF 
SLCF 

RLCF 


TEHfP 

ACC+B3 

ACC+B2 

ACC+Bl 

ACC+BO 

TEMP 


left  shift 


MOVFP 
SOBUBf 


BARG+B1,WREG 
ACC+Bl 
BARG+BO,WREG 
ACC+BO 

msB 

TEMP 


Dreat«v(  i  ) 


Dok«v(  i  ) 


BTFSS 
SOTO 

BSF 
GOTO 

MOVFP 

ADDWF 
MOVFP 
ADDWFC 
BCF 


i  +=  1 
endw 


Ocest«v(  i  ) 

ACC+B3,LSB 
Doktv(  i  ) 

BARG+B1,WREG 
ACC+Bl 

BARG+BO ,  WREG 

ACC+BO 

ACC+B3,LSB 


test  for  restore 


;  restore  if  necessaxy 


DIV16A 


Max  Timing; 
Mln  Tlmingi 


15+15*18  =  285  elks 
12+15*15  =  237  elks 


FK:  16+15*19  =  301 

BTG 
MOVFP 


KLCF 

lORWF 


TEMP,LSB 

BARG+B1,WREG 

ACC+Bl 

BASG+BO,HREG 

ACC+BO 

VRBO 

TEMP 


EH:  7 


save  carry 
subtract 


BTFSS 
GOTO  - 


TEMP.LSB 
DAzastO 


test  for  restore 


BSF 
GOTO 


ACC+B2,KSB 
DAokO 


EAokO 


MOVPP 

ADDWF 

MOVFP 

ADDWFC 

BCF 


variable  1=1 

iidille  1  <  16 


BARG+Bl, 

ACC+Bl 

BARG+BO, 

ACC+BO 

ACC+B2,1 


restore  if  necemtry 


ft  ■■■5 


SLCF 
KLCF 

MOVFP 


ACG+Bl 
ACC+BO 
TENP 

BARG+Bl, 
ACC5»«1. 
.  BABG+BO, 
ACC+BO 
HRES 


save  'OBrry 
subtract 


BTFSS 
GOTO 


if  1  <  8 


TEMP.LSB 
DArest*v(  i  ) 


ACC+B2,M3B-i 


test  for  restore 


s)3t  bibi.-iin:  quotient 


endif 

GOTO 

DArest*v(  i  )  MOVFP 
ADDWF 
MOVFP 
ADEMFC 


ACC+B3 , 15-i 


DAok#v(  i  ) 

BARG  +  Bl  ,  WREG 
ACC+Bl 

BARG+BO,WREG 
ACC+BO 


eMt  Mt  im  quotient 


restore  if  necessary 


if  i  <  8 

BC»  ACC+B2,l(SB-i  ;  clear  bit  in  quotient 

else  ..: 

BCF  ACC+B3,15-i  ;  clear  bit  in  quotiait  y 

endif 

DAok#v(  i  ) 

i  1 
eodw 


FSD2i 


CLRF 

CPFSOT 

GOTO 


TEMP.W 
BEXP 

SSTFDZ24 


test        ttvide  by  zero 
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CPFSGT 

eovo  ' 


RSS024 


TAI.IGN24 


DAI:ISN240K ' 


MOVFP 

XOKHF 

MOVFF 

BSP 

BSF 

MOVFP 
MOVFP 


BTF9C 
OOTO 


RLCF 
BLCF 


BTFSS 

GOTO 


AARG+BO,WREG 
BARG+BO,W 
WREG, SIGN 
AARG+BO.HSB 
BARG+BO,MSB 


M«e««OV»e£'rB2 
AARG+B1,ACC+B3 
BARG+Bl.WREG 
ACC+B3 

BARG+B0,WRBO- 

ACC+B2 

_C 

DALIGN240K 

ACC+Bl 
ACC+BO 
TBKP 

^^KP,tffiBS 

"Eacp 

^CPBIAS 

_C 

ALTB24 


save  sign  in  SIGN 

make  arcniment  MSB's  explicit 


set  ai4^' increment 
test  for'^allgnment 


align  if  necessazy 
fix  align  increm«it 
eengiiite  ASXP  -  BEXF 


ADDWF 


BTfSC 

GOTO 

GOTO 


TEHP.W 

EXP 

_C 

SETFOV24 
DAB(30K24 


if  AEXP  >  BEXP,  test  for 
overflow 


ALTB24 


ADDWP 
ADDWP 
BTFSS 
GOTO 


TEMP.W 

EXP 

_C 

SETFaN24 


if  AEXP  <  BEXP,  test  for 
underflow 


DAROOK24 
nRODND24 


BTFSC 

BTFSS 

GOTO 

BCF 

RLCF 

RLCF 

RLCF 

MOVFP 
SUBWF 
MOVFP 


RLCF 
lORWF 


FPFLAGS , RND 
ACC+B3,LSB 
DIV240K 
_C 

&CC+B1 
ACC+BO 

TEMP 

BARG+B1,WREG 
ACC+Bl 

BARG+BO,WR£G 

ACC+BO 

WREG 

TEMP 


macro  for  division 


cctrpute  next  significant  bit 
for  rounding  -  — 

save  carry  ^w; 

subtract 


RRCF 
CLRF 
ADDWFC 
ADDWFC 


TEMP 
WiEG 
ACC+B3 
ACC+B2 


rotate  next  si^if icant  bit  into 
carry  and  add  for  rounding 


OOTO 

RRCF 
RRCF 
INFSNZ 
OOTO 


_C 

D]:V240K 

ACC+B2 
ACC+B3 
EXP 

SETFOV24 


test  if  rounding  caused  caxzytaat: 


test  for  overflow 
■  ..•A6 
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DIV240K 


BTFSS 
BCF 


MOVFP 
MOVFP 


SIGN.HSB 
ACC+B2,HSB 


ACC+B2,AARG+B0 
ACC+B3,AARG+B1 


clear  (K^licit  MSB  if  positive 
,  ipSViB  result  to  MRG  I 


SETFDZ24 


BITFSS 

ssHm 

MOVLW 
MOVPF 

CLRF 

RLCF 
RRCF 
RETLW 

BSF 
RETtW 


FPFIAOS.FUN 
FFilidSS.S^S 

■  OxFf.- 

0x01 

WREG.AEXF 

AARG+BO 

AASQ+Bl 

SIC3N 
AARG+BO 

OxFF 

FPFLAGS ,  FDZ 


set  floating  point  imdierflag 
test  for  saturation 
retiu^  error  code  in  ■ 

saturate  te  saall6st  floating 
point,  aualaer  =  Ox  01  00  !00 
vMadulo        appropriate  si^  bit 


return  error  code  in  WREG 

set  floating  point  divide  by  zero 
flag  and':retum  error  code  in 


******,**.****.**************.***  **3(r*«* 

****•*#**#********************************************************* *******^ 

Floating  Point  Subtract 

input!     24  bit  floating  point  maiaeat  ia  iBBl,  JUUt8»BS,  AASG't-Bl 
24  bit  floating  poi»K.-Miri9er' la  BSSS.,  &ABS'f>M)>.  WiOfBl 

trs&s        emx^  F»S24 

Output:  24  bit  floating  point  difference  in  ABXF,  SAS6«iB0.  AARG+Bl 

Result!  ftSl^.;  <-  .AM»3      B»W»"J/.     .    ■,  U  ' 

Max  Timings         1+116  =  117  oiks  HMD  =  0 

1+131  =  132  elks 


sum 


His  f  isting:  1+31  =  32  elks 

FH:   1+212  -  213  DM:  10 

BTS  BARG+B0,HSB 


togglm  ,#is&  bit  for  subtraction 


Floating  Point  Add 
Input 


Use: 
Output: 


24  bit  floating  point  number  in  AEXP,  AARG+BO,  AARG+Bl 
24  bit  floating  point  number  in  BSXP,  BARG+BO,  BARG+Bl 

CALL  FPA24 

24  bit  floating  point  sum  in  AEXP,  AARG+BO,  AARG+Bl 


Result:  AARG     <-    AARG  -  BARG 


Max  timing: 

Min  Timing: 
PH:  212 


60+17+39  =  116  elks 

60+2S+46 


27+4  =  31  elks 


mm 

131  elks 


MOVFP 
X08WF 
MOVPF 


AARi+SOitB<EG 

Bm3+B0,W 

WRFG,TEMP 


exclusive' ^jDr  o£  sigzis  in  -TSISP 
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USBB24 


MOVFP 

CPFSGT 

GOTO 


MOVFP 
MOVFP 
SUBWF 
BTPSC 
<30T0 


AEXP.WREG 


BUiG+BO.snaN 

JUOIQ+BO.MSB 

AEXP.WRBG 

BEXP.AEXP 

BEXP 

_Z 

BLIGNED24 


use  MmS  it  KSXP  >=  BffiC? 

aave  sign  in  SIGH 
make  ]f^''i>.  ei^lidt 

-  •  r<i!A. 

'J     1  * 

ccnpute  slilft  count  in  BBXF 


GOTO 


7 


do  bytB  stlift  if  BEXP  >=  8 


SUBWF 

RLCF 

MOVFP 

CUCF 

DCFSNZ 

GOTO 


BEXP 
AARG+Bl 

MBS+BO.AARG+Bl 

BEXP 
BROUICi24 


BEXP  =  BEXP  -  7 

X^atO'  next  bit  for  rounding 


snp  -  1 


CPFSGT 
GOTO 


Me>VFP 
HOVFP 


BEXP 
BKIB24A 

BABG+Bl.MRG+Bl 
0x00 


if  BEXP  still  >=  8,  then 
AARO  =  0  ^relative  to  BARG 

ratuifB  fSlSiB 


BHIB24A 


MOVLH 

CPPSOT 

GOIfp 


MOVPP 

ANDLW 

MOVPF 

RLCF 

SCFSMZ 

OOTO 

BCF 

RRCF 

DCFSNZ 

GOTO 

BCF 

RRCF 

DCFSNZ 

GOTO 

BCF 

RRCF 

GOTO 


3 

BEXP 

MAOP24A 


AARG+Bl, W 

14RBG,ACC+B4 

OxOF 

WREG,AAB6+B1 
ACC+Bt 


BR0D(1D24 
_C 

AARG+Bl 
BEXP 
BROUND24 
_C 

AARG+Bl 

BEXP 

BROOND24 

_C 

AARG+Bl 
BR0UND24 


do  nlbbleshift  if  tOSSP  »  4 

BEXP  it  BUSP  -3 
save  for  rounding 


rotate  next  bit  for  rounding 
BEXP  =  BEXP  -  1 
aligned  if  BEXP  =  0 

rtc^t  ^ift  by  BEXP 


aligned  if  BEXP  =  0 


i.  lA 
aligned  if  ^XP  =  0 
at  most  3  right  shifts  are 
posslbltEi 


MOVLW 
"O^SST- 
GOTO 
SUBWF 
SWAPF 
MOVPF 
ANDLW 
MOVPF 


do  nild>leshift  if  BEXP  >=  4 


ADDHF 
SWAPF 


BLOOP24 
BEXP 

AARG+Bl, W 

WREG,ACC+B4 
OxOF 

WRBG,  AARG+Bl 
'  mBB*'BO,V 
<6cF0 
AARG+Bl 
AMeS+BO,W 


save  f  o^  irounding 


aa 
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BLOOP24 


ANDLW 

MOVPF 

RLCF 

DCFSNZ 

GOTO 

BCF 


GOTO 
BCP 
RRCF 
KRCF 

SOTO 
BCF 
RRCF 
RRCF 


OxOF 

HREG.AARe-I^O 

ACC+B4 

BEXP 

BROUND24 
_C 

AARG+BO 

BEXP  ,:.r 

BROUND24 

_C 

AARG+BO 
AARG+Bl 


_G 

AARG+BO 

AARG+Bl 


;  rotate  next  bit  for  rounding 

;  BEXP  =  BEXP  -  1 

;  aligned  if  BEXP  =  0 

;  right  shift  by  BEXP        •-  , 


;  alitpiad  ifrBEXP  =  0  ^  '  ■■■ 
t  tit  mo8&  3  right  shifts-  are 


BROUND24 


SOTO 
RRCF 
BKCF 


FPFLAGS.RND 
AA»34'B1,I.SB 


GOTO 


AAKS+Bl 
AAKO+BO 


BLI(a)E024 
AA8G+B0 
MnS4-Bl 
EXP 

SETFOV24 


;  add  carry  for  rounding 

;  has  rounding  caused  carryout? 

;  if  so,  right  shift 

;  test  for  floating  point  overflow 


BLICa]ED24 


STFSS 

GOTO 

COMF 


GOTO 


TEMP, MSB 
AOK24 
AABG+Bl 
AABO+BO 

AADS+SO 
AOK24 


negate  if  signs  opposite 


MOVPP 

B3P 

BSP 

MOVFP 
SUBWF 
MOVPF 
BTFSC 
00X0 


AARO+B0,SIGN 

AABS+BO,MSB 

BASO+BO,.1ISB 

BEXP.WRBO 
AEXP,W 
WREG.BSXP 
_Z 

ALiaMBD24 


;  save  sign  in  SIGN 
;  make  MSB's  aa^plicit 


;  oerapute  ^if  t  count  Iji  SBXP 


MOVLM 

CPFSGT 
GOTO 


7 

BEXP 
ANIB24 


;  do  byte  shift  if  BBXP  >-  8 


SUBWF 
B&St 


HOVPF 
CLRP 


IfOVfP 


BBXP 

BMt9«Bl 

BABO+B0,NRBO 

WRBO.BAI^Bl 

BASS+BO 

BEXP 

ARODim24 

BB» 
ANIB24A 

SION.AARO+BO 


,   BEXP  =  BEXP  -  7 

;  rotate  ooKt  bit  for  ^qjiadAiig 


;  if  BBXP  still  >=  8,  then 
;   BARO  >  0  relative  to  AARG 


<e<1|M  WmSNfi'MUmklgUi  Ine. 


«Polilt  Rbutfii^ 


XHIB24A 


ctvast 

GOTO 

SUBWF 

SWAPF 

MOVPF 

ANDLW 

MOVPF 

RLCF 

DCFSNZ 

GOTO 

BCF 

RRCP 

DCFSNZ 

GOTO 

BCF 

RRCF 


GOTO 

BCF 

RRCF 

GOTO 

MOVLW 

CPFSGT 

GOTO 

SIJBUF 

SWAPF 

HOVFF 

AHESIM 

MOVPF 

SWAPF 

ANDLW 

ADDWF 

SWAPF 

ANDLW 

wmt 

DCFSNZ 
GOTO 

BCF 
RRCF 


AROUHD24 


DCFSHZ 

BCF 

RRCF 

RRCF 

DCFSNZ 

GOTO 

BCF 

RRCF 

RRCP 

BTFSC 
BTFSS 
GOTO 
CLRF 


ALOOP24A 
BEXP 

BARG+B1,W 

WREG,ACC'fB4 

OxOF 

HREG,BARG+B1 
ACC+B4     ■  •  c  : 


AROaND24 

_C 

BARG+Bl 
BEXP 

AROUND24 
_C 

BARG+Bl 

BEXP 

AROUND24 

_C 

BARG+Bl 
AROUND24 

3 

BEXP 

ALOOP24 

BEXP 

BARG+Bl,  W 

WREG,ACC+B4 

OxOF 

WREG, BARG+Bl 

BARG+BO,W 

OxFO 

BARG+Bl 

BARG+BO,W 

OxOF 

HRKS.BARG+BO 
ACC'fB4 
BEXP 
ARODND24 

_C 

BARG+BO 
BABG+Bl 
BEXP 

AltODin924 

_e 

BARG+BO 
BARG+Bl 


BTFSS 
GOTO 
RRCF 
RRCF 


AROUND24 
_C 

BARG+BO 
BARG+Bl 

FPFLAGS , RMD 

BARG+Bl,  LSB 

ALIGNED24 

UREG 

BARG+Bl 

BARG+BO 


ALIGNED24 

BARG+BO 

BARG+Bl 


do  nibbleshlft  if  BEXP  >=  4 

BEXP  =  BEXP  -3 
save  for  rounding 


l!Sitstie>  aaEt  bit  for  rounding 
BEXP  =  ftSEP  -  1 
a^igoa^  if  BEXP  =  0 

right  shift  by  BEXP 


aligned  if  BEXP  =  0 


;  aligned  if  BEXP  =  0 

;  at  most  3  right  shifts  are 


;  do  nibbleshift  if  BBZF  >=  4 

;    BEXP  =  BEXP  -3 

;  save  for  rounding 


rotate  next  bit  for  rounding 
BEXP  =  BEXP  -  1 
aligned  if  BEXP  =  0 

ri^t  shift  by  BEXP 


aligned  if  BEXP 


aligned  if  BEXP  =  0 

at  most  3  right  shifts  are 

possible 


;  add  carry  for  rounding 

;  has  rounding  caused  carryout? 
;  if  so,  right  shift 


^-wjlrtr^BlinMirirtTrfllri  al^li  toi  I'-ir^ 


INFSNZ 

GOTO 

L 

GOTO 

COMF 

COMF 

INFSNZ 

INCF 


EXP 

SETFOV24 

TEHP.MSB 

AOK24 

BARG+Bl 

BARG+BO 

BARG+Bl 

BARG+BO 


test  for  floating  point  overflow 


ft0K24 


BARG+Bl,  WR£G 

AMtS+Bl 

BARO^-BOiNttEG 

AARG+BO 


add 


BTFSC 
GOTO 
BTFSS 
GOTO 


TEMP,  MSB 

ACOMP24 

_C 

FIXSlaN24 


RRCF 

RRCF 

INCFSZ 

GOTO 

GOTO 

GOTO 


AARG+BO 
AARG+Bl 

AEXP 

FIXSIGN24 
SETFOV24 

_C 


shift  rii^tt  and  increomt  EXP 


set  floating  point  overflow  flag 


nozinaliwukod  fix  sign.^ 


COMF 

INFSHZ 
MCF 
BS6 
GOTO 


AARG+Bl 

AARG+BO 

AARG+Bl 

AAKG+BO 

SIGN.MSB 

miIC4 


negate,  toggle  sign  bit 
then  nozmalize 


mm 
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APPENDIX  C 

PIC16  32  BIT  FLOATING  POINT  LIBRARY  VERSION  1.14 

;  Unary  operations:  both  input  and  output  are  in  AEXP,AARG 

;  Bineu:y  operations:  input  in  AEXP.AARG  and  BEXP.BARG  with  output  in  AEXP.AARG 

;  All  routines  return  WRBG  =  0x00  for  successful  edipletliidt',  and  NEtBQ  =  OxPF 

;  for  an  error  condition  specified  in  FPFLAGS. 

;  All  timings  are  worst  case  cycle  counts 

;  Routine  Function 

;  FXi032^  24  bit  integer  to  32  bit  floating  point  conversion 

;  Timing;  RND 

0  1 


SAT 


0  104  104 

1  110  110 

NRM32  noriiialization  of  unnormalized' Sff  bit' fSiklSCag  point  numbers 

Timing :  RND 

0  1 

0  90  90 

SAT 

1  96  96 

-a 

INT32  32  bit  floating  point  to  24  bit  integer  conversion 

Timing:  RND 

0  1 

0  90  98 

SAT 

1  90  100 

FPA32  32  bit  floating  point  add 

Timing:  RMD 

0  1 

0  248         262  ■ 

SAT 

1  248  268 

F1'S32  32  bit  floating  point  subtract 

Timing:  RND  •  ■  -  ■ 

0  1 


'iSSAT 


0  250  264 

1  250  270 

mC32  32  bit  floating  point  multiply 

Timing:  T&ID 

0  1 

0  574  588 
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SAT  .  -^KiV,^ 

1  574  591 

FFD32  32  bit  floating  point  divide 

Timing :  miD 

0  929  965 
SAT  . 

1  929  968  ' 

list       r=dcc,x=on,t=o£f  ,p=16C71 
inelude  <P1C16.INC> 

. ********************************************************************************************** 
;  32  bit  floating  point  representation 

EZFCHmr  S  bit  biased  es^pmtaat  ' 

It  is  iirjiortant  to  note  that  the.  )ise  o£  biased  es^onents  produces 

a  unique  representation  of  a  floating  point  0,  given  by 
EXP  =  HIGHBYTE  =  MIDBYTE  =  LOWBYTE  =  0x00,  with  0  being  ;  .- 

the  only  number  with  EXP  =  0. 

HIGHBYTE  8  bit  most  significant  byte  of  sign-magnitude  representation,  with 

SIGH  =  MSB,  and  iB^licit  nantiaaa  MSB  =  1  and  radix  point  to  the 
left  of  HSB 

MIDBXTE  8  bit  jaiddle  significant  byte  of  sign-m^nitude  s^tissa 
LOWBYTE  8  bit  least  sisnilf least  byte  of  sigB^Bagnitude  matissa 


RADIX  ' 

pomr 

SIQBBYTE  .             MIDBYTE  lAWBYTE 

JUUUUUUIX 

Sxxxxxxx              xxxxxxxx  xxxxxxxx 

Define  literal 

constants 

S  equ 

128 

Define  library  register 

variables 

EXP 

equ 

OxOC 

;  8  bit  biased  ej^Kment 

ACC 

equ 

OxOD 

;  most  significant  byte  <>f  contiguous  6  t^ta  accumulator 

SICSH 

equ 

0x13 

;  save  location  for  sign  in  MSB 

TEMP 

equ 

0x19 

;  temporary  storage 

Define  binary 

operation 

arguments 

AEXP 

equ 

OxOC 

;  8  bit  biased  exponent  for  argument  A 

MEG 

equ 

OxOD 

;  most  significant  byte  of  mantissa  for  argument  A 

BBZP 

eqa 

0x15 

;  8  bit  biased  e^^Kment  for  argument  B 

equ 

0x16 

;  most  significant  byte  of  mantissa  for  argument  B 

Note:  (ABIEF, 

AMtG+BO, 

AAR&fBl,  AAR0+B2  )  and 

t^ffi,  JtCC+BO,  ACC+Bl,  ACC+B2  )  reference  the  same  storage  locations. 
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Define  floating  point  library  exception  flags 


FPFIiAGS 

lOT 

POV 

FON 

FOZ 

RND 

SAT 


equ  0x14  ;   floating  point  library  exception  flags 

equ  0  ;  bitO  =  integer  overflow  flag 

equ  1  ;  bitl  =  floating  point  overflow  flag 

equ  2  ;  bit2  =  floating  point  underflow  flag 

equ  3  ;  bits  =  floating  point  divide  by  zero  flag 

-T.  ■  '  ■ 

equ         6  ;  bits  =  floating  point  rounding  flag,  0  =  truncation 

;  1  V  rounding  to  nearest  LSB 

e^i-     .  7  ;  tailt?     Stealing  point  saturate  flag,  0  =  terminate  on 

;  exception  without  saturationi  1  v*  teisdnate  aix 
!  exception  with  saturation  to  appropriate  value 


. ******, 
. ******* 


***************  *******4ik********  ******************************************  ************* 
*************************************************************************************** 


IMeagar  to  float  conversion 

Iz^ti    %4KM.t,  j2'a  coopleraent  integer  ri^t  justifjtf^&lA  AUia+BO,  AMUHBSl,, 
AUt6+B2  -i, 


FL032 


CMMSPVt)  33  bit  floating  point  nunlser  in  AZXP,  AMtO+BO,  AM)0+B1,  MKa+B2 

Result:   AARG    <-     FLOAT (  AARG  ) 

Max  Timing:  14+90  =  104  elks  SAT  =  0 


Kin  Timixigt 


m-.  14+38 


52 


104  elks  SAT 
14+96  =  110  elks 


SAT  s  1 


tout 


6+28 


34  elks  AARS  =  0 

6+18  •  24  elks 


DM:  7 


MOVLW 

24+EXPBIAS 

;  initialize  e^^onent  and  add  bias 

MOVWF 

EXP 

dJtF 

SIGN 

STTSS 

ACC+BO.KaS 

;  teat  «ig»;.>.                     ,  <; 

GOTO 

NIiM32 

COMF 

ACC+B2 

;  if  <  0,  negate  and  set  MSB  in  SIGH 

COMF 

ACC+Bl 

COMF 

ACC+BO 

INCF 

ACC+B2 

_z . 

mcr 

ACC+Bl 

BTFSC 

_Z 

mcF 

AC€+BO' 

BSF 

SIGN,  MSB 

-Ji. 

Nozaalization  routine 

Iiq?uti    32  bit  unnormalized  floating  point  number  in  AEXP,  AARO+BO,  AARS+Bl, 

AARG+B2,  with  sign  in  SIG^,KSB .  -  ■  :  r  - 


Output!  32  bit  normalized  floating  point  number  in  AEXP,  AARG+BO,  AARG+Bl, 
AAE«0+B2  .  . 


S-5S 
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Result:  MSG    <-    NORtQVLIZEf  AARG  ) 

Max  Timing:         21+6+7*8+7  =  90  elks 

21+6+7- 


Min  Timing:  22+6  =  28:  e!lKs 


5+9+4 


ms  38 


FIXSICil32 


CLRF 
MOOT 
BTFSS 


MOVF 

BTFSS 

GOTO 

MOVF 

MOVWP 

CLRF 

BCF 

BSF 

mm 

BTFSC 
GOTO 

MOVF 
SUBWF 


GOTO 

BCF 
BTFSC 

oovo 

RLF 

RLF 
RLF 
DECFSZ 
GOTO 


BCF 

RETLW 


TEMP 

ACC+BO,W 

_Z 

NORM32 

pxx*m,v 

=  ACC+BO 

ace+B2,w 

ACC+Bl 
ACC+B2 
,3 


ACC+BO,W 
_Z 

NORH32 
ACC+Bi',W' 
ACC+BO 
ACC+Bl 
TEMP, 3 
TEMP, 4 

ACC+BO,  W 

_Z 

RES032 

TEMP.W 
EXP 
J5 
_C 

SETFT]II32 


ACC+BO, MSB 

FIXSIGN32 

ACC+B2 

ACC+Bl 
ACC+BO 
EXP 


SETFUN32 

SIGX.MSB 
ACC+BO, MSB 
0 


SAT  =  0 
8+1+12  =  96  elks  SAT  =  1 

:  18  elks 
rat:  7 

;  elear  exponent  deerement 
;  test  i£^^byte=D 


;  cjiC  so,'  -^lif  t  8  bits  try  mcnra 

;  increase  decrement  hy  8 
;  test  if  big^i^tesO 

ss,  'sliii«'  #  MCs  SKym 

;  Increase  deereaaat  8 

;  If  hls^djyte^O,  re8ult=0 


clear  carry  bit 

i£  HSB^l,  normalization  done 

ofBttriiSsd,  shift  left  and  ' 
decrement  EXP 


underflow  if  SXP=0 


;  clear  explicit  MSB  if  positive 


. ****************************************************** 

.  *****.«4b«*^*«*i******iit*«#*****«******************  *****+***«************  ****^ 
;  Fl>e>«  to  tefeeger  eoixvarslm 

;  Input:    32  bit  floating  point  nunber  in  AEXP,  AaffiOAOv  J»ns+Bl,  AARS+B2  • 

Use;         CALL  INT32 

;  Output:  24  bit  2's  eomplement  integer  right  justified  in  AARG+BO,  AARG+Bl, 

AftIIG+B2 


lilwifiMiiHiiitfTiiftlihSWIi 
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Result:  AflRG  <- 
Max  Timing  1 


■     INT(  AARG  ) 

26+6*7+6+16  =  90  elks 

26+6*7^ 
26+6*7^ 


RND  =  0 
6+24  =  98  elks 
6+26  =  100  elks 


RND  =  1,  SAT  =  0 
RND  =  1,   SAT  =  1 


Hin  Tinlngi 


9+6  =  15  elks 


19+6+7 


AMIS  =  0 
=  32  elks 


PM:  83 


DM:  6 


INT32 


MOVF 

MOV.-JF 
BSF 


BTFSC 
GOTO 


ACC+BO,W 

SIGN 

ACC+BO,MSB 

EZFBIAS 
EXP 

_Z 

RES032 


;  save  sign  in  SIGN 
;  make  MSB  explicit 
;  remove  bias  £rom  EXP 
;  if  <=C  0,  ]:«sult=0 


MOVF 
SOBIM 


BTfSC 
GOTO 

mmm 


GOTO 

MOVWF 

RLF 

MOVF 

MOVWF 

MOVF 

MOVNF 

dxr 

MOVLW 
SUBWF 
BTFSS 
GOTO 


RLF 

MOVF 

MOVWF 

CLRF 


24 


EXP, MSB 
SETIOV32 

8 

EXP,W 

SRIFT32 

EXP 

AiCC+B2 

ACC+B1,W 

ACC+B2 

ACC+B0,W 

ACC+Bl 

ACC+BO 


EXP.W 
_C 

SHIFT32 

wee  . 

ACC+B2 

ACC+Bl, W 

ACC+B2 

ACC+Bl 


do  bgtB  ebif  t  if  EXP  »  8: 


rotate  next  bit  for  rounding 


do  another  byte  shift  if  EXP  8 


rotate  next  bit  for  rounding 

-  -lAl'  "i^k) 


SHIFT32 


MOVF 

BTFSC 

GOTO 

BCF 
RRF 
RRF 
RRF 
EOiCFSZ 

e&co 


EXP.W 

_e 

ACC+BO 
ACC+Bl 
ACC+B2 
EXP 


shift  conpleted  if  EXP  =  0 


right  shift  by  EXP 


^FT320X 


BfFSe 

BTFSS 
GOTO 
BTFSS 
GOTO 

nicF 

BTFSC 
INCF 


FPSASSirliND 

ACC+B2,LSB 

INT320K 

_C 

INT320K 

ACC+B2 

_Z 

ACC+Bl 


PiiwlMhiiiliiiiTniiiiiMiM 


lEEE'fSI  Cbmpliarft  Floating-Point  Routines 


nrr320K 


SBS032 


SGTIOV32 


BTFSC 

IHCF 

BTFSC 

BTFSS 
RETLW 


c<aiF 

ISCP 

BTFSC 

IHCF 

BTFSC 

IHCF 

RETLW 

CLRF 
CLSF 
CLRF 
CLRF 
RETIM 


RBTLW 

CLRF 

BTFSS 

MOVLW 


RRF 


_Z 

ACC+BO 

ACC+BO,KSB 

SETIOV32 

SIGN.MSB 
0 

ACC+BO         ■  I 

ACC+Bl 

ACC+B2 

ACC+B2 

_Z 

ACC+Bl 
_Z 

ACC+80 

•flCC-l«0'~  - 

ACC+Bl 
ACC+B2 
EXP 
0 

FPFIAOS, XOV 
FCMiAGS,  SAT 
OxPF 

ACC+BO 

SIGN, MSB 

OxFF 

ACC+BO 

ACC+Bl 

ACC+B2 

SIGN 

ACC+BO 

OjtFF 


test  for  overflow 


if  sign  bit  set,  negate 


;  integar.  ^l^ult  equals  ^efo" 


clear  GXP  for  other  routines 


set  inte^Si;  cnrerflow  fM^ 
test  for  Haturation 
return  ej*e>r  code  in  WREG 

;  saturate  to  largest  two's 
•  cco^lement'  16  bit  integer 

.   SICM  =  O.^flx  7F  FF  FF  - 
;  SIQH  s  1,  Ox  80  00  00 


returii  error  code  in 


, ************************************************************************************ 


********** 
t********* 


Floating  Point  Multiply 

Input:     32  bit  floating  point  nuniber  in  AEXP,  AARG+BO,  AARG+Bl,  AARG+B2 

33  tdt  floating  point  nunber  in  BBXF,  BAR6+B0,  BKRG+Bl,  BARG+B2 

Use:         CALL  FFM32 

Output!  32  bit  floating  point  product  in  AEXP,  AARO+BO,  AARG+Bl,  AAREMi«2 
Result:  AARG    <-    AARG  *  BARG 


Max  Timing: 


Mln  Tinting: 


26+23*22+21+21  =  574  diss  rm^S^m- ■ 

26+23*22+21+35  =  588  cite  RND  =  1,  SAT  =  0 

26+23*22+21+38  =  591  ol»s  RND  =  1,  iSAT  =  1 


€+6  =  12  elks 


AARG  *  BARG  =  0 
21+23*11+21+17  =  315  elks 


vow 


HOVF 

BTFSC 

GOTO 


AEXF.W 

_Z 

BEXP.H 

_Z 

1^8032 


EM:  14  V^'.-- 

;  Coif  zteo  arguments 


M32aNB0 


MOVF 


AARS+BO.H 
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tmm2 


IOUD032 


•  <»  *  »  •  «  * 


SIGN 

;  save  sign  in  SIGN 

MOVF 

BEXP.W 

ADDWF  ,1 

EXP 

MOVLW 

EXFBIAS 

BTFSS 

_C 

)m]N32 

■i: 

ADDWF 

EXP 

BTFSC 

_C 

GOTO 

SETF0V32 

;  set  multiply  overflow  flag 

J30TQ' 

ADDWF 

EXP 

BTFSS 

_c 

GOTO 

SBTFUN32 

BSF 

AABO+BOfMSB 

f     11  If!          "  1  y             *r   gin  r»   o  JL 

BSF 

BARS+BO.MSB 

BCF 

_C 

ACC+B3 

CLRF 

ACC+B4 

CI^ 

ACCESS 

MOTOW 

24 

MOVWF 

TEMP 

;   initialize  counter 

BTFSS 

AARG+B2,LSB 

;  test  high  byte 

GOTO 

MOVF 

BARa+B2,W 

->- 

ADDHF 

ACC+B5 

MOVF 

BARG+B1,W 

BTFSC 

IHCFSZ 

BARG+B1,W 

ACe*B4      •  •     ■   •  • 

■    .        . .       .....      ■  ,    - .  .... 

BARGh'BO.W 

■  •  ♦    ■  '• 

BTFSC 

_e 

. j  .:  «  o  '  ■ 

mCFSZ 

BftR6+B0,H 

mam- ■ 

ACG<>B3            «:  i  -;- 

RRF 

.  .-if 

ACC+B3 

ACC+B4 

smg 

ACC+B5 

ACOtBO  ■  _         >>;  . 

RRF 

ACC+Bl 

RRF 

ACC+B2 

^                                           .            '  .  » .3>1 

BCF 

_C 

DECFSZ  TEMP 

V      ,     ,   .                                                                                   ...  . 

GOTO 

MLOOP32 

ACC+B3,HSB 

;  check  for  postnormalization 

GOTO 

lSi0aND32 

RI.F 

ACC+BO 

RLF 

ACC+B5  : 

M<. 

RLF 

ACC+B4 

RLF 

ACC+B3 

DBCF 

EXP 

BTFSC 

PPPLAfiS.RKD 

BTFSS 

ACC+B5,LSB 

GOTO 

K0L32OK 

«  ,  U.i  •  •  - 

RLF  .rH 

ACC+BO 

;  iretate  iaext  significant  bit  into 

BTFSC 

JC  ■ 

•!<  !  'j  ■  .;h 

INCF 

ACC+B5 

;  -Barrsr  f  ot  -rounding 

BTFSC 

_Z 

mee  .■ 

'■.J  - 

BTFSC 

_z 
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*ec+B3 


GOTO 


GOTO 


_C 

MUL320K 

ACC+B3 

ACC+B4 

ACC+B5 

EXP 

_C 

SETFOV32 


has  rounding  caused  carryout? 
if  so,  right  shift 

check  for  overflow 


BCF 


SIGN, MSB 
ACC+BS.MSB 


clear  cs^llclt  HSB  if  positive 


HOVF 

HOW 

MOVF 

MOVWF 

RETLW 


AARG+B2 
0 


iiLOve  resul^t  to  MRO 


BSP 
RBTIiW 


FPFLAGS,FOV 
FPFLAQS.SAT 
OxFF 


set  floating  point  underflag 
test  <fiee.  saturation 
return  ertor  code  in  HRBG 


MOVLW 
MOVWF 
MOVWF 
MOVWF 


MM 


OxFF 

AEXP 

AARG+BO 

AARG+Bl 

AAKG+B2 

SIGH 

AABG+BO 

OxFF 


saturate  to  largest  floating 
point  number  =  Ox  FF  7F  FF  FF 
modulo  the  appropriate  sign  bit 


return  er^or  code  in  WSB  - 


. ***************************************************************** ********************4 


******** 
******** 


fleSfclBg''  -PGint  Divide 

Input:     32  Mt  floatingpoint  dividend  in  AEXP,  AWlSWiSO,  AARG+Bl,  AARG+B2 
32  bit  floating  point  divisor  in  BEXP,  BARG+BO,  BARG+Bl,  BARG+B2 

Uses        CSLL  FPD32 

(Mt^ki  33  M.k  floating  point  qmetleaat  in-  kMP,  ft^iS^SO; 'iMRG-t-Bl ,  AARG4S2 
&«S«!aitt  Kims    <-    AftRO  /  BARO  '  ■' • ' 


mts,  Biitting:  40+12+23*36+35+14  =  929  elks        RND  =  0 

40+12+23*36+35+50  =  965  oiks 

40+12+23*36+35+53  =  968  elks 

mn  TimlBS!  31+12+23*27+26+14  =  704  oiks 


RND  =  1,  SAT 
mo  =  1,  SAT 


m-.  152 


DM:  14 


FPD32 


MOVF 

BTFSC 

GOTO 


BEXP.W 

_Z 

SETFDZ32 


test  for  divide  by  zero 


-■mum''- 


AARG+BO,  W 

BARG+BO,W 
SIGN 

AARG+BO, MSB 


save  a'ign  in  SIGN 

make  argument  MSB's  explicit 


TAiaGN32 


HOV¥ 


AARG+BO, tf 


cleat!!"'aXi^  increment 
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MOVWF 

MOVF 

MOVWF 

MOVF 

MOVWF 


ACC+B3 

AAR0+B1,W 

ACC+B4 

AARG+B2,W 

ACC+B5 


test  fof  alignment 


mm 


TS2M.IGN32 


'WSW 
W19SS 

mcFsz 

SUBWF 
MOVF 


ACC+B5 
BARQ+Bl.W 

-  -C  - 

BAK0+B1,W 

ACC+B4 
BARG+BO,W 

ACC+B3 


CLRF 
CLRF 

ciaF 


ACC+B3 
ACC+B4 
ACC+B5 


DALIGN320K 


BTFSS 
GOTO 

BCF 
RRF 
RRF 
RRF 

me 

MOVWF 

MOVF 
SUBWF 
BTFSS 
GOTO 


DALIGN320K 

_C 

ACC+BO 

ACC+Bl 

ACC+B2 

ACC+BS 

0x01 

TEMP 

BEXP.W 

EXP 

_C 


align  if  necessary 

>S0^  align  increment 
ccci^ce  A£^P  and  BEX? 


A£ISB32 


A£VB32 


DifiSOK32 


HOVLH 

ADDWF 
BTFSC 
GOTO 
GOTO 

MOVLW 
ADDWF 
ADDWF 
BTFSS 
GOTO 

MOVWF 


EXPBIAS 
TEMP.W 
EXP 
_C 

SETFOV32 
OARGOK32 

EXPBIAS 
TEMP.W 
EXP 
_C 

SETFUN32 
24 

TBHP-t-Bl 


;  set  overf^w  flag 


set  underflow  flag 
initialize  couiater 


DLOOP32 


RLF 
RLF 
ELF 

mm 

MM 
RLF 


ACC+B5 
ACC+B4 
ACC+B3 
-ACC%92 
ACe+Bl 
ACC+BO 
TEMP 


left  shift 


MOVF 

SUBWF 

MOVF 

BTFSS 

XNCFSZ 

SUBWF 


BARG+B2 , W 
ACC+B2 
BARG+Bl.W 
_C 

BAR6+B1,W 
ACC+Bl 


subtract 
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MOVF 
BTFSS 
INCFSZ 
SUBWF 


BABG+BO.W 
_C 

BARG+BO,W 
ACC+BO 


lORWF 


BARO+B0,W 
TEMP 


BTFSS 
GOTO 


TEMP,LSB 
DREST32 


test  for  r<9Store 


B9F 
GOTO 


mmt32 


KOVP 

ADDWP 

MOVF 

BTFSC 

INCFSZ 

ADDWF 


BA»S+B2,H 

ACC+B2 

BARG+B1,H 

_C 

BARG+B1,W 
ACC+Bl 


xeat^et.  U  necessary  i'-s 


MOOT 
BTFSC 
INCF 
ADDHF 


BARQ+BO,W 

_C 

BARG+BO,W 
ACC+BO 


ACC+B5,LSB 


DROUND32 


GOTO 

BTFSC 

BTFSS 

GOTO 

BCF 

RiiF 


TMP+Bl 
DLOOP32 

FPFLAOS.RND 
ACC+B5,LSB 
DIV320K 
_C 

ACC+B2 
ACC+Bl 
ACC+BO 
TEMP 


r:^-:'.l 


compute  next  signlflcaiMerMt 
for  r»mii9£ig 


BIFSS 
INCFSZ 

GOTO 

BSP 

BTFSS 


DS1R00ND32 


BARG+B2,W 

ACC+B2 

BAKG+Bl.W 

BAIiG+Bl.H 
DS1R0DND32 

_C 
_C 

ACC+Bl 


.1  ,<ma': 


MOW 


DS2R00iro32 


INCFSZ 

Goto 

BSF 

BTFSS 

SUBWF 


■■JSr.  :!..■-  i;  ' 
BARG+BO,W 
DS2R0UND32 
_C 
_C 

ACC+BO 


MiF 

lost^ 

ANDLH 


TEW.W 
0x01 


ADDWF 

BTFSC 

INCF 

BTFSG 

INC9 


ACC+BS^ 
_C 

ACC+B4 
_Z 

ACC+B3 
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7^  oo^^uimmma§mm  mum^ 


BTFSS 
GOTO 
RRF 
RSF 

RRF 
INCF 


_z 

DrV320IC 
ACC+B3 
ACC+B4 
ACC+B5 


;  test  If  rounding  caused  cariyout 


BTFSC 
GOTO 

_Z 

SE^OV32 

;  test  for  overflow 

DrV320K 

.,.1=.    ,i    :  ll-'. 
BTFSS 
BCF 

SIGN/MSB 

ACC+B3,MSB 

;  cleU:  e^lleit  MSB  If  positive 

MOVF 

MOVWF 

MOVF 

HOVWF 

MOVF 

MOVWF 

ACC+B3,W 

AARG+BO 

ACC+B4,W 

AARO+Bl 

ACC+B5,W 

AARG4'B2 

;  move  result  to  AARO 

RETLW 

0 

SETFDN32 

BSF 
■)Si.i<l  1  :  - 

FPFLAGS.FUN 
FPFIiAGS.SAT 
OxFF 

;  set  floating  point  underf lag 

;  test  for  saturation 

!  return  ekrbr  code  in  WRJBG 

NOVLW 

MOVWF 

CLRF 

CLRF 

CUIF 

RLF 

RRF 

RBTUf 

0x01 

AEXP 

AARG+BO 

AARG+Bl 

AKRS+B2 

sicai 

AARG+BO 
OxFF 

;  saturate  to  smallest  floating 
;  point  nuniber  =  Ox  01  00  00  00 
;  DOdblo'  the  appropriate  bit 

;  return  erkor  code  in  VH^G 

SETFDZ32 

BSF 
RETLM 

FPFLAGS.FDZ 
OxFF 

;  set  divide  by  zero  flag 

**1rii*1r*******1r  ********  1t**1t******1r**1t1t*  ********  1t***1i****1f1t*1f*ie*ttit1tir  ******  ******* 

*********^************,****************************************ii^***************ii************** 


FPS32 


Floating  Point  Subtract 
Ii^ut 


32  bit  floating  point  number  in  AEXP,  AARG+BO,  AARG+Bl,  AARG+B2 
32  bit  floating  point  number  in  BBXB,  BARG+BO,  BAR6+B1,  BARG+B2 


asei        cmii  FPS32 

Output:   32  bit  floating  point  SUBt  in  ASCP,  AARG+BO,  AARG+Bl,  AARG+B2' 

Result:   AARG     <-    AARG  -  BARG 
Max  Timing: 


2+248  =  250  elks 
2+262  =  264  elks 
2+268  =  270  elKs 


Min  Timing;  2+50 
PK:  2+136  <  138 


52  elks 
EM:  14 


0x80 
BMO+80 


RND  =  0 
BHD  s-'li^SAT  =  0 
!ilIDf«:-ii''SAT  =  1 


Floating  Point  Add 


32  bit  floating  point  raiDber  in 
32  bit  floating  point  nuiober  in 


,  AABS+BO,  AARG+Bl,  liSfia*ta 
,  K«^!t«0,   BARG+Bl,  BARG+BS 


IEEE  754  CoiripliaiTt  Fldath^g^Poinl  Routirtas 


Vme'S,         CALL  FPA32  ,v  . 

Otttt^ft:  32  bit  floating  point  sum  in  AEXP,  AARG+BO,  ,;^g4«l,  A%RG+B2 

Result:  AAKG    <—    MRG  -  BASO  iM). 

I  .  _  "  • 

Btac  Timing!         31+38+6*7+6+41+90  =  248  diss       BiIB!:'<?-'#;  , 

3l+38+6*7+**SS+9i  =  262  olto  9m  =  1,  SAT  =  0 

31+38+6*7+6+55+96  =  268  elks  «m  =  1,  SAT  =  1 


FPA32 


Min  Timing,: 
PM:  136 


MOVWF 


8+38+4  =  50  elks 


AAse+sa,w 

BARG+BO.W 
TEKP 


eassstm^'^'-m  o$  signs  in  TEHP 

'fl:-.  ■  ,/i 


MOVF 
SUBWF 
BTPSS 
.(JOTQ 


AEXP.W 
BEXP.W 
_C 


;  use  AARG  if  AEXP  >=  BEXP 


MOVWF 

MOVF 

MOVWF 


BEXP.W 

ACC+B5 
AEXP , W 
BEXP 


m0 


otherwise,  iswap  A3Si6  and  BARS 


MOVF 

MOVWF 

MOVF 

MOVWF 

&«J5  or 


MOVWF 

MOVF 

MOVWF 


ImS+BO.W 
ACC+B5 
AARG+BO,W 
BARG+BO 

..,3  3kg®S^„M: 

AARG+BO 

BAIW+Sl  ,W 

ACC+B5 

AAR0+B1,W 

BARG+Bl 

ACC+B5,W 

AARG+Bl 


USBA3Z 


MOVF 
MOVWF 
MOVF 
MOVWF 


HOW 


BARG+B2,W 

ACC+B5 

AARG+B2,W 

BARG+B2 

ACC+B5,W 

AARIS+B2 

AARG+BO,n 

SIGN 

AARG+BO,MSB 
BARG+BO,  MSB 


I  savf*:  R:i^  in,  SjSSr 
;  make  SMB.'S;  ea^liolt 


IftJVF 

MOVWF 

MOVF 

MOVWF 


BARG+BO, W 
ACC+B3 
BARG+Bl, W 

ACC+B4 

BARG+B2,W 

ACC+B5 


HCSVF 

mvm 

mm 


'0'' 


,w 


compute  shift  count  in  BEXP 
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MOVLH 

SUBWF 

BTFSS 

GOTO 

MOVWF 

RLF 

MOW 


mm 
Hams' 

QiRF 


8 

BEXP.W 
_C 

ALIGNB32 

BEXP 

ACC+B5 

ACC+B4,W 

ACC+BS 

ACC+B3,W 

ACC+B4 

ACC+B3 


if  VBSS  >«  18 ,  do  byte  i^fCi 


rotate  next  bit  for  rounding 


MOVIM 

SUBWF 
BTFSS 
QOTO. 
HOVWF 

RLF 

MOVF 

HOVWF 


8 

BEXP.W 

_c 

ALiaHB32 
BEXP 

ACC+B5 
ACC+B4,W 
ACC+B5 
ACC+B4 


if  BEXP  >=  8,  do  byte  shift 
rotate  ittBsf.  bit  for  roun^lBg 


AI.IGMB32 


MOVF  , 
BTFSC 

eoTo 


BEXP.W 
_Z 

AROOND32 


alreadya&isncid  if  BsacP'^'^ 


ALOOPB32 


BCF 
RKF 


DBCF 
GOTO 


_C 

ACC+B3 

ACC+B4 

ACC+B5 

BEXP 

AI.OOPB32 


right  shift  by  BBXP 


AItODND32 


BTFSC 
BTFSS 
GOTO 


FPFLAGS , RND 

ACC+B5,LSB 

ALIGNED32 


GOTO 
INCF 
BTFSC 
INCF 

mcp 


ALIGNED32 

ACC+B5 
_Z 

ACC'l'B4 
_Z 

ACC+B3 


GOTO 

RRF 

RRF 

BTFSC 
GOTO 


ALIGNED32 

ACC+B3 

ACC-fBl 

ACC+BS 

EXP 

_Z 

SETFOV32 


ALI(3tIE032 


BTFSS 
GOTO 


TE2IP,MSB 

AOK32 


negate  if  signs  opposite 


COMF 
COHF 
COMP 

INCF 

BTFSC 

INCF 

BTFSC 

INCF 


ACC+B3 
ACC+B4 
ACC+BS 
ACC+BS 
_Z 

ACC+B4 
_Z 

ACC+B3 


AOK32 


ACC+B5,W 


add 


etiifiiinetv^^fiKiMMe^  hie. 


S-6S 


tfOVF 
BTFSC 


ADDHF 


AARG+B2 
ACC+B4,M 

_C 

ACC+B4 ,W 
AARG+Bl 


BTFSC 
IHCFSZ 


ACC+B3,W 
_C 

ACC+B3,H 
AAROt-BO 


BTFSC 
GOTO 
BTFSS 
GOTO 


TEMP, MSB 

ACOMF32 

_C 

FIXSIGH32 


INCFSZ 

GOTO 

GOTO 


MRG+BO 
AARG+Bl 

AARG+B2 

AEXP 
FIXSIGN32 
SETFOV32 


shift  rl^t  and  increment  BZP 


ACOia>32 


BTFSC 

Soto"-'-' 
asm 

COtIF 

nucr 

BTFSC 

hkf 

BTFSC 
INCF 


_C 

'I«t32  ' 

AARG+BO 

AARG+Bl 
AARG+B2 
AARG+B2 
_Z 

AABG+Bl 

_Z 

AARG+BO 


noimafiii^  liiiid  fix  sign 

negjlfi^-^Voggle  sign  bit  and 
then  normalize 


MOVLW 
XORWF 
GOTO 


0x80 
SIGN 


&66 


e<99*«illcweH»TiwlMMIi|»lne. 


APPENDIX  D 

PIC17  32  BIT  FLOATING  POIMT  LIBRARY 


VERSION  1.14 


Unary  operations:  both  Isimt  and  oatjtat  axe  in 


Binary  c#erations:  input  in  AEXF.AARG  and  BEXP,B&ie5  with  |putpat  in  A^P,&%RQ 

All  routines  return  SBSBG  =  0x00  for  successful  ccanpletion,  and  WRBG  =  OxFP 
for  an  error  condition  specified  in  FPFLAGS. 

Max  timings  are  worst  case  cycle  counts,  while  Min  timings  are  non-exception 
beat  case  cycle  counts. 


Routine 

Timing,: 


^1 


Timing: 


16  bit  integer  to  2i  bit  floating  point  conversion 

END  ...  ■  .  . 

0  1 

0  60  60 

1  _  67  67 

normalization  of  unnormali^ed  24  bit  fl^tipg  point  numbers 

RND  .  •  •  11. 

0  1 


48 


48 


IIIT24 


:o  ■ii'^-^d  .i'-c;'  J  i    y  in  ;  J  S  "i 

24  bit  floating  point  to  16' bit  Integer  oonvBrsicfflE ' 


'•sain 


Timing: 


Timing: 


FFS24 


Tiaing: 


FPia4 


C    3il  -  I, 

Timing: 


RND 
0  1 

0  69  73 

1  69  76 

24  bit  floating  point  add 

RND 
0  1 

0  144      .  159 

1  14<l  159 

24  bit  floating  point  »i;ibtract 

RND 
0  1 

0  145  160 

1  '145  '      '160  '  '■ 

24  bit  floating  poiiiit  nolStiply"^' 

BND 
0  1 


320 


331 


5^ 


niiiiiBlilwiii  fT 


1  320  336 

FH>24  24  bit  floating  point  divide 

RMD 


597  627 

list        r=dec,x=on,t=off ,p=17C42 
include  <PIC17.INC> 

2  *********************************************** ********************* 

.***********************************************************#****************  *^**************** 

;  32  bit  floating  point  representation 

;  EXPONENT  8  bit  biased  exponent 

;  It  is  intportemt  to  note  that  the  use  of  biased  exponents  producea 

;  a  unique  re^iresentation  of  a  floating  point  0,  given  by 

;  .  -- -  =  iilCTBOTB -s  MIDBXTB  =  liOWBYtB  =  0x00,  with  0  being  •   "  ■  ' 

;  the  only  nusdser  with  EXP  =  0. 

;  HlUUBX'fiS  8  bit  most  significant  byte  of  sign-magnitude  representation,  with 

;  SIGN  =  MSB,  and  in^licit  nuuitissa  MSB  =  1  and  radix  point  to  the 

;  left  of  MSB 

•  mDBXTB  8  Mt  middle  sit^fieaat  tvt»  o£  sigB-flUqjBlfeude  ^«issa 

;  IiOHByTB  8  bit  least  significant  byte  of  aign-na^ltude  natissa 
RADIX 

;  EXPCSNEtIT  POINT      BleHBYTB  HIDBYTE  LOWByTE 

;  xxxxxxxx  .        Sxxxxxxx  xisxxxxxx '  atloaQexxx 

(  f 

;  Define  literal  constants 

StPBiAS  equ  128 

;  Def  iiie  libretcy  register  variables 

EXP  equ  0x18         ;   8  bit  biased  exponent 

ACC  equ  0x19         ;  most  significant  byte  of  contiguous  6  byte  accumulator 

SIGN  equ  OxlF        ;  save  location  for  sign  in  MSB 

TSBP  ensi         0x25       ;  teoi>orary 'Bl^lry^  '  '  '  ' 

;  Define  Idj^cy  e^esation  arguamts  ' 

AEXP  equ         0x18        ;  8  bit  biased  ^^onent  for  argument  A 

AABS  equ         0x19        ;  most  significant  byte  of  mantissa  for  argmnent  A 

BBSP  mm  f*  8  bit  bias^^«i|^^i)tj_for  as^gi^t  B 

BASG  equ         0x22        ;  most  significant  byte  of  mantissa  for  argument  B 

:i-  :it. 

;  Note:        (AEXP,  AARG+BO,  AARG+Bl   ,  AARG+B2)  and 

;  (EXP,  ACC't'BO,  ACC+Bl  ,  ACC+B2)  reference  the  s^n^  storage  locations. 
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Define  floating  point  libracy  reception  flags 


ecja 

0x20 

;  £loa%ifig  point  lib^axy  jaSE^c^fcion  flagis 

lOV 

equ 

0 

;  bite  =  integer  overflow  flag 

FOV 

equ 

1 

;  bitl  =  floating  point  overflow  flag 

PON 

equ 

2 

;  bit2  =  floating  point  underflow  flag 

FDZ 

equ 

3 

;  bit3  =  floating  point  divide  iv  zero  flag 

BHD 

equ 

6 

;  bits  =  floating  point  rounding  flag,  0  =  truncation 

;  1  =  rounding  to  nearest  LSB 

SAT 

equ 

7 

;  bit7  =  floating  point  saturate  flag,   0  =  terminate  on 

exception  without  saturation,  1  =  terminate  on 
exception  with  saturation  to  appropriate  value 


. ************************* ****************«**********«***********«**************************ik** 


Integer  to  float  conversion 

Input:     24  bit  2's  complement  integer  right  justified  in  AARG+B0,AARG+B1, 
AASS+B2  ' 

Use:         CALL  FL032 

Output:   32  bit  floating  point  number  in  AEXP,  Mit83^,  attlS+Bl,  MaS+B2 
Result:  AARG     <-    FLOAT(  AARG  )  ^ 
Hax  Timing:  12+48 


Min  Timing: 


6+24 


=  £0  elks    '  =  0 

12+55  •  6?  elks 

30  elks  AABG  =  0 

=  26  elks 


SAT 


PH:  12+108  =  120 
MDVIM 

MOVFP 

BTFSS 
GOTO 


INCF 

ADDWFC 

ADDHFC 


24+EXPBIAS 

ACC+BO,SIGH 

ACC+BO,HSB 

IIBM32 

mcao 

\see*a2  - 
jseewi  • 

AGC+BO 

ACC+B2 
ACC+Bl 
ACC+BO 


initialize'  exponait  and  ti^  bias 

save  sign  in  SIGN 
test  sl0i 

if  <  0,  n«{iate,  set  MSB  in  SIGN 


Noi^ialization  routine  ' 

lia>ut:     32  bit  unnormalized  floating  point  numb^  in  AEXP,  AABO+BO,  AARO+Bl, 

AARG+B2  with  sign  in  SIGN, MSB.  '- 


Ontput:  32  bit  normalfzed' floating  point  number  in  AEXP,  AARG+BO,  AARG+Bl, 
AARG+B2 

Result:  AARG     <-    NORMALIZE (  AARG  )  !■  " 

Max  Timing:  21+19+8  =  48  elks  SAT  =  0 


21+19*15  =  55  elks 


Kin  Timing: 


4+7*7+6  ~-  ?4, 


mil  108 


N8H32 


GOTO 

MOVLW 
.  ANDWF 
TSTFSZ 
GOTO 
SWAFF  , 
S^^iP  ,  ■ 

Kstm- , 

ADDWF 
SWAFF 
MOVPF 


3+5+4*8  =  26  I'Glfcs 
DM:  7 


ACC+BO  . 

NRM32A 

OxFO 

ACC+BO,W 

WREG 

NORM32 

ACC+BO 

ACC+81,Wi 

OxOF 

ACC+BO 


ACC+B1,W  .■ 
OxFO 

nRKQ,ACC+Bl 

j»:c+s2 ,« 

OxOF 

ACC+Bl 


,;  Best  if  W.glil)yte=0 


test  if  higlinibble=0 


If  so,  shift:  4  bits- 


I9SH32A 


BCF 

BTfSC 

GOTO 

RI.CF 

RLGF 

BliCF 

IHCF 


GOTO 


RLCF 
KLCP 

BTFSC 

GOTO 

M.CF 

BLCF 

RIiCF 

INCF 

GOTO 


BCF 
SETLH 


CXRF 


GOTO 


ACC+E2,W 
OxFO 

WREG,ACC+B2 
TEMP, 2 
_C 

ACC+BO, MSB 
TNORMUN32 
ACC+B2 
ACC+Bl 

ACC+BO 
TEMP 

ACC+BO, MSB 

TNORMUN32 

AC(;+B2 

Aej3*«i  . ., 

ACC+BO 

TEMP 

ACC+BO , MSB 

TNORMUN32 

ACC+B2 

ACC+Bl 

ACC+BO 

TEW 

TWF,HBSG 

SETFDN32 
EXP 

is-  . 

SIGN, MSB 
ACC+BO,  MSB 
0 

ACC+Bl, ACC+BO 
ACC+B2, ACC+Bl 
ACC+B2,W 
TEMP,  3 

NK102B 


increase  4ecr€gn^t       4  ^  , 

clea^  o^ory  bit 

if  MSB=1,  normalization  done 

,-<<3tl^rwise,  shift  left  and 
incr^ent  decrement 


since  highnibble  1=  0,  at  most 
3  left  ^shifts  are  required 


if  EXP  <=  decrement  in  TIKP., 
floating  point  underflow  has 
occured 

otherwise,  compute  EXP 


;  clear  explicit  MSB  if  positive 
;,^^|a^t:  8  bits  lay  move 


increase  decrement  by  8 
test  if  highbyte=0 
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TiriB32A 


HDVUI 

ftNDWF 

TSTFSZ 

GOTO 

SHUFF 

StOPF 


MOHF 


OXFO 

ACC+BO,W 

WREG 

NORM32A 

ACC+BO 

ACC+B1,W 

OxOF 

ACC+BO 


test  if  Hiatm^libls=0 


if  so,  shift  4  bits 


IKIRK32A 


TIIIB32B 


tK»a02B 


SWAPF 
ANDLW 
MDVPF 


BTFSC 

GOTO 

RLCF 

SLCF 

INCF 

BTFSC 

GOTO 

RLCF 

RLCF 

INCF 

BTFSC 

GOTO 

RbCF 

SlfF 

INCF 

GOTO 

MOVFP 
CLRF 
BCF 
BSF 

CBFSST 
GOTO 

MOVLW 
ANDWF 

ra»o 


BSF 
BCF 
BTFSC 


RLCF 

3a»es 

BWSC 

GOTO 

RLCF 

INCF 

BTFSC 

GOTO 

RLCF 

INCF 

GOTO 


ACC+B1,W 
OxFO 

HREG.ACC-trBl 

TSHP,2 

_C 

ACC+BO, MSB 
TNORMUN32 
ACC+Bl 
ACC+BO  .. 
TEMP  I'- 
ACC+BO,  MSB 

ACC+Bl 
ACC+BO 

TEMP 

ACC+BO, MSB 
TN0RMUN32 
ACC+Bl 
AOG+BO 


TH(»H0N32 

ACC+Bl,  ACC+BO 
ACC+Bl,  W 
TEHP,3 
TEMP,  4 

ace+BO ' 

RES032 

OxFO 

ACC+BO, W 


A^4iB0. 
TEHE:;2 
_C 

ACCtBO.MSB 


ACC+BO 

TEMP 

ACC+BO,  MSB 
TNORMUN32 
ACC+BO 
TEMP 

AeC«BO,MSB 

TlKHa(DN32 

ACC+BO 


increase  decrement  by  4 

clear  oaa^ry  bib  > 

if  HSB=1,  normalization  done 

otherwise,  shift  left  and 
Increment  decremrait  .  .'H 


since  highnibble  !=  0,  at  most 
3  left  shifts  are  required 


;  shift  8  bits  by  move 
;  Increaisc!  .decrement  by  8 
;  if  hi^dasfts^O,  result^O 

'.'-L      ,  ,i      T'   ■  ' 

_■■ '.  :!* 

;  test  if  hi^mild3le=0        i  ' 

;  if  so,  sMstt  4  bits    '  : 

;  increase  decrement  by  4 

;  clear  carry  bit 

;  if  MSB=1,  normalization  dotte 

;  otherwise,  shift  left  and 
;  increment  decrein^t  f 


I  siinee  hi^nibble  !=  0,  .tat  Most 
,-  3  left  shifts  are  requiceS' 


TIIOiaiDN32 


, +**********«*********************«************************+*** *********+***********^^ 

,  *****+*]$j^}^!|^^j(*«*9********#******#*f^******** ********* + 


be. 


Float  to  ^fcagw^'QODwtersion' 

Ii^t:    32  bit  floating  point  number  in  AEXP,  AARG+BO,' »MtG+Bl,  AMtStSTv.' 

Usei        CALL       S!n!32  iJT-j'A 

Oal^t:  24  Mt  3's  ccoplemsnt  integer  rij^t  justified  is  AARS+BO,  AARQM'Bl, 


Result:  AAKS    <—    IIIT(  AABG  ) 

Max  Timing:  11+43+15  =  69  elks 


■in  Tiningi 

FM:  155 
INT32  BOVFP 


MOVLVf 

CPFSGT 

GOTO 

SUBWF 


6+S  s  12  i^lcft 


ACC+BO , SIOJ 
ACC+BO,MSB 

EXPBIAS 

EXP 

RES032 

EXP 


RND  =  0 
11+43+19  =  73  elks 
11+43+22  =  76  cIXS 

AARO  -  0 

11+11+8  =  30  elks 


UK:  7 


;  save  sign  in  SIGN 
;  make  MSB  explicit 

.       ■.  d-. 
;  xemHHrVtm'  fxcm  EXF 
;  if  <=  0,  result=0 


RND  =  1,  SAT  =  0 
WHO  =  1.  SAT  -  1 


HOVLW 
CFTSbT 


MOVLW 

CPFSGT 

<30TO  >  -ta 

SOBHP 

RLCF 

MOVFP 

MOVFP 

CLRF 

DCFSNZ 

GOTO 

CPFSGT 

GOTO 

SUBWF 

RLCF 

HOVFP 

CLRF 


GOTO 

MOVLW 

CPFSOT 

GOTO 

SNAFF 


W/fWF 
SLCF 


GOTO 

'  SCF  ■ 


24 
EXP 

SBnov32 

EXP 

7 

EXP 

SIIIB32;  l-^ 
EXP 

ACC+B2 

ACC+Bl, ACC+B2 
ACC+BO,  ACC+Bl 
ACC+BO 
EXP 

SHIFT320K 
EXP 

SNIB32A 

EXP 

ACC+B2 

ACC+Bl,  ACC+B2 

ACC+Bl 

EXP 

SHIFT320K 

3 

EXP 

SHIFT32B 
EXP 

ACC+B2,W 

HKEG.Aee+BS 

OxOF 

HREG,ACC+B2 
ACC+B3 

EXP 

SHIFT320K 


if  >=  tS,  'integer  overflow' 
will  oecci^ 


do  Djfte  ^£f  t  if  EXP  >3i  8 


EXP  =  S»i  4'  7 

rotate  a«ie6  bit  for  rounding 


EXP  =  EXP  -  1 

shift  ccfDpleted  if  EXP  =  0 

do  another  byte  shift  i4^SSP  >=  8 

EXP  =  BXP  -  7 

rotate  next  bit  for  rounding 


EXP-  =  JB®""*  1 

shiffciatse^^ted  if  EXP  <>  '0-' 

08  .3- 

do  nibble.-  ffliif  t  if  EXP  -4 


!  BXP  =:JEXS  -  3  ■'. 

I  Bttim  tot  rounding 

;  rotate  next  bit  for  rouUdiag 

;  EXP  =  EXP  -  1 

;  shift  ccopleted  if  EXP  =  0 

;  at  most  3  right  shifts  are  repaired 
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SinB32A 


GOTO 

BCF 

RRCF 

DCFSNZ 

GOTO 

lOtCF 
GOTO 

MOVLW 

CPFSGT 

GOTO 

SUBWF 

SWAPF 

HOVPF 

ANDLW 

MOVPF 

SW&PF 
ANDIM 
ADDHF 


ACC+B2 
GXP 

SHIFT320K 
_C 

ACC+B2 
EXP 

SHIFT320K 

SRIFT320K 

3 

EXP 

SHIFT32A 
EXP 

ACC+B2,W 

WRBS,ACC+B3 

OxOF 

WRB3,ACC+B2 

ACC+B1,W 

OxFO 

ACC-)'B2 


!  riffht  sTbM*  by  E30P         ,  :.. 

;  shift -(3<»i|9Seted  if  EXP  =  0 

;  shift  coiic>leted  if  EXP  =  0 

;  do  nibble  fhift  if  SXF  >=  4 

.  EXP  =  SCI  .-3 

;  save  tax  rounding 


SHIFT32A 


StiAPF 

MOVPF 

RLCF 

DCFSNZ 
GOTO 

mssr 


RRCF,.. 

DCF^IZ 

GOTO 

BCF 

RRCF 


GOTO 

BCF 

RRCF 

RRCF 

GOTO 


ACC+B1,W 
OxOF 

HRES,ACC1-B1 
ACC+B3 


SRIFT320K 
_C 

ACC+Bl 

ACC+B2 
EXP 

SHIFT320K 
_C 

ACC+Bl 
ACC4'B2 
EXP 

SHIFT320K 

_C 

ACC+Bl 
ACC+B2 
SH1FT320K 


rotate  next  bit  for  roun4|ffig 

EXP  =  EXP  -  1 

shift  ccaqpleted  if  EXP 

at  vest  ^  right  shifts  aces  recpiixed 
right  shift  by  EXP 


shift  conpleted  if  EXP  =  0 


shift  conpieted  if  KXP  =  p : 


tt: 


MOVLW 

CPFSGT 

GOTO 

SUBWF 

SWAPF 

MOVPF 

ANDLW 

MOVPF 


ANDLH 
AODMF 

SMAFF 

mm 

inwF 

SWAPF 
ANDLW 
ADDWF 


.3  : 
BXP 

SH1FT32 
EXP 

ACC+B2 ,  W 

WREG,ACC+B3 

OxOF 

HREQ,ACC+P2 

ACC+Bl, W, 

OxFO 

ACC+B2 

ACC+Bl, W 
OxOF 

HRB8,ACC+B1 

ACC+BO,W 

OxFO 

ACC+Bl 

ACC+BO,W 


do  nibble  shift  if  EXP  »  4 

EXP  =  EXP  -  3 
save  for  rounding 


SHIFT32 


SHIFT320K 


IIIT320K 


ltES032 


SBTIOV32 


•  tMm  • 

MQVPF 

WREG,ACC+BO 

RLCF 

ACC+S3  -' " 

;  rotate  next  bit  for  rounding 

DCFSNZ 

EXP 

;  EXP  =  EXP  -  1 

GOTO 

SHIFT320K 

;  ditft  caii^«ted  if  EXP^^  =  0  - 

BCF 

_C 

;  at  most  3  right  shifts  are  required 

RRCF 

ACC+BO 

;  right  shift  by  EXP 

RRCF 

ACC^-Bl 

RRCF 

ACC+B2 

DCFSNZ  ' 

BXP  ' 

to  i 

OOTO 

SHIFT320K 

;  shift  ce^^eted  if  EX#-*^ 

BCF 

_C 

RRCF 

ACC+BO 

8RCF 

ACC+Bl 

/.  -ti.:.  - 

O&fStlZ 

BZF 

GOTO 

SHIFT320K 

;  Shift  cffl^ieted  if  EXP  =  0 

BCF 

_C 

RRCF 

ACC+BO 

RRCF 

ACC+Bl 

RRCP 

ACC+B2 

CLRF 

MSB: 

■  ' 

BTPSC 

BTFSS 

ACC+B2 , LSB 

GOTO 

XtlT320K 

'I*  .'Z-  ■  ~ 

ADDWFC 

ACC+B2 

;  add  next  bit  for  rounding 

ADDWFC 

ACC+Bl 

ACC+fiO 

B-FFSC 

ACC+BO,  MSB 

SETI6W2  ' 

BTFSS 

SI(3I,HSB 

;  if  sign  bit  set,  negate'  - 

RETLW 

0 

COMF 

ACC+B2 

ccaiF 

ACC+Bl 

COMF 

ACC+BO 

IMCF 

ACC+B2 

ADDHFC 

ACC+Bl 

AtHMFC 

^Aee+fio •  ~ 

0 

CLRF 

ACC+BO 

;  integer 'i^ult  equals  zero 

CLRF 

ACC+Bl 

CLRF 

ACC+B2 

EXP 

;  clear  exponent  for  other  routines 

KBnM 

0 

BSF 

FPFLAGS,IOV 

;  set  integer  overflow  flag 

BTFSS 

FPFLAGS,SAT 

;   test  for  saturation 

RETLW 

OxFF 

;  return  error  code  in  WREG 

OLR# 

ACC+BO 

;  •itu3<ttel''<ro  largest  two's 

BTFSS 

SIGN,  MSB 

■  coii5>lement  24  bit  integer 

SETF 

ACC+BO 

;   SIGN  =0,   Ox  7F  FF  FF 

MOVPF 

ACC+BO,  ACC+Bl 

;  SIGN  =  1,   Ox  80  00  00 

MOVFF 

ACC+BO,  ACC+B2 

RLCF 

SIGN 

RRCF 

ACC+BO 

RBTUf 

OxB7 

;  return  erziox  co#a  in  Wlfd@"' 

. **********«***********************«*********************#********************«* 


Floating  Point  Multiply 

Input:      32  bit  floating  point  nuiriber  in  AEXP,  AARG+BO,   AARG+Bl,  AARG+B2 
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32  bit  floating  point  number  in  BEXF,  BARC+BO,  BftRG+Bl,  BAaO+B2 
Use:         CALL  FPM32 

Output;  32  bit  floating  point  product  in  ABXP,  AARG+BO,  AAHG+Bl,  AARG+B2 
Result:  AARG     <-    AARG  *  BARG 


Max  Timing: 


Min  Timing: 


(  ; 

19+283+18  =  320  elks  SND  =  0,  SAT 

19+283+29  =  331  elks 

19+283+34  =  336  elks 


RMD 


1,  SAT  =  0 
1,  SAT  =  1 


5+6  =  11  elks 


AARG  *  BARG 
18+54+16  =  88  elks 


PM:   21+322+39  =  382 
inil>32  macro 

Hax  Timing:  13+22*12+6  =  283  elks 

;  Min  Timing:         4+22*2+6  =  54  elks 

;  EM:  4+24*2+6+22*12  =  322 


variable  1 
variable  j 

BCF 

CUIF 

am 


ACC+B4 
ACC+B5 


;  clear  carry  bit  "  T■^.  -Ji 

;  clear  isitial  partial  product 


while      i  <  24 
if  i  <  8 

BTFSC:  i  itABa+^,x 

endif 
if 
.  BWSC 
emdlf 

GOTO 

if  i  >=  16 

BTFSC 
eodif 
GOTO 
i  +=  1 
endw 

we  can  not  get  bere  sinc»:  the  K^'s  are  explicit 


1  >=  8  ss  i  <  16 

AAieS+Bl,i-8 


Madd32tv(  1  ) 


test  low  byte 


test  middle  byte 


AARG+BO, i-16 


H^dd32«v(  i  ) 


test  high  byte 


IIadd320 


MOVFP 
MOVFP 
MOVFP 


BARG+B0,ACC+B3 
BARG+B1,ACC+B4 
BARG+B2,ACC+B5 

ACC+B3 


'.  ■  .     •  '.1 

if  we  getjiere,  ACC^O  so  move 
BARG  for  add 

^  1  ■7»J 
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mce- 


see+B4 

ACC+B5 


while  j  <  23 
if  j  <  8 

andkif 

if  j  >=  8  &&  j  <  16 
WrWSS  AARG+Bl,j-8 
eeam.t 

if  J  >=  16 

BTFSS  AABQ+BO,  j-16 

«iaif 


test  low  byte 


test  middle  byte 


best  middle  b/te 


Msdd32tv(  i  )  mmv 

ADDWF 
MOVFF 

MOVFP 


lfno^d32«v(  j  )  RRCF 
RRCF 


IInoadd32#v{  j  ) 

B«RG+B2,WREG 
ACC+B5 
BARG+Bl ,  WREG 
ACC+B4 

BABG-fBO.HREG 

ACC+B3 
ACC+B4 
ACC+BS 


add  low  byte 
add  middle  byte 
add  higbibyte 


if  j  >  21 

HHCP 

endif 

if  j  <  22 

BCF 

endif 

j  +=  1 


ACC+Bl 


save  bi^ts  £or  rounding 


clear,  earry  yiixBa  rotate  possible 


Madd3223 


MOVFP 

ADDWF 

MOVFP 

ADDWFC 

MOVFP 

ADDING 

endm 


BARG't-B2,WREG 
ACC+BS 

BAR0+B1,WREG 
ACC+B4 

BARG+BO,WRSG 
ACC+B3 


add  low  byte 
add  atiddleJbyte 
add  high  byte 


Fni32 


I(24BIK0 


CLRF 
CPFSEQ 
CPFSGT 
GOTO 

MOVFP 


WREG 
BEXP 
AEXP 
IiSS032 

AARB+BO.MREG 
BABG+BO,W 


test  for  z«»  arguments 


5-76 
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MOVPF 


WREG.SIGN 


save  sign  in  SIGN 


MOK32 


MOVFF 
AEDHP 
MOVIM 
BTF$S 
GOTO 

ADEMF 

BTPSC 

GOTO 

GOTO 

ADDHP 
BTPSS 
GOTO 

BSF 
BSF 


BEXP,WREG 
EXP 

EXPBIAS 

_C    .  . 

EXP 

_c 

SETFOV32 
HOK32 

EXP 

_C 

SETFUN32 

AARG+BO,MSB 
BARG+BO,MSB 


remove  bias  and  owacf  low  test 


remove  bieus  and  underflow  test 


make  argumait  MSB's  eiq^licit 


10(00(1032 


MUL32 

BWSC 

SOTO 

BECF 

GOTO 

RRCF 

RRCP 

RRCF 

RRCF 

BTFSC 

BTFSS 

GOTO 

CLRF 

RIiCF 

ADtmc 

AIXJWPC 
ADEWFC 

BTFSS 

GOTO 

RRCP 

RRCF 

RRCF 


MUL320K 


GOTO 


MOVFP 
MOVFP 
MOVFP 
RETLW 


SBTFOV32 


SETF 
SETF 
SETP 
SETF 
RLCF 
RRCF 
RETLH 


_C 

MRIGHT32 

EXP 

MROtIND32 

ACC+B3 

ACC+B4 

ASC+BS 

ACC+Bl 

FPFLAGS,RND 

ACC+B5,LSB 

MUL320K 

HREG 

ACC+Bl 

3kCC+B5 

ACC+B4 

ACC+B3 


MUL320K 

ACC+B3 

ACC+B4 

ACC+B5 

EXP 

SETPOV32 

SIGN,  MSB 
ACC+B3,HSB 

AGe4#3>/A4iP4.B0 
ACC+B4,AARS+B1 
ACC+B5,AARa+B2 
0 

PPELAOS.FOV 

AEXP 

AARG+BO 

AARG+Bl 

AARG+B2 

SIGN 

AARG+BO 

OxFF 


Use  niacro  for  multiplication 
check  for  postnoxmalization 


rotate^^iext  significant  into 
carry  for  rounding 


has  roun^^  caused  carryout? 
if  ^o,  ri^t  shift  ^ 

test  for  floating  point  overflow 

clear  es^licit  MSB  if  positive 
move  result  to  AARS 


set  floating  point  underflag 
test  for  saturation 
return  ceiiffr  code  in  lOWS 

saturate  to  largest  floating 
-point  nuinber  =  Ox  PF  7F  PF  FP 
modulo  the  appropriate  sign  bit 


return  error  coda  in  HREG 
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•  ********************************************************************************************** 

!  Floating  Point  Divide 

;  Itqnit:     32  bit  floating  point  dividend  in  AEXP,  AARG+BO,  AARG+Bl,  AARG+B2 

J  32  bit  floating  point  divisor  in  BEXP,  BARG+BO,  BARG+Bl,  BARG+B2 

Ose:       mi^'  ■   m^2-  ■ 

OutjAit:  32  bit  floating  point  quotient  in  MXP,  AA8S¥Ser-Mi^Bl,  AAR64<2 

Result:  AARG    <-    AARG  /  BMtS 

Max  Timingi         27+11+548+11  =  597  olka  WD  ~  0 

27+11+548+35  =  621  elks  im  =  1,  S*i«^'  B 

27+11+548+41  -  627  elks  KTO  =  1,  SAT  =  1 

;:jiltts»  a  .'.  y  '  .•    ,  ■ 

;  Min  Timing:  6+6  =  12  elks  AARG  =0 

33+428+11  =  472  elks 

;  FMi  42+572+47  =  661 

Di\^4  nsGEo 

;  TlBiings  1+24*26  =  625  oiks 

variable  i  =  0 

BCF  _C 

libilm  1  <  24 

CLRF  TEMP 

RtCF  ACC+B5 

■    -  HB^  ■■  ACC+B4 

RLCP  ACC+B3 

SLCF  ACC+B2 

KLICF  ACC+Bl 

SEiCF  ACC+BO 


EH:  14 


;  left  shiit 


MOVPP  BARG+B2,WRBG  ;  subtra^ 

SDBWF  ACC+B2 

mmff  BASS+Bl.MRES 

l»Om>  BARG+BO, WREG 

SOBHFB  ACC+BO 

CUtF  HREG 


BTFSS 
GOTO 


;  t«B%  £er  x«tore 


Drest*v(  i  ) 


BSF 

GOTO 


ACC+BS,LSB 

Dok#v(  i  ) 


Drest*v (  i  ) 


MOVFP 

MOVPP 

ADDWFC 

MOVFP 

A^HFG 

BCF 


BARS+B2,HREG 
AGe+B2 

BAaS+Bl.WSBG 


restore  if  necessary 


Ace+BO 

ACC+B5,LSB 


D(dE*v(  1  ) 


i  +=  1 


5-78 


01994  Mleieehlp'TBMtiMuij'IWfe 


endw 


7541  Oomft^i^BEieialiaiHPQinl  ReiiQili^ 


OIV24A 


macro 


Min  Tiising: 


19+23*23 
14+23*18 


548  elks 
428  elks 


PMs  20+23*24  =  572 


EM:  9 


BTG 

Jnvjvjp  c 

^BWS" 

&CC+B2 

BSVFP 

B«RlS+Bl,HIISO 

ACC+Bl 

BAR6+B0,VIBEG 

SUBWFB 

ACC+BO 

RLCF 

WREG 

lORWF 

TEMP 

•  ■  f  ., 

wmss 

TEMP.LSB 

;  test  for  restore  i 

EArestO 

3SF 

ACC+B3,HSB 

GOTO 

DAokO 

MOVPP 

BARG+B2 ,WREO 

;  restoire  if  necessary 

ACC+B2 

BARQ+Bl ,  WREG 

ACC+Bl 

MOvrl:' 

BARG+BO  ,WREG 

AUUWr  ^ 

ACC+BO 

BCF 

ACC+B3 , MS9 

variable  i  =  1 

while  i  <  24 

BCF 

_C 

ACC+B2 

ACC+Bl 

RE.CF 

ACC+BO 

KLCP 

TBMP 

;  save  carry 

MOVFP 

BAIiG+B2,NRBG 

;  subtract 

SUBWF 

ACC+B2 

MOVFP 

BMtS+Bl.HREO 

SUBWFB 

ACC+Bl 

MOVPP 

BAHO+BCWREG 

SUBWFB 

ACC+BO 

HLCF 

«B<BO 

IQDH^ 

TBHP 

W^SS 

TEHP.LSB 

;  test  for  restore 

SOTO 

DAre8t#v(  1  ) 

if  i  <  8 

BSF 

ACC+B3,IISB-1 

;  \    "      .                                      _  ., 

9M>t  iAk  4a.  quotient 

endif 

IEEE  75t  eomptrant  FIoetingNfoiift  Rdutihl^ 


If  1  >=  8  &&  i  <  16 

BSF  ACC+B4,15-1 


endif 

if  i  >=  16 

BSF 

GOTO 

Dkresttv(  i  )  MITVFP 


n&sktvt  i  ) 


KBOtttC 
ArajHFC 


if  i  <  8 


AdC+BB,23-i 


I»ok#v(  i  ) 

BARG+B2,HREG 

ACC+B2  '• 

B»RS+B1,MRB0 

ACC+Bl 

BMG+BO.MSEG 

ACC+BO 


If  i  >=  8  U  i  <  16 

BCF        1    -  ACG+B4,15-1 

endlf 

if  i  >=  16 

BCF  ACC+B5,23-i 
eodif 

i  +=  1 
endw 


;  set  bit  in  gaotierat 


set  bit  ih  Quetloit 


restore  if  necessary 


I  cleat  %i%'''ta  guotleat 


el«a#  bit  In  quotient 


clear  bit  in  quotient 


D32B(9i!0 


TM,IGII32 


CLBF 

CIVSOT  BBSP 
GOTO 

CPFSGT  AEXP 

nam 
xasm 

WSVVF 

BSF 

BSF 

iMcr 

MOVFP 
MOVFF 

MOVFP 
MOVFP 
SUBWF 
HOVFP 
SUBWFB 


TEHP.H 


RGS032 

AARG+BO,WREG 

BARG+BO,W 

WREG,SIGN 

AARG+BO,MSB 

BARG+BO,MSB 


AABS+B0,ACC+B3 

AARG+B1,ACC+B4 

AARG'fB2,ACC+B5 

BARG'fB2,WNB6' 

ACC+B5 

BAa&fBl.WRliG 

ACC+B4 


test  for     vide  by  zero 


: 

save  sign  in  SIGN 

make  argmnent  MSB's  esq^licit 


tet-'alt^'^  Increment 
test  for  aligmnent 


5-80 


dau:gh32chc 


BTFSC 


BCF 
KLCF 


ACC+B3 

_C 

EALIGN320K 

_C 

ACC+B2 

»ec*s^-  ■  -  ■ 

ITHKpi  1-1 

BEXP.HKEG 
EXP 

_C 

M.TB32 


;  align  if  aaceasaxy 

;  fix  ali-^  ^ineresMait 
;  caa^Va  AB3^  -  BEXP 


ADDWF 
BTFSC 
GOTO 

eoTo 


TEMP.W 

EXP 

_C 

SETFOV32 
DMIGOK32 


;  if  iXXW  »  ^P,  test  for 
;  overflow 


JkLTB32 


DftRGOK32 
nROUNS32 


GOTO 
DIV24A 

Bfr^ 

GOTO 
BCF 
RLCF 
RLCF 

mtat 
mew 

SUBWF 
MOVFP 
SUBHFB 
l«>VFF 


BLCV 
IOI«JF' 


BXPSIAS 

_c 

SETFDN32 


FPKLAlSS.IiMD 
ACC+BS,I.SB 
DIV320K  ■ 

_C 

ACC+B2 
ACC+Bl 
ACC+BO 
TEMP 

BAI»3+B2.IBaG 
ACC+B2 

BARG+B1,HREG 
ACC+Bl 
BARG+BO.WRES 
ACC+BO 

TEMP 


if  ASXP  <  tm^,  test  for 


macro  for  division 


caapati*  JOtaet  -s£0»i£ieant  bit 
far  rounding 


save  carry 


RRCF 

CLRP 

ADDWFC 

ADDWFC 

ADDHrC 

BTPSS 

GOTO 

RRCF 

RRCF 

mtCF 


DIV320K 


BCF 

MOVFP 
MOVTF 
KOVFP 


TEMP 

WRBG 
ACC+B5 
ACC+B4 
ACC+B3 


DIV320K 

ACC+B3 

ACC+B4 

ACC+B5 

KXP 

SXSFOV32 


ACC+B3,MSB 

ACC+B3,AASQ+Ba 
ACC+Bl,  AARS+Bl 
ACC+B5,AARQ+B2 


;  rotate  next  significant  toit  into 
;  carry  and  add  for  rounding 


;  'test  if  rounding  caused  carxssottt  - ^' 


test  for  overflow 

.■fi.>^  .vd-  ..I 

■       -  "  ■■■■  .1  -.•  (/,■ 

ciaa£''e9q>licit  MSB  if  {leslt'ive 

result  to  AARG 
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0 

BSF 

FPFLAGS , FUN 

;  set  floating  point  underflag 

BTFSS 

FPFLAGS ,  SAT 

;  test  for  saturation 

..    . .  ■.OStFF.  ■.         '  , 

;  retum  eiTWsm.  eode  in  URE^  i 

Si.  >J-»A 

tHOVlM 

0x01 

MOWF 

;  point              =  QK  01  00  WifO 

CLRF 

AARG+BO 

;  modulo  the'sp^cc^riate  ^gK:  bit 

CLRF 

AARG+Bl 

CMiP 

AARG+B2 

SIGN 

ilRCF 

AARG+BO 

OxFF 

.  netiiriSWlBar  code  in  WREG- 

;  set  SMdSie  polat  dlvi^-ii^  zero 

03CFl:  ;j"-  -  ■  ■ 

;  flag         mftvxn  error  ^i^'  tmSQ 

tl*  ±  iiic  ******  **1c1e1rit1t*1e****1i***^************************************1t*** 

**********************************************  **********1;***^************te********* 

Floating  Point  Subtract 

Input:     32  bit  floating  point  .nanber  in  AEXP,  AARG+BO,  AftRG+Bl,  A^G+^i 'A 
32  bit  floating  point  nuaiber  in  BH)XP,  BSRG+BO,  SKRO+Bl,  BWiO+^ 

Use:         CALL  FPS32  i- 

Otitput:  32  bit  floating  point  dlffereaee  in  MOEB,  MRS+BO,  %8X^B1,  AARG+B2 
Rea«it«  %^    <-    AARG  -  BSRO  "  •       -      ■ ..L., 


******* 


FE%32 


iSax  Timing: 

Min  Timing: 
mil  330 

BTQ 


1+144  =  145  oiks 
1+159  =  160  elks 

1+34  =  3S  clfcs 


BARQ+BOlina 


RND  =  0 
RND  =  1 


ta^lo  bit  for  svMRa^lon 


1 '  -tHAS  . 

'ti+3:'A  '  v 

Inputs     32  Mt  floating  point  number  in  AEXP,  AARG+BO,-  M^+Bl,  AARfi!+Ki 

32  bit  floating  point  nuniber  in  BBXP,  Bj^G+BO.-jeiOtQ+Bl,  BiffiO+SS- 

aseejn.  CALL  FPA32 

est^ats  32  bit  floating  point  sum  in  AEXP,  AARG+BO,  au^^tei,  A;mG+B2'>',''. 

Result:  AARG  <-  AARG  -  BARG  j'M-.v 
Max  Timing:: 


7+67+22*48 
7+75+22+55 


144  Glks 
159  oiks 


Ms  ftelag: 
mts  329 


6+23+5  =  34  elks 


MOVFP  AARG+BO,  WREG 

XORWF  BARG+EO,W 
MOVPF  WREG,  TEMP 

HeVFP  .J'-  --.r.    -  >  AESKi'WREG 
CPFS6T  BEXP 
GOTO  trSEA32 


RND  =0  r  .  ; 

■I').-  I 

DH:  14  "  JJ  :-'vi.r.=ii;i 

;  exclusive  or  of  signs  in  "CBSS 

;   use  AARG  if  AEXP  >=  BEXP 


5-6? 


USEB32 


MOVFP 

BSF 

BSP 

MOVFP 
MOVFP 
S0BWF 
BTFSC 
GOTO 


BARG+BO,SI(aT 

BARO+B0,MSB 

AAK&t-BO.HSB 

AEXP.WREG 

BEXP.AEXP 

BBXP 

_Z 

BLI(ajnBD32 


save  sign  in  SIG^ 
make  JISB'S'''explicit 


cceq^te  shift  coont  in  BEXP 


CPPSCT 

GOTO 

SUBWF 

RLCF 

MOVFP 

MOVFP 

CLRF 

DCPSNZ 

GOTO 


7 

BEXP 

BNIB32 

BEXP 

AARG+B2 

AAR0+B1,AARG+B2 
AARG-f  BO ,  AARG+Bl 
AARG+BO 
BBXP  - 
BR0UND32 


ito  bj^e  shift  if  BEXP  >=  8 

BEXP  =  BEXP  -  7 

rotate  next  bit  for  rounding 


BEXP  =  BEXP  -  1 


CPFSGT 

GOTO 

SUBWF 

mcp 

MOVFP 
CLRF 
DCFSNZ 
GOTO 

CPFSGT 
GOTO 


H>VFP 
MOVFP 
KETUf 

tmm 

CPF98T 

GOTO 

SUBWF 


BEXP 
BN1B32A 
AEXP 
AMG+B2 

AAIte+Bl,AABO+B2 

AARG+Bl 

BEXP 

BROUN032 

BEXP 
BNIB32B 

SICNiMBG+BO  . 
BAHG+Bl.AARe+Bl 
BARS+B2,AARG+B2 
0x00 

3 

BBXP 

BLOOP32B 


;  do  another  byte  shift  if  BEXP  >=  8 
;   BEXP  =  BEXP  -  7  -i 

;  rotabet  Jiexb  bit  for  rounding 


BEXP  s'^B]^  -  1 


if  BEXP  still  >=  8,  then 
AASa  s  -^  relative  to  BAEta< 


return  BASS 


do  nil^leshif  t  if  BBXP 


BSCP  =  BEXP  -3 


SWAPP 
MOVPF 


BLOOP32B 


BCF 
SRCF 


KIIB33A 


aSTO 

BCF 

RRCF 

DCPSNZ 

GOTO 

BCF 

SOTO 

MDVLW 

CPFSGT 

GOTO 

SUBWF 


AARG+B2,W 
WREG, ACC+B5 
OxOP 

WREG,AAR0+B2 
ACC+B5 

BEXP 
BRODND32 

_C 

AARG+B2 
BSEP 
BROONDSZ 
_C 

AAI)G+B2 
BBXP 

_C 


3'  - 
BEXP 

BLOOP32A 
BEXP 


save  for  rounding 

rotate  meKt  bit  for  rounding 

^XP  =  BEXP  -  1 
aligned  if  BEXP  =  0 

rigbt  shift  by  BEXP 
alieiMl  Af /BBXP  =  0 


aligned  if  BEXP  =  0 

at  most  3  right  shifts  are 

possible  "1-  ] 


do  nibbleshift  if  BEXP  >=  .4 


BEXP  =  BEXP  -3 


754  ComM^M^^H^M^g^PoM  l^oiitiiijes 


BIjOOP32A 


EHIB32 


SLO(»32 


mswF 

WREG,ACC+B5 

;  B&am  '§or  t&tinrii  ng 

OxOF 

MOVPF 

WREG, AARG+B2 

SW%PF 

AARG+B1,W 

ANDUf 

OxFO 

ADDMP 

«M)S+B2 

MIDLM 

OxOF 

HRBS.AAR&l'Bl 

■ 

RLCF 

ACC+B5 

;  rotate  iS«Kt  bit  for  rotmdiiis 

BEXP 

GOTO 

BROCIND32 

r  aligned  If  •  bbxp  =  0 

BCF 

_C 

;  rlgbt  shift  b;^  BEXP 

HRCF 

AARG+Bl 

RSCF 

AARG+B2 

BEXP 

-. 

''€10^'. 

BRO0ND32 

;  allseed BEXP  =  0 

Bcr 

-  -  '  MSim-Kk' '-  ■  ' 

liRCP 

DCF5NZ 

BEXF 

GOTO 

aHaraii>32 

;  aligned  if  BEXP  =  0 

BCF 

_c 

;  at  most  3  right  shifts  are 

IIIICF 

AARG+Bl 

;  possible 

NOVLN 

3 

;  do  nibbleahlf  t  if  BEXP  »  4 

CPFS6T 

BEXP 

GOTO 

BLOOP32 

SDBMP 

BEXP 

;  BEXP  =  BEXP  -3 

SWIOT  . 

HOVPP 

MtBB,ACC+B5 

;  save  for  -roundiog  ^ 

AHDLM 

OxOF 

MOVFF 

SNAPP 

AABG+Bl.M 

ANDIM 

OxFtt: 

AABG+B2 

SW&PF 

AARG+Bl,  W 

ANDLW 

OxOF 

MOVPF 

WREG,  AARG+Bl 

- 

SWAPF 

AARG+BO,W 

OxFO 

ADDNF 

AASG+Bl 

ANDLW 

OxOF 

HRBS,AARO+B0 

- "  :  - 

;  rotated  ilietxt  bit  for  rouiidlng 

DCPSSZ 

BEXP  ' 

;  BEXP      BESIP  -  1 

GOTO 

BRODND32 

;  alig^iar  if  BEXP  =  0 

BCF  -• 

JC  ■ 

;  right  shift  by  BEXP 

RBOr 

ASBG+BO 

HRCP 

AARB+Bl 

RRCF 

AARG+B2 

754  Gompliai^iBlQsaiiig^Poliil  P^m^ 


emo 
set 


RRCF 

RRCF 

DCFSNZ 

GOTO 

BCP 


_C 

AMtG+BO 

AABG+B2 
BEXP 

_c 

.  AiUlG+Bl 
AAKG+B2 


aligned- i£  BBXF  =  0 


aligned  if  BEXP  =  0 

at  most  3  right  shifts  are 

possible 


esfCT. 


BROaND32 


BTFSC 

BTFSS 

GOTO 

CLRF 

ADDHFC 

ADDHFC 

BTFSS 

GOTO 

RRCF 

RRCF 

RRCF 


BLIGNE032 


GOTO 

BTFSS 

GOTO 

CLRF 

t 

COHP 

CQMF 

mCF 

ADDWFC 

ADDWFC 

GOTO 


nSEA32 


MOVFP 
SOBWF 


wrfac 

SOTO 


FPFLAGS.RND 

AARG+B2,LSB 

BI.IGNED32 

HRBS 

AARS+B2 

AASG+Bl 

AAS6+B0 


BLIGNED32 

AARG+BO 

AARG-fBl 

AMa+B2 

EXP 

SETPOV32 

TEMP, MSB 

AOK32 

HRBS 

AARG+aa 

AAKG+Bl 

AARG+BO 
AARG+B2 
AARG+Bl 
AARG+BO 
AOK32 

AARO+BO.SION 
AARG+BO,  MSB 
B|«5+S0,HSB 

BEXP.NREG 

AEXP.W 

WRBS.BEXP 

_Z 

ALlaNED32 


;  add  cany  for  rounding 

;  has  rounding  caused  carjy^ut? 
;  if  so,  right  shift 

1  test  f ar,/£loatlng  point  sysi^lsw 

;  negate  if  signs  opposite 


save  sign  in  SIGN 
nake  M^'Sfj  esqplicit 


ecneute^blft  count  in 


MOVLW 

CPFSGT 
GOTO 
SOBWF 
.  RLCF 

MOVFP 

MOVPF 

CLRF 

DCFSNZ 

GOTO 

cppser 

GOTO 


RLCF 
MOVFP 

MOVPF 


7 

BEXP 

ANIB32 

BEXP 

BAR0+B2 

BjMS+Bl.WSe 

WRSS,B]IASi»B2 

BARG+BO,WREG 

WREG , BARG+Bl 

BARG+BO 

BEXP 

AROUND32 


ANIB32A 

BEXP 
BARG+B2 
BARG+Bl,  WREG 
WREG, BARG+B2 


do  byte  rfiift  if  BEXP  >=  8. 

BEXP  =  BEXP  -  7 

rotate  nea^t  bit  for  rounding 


BEXP  -  1 

—    ;-  J 

do  9)a»eiier  by1:e  shift  if  BBQ? 

BBXP  =  BEXP  -  7 

rotate  next  bit  for  rounding 


>«  8 


5-85 


CXRF 

DCFStIZ 

GOTO 


AROUND32 


BEXp^  =  msp  -  1 


CPFSGT 
GOTO 


CPFSGT 

GOTO 

SUBWF 


BEXF 
JUIIB32B 

.  0x80- '3  "  ■ 
•  Ic'     i?  -  : 

3 

BEX? 

ALOOP32B 
BEXP 


if  BHCP  Still  >=  8,  then 
BasQ!-&  flf*iBlative  to  AARG 

do  nliasieshif  t  if  vmig  i 


MOVPF 
KLCF 


BCF 
RRCF 


GOTO 

BCF 

RRCF 


G070 

BCF 

RRCF 

GOTO 


BARG+B2,W 
mBS,ACC+B5 

HRBG,BARG+B2 
ACC+BS 

BEXP 

AROUND32 
_C 

BARG+B2 

r  .j^asp  1  -  . 

AROOND32 
_C 

,   BARG^'BZ  - 


m<mm2 
_c 

ARODln>32 


save  foie^  rounding 


rotate- li^efc  bit  for  roaading 

BEXP  =  BEXP   -  1 
aligned  if  BEXP  =  0 

right  shift  by  BEXP 


aligned  if  BEXP  =  0 


aligned  if  BEXP  =  0 
at  wmst  3-  right  shifts 
possifcl4 


ANIB32A 


MOVLW 

CPFSGT 

GOTO 


SWAPF 
MOVPF 
ANDLW 


3 

BEXF 

AL0OP32A 


ADEW 


BARG+B2,» 
WREG,  ACC+BS 
OxOF 

OXFO 
BARG+B2 


do  nibbleshift  if  BEXP  >=  4 


BEXP  =  BEXP  -3 


sa^e>  So#i-l%unding 


mam  '  - 


ALOOP32A 


GOTO 

BCF 

RRCF 

SSCF 

BCFsaiiz 

BCF 
RRCF 

DCFStI!!' 
GOTO 


BARG+B1,W 
OxOF 

WREG,BARG+B1 

•  A.;      -  : 

1   Aee*BS""  - 

BEXP 

AROOND32 
^C 

BESCP 


_C 

BARG+Bl 
BARG+B2 
BEXP 

AROUND32 


'i.l.na  IV. SI.  . 

rotaWaSa  bit  for  rouading 

BEXP  =  BEXP  -  1 

aligned  if  BEXP  =  0 

right  shift  by  BEXP 


alii^od.'  St"  BBXP  =  0 


aligned  if  BEXP  =  0 


IKE  7i4l0^iiipl|afill!N>lit!figN^^t 


BCF 
RRCP 
RRCF 
GOTO 


BftBG+Bl 
«RaaND32 


at  Best  3  fight  shifts  ar* 
possible  - 


ANIB32 


MOVIM 

CPFSST 

SOTO 


3 

BEXF 
AL0OP32 


■  do  mj3bl«»bi£t  if  BEZP  >sv4, 


BBS  =  SBiR  -3 


SMILFF 
MOVPF 

MOVPF 


BAI!G+B2,W 

WREG,ACC+B5 

OxOF 

WREG,BARG+B2 


;  save  for  rounding 


SWAPF 
ANDLH 
ADDHF 


B&RG+B1,W 
OxFO 


SWAPF 
ANDLW 
HOVFF 

SWAM' 
ANDLW 

ADDWF 


BABS+B1,W 
OxOF 

HRBG.BARS+Bl 

BAIK3+B0,W 

OxFO 

BARG+Bl 


SWAPF 
ANDLW 

KLCF 

DCFSNZ 

GOTO 


BARG+BO,W 
OxOF 

WEEG,BARG+BO 
ACC+B5 

BEXP 

AROUND32 


rotate  next  bit  for  rounding 

BEXP  =  BEXP  -  1 
aligned  if  BEXP  =0 


SKGF 

DCFSMZ 

GOTO 

BCF 

RRCF 

i«eF 


GMO 

BCF 
RRCF 
RRCF 
RRCF 


_C 

BAB&fBO 

BARG+Bl 

BARG+B2 

BEXP 

AROUND32 

_C 

BARG+BO 

BARG+Bl 

BAR6+B2 

BEXP 

AR0DNO32 

_C 

BARG+BO 
BARG+Bl 
BARG+B2 


right  shift  by  BEXP 


aligned  if  BEXP  =  0 


alipied  if  BEXP  =  0 

at  most  3  ri^t  shifts  are 

possible 


AROaNI332 


B^SS 

GOTO 

CLRF 

ADDWFC 

ADDWFC 

ADDWFC 


FPFLAGS.RHD 
EARC!+B2,LSB 

ALIGNED32 

WREG 

BARG+B2 

BARG+Bl 

BARG+BO 


;  add  carry  for  rounding 


BTFSS 

GOTO 

RRCF 

RRCF 

RRCF 

IMFSNZ 

GOTO 


ALIGNED32 

BARG+BO 

BARG+Bl 

BARG+B2 

EXP 

SEa70V32 


;  has  rounding  caused  carryout? 
;  if  so,  right  shift 

;  test  for  floating  point  overflow 


S«7 


liiPmiMliiptaiit#loiifliif^^ 


ALIQMED32 


ACOMP32 


GOTO 

AOKSi  ■ 

CLRF 

HRE6 

COMF 

BASG+B2 

CCMF 

BARG+Bl 

BARG+BO 

INCF 

BARG+B2 

MXMFC 

BARG+Bl 

ADEMFC 

BARG+BO  - 

VOVWP 

BASS+BZ.NDBQ 

ADDWF 

AARG+B2 

MOVFP 

BARG+Bl, WRKG 

ADDWFC 

AARG+Bl 

MOVFP 

BARG+BO  ,WREG 

ADDNFC 

AARG+BO 

Bl'FSC 

TEMP , MSB 

GOTO 

ACQHP32 

BTFSS 

_C 

GOTO 

FIXSIGN32 

RRCF 

AARQ+BO 

RRCF 

AMtG+Bl 

AAXS+B2 

111^92 

A£XF 

GOTO 

FIXSIGN32 

GOTO 

SETF0V32 

BTFSC 

_C 

Q6fSO 

NHH32 

OMf 

WREG 

COW 

AARG+B2  ' 

CCMF 

AARG+Bl 

CCMF 

AARG+BO 

INCF 

AARG+B2 

AI3DWFC 

AARG+Bl 

iUJDHFC 

AARG+BO 

arc 

SIGN.HSS 

GOTO 

NR1B2 

negate  if  signs  apposite 


add 


;  shift  right  and  increment  EXP 


set  floating  point  overflow  flag 


nonsalize  apA  fix  sign 
aagate,  tt^plm  sign  bit  and 


5-88 


Microchip 


AN526 


PIC16C5X  /  16CXX  Math  Utility  Routines 


'     X  8  unsigned  multiply 
•H©  X 16  double  precision  multiply 
•'f^ixed  Point  Division  Csee  Table  3) 
'  *'f6  X 16  di>uble  precfsta  additiof^ 
'« 16  X 16  double  prefM'sMs^ion 

•  BCD  to  binary  conversion  J<9t#f*s"' 

•  binary  to  BCD  conversion  ifbotftles  '"'  " 

•  BCD  addition  '       \  ' 

•  BCD  subtraction  "' ' 

•  square  root 

These  are  written  in  native  assembly  language  and  the 
listing  files  are  provided.  They  are  also  available  on  a 
disl<  (MS-DOS*).  All  the  routines  provided  can  be  called 
as  subroutines.  Most  of  the  routines  have  two  different 
versions:  one  optimized  for  speed  and  the  other  opti- 
rri||ed  for  code  size.  The  calling  sequence  of  each 
imAine  is  explained  at  the  beginning  of  each  listing  file. 

SINGLE  PRECISION  QPSieHED 

{ Thii  foutin^  cdmputes  the  product  of  two  unsigned  8-bit 
i  nin^l^^sfttd^cfducas  a  16-bit  result.  Two  routines  are 
piMSit  i»t»(wMejis<^mizedforspeed{bywriUn^^ 
I  a  M||tt  ine^i^^;  !andf%e  othe^'itutine  h^  beer^ 
written  to  reduce  the  code  size  (a  looped  code).  The 
listing  of  these  routines  are  given  in  Appendices  A  and 
B.  The  performance  specs  for  the  routines  are  shown  in 
Tablet. 

TABLE  1  -  PERFORMANCE  SPECS 


Spec 

Prograni  IHemoty 

Instruction  Cycles 

Speed  Efficient 

35 

37 

Code  Efficient 

16 

71 

FIGURE  1  -  FLOW  CHART  FOR  UN 
SIGNEDI  an  8'Mlftlil'LV 


(   8x8Muftitjty  ) 
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PIC1 6C5X  /  16CXX  Math  yiiliy  Routines 


DOUBLE  PRECISION 
MULTIPLICATION 

This  routine  computes  tlie  product  of  two  1 6-bit  numbers 
and  produces  a  32-bit  result.  Both  signed  and  unsigned 
arithmetic  are  supported.  Two  routines  are  provided: 
one  routine  is  optimized  for  speed  (by  writing  a  straight 
line  code)  and  the  other  routine  has  been  written  to 
reduce  the  code  size  (a  looped  code).  The  listing  of 
these  routines  are  given  in  Appendices  C  and  D.  The 
performance  i^>Ib^%##i£  IMlitaS'  are  shorn  'm 
Table  2.  

Tii^  2  -  F^ei^MANCE  SPECS  ' 


Spec 

Program  Memory 

Instruction  Cycles 

Speed  Efficient 

240 

233 

Code  Efficient 

33 

333 

The  code  in  Appendices  C  and  D  has  been  setup  for 
unsigned  arithmetic  and  the  performance  specs  in  the 
table  above  is  for  unsigned  arithmetic.  If  signed  arith- 
metic is  desired,  edit  the  line  with  "Signed  equ  FALSE" 
to  "Signed  equ  TRUE"  then  re-assemble  the  cod9. 

In  case  of  signed  multiply,  both  operands  are  assumed 
to  be  16-bit  2's  complement  numbers. 

Conditional  assembly  is  supported  by  MPASM.  If  you 
have  an  older  version,  please  contact  the  Microchip 
Technology  sales  office  nearest  you.  ' 

DOUBLE  PRECISION  DIVISION     i  I 


Fixed  Point  Divide  Routines 


»^Miti6n^l  shift 
iMi  ^ii$mti  operatton,  resulting  in  a  quotient  and  4 
iMIMigK,  with  standard  methods  related  to  ^pl# 
Unay  long  division  by  hand  calculation.  Typicitf^,  ^ 
;  processor  with  n  bit  operands  uses  a  fixed  accuniuM<^ 
:  of  2n  bits  containing  the  dividend.  In  standarrestoring 
division,  the  dividend  is  left  shifted  by  one  bit  and  the 
I  divisor  is  subtracted  from  the  high  half  of  the  accumula- 
tor, referred  to  as  the  partial  remainder.  If  the  result  is 
positive,  the  divisor  was  less  than  or  equal  to  the  partial 
remainder  and  the  corresponding  quotient  bit  in  the  LSB 
of  the  accumulator  is  set  to  one.  If  the  result  is  negative, 
the  divisor  was  greater  than  the  partial  remainder  and 
the  dividend  is  restored  by  adding  back  the  divisor  to  the 
'  high  half  of  the  accumulator  and  setting  the  LSB  to  zero. 
This  process  is  repeated  for  each  of  the  n  bits  in  the 
divisor,  resulting  in  an  n  bit  quotient  in  the  low  halt  of  the 
accumulator  and  the  n  bit  remainder  in  the  high  half,  and 
requiring  n  sufettaetlons  and  on  avers^e  n/2  additions 
[1]- 

Nonrestoring  divisbn,  requiring  a  tcAal  ot  at  tH-1 
subtrEKtions  and  additions,  oHm^  pMnM  for  speed 
improvement  by  allowing  a  negtfva  t»rW  Mnatridar 
tMl^§m  &ig^giSm'i^  m^^  addition  of  Hie  cMsor 
if  ll^ltfitf  reHWM^ft  rWfatwe.  After  the  first  left  shift 


of  tna  divide,  th9  Msor  siMN^ 
spending  quotient  bit  as  well  as  the  r 

operation  is  determined  by  the  carry  bit  [1]. 

Unfortunately,  no  simple  methods  exist  for  perfomning 
two's  complement  binary  division,  thereby  requiring  ne- 
gate operations  during  a  preprocessing  phase.  It  is 
important  to  note  that  with  the  dividend  initially  loaded 
into  the  accumulator,  an  overflow  of  the  final  quotient  will 
result  if  the  high  half  of  the  dividend  is  greater  than  or 
equal  to  the  divisor  [1],  indicating  that  the  n  bit  range  of 
9|^i||otient  will  be  exceed^. 

Because  of  the  inherent  byte  stmcture  of  the  PIC16/17 
family  of  microcontrollers,  a  more  creative  and  efficient 
implementation  of  the  above  algorithms  is  possible.  In 
what  follows,  the  partial  remainder  is  initialized  at  zero 
and  is  separated  from  the  dividend,  thereby  avoiding  any 
alignment  logic  overhead  and  yielding  a  quotient  with  the 
same  number  of  bits  as  the  dividend  and  a  remainder 
With  the  same  number  as  the  divisor.  Furthennore,  the 
routines  are  named  in  the  format  FXDxxyyz,  where  xx  is 
the  number  of  bits  in  the  dividend,  yy  is  the  numberof  bits 
in  the  divisor,  and  z  indicates  a  signed  or  unsigned 
routine.  (Macros  are  used  for  the  core  sections  of  each 
routine,  thereby  pemiltting  simple  switching  between 
restoring  and  nonrestoring  methods.  The  signed  macros 
are  exclusively  a  variation  of  the  nonrestoring  method, 
taking  advantage  of  the  zero  MSB  of  the  arguments  after 
the  preprocessing  negation.  Both  restoring  and 
nonrestoring  macros  are  included  forthe  unsigned  case, 
with  selection  based  on  best  worst  case  or  best  average 
perfomnance  as  desired.  For  example,  the  uns|^^ 
macros  exhibit  the  following  performance  data: 


nonrestore 


max. 
ave. 
max. 
ave. 


32/16 


561 
481 
481 
466 


16/16 


240 
208 
240 
233 


16/B 


193 

173 
190 
183 


This  demonstrates  that  while  the  nonrestoring  algorithm 
is  prefen-ed  forthe  32/16  case,  the  restoring  method  is 
preferred  for  the  16/16  case,  with  the  choice  for  the  16/ 
8  case  a  function  of  user  requirements.  These  optimiza- 
tion complications  are  a  result  of  trade-offs  between  the 
number  of  instructions  required  for  the  restore  opera- 
tions verses  the  added  logic  requirements.  Finally,  addi- 
tional routines  with  tacit  MSB  equal  to  zero  in  each 
argument  are  included,  yielding  significant  speed  im- 
provement. These  routines  can  also  be  called  in  the 
signed  case  when  the  arguments  are  known  to  be 
p^iil«  for  a  small  benefit. 

Routines 

It  isusefulto  notethattheadditional  routines  FXD31 1 5U, 
FXD1515U,  and  FXD1507U  can  be  called  in  a  signed 
divide  application  in  the  special  case  where  AARG  >  0 
and  BARG  >  0,  thereby  offering  some  improvennait  in 

performance. 


kMafBCtditlf  Routines 


TABi^Piai^i!«9nir  DIVIDE  RcxffliNisn:'  i  ;C  7  a.H  ^ 


Routine 

Clocks 

Function 

FXD3216S 

414 

'^P  hit/1fi  hit 

32.16  signod  fix6d  point  divide 

FXD32ieU 

485 

32  bit/1  fi*  fait 

32.16  unsigned  fixed  point  divide 

FXD3215U 

390 

r>2  bit/1 5  bit 

32.15  unsigned  fixed  point  divide 

FXD3115U 

383 

q-i  hit/1 1?  bit 

O  1  Ulu  1 3  Mil 

31  1 5  unsianed  fixed  Doint  divide 

FXD1616S 

lO  DIU  lO  l^ll 

■> 

1 A  1fS  QinnaH  f  ^drilSMtSi^4^ ' t  ''^'"'"i  P"^  *OAT 

FXD1616U 

244 

16  bit/16  bit 

-> 

16.16  unsigned  fixed  point  divide 

FXD1615U 

197 

16  bit/15  bit 

-> 

16.15  unsigned  fixed  point  divide 

FXD1515U 

191 

15  bit/15  bit 

-> 

15.15  unsigned  fixed  point  divide 

FXD1608S 

146 

16blt/08blt 

-> 

16.08  stgnwafixisct  point  divwr       '  ' 

FXD1608U 

196 

16  bit/08  bit 

-> 

16.08  unsigned  fixed  point  divide 

FXD1607U 

130 

16bit/07bit 

-> 

16.07  unsigned  fixed  point  divide 

FXD1507U 

125 

15  bit/07  bit 

-> 

1 5.07  unsigned  fixad  jsoint  cMe 

Data  RAIVI  Requirements 

The  following  contiguous  data  ram  locations  are  used  by 
the  f  ixed  point  divide  routines: 


ACC+BO  = 

AARG+BO 

AARG  and  ACC 

ACC+B1  = 

AARG+B1 

ACC+B2  = 

AARG+B2 

ACC+B3  = 

AARG+B3 

ACC+B4  = 

REM+BO 

remainder 

ACOfBS  = 

mm 

REM*B1 

sign  in  MSB 

SAffG+BO 

BARG 

BARG+B1 

TEMP+BO 

temporary  storage 

TEMP+B1 

where  Bx  =  x. 
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TABLE  4:  PIC16CXX  FIXED  POINT  DIVIDE  PERFORMANCE  DATA 


^00m 

MtK  Cycles 

MIn.  Cycles 

PM 

iH  . 

16/8  Signed 

146 

135 

146 

5 

16/8  Unsigned 

196 

156 

195 

4 

16/ 7  Unsigned 

130 

130 

129 

4 

15/7  Unsigned 

125 

125 

124 

4 

16/ 16  Unsigned 

214 

187 

241 

7 

16/16  Unsigned 

244 

180 

243 

6 

16/15  Unsigned 

197 

182 

216 

6 

16 /IS  Unsigned 

191 

177 

218 

6 

32/ 16  Unsigned 

414 

363 

476 

* 

32/16UMp^ 

485 

459 

608 

« 

32/15  Unsigned 

390 

359 

451 

8 

31/15  Unsigned 

383 

353 

442 

8 

DOUBLE  PRECISION  ADDITION  & 
SUBTRACTION 

This  routine  adds  or  subtracts  two  16-bit  numbers  and 
produces  a  16-bit  result.  This  routine  Is  used  by  other 
double  precision  routines.  The  listing  of  these  routines 
is  given  in  Appendix  E.  The  pdrtMMie^lpaesforthe 
routines  are  shown  below:    j,„^  ,  . . 

'table  5  -  PERFORMANm<a9iOB '  > .  n>: 


Spec 

Program  Memoiy 

Instraetlon  t^tes 

Addition 

7 

8 

Subtraction 

14 

17 

«)lvtf 

BOP  •m.mmmmmmmm^-is^''- 

Th  is  routine  cQ^w|fl|M#2|||i03  number  to  a  1 6-bit 
binary  nuinbarTl1lRrlsiiig^9F^  routine  is  given  in 
Appamiic  F.  Hie  performance  spec  for  the  routine  is 


TABLE  6  -  PERFORIUANCE  SPECS 


Spec 

Program  IMemoiy 

Instruction  Cycles 

BCD  to  Binary 

30 

121 

■ties.     ajpeH  MAW  «1*U 

veba*  u-.  i  w*10t»i;r- V  fir'  i.   '  .  ■  ■  .:i^ii'.-/fi    i  bifl 

■  ■■  .  :  I:   ,■     ■  •! 
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PIC16CSX  /  16CXX  Math  UMtt^iKSGutines 


BINARY  TO  BCD  CONVERSION 

Two  BMitines  are  praM«t|ii^  '^mm^  !ifl§- 
M  bfewuy  number  tasii^weNGtafl  mnflmmAllm 
other  nQirtin««oiwai94n  IMMUn^numbertoiAiMNi' 
iaigi)iQ@!i«m^.  JMihi8<^;these  rouflmesnrfssNp 


ratmes  am  MiiftK': 
TABLE  7  -  PERFOHMANCEtSPiECS 


Rragtamlleflioiy 

Binary  (8-Bit)  to  BCD 

10 

81  (Worst  Case) 

Binary  (16-Bit)  to  BCD 

30 

719 

R^R^  2  -  FLOW  CHART  FOR  BINARY 
TO  BCD  CONVERSION 


BCD  ADDITION  &  SUBTRACTION 

These  two  routines  perform  a  two-digit  unsigned  BCD 
addition  and  subtraction.  The  results  are  the  sum  (or 
difference)  in  one  File  register  and  with  a  overflow  cany- 
bit  in  another  File  register.  The  perfomranoo  qsMsfo|- 

the  routines  are  shown  below: 

TABLE  8  -  PERFORMANCE  SPECS 


Spec 

Program  Memory 

instruction  Cycles 

BCDAd#>n 

23(Wbr5tCase) 

BCD  SubbacMon 

 tI  ■ 

31 

The  listing  files  for  the  above  two  routines  are  given  in 
Appendices  J  and  K.  The  flow  charts  for  BCD  eKlditlon 
and  BCD  subtradion  are  given  in  Figures  3  and  % 

respectively. 


(    Bin  to  BCD  , 


Count  =  16 
R0  =  0,  R1  =0 
.   R2  =  0 


Shift  SO,  SI  Left 
lntDR0,R1,R2 
(OrieBit) 


Adjust  BCD 


Adiua  R2 


AdIustBCD 


AdIurtRI 


Adjust  BCD 


Adjusl  RO 


(     Adjust  BCD  ) 


In:  B(5i(#lhF«),Rt,  R2 
Out:  Btnary^MnSO.  SI 


BCD 
MSD  LSO 


MSD  LSO 


RO  =  MSD 
R2  =  LSD 

50  =  High  Order  Byte 

51  letcNrOMpByto 

-»(       Return  ) 


FSR  =  2  Digit 
BCO# 


LSD  = 
LSD +  3 


MSD  = 
MSD +  3 


FIGURE  3  -  FLOW  CHART  FOR  BCD 
ADBITICW 


(      UBCDAD  ) 


Perform  Binary  Addition 


Adds 
to  LSD 


Add6 
to  MSD 


C      Return  ) 


#»i#$<MI««Q^-MHWlawlii9. 
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FIGURE  4  -  FLOW  CHART  FOR  BGO 
SUBTRACTION 


(    UBCDSUB  ) 


Do  2's  Complement  Binary  Addition 


.IV.;  -yil^ 


DC  =  0 


LSD>£ 


(nil  uu^ 


Subtract  6 
trom  LSD 


CY  =  0 


MSD  >  9 : 


■■'■lOliA 


Subtract  6 
from  MSD 


ilMMM8fl|r«^MMif^MMatts^tofind  the  square 

'^dM^ilWMittr.  the  Newton-Raphson  method 
<%i|infiHK«Mil«Mitiieof'ftsfastcom^  In 
"^fiMMM^n^^eatot  a  numlierl  is  oMained 
fr«m  the  appfoxffmte  solutiawof '     '       ' ' 

f(Y)  =     -  N  =  0 

e}f[anded  about    using  first 
ision  as: 


The  function  Wf  can 

tM^^«£iltiUl^L  


Equation  1:  f(Y)  =  f(Y,)  +  (Y-Yjf {Yo)  +  (Y-Yjr (YJ/2I  +  .... 

If  X  is  a  root  of  f(Y),  then  f(X)  =  0: 

f(X)  =  f(Y„)  +  (X  -  Y„)  r  (Y,)  +  (X  -  Y„)  T  (Y^)  /  2  !  +  ...  =  0 

If  YO  is  an  approximate  root  of  f(Y),  9m  hi#ief'feler 
temts  are  negligible.  Therefore: 

E^nmarz:  frrj+p<:-Yjrr(Yo]| 

i.e.,       X  =  Y„-f(Y„)/f  (Y„) 
Thus,  X  is  a  better  approximation  for  YO.  From  th  s,  the 

Equations:  X„  =  X„ _ , - f (X„ _ , ) / f '  (xi, . ^JnJ.  1_ 

From  equation  1  and  equation  3  we  get;  |  j 

^(^'4;rX„-'~0.S'*{X^,,  +  NO<„.,}  'j  I 

The  initial  approx^ate  root  of  l^te  Mpgli^  l^i  It)  ^ 
approxinriate  range  of  N  iskiMWn  a^Mlr'MiiWtc  il 
nunri^^^tter^sns  may  bscut  down  ^siaitttii^  i  a 
1  heKmt  approximate  root  than  N/2.  ' 

This  program,  as  listed  in  Appendix  K,  computes  the 
square  root  of  a  16-bit  number.  This  routine  uses  double 
precision  math  routines  (division  and  addition)  as  da- 

I  scribed  in  the  previous  pages  of  this  application  note. 

I  The  divide  routiiiiesare  integrated  into  the  source-^t^. 
For  fixed  point  dvide  routines,  see  Appendices  E  -  9-1 
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PJU3E  1 


0009 
0010 
0012 
0013 
0014 


.  ************************* 

I  8x8  Software  Multiplier 

{  Code  Efficient  :  LooEied  Cods  )  ' 
******************************************************************* 

The  16  bit  result  Is  stored  in  2  bytes 

Before  calling  the  subroutine  "  mpy        the  multiplier  should 
be  loaded  in  location  *  mulplr  *,  and  the  multiplicand  in 
*  mulcnd  *  .  The  16  bit  result  is'-^^ored  in' loGations 
ajayte  &  L_byte.  " 


<-<Jt> 


90<- 


Performance 


Program  Memory 
#  of  cycles 
Scratch  RAM' 


15  locations 

71 

0  locations 


This  routine  is  optimized  for  code  efficiency  (  looped  code  ) 
For  time  efficiency  code  refer  to  *il«ilt3x3F.asm'  <  straight  line  code 
**********************************  *«**«,jt**  *************  ************** 


LIST 
mulcnd  egu 
mulplr  equ 
H_byte  equ 

count  equ 


P=16C54 

09  ;   8  bit  multiplicand 

10  ;   8  bit  multiplier 

12  ;  High  byte  of  the  16  bit  result 
13 • '  hatr  kybk  of  the  16  bit  result 

14  ;  loojpsei^%ee«  ' 


include 


.h- 


.  ************************** 


PIC16C5X  Header  <■•****************»*»**** 


OIPP 

PIC54 

equ 

IFFS  ; 

Define  Reset  Vectors 

i-  ■  : .  rowcf  51' 

ei|ft"  . 

03FF 

picss 

equ 

-3PF81  "1 

07PP 

PIC57 

equ 

7Fra 

0001 

RTCC 

equ 

Ih 

0002 

PC 

equ 

2h 

0003 

STATUS 

equ 

3h 

F3  Reg  is  STAT^  Reg. 

0004 

FSR 

equ 

4h 

0005 

Portjl 

equ 

5h 

0006 

PortJ 

equ 

6h 

1/0  Port  Assignments 

0007 

Port_C 

equ 

7h 

.  **********************************************************************«**:;  ^ 

STATDS  REO.  Bits 

0000 

CARRY 

equ 

Oh 

Carry  Bit  is  Bit.O  of  F3 

0000 

C 

equ 

Oh 

0001 

DCARRY 

equ 

Ih 

0001 

DC 

equ 

Ih 

0002 

ZJait 

equ 

2h 

Bit  2  of  F3  is  Zero  Bit 

0002 

Z 

equ 

2h 

0003 

P_POIM 

equ 

3h 

0003 

FD 

equ 

3h 

0004 

T_OUT 

equ 

4h 

0004 

TO 

equ 

4h 

0005 

PAO 

equ 

5h 

0006 

PAl 

equ 

6h 

0007 

PA2 

equ 

7h 

Fli016(^}^  /  16CXX  Math  Utility  Routines 


0001 


Ih 


0000 
0007 


equ 
equ 


Oh 
7h 


0001 
0001 
0000 
0000 


FALSE 

NO 


equ 

- 

equ 

equ 


Ih 
tbr 

Oh 

Oh 


****************************  *********  ******************************** 


***************************** 


Begin  HultlplMr  Routine 


0000  aO'72: 

0001  00^3 

clrf 

L_}vte 

0002  0C08 

movlw 

8 

0003  0034 

movwf 

count 

0004  0209 

movf 

mulcnd.w 

0005  0403 

bcf 

STATUS ,  CARRY 

;  Clear  the  carry  bit  in  the  status  Reg. 

0006  0330 

loop 

rrf 

mulplr 

0A97  0693 

httao 

STATDS,  CARRY 

mm  mn 

..'      If  (■■' 

:  ■-  ni  i  J  ■ . 

OOOf  4|f#3 

rrf 

OOOA  0333   

rrf 

Ii_b)rte)8ane  - 

OOOB  02F4 

decfsz 

count 

OOOC  0&0€ 

goto 

loop 

OOOD  0800 

retlw 

( 1  ■. 

.***** 

************************ 

*************************************** 

Test  Program 

. ************* 

******************************************************** 

OOOE  OCFF 

main 

movlw 

OFF 

GOOF  0030 

movwf 

mulplr 

;  multiplier  (in  mulplr)   =  OFF 

0010  oeFF 

IBOWlW 

OFF 

X  ml^lpllcanddi.  Reg  }      =  OFF 

0012  0900 

call 

mpy_S 

;  The  result  OFF'OFF  =  FEOl  is  in  locatlctis 

;  HJwte  &  LJjyte 

0013  0A13 

self 

goto 

self 

■fi'-  '."         ■  ' 

org 

OlFF 

OlFF  OAOE 

goto 

Errors  s  0 
Warnings • i  -      0  ■ 


mm 
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*ii*****1iii************-k*  *************************** 

8x8  Software  Multiplier 
(  Fast  Versicn  :  Straight  Line  Code  ) 
******************************************************************* 

The  16  bit  result  is  stored  in  2  liytes 

Before  calling  the  subroutine  "  mpy        the  multipljeesif:  should 
be  loaded  in  location  '  mulplr  *,  and  the  inultipli<?«Bad  in 
"  mulcnd  "  .  The  16  bit  result  is  stored  in  locatic^^ 
H_byte  &  L_byte.  -  •  : 


PerfozBumce  : 

Program  Memory  :  35  locations 

#  of  cycles  :  37 

Scratch  RAM  :  0  locations 


This  routine  is  optimized  for  speed  efficiency  (  straight  line  code  ) 
For  code  effici«ic^,  r«£«r  to  ^nultSa^S.aan'  (.  loqpci^'^code  ) 

**********************************  *,i^^r**#**#^**:.«i******************* 


; 

LIST 

F>16C54 

0009 

mulcnd 

equ 

09 

;   8  bit  multiplicand 

0010 

mulplr 

equ 

10 

;   8  bit  multiplier 

0012 

H_l:yte 

egu 

12 

;  High  byte  of  the  16  bit  result 

0013 

LJvte 

equ 

13 

;  Lew  byte  of  the  16  bit  result 

1 

I  .-.     „  ■  : 

include  "pioreg.h'  _  • 

J**************************  PIC16C5X  Header  ************************* 


OlFF 

PIC54 

equ 

IFFH 

;  Define  Reset  Vectors 

OlFF 

PICS5 

equ 

IFFH 

03W 

PICSS 

equ 

3FFH 

OTTO 

PIC57 

equ 

7PFH 

0001 

RTCC 

equ 

Ih 

0002 

PC 

equ 

2h 

0003 

STATUS 

equ 

3h 

;  F3  Reg  ta  STATOS  Reg. 

0004 

FSR 

equ 

4h 

0005 

Port^ 

equ 

5h 

0006 

Por6_3 

equ 

6h 

;  I/O  Port  Aasigments 

0007 

Port_C 

equ 

7h 

ft 


*****************************  ^1k#,%**iA^^  «.******«******************* 


;   STATUS  REG.  Bits 


0000 

CARRY 

equ 

Oh 

;  Carry  Bit  is  Bit.O  of  F3 

0000 

C 

equ 

Oh 

-  , ;  1.             '  ■  - 

0001 

DCARRY 

equ 

Ih 

0001 

DC 

equ 

Ih 

.  s     '  -J  i 

0002 

Z_bit 

equ 

2h 

;  Bit  2^  of  F3  is  Zero  Bits 

0002 

Z 

equ 

2h 

0003 

equ 

3h 

0003 

PD 

equ 

3h 

0004 

T_0OT 

equ 

41i 

0004 

TO 

equ 

4h 

0005 

SM 

equ 

5h 

0006 

PAl 

equ 

6h 

0007 

PA2 

equ 

7h 

0001 

Same 

equ 

Ih 

I.E.: 


giiiiiiiiwiiipiipi 
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0000 

LSB 

equ 

Oh 

0007 

MSB 

equ 

7h 

0001 

TRUE 

equ 

Ih 

0001 

YES 

equ 

Ih 

0000 

FALSE 

equ 

Oh 

0000 

NO 

equ 

Oh 

.  ****it*»******i^t^iei^*^i^it**iu»rJRiNt»  ifftiaB*********************** ************** 


»***      Define  a  macro  for  adding  &  right  shifting 


mult       MACRO  bit 

IMC  -  -  >  "  'iU«jt«v'9BM 
rrf  L_)yte,Saine 

ENDM 


Begin  macro 


End  of  macro 


0000  0072 

0001  0B73 

0002  0209 

0003  04fff" 

0004  0610 

0005  01F2 

0006  0332 

0007  0333 


0008  0630 

0009  01F2 
OOOA  0332 

OOOc  10650 

GOOD  01P2 
OOOE  0332 
OOOF  0333 


Bipy_F 


mult 


*  *  *  * 
clrf 
olrf 
novf 

bef"  ■ 

0 

btfso 
addwf 
rrf 
rrf 

■  r  •• 
btfsc 
addwf 
rrf 
rrf 

2  «- 

btfsc 

addwf 

rrf 

rrf 


t*****************  Begin  Multiplier  Routine 

H_byte  ' 
L_byte 

mulcsnd.w  i  mswm  tihfi  mulfclplloaiid  to  W  reg. 

■ ''Smfm-i^MSRt  '»^)c<>ti3Mf£^^t«K«a^«y  late-in  'the  status  Reg. 

■ :  -.    ■    .-.  ■  ;  (Or 

mulplr,  0  * 
H_by  te ,  Same 

H_byte,Same  M'vol-"        •.t  '  .1 

L_byte,Same      8  :  ff<:  ■■  ^  ."^j- 


..'.T.     )  it.     V  1 


->r!  t-/- 
mulplr, 1 
H_byte, Same 
H_byte,Same 
L_byte,Same 


mulplr. 2 

H_by te , Same 
H_by  te ,  Same 
L_byte,Same 


'  iH 


wm  otS7o 

sou  0iF2 

0012  0332 

0013  0333 


3 

addMf 

rrf 

rrf 


B:_byte,  Sane 
H_byte,Same 
L_byte,Same 


0014  0690 

0015  01F2 

0016  0332 

0017  0333 

0018  06B0 

0019  01F2 
OOIA  0332 
OQIB  0333 


malt 


mult 


4 

btfsc 

addwf 

rrf 

rrf 

5 

btfsc 
addwf 
rrf 


mulplr, 4 

H_):yte,Saiiie 
Ii_b/te,SiuiiiS 

mulplr,  5 
H_by te , Same 
H_byte, Same 
XJbyb«,Sane 


mult 


OOlC  06D0 
OOID  01P2 
OOIE  0332 
OOIF  0333 


6 

btfsc 

addwf 

rrf 

rrf 


mulplr, 6 

H_byte,  Same 
H_byte,  Same 
L_byte,Saiae 


da 

d9 
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nulb 


0020  oepo 

0021  01F2 

0022  0332 

0023  0333 


7 

btfsc 
addwf 
rrf 
rr£ 


■ ; .  i<j: ' 

mulplr,7 
H_byte,  Same 
H_byte,  Same 
L_byte,  Ssiae 


0024  0800 


ssefelw 


0025  OCFF 

0026  0030 

0028  0029 

0029  0900 


002&  0A2A 


**************************************** 

Test  Program 
**************************************** 


************************** 


***************** 


'-main 


movlw 
movwf 
movlw 
movwf 

call 


OFF 

mulplr 
rnulcQd 


multiplier  (in  mulplr)  =  OFF 

multiplicand(in  nnlond  )  =  OP? 

The  result  OFF'OFF  =  FEOl  is  in  locations 
H_byte  £  IiJsyte 


OIPP  0A25 


org 
goto 


OlFF 


Errors  :  0 
Warnings  :  0 
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APPENDIX  C:  DOUBLE  PRECISION  MULTIPLICATKm  UOTING  CtOOPED) 
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7 

.  ****************** *******************4tr«******#******«***** 

;  Do<d3le  Precision  Hultipllcatlon 

;  (  Optind.z«d  for  Code  Size  :  iMSfwd  Code  ) 

,*******************************************************************. 

Multiplication  :  ACCb(16  bits)   *  ACCa(16  bits)   ->  ACCb.ACCc  (  32  bits  ) 

(a)  Load  the  1st  operand  in  location  ACCaLO  &  ACCaHI   (  16  bits  ) 

(b)  Load  the  2nd  operand  in  location  JkCCbLO  &  ACCbHI  (  16  bits  ) 

(c)  CALL  D_mpy 

(d)  Xfae  32  bit  xesalt  is  in  location  (  ACCMn.ACCbLO.ACCcHI.AeCCLO  } 

;      Performance  : 

.'_,—[,         '.        .*'.  1  Program  Memory    i  033 

Cloclc  Cycles        :  333 


;  Note  :  The  above  timing  is  the  worst  case  timing,  \^en  the 
;  register  ACCb  =  FWWF.  'Baa  ^eod  nay  he  iiqproved  if 

;  the  register  ACCb  OQEdB9.isiB  a  nwmber  (  out  of  the  two 

;  numbers  )  with  less  nafliber  of  Is. 

;  The  performance  specs  are  for  unsigned  arithmetic  (  i.e. 

;  with  "SIGNED  equ     FALSE  ' )  . 


The  performance  specs  are  for  Unsigned  arithmetic  {  i.e, 
with  'SZaHBD  equ    FALSE  >). 


.  *******************************************************************. 


LIST 

P=16CS4 

0010 

ACCaLO 

equ 

10 

0011 

ACCaHI 

equ 

11 

0012 

ACCbLO 

equ 

12 

0013 

AGCbHI 

equ 

13 

0014 

equ 

14 

0015 

equ 

15 

0016 

ACCdLO 

equ 

16 

0017 

ACCdHI 

equ 

17 

0018 

equ 

18 

0019 

sign 

equ 

19 

OlFF 
OlFF 
03PF 
07PF 


include  *picreg.h* 
i  ************************** 


PIC54 
PIC55 
PIC56 

PICS? 


equ 
equ 
equ 
equ 


IFFH 
IFPH 
3FFH 
7FFH 


PICISCSX  Header  ******* 
Define  Reset  Vectors 


**************** 


0001 
0002 
0003 
0004 


RTCC 
PC 


equ 
equ 


STATUS  equ 


FSR 


equ 


Ih 
2h 
3h 
4h 


F3  Reg  is  STATUS  Beg. 


00  OS 
0006 
0007 


0000 
0000 

0002 
0002 


Port_A  equ 
Port_B  equ 
Port_C  equ 


5h 
6h 
7h 


I/O  Port  Assignments 


************************************************************************* 


CARRY  equ 

C  equ 

DCARRY  equ 

DC  equ 

ZJsit  equ 

Z  equ 


Oh 
Oh 
lb. 
th 
2h 
2h 


STATDS  REG.  Bits 

Carry  Bit  is  Bit.O  of  F3 


Bit  2  of  F3  is  Zero  Bit 
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0003 

3h 

0003 

PD 

3h 

0004 

T  OUT 

4h 

0004 

TO 

eiju 

4h 

0005 

PAO 

equ 

5h 

0006 

PAl 

6h 

0007 

PA2 

egu 

7h 

0001 

; 

Same 

equ 

111 

0000 

l-SB 

equ 

Oh 

0007 

MSB 

equ 

7h 

0001 

TRUE 

equ 

Ih 

0001 

YES 

equ 

Ih 

0000 

FALSE 

equ 

Oh 

0000 

NO 

equ 

Oh 

0000  0210 

0001  01F2 

0002  0603 

0003  02B3 

0004  0211 

0005  01F3 

0006  0800 


org  0 

. ******************************************************************* 

SIGNED    equ         TRUE  ;  Set  This  To.  'TKUB'  if  the  routin«»M?(ia 

for  Hliltiplication  £  Division  B^dtC ' 
to  be  assembled  as  Signed  Integer 
Routines.  If  ^FALSE'  the  above  two 
routines  (  D_inpy  &  D_div  )  use 
unsigned  arithmetic. 
****************************************************************** 

Double  Precision  Subtraction  (  ACCb  •  ACCa  ->  ACCb  ) 


L_add     movf  ACCaLO.w 

addwf  ACCbLO 

btfsc  STATUS,  CARRY 

inof  ACCbHl 

movf  ACCaHI.w 

addMf  ACCbEI  .-add  ms^  f-C"  i: 

retlir  0  .<  I    '  - 

******************************************«************************^ 

Double  Precision  ifuleiply  (  16x16  ~>  32  ) 
(  ACCb*ACCa  ->  ACCb.ACCc  )  :  32  bit  output  with  high  word 
in  ACCb  (  ACCbBI,ACCa>LO  )  and  low  word  in  ACCc  (  ACCcHI.ACCcLO  ) . 


f  Additi^  (  ACCb  +  ACCa  ->  ACCb  ) 
;add  lab 

>  add': '  ia  .carrjf ' 


DjB^S 


.•results  la  3liCCb(16  msb's)  and  ACec(16 


0007  0930 


IF  sicaiED 
CALL  s_si<aj 

ENDIF 


0008  0921 

0009  0337 
OOOA,  0336 
OOOB  0603 
OOOC  0900 
OOOD  0333 
OOOE  0332 
OOOF  0335 

0010  0334 

0011  02F8 

0012  0A09 


mloop 


call 

rrf 

rrf 

btfsc 

call 

rrf 

rrf 

rrf 

rrf 


setup 

ACCdHl 

ACCdLO 

STATUS,  CARRY 

D_add 

ACCbHI 

ACCbLO 

ACCcHI 

ACCcLO 


decfsz  ten^ 
goto  mloop 


;  rotate  d  ris^t 
;need  to  add? 


;loop  until  all  bits  checked 
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0013 

07F9 

btfss 

sign, MSB 

0014 

0800 

retlw 

0 

0015 

0274 

comf 

ACCcLO 

;  negate  ACCa  (  -ACCa  ->  ACCa  ) 

0016 

02B4 

incf 

ACCcLO 

A'' 

0017 

0643 

btfsc 

STATUS,  Z_bit 

1 

'009^ 

ACCcHI 

0019 

027S 

comf 

ACCCHI 

OOIA 

0643 

btfsc 

STATUS,  ZJsit 

OOIB 

0272 

ti&^  B  COTttf 

OOlC 

02B2 

incf 

ACCbLO 

OOID 

0643 

btfsc 

b  1  Al  Ub  ,  £_PXt 

OOIE 

00F3 

decf 

ACCbHl 

1. 

OOIF 

0273 

ccsnf 

ACCbHI 

0020 

0800 

retlw 

0 

ELSE 

retlw 

0 

ENDIF 

; 

. ************** 

************************************** 

0021 

OCIO 

'• 

■ "    setup  movlw 

1  K 

f   fojT  16  shifts 

0023 

0038.  nit.  3  •- 

■  1  i  BlOVWf 

tanp 

0023 

0213'  'Br. 

■    .»     .  KlOVf 

;snQve  ACCb  to  ACCd 

0024 

0037     i-,.t  1.- 

a-ji^v  K  '  laavwf' 

ACCdHI 

0025 

0212      '  iv- 

V*   f.11.7      ;    ■  fiovf 

0026 

0036 

■  ib_  movwf 

ACCdLO 

0027 

0073 

clrf 

ACCbHI 

0028 

0072 

clrf 

ACCbLO 

0029 

0800 

retlw 

0 

.                   ***********************************************  *  it************* 

002A 

0270 

Beg_/i  cCTif 

ACCaLO 

;  negate  ACCa  (  -ACCa  ->  ACCa  ) 

002B 

02B0 

incf 

ACCaLO 

002C 

0643 

btfsc 

STATUS,  Z_bit 

oea> 

om 

elect 

ACCaHI 

mm 

0271 

comf 

ACCaHI 

002F 

0800 

retlw 

0 

****************** 


*************************** 


Assenble  this  section  only  if  Signed- Jiridnetilc  Needed 
IP 


0030  0211 

0031  0193 

0032  0039 

0033  07F3 

0034  0A3A 

003$  9272 
0  0»6  02B2 
0«37  0««3 
0D38  00F3 
0039  0273 

003A  07F1 
003B  0800 
0O3C  0A2A 


movf 

xorwf 

movwf 

btfss 

goto 

CGsnf 

incf 

btfsc 

deof 

comf 

btfss 
retlw 
goto 


ACCaHI,  M 
ACCbHI,  W 

sign 

ACCbHI,  MSB 
chek_J^ 

ACCbLO 

smwjs,  ZJbit 

ACCbHI 
Acetyl 

ACCaHI,  USB 
0 

neg^ 


If  set  go  It  negate  ACCb 
negate  ACC& 

it  HfSB  set  go  &  negate  ACCa 


•S-102 


eiiPf  MiMUp  inc. 


003D  OCOl 
003E  0031 
003F  OCFF 

0040  0030. 

0041  0C7F 

0042  0033 

0043  OCFF 

0044  0032, 

0045  0907 

0046  0A46 

OIPF  0A3D 


***************** ***************4r*«*** ********************* ******** 

Test  Program 

********************************************* ********************i* 
.  Load  c^istant  valuer  to  ACCa,^  ACCb  for  testing 


movlw 

1 

movwf 

ACCaHI 

movlw 

OFF 

;  loads 

ACCa  =  OlFF 

movlw 

07F 

movwf 

ACCbHI 

movlw 

OFF 

;  loads 

ACCb  =  7FFF 

BlOVWf 

AI^CbLO 

call 

D_jlipyS 

;  Here 

(ACCb.ACCc)  = 

goto 

self 

y  J. 

org 

FICS4 

goto 

main 

; **************************************************************** 


Errors 
Waniings 


0 

0  - 


9vm  wiiiuEnipiTBaiwbiity  Inc. 
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APPENDIX  D: 

isskSK  BO  .  $4, 


DOUBLE  PRECISION  MULTIPLICATION  LISTINGS  (FAST) 


PAGE  1 

***.*******ipt**********************  ********************************** 
Double  Precision  Hultiplication 

(  Optimized  for  SpeBa'';^'^rai^t  tine  Code  ) 


**-#*************.********«**** 


*****it*''jf^«'jf****irA^Jclt'*******  ************  • 


Multiplication  i  ACCb(16  bits)  *  ACCadS^bits)  ->  ACCb,ACCc  (  32  bits  ) 

(a)  Load  the  1st  c^erand  in  l.Qi^t,£oa  ^^Ml^  $  ACCaHI  (  16  bits  ) 

(b)  Load  the  2nd  os»erand  in  loc^tios  &  ACCbHI  (  16  bits  ) 

(c)  CALL  D_npy  ,  ,  ^.  . 

(d)  The  32  bit  result  is  in  location  (  ACfcbHI,ACCbLO,ACCcHI,ACCoLO  ) 


Performance 

Program  Memory 
Clock  Cycles 


240 
233 


Note  :  The  above  timing  is  the  worst  case  timing,  when  the 
register  ACCb  =  FFFF.  The  speed  may  be  improved  if 
,  ,  .     .  .  the  register  ACCb  contains  a  number  (  out  of  the  two 

nundsers  )  with  less  inaiber  of  Is. 

■The  performance  specs  are  for  Unsigned  arithmetic  (  i.e. 
with  "SIONED  equ     FALSE  *)  . 

.*.******************************************************************; 


LIST 

p=16c54 

0010 

ACCaLO 

equ 

10 

0011 

Mxmx 

11 

0012 

ACCbLO 

equ 

12 

0O13 

ACCbHI 

equ 

13 

0014 

ACCcLO 

equ 

14 

OOlS 

ACCcHI 

equ 

15 

0016 

ACCdLO 

equ 

16 

0017 

ACCdHI 

equ 

17 

0018 

tentp 

equ 

18 

001? 

sign 

equ 

19 

include  "mpreg.h" 

**  *  ** 

****              PIC16C5X  Header  *********************** 

OIPF 

PIC54 

equ 

IFPH 

;  Define  Reset  Vectors 

OlfF 

P1C55 

equ 

IFFH 

03PF 

3fFH 

07FF 

P1C57 

equ 

WSS 

0001 

RTCC 

equ 

Ih 

0002 

PC 

equ 

2h 

0003 

equ 

3h 

;  F3  Reg  is  STATUS  Reg. 

0004 

FSR 

equ 

4h 

OOOS 

Port_A 

equ 

5h 

0006 

Port_B 

equ 

6h 

;  I/O  Port  Assignramts 

0007 

Port_C 

equ 

7h 

.************************************************************************* 

;   STATUS  REG.  Bits 

OOOO 

CARRY 

equ 

Oh 

;  Carry  Bit  is  Bit.O  of  F3 

OM0 

C 

Oh 

9Mi 

eqo 

Ih 

0001 

DC 

equ 

Ih 

0002 

Z_*>lt 

eqa 

2fa 

t  Bit  2  of  F3  is  Zero  Bit 

0002 

z 

eqa 

2h 

0003 

PJDOWN 

equ 

3h 

5-104 


0003 

PD 

equ 

3h 

0004 

T_OUT 

equ 

4h 

0004 

TO 

4h 

00S5 

P&O 

equ 

5h 

OOOE 

PAl 

equ 

6fa 

0007 

PA2 

equ 

7h 

0001 

Same 

equ 

Ih 

0000 

LSB 

Oh 

0007 

MSB 

equ 

7h 

0001 

TRUE 

equ 

Ih 

0001 

YES 

equ 

Ih 

0000 

FALSE 

equ 

Oh 

0000 

NO 

equ 

Oh 

t«to 

!  to 
!  510 


. ************************************************************************* 


0000 


SIGNED  equ 


org  0 
*********************** 


FALSE 


*********************************** 

Set  This  To  'TRUE'   if  the  routines 
for  Multiplication  &  Division  needs 
to  be  assembled  as  Signed  Integer 
Routines.  If  'FALSE'  the  abera  feHOtfi  CO 
routines  (  Ojxpy  &  D_div  )  use  ~0 
unslgtssd  euritianetic.  <  ' 

********'*******^^*4»;*^*«************4;^*«****#*^*^****************«*  •  t 

multiplication- macro  .  r 


mulMac  MACRO 


LOCAL 

NOJUJD 

rrf 

ACCdRI 

/rotate  d  ri^t 

rrf 

ACCdLO 

btfss 

STATUS ,  CARRY 

;need  to  add? 

goto 

NO_ADD 

;  no  addition  necessary 

movf 

ACCaLCw 

;  Addition  (  ACCb  +  ACCa 

addwf 

ACCbLO 

; add  Isb 

btfsc 

STATUS ,  CARRY 

; add  in  carry 

incf 

ACCbHI 

movf 

ACCaRI.W 

addwf 

ACCbHI 

;  add  msb 

_ADD 

rrf  ACCbHI 

rrf 

ACCbLO 

rrf 

ACCoHI 

rrf 

ACCcLO 

->  ACCb  ) 


**************************************************  ****************  i 

Double  Precision  Multiply  (  16x16  ->  32  ) 
(  ACCb*ACCa  ->  ACCb.ACCc  )    :   32  bit  output  with  high  word 
in  ACCb   (  ACCbHI ,  ACCbLO  )   and  low  word  in  ACCc   (  ACCcHI ,  ACCcLO  ). 


■  resttlta  in  ACCbllS  msb's)  and  ACCc(16  l^fs} 


IF  sicmo 
CALL  s_sia» 

ENDIF 


0000  09E2 


call  setup 


« 1  opt  Mieieehip  Technolow  tae. 
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i  umm.  tiis  aailMac  macro  16  tisies 
; 


NO_M>D 

OOOX  0337 

J 

rrf 

ACCdHI 

; rotated  right. 

0002  0336 

rrf 

ACCdLO 

mmH'  mm 

SfTATDS,  CARRY 

0aOi4'  (DkOS 

goto 

NO_ADD 

1  no  a^iifciou  mme&^ary 

0005  0216 

movf 

ACCaLO.w 

;  AdditileSa  (  «£Ct>  +  AGSa  ->  ACCb 

0006  OIB'2 

addwf 

ACCbLO 

;add  Isb 

0007  0603 

btfsc 

STATUS,  CARRY 

;add  in  car^ 

0008  02B3 

incf 

ACCbHI 

0009  0211 

movf 

ACCaHI.W 

OOOA  01F3 

ACCbHI 

OOOB  0333 

mjim  rrf 

oa33 

rrf 

ACCfctLO 

0OW*(W9"'*'  '■ 

■  '  •  *  ■  rrf  ■ 

• 'ACCeBI * 

OOOB  0334 

rrf 

ACCcLO 

LOCAL 

NO_ADD 

OOOF 

0337           'H  .  ■  »np  f.  , 

rr£ 

ACCdHI 

; rotate  d  right 

0010 

0336         -■■  rU     .  '  ; 

rrf 

ACCdLO 

0011 

0703  : 

btfss 

STATUS,  CARRY 

;need  to  add? 

0012 

0A19 

goto 

NO_ADD 

;  no  addition  necessary 

0013 

0210  ■ 

movf 

ACCaLO,w 

;  Addition  (  ACCb  +  ACCa 

0014 

01F2 

addwf 

ACCbLO 

;add  Isb 

0015 

0603 

b4if.se 

aXATO.CAmY 

;add  in  carry 

0016 

02B3 

incf 

ACCbHI 

0017 

0211 

movf 

ACCaHI,w 

.  .   -f.i      JJ  „ 

0018 

01F3 

addwf 

ACCbHI 

■add  msb 

0019 

0333  NO_ADD 

rrf 

ACCbHI 

OOIA 

0332 

rrf 

ACCbLO 

OOIB 

0335 

rrf 

ACCcHI 

00 IC 

0334 

rsrf 

LOCAL  NO_ADD 


OOID  0337 

rrf 

ACCdHI 

; rotate  d  right 

009»' 

rrf 

0@1F  0703 

btfss 

0020  0A27 

goto 

;  no  aiSaitetW'Aeees^xy 

0021  0210 

movf 

ACCaLO.W 

;  AdiU.tt«a  (  JKCCb  +  ACCa 

0022  01F2 

addwf 

ACCbLO 

;add  Isb 

0023  0603 

btfsc 

STATUS,  CARRY 

.•add  in  carry 

0024  02B3 

incf 

ACCbHI 

0025  0211 

ACCaWSW  •  •  •  . 

0026  01F3 

■'_  ^  -  a^wf 

ACClal  ■•  ■     '  •  ■  • 

;'add  msb 

0027  0333 

ACCbHI 

0028  0332 

;i  rrf 

AceisOiO 

0029  0335 

rrf 

ACCcHI 

e02ll<'S334 

' -jfi  rrf 

mm 
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mulMac 

<-?v 

LOCAL 

St 

002B 

0337 

; 

rrf 

ACCdHI 

.•rotate  d  right 

002C 

0336 

rrf 

ACCdLO 

002D 

0703 

btfss 

STATUS,  CARRY 

;need  to  add? 

002E 

0A35 

goto 

NO_ADD 

;  no  additicai  necessary 

002F 

0210 

movf 

ACCaLO.w 

;  Addition  {  ACCb  +  ACCa 

-> 

ACCb  ) 

0030 

01F2 

addwf 

ACCbLO 

;add  Isb 

0031 

0603 

btfse 

STATOS,  CARRY 

;aM  in  carry 

mt  (I 

Hi' 

0032 

02B3 

incf 

ACCbSI 

0033 

0211 

niowf 

ACCaHI.w 

0OS4 

01F3 

ACCbHX 

;adcl^By^' 

0035 

0333 

NO_ADD  rrf 

ACCbHI 

0036 

0332 

rrf 

ACCbLO- 

.  .       ,  ■ 

0037 

0335 

ACCcHI 

0038 

0334 

rrf 

ACCcLO 

; 

mulMac 

■ 

LOCAL 

KOJDD 

0039 

0337 

; 

rrf 

ACCdHI 

; rotate  d  right 

L 

003A 

0336 

rrf 

ACCdLO 

003B 

0703 

btfss 

STATUS,  CARRY 

;need  to  add? 

003C 

0A43 

goto 

N0_AIM3 

;  no  addition  necessary 

003D 

0210 

movf 

ACCaLO.w 

;  Addition  [  ACCb  +  ACCa 

-> 

ACCb  ) 

003B 

01F2 

ACC^.0 

;add  lab 

e03P 

oeo3 

SntaSB,  CARRY 

;add  in  carry 

0040 

02B3 

incf 

Accfcai 

0041 

0211 

movf 

ACCaHI.W 

0042 

ACCbHI 

f  add  insb 

0043 

0333 

NO_ADD  rrf 

ACCbHI 

0044 

0332 

rrf 

ACCbLO 

004S 

033'5 

rrf 

0046 

0334 

rrf 

ACCoLO 

; 

mulMac 

LOCAL 

NOJUJD 

0047 

0337 

; 

rrf 

ACCdHI 

;  rotate  d  ri^t 

ill') 

0'. 

0048 

0336 

rrf 

ACCdLO 

t^n  ■ 

M' 

0049 

0703 

btfss 

STATUS,  CARRY 

;need  to  add? 

004% 

0A51 

goto 

NO_ADD 

;  no  additi<w  necessaxy 

004B 

0210 

movf 

ACCaLO , w 

;  Addition  (            +  ACCa 

-> 

ACCb  ) 

004C 

01F2 

addwf 

ACCbLO 

; add  1  sb 

004D 

0603 

btfsc 

STATUS ,  CARRY 

;add  in  carry 

004E 

02B3 

incf 

ACCbHI 

004F 

0211 

movf 

ACCaHI.W  ' 

0050 

01F3 

.W\Aii»glT^ 

0051 

0333 

•   NOLjADD  rrf 

ACCbHI 

[>  ;<  ^ 

tf 

0052 

0332 

rrf 

ACCbLO 

...  1 

0053 

0335 

rrf 

ACCcHI 

0054 

0334 

rrf 

ACCcLO 

mulMac 

LOCAL 

IJ0.JU3D 

'.if 

«■> . 

; 

:a 

0055 

0337 

rrf 

ACCdHI 

; rotate  d  right 

*- ' 

0056 

0336 

rrf 

ACCdLO 

0057 

0703 

btfss 

STATUS,  CARRY 

.-need  to  add? 

0058 

0A5F 

goto 

NO_ADD 

;  no  addition  necessary 

0059 

0210 

movf 

ACCaLO.w 

,-  Addition   (  ACCb  +  ACCa 

-> 

ACCb  ) 

005A 

eiv2 

addwf 

ACCbLO 

;add  Isb 

OOSB 

0S03 

btfsc 

STATUS.  CARRY 

;add  in  carry 

OOSC 

02B3 

incf 

ACCbHI 

005D 

0211 

movf 

ACCaHI.W 

OOSB 

01P3 

adxSwf 

ACCbHI 

;  add  insb 

Lit-  '  «!• 


0333 

MOJfflD  rrf 

AGCbHI 

0332 

rrf 

ACCcHX 

0062 

0334 

rrf 

mulMac 

-;  -"A  ■.  •  •  1 

00€3 

0337 

rrf 

0&€4 

0336 

rrf 

00€5 

0703 

btfss 

S^KHJS  t  CARRY 

;need  to  add?* 

00$6 

QA^D 

goto 

NO_ADD 

;  no  additioOiStgweeasary 

0067 

0210 

movf 

ACCaLO , w 

;  Addition  (  HISS^  +  ACCa 

->  ACCb  ) 

0068 

01F2 

addwf 

ACCbLO 

;add  Isb           "i ;  . 

0069 

0603 

btf  sc 

STATUS ,  CARRY 

;add  in  carry  -- 

00  6A 

02  B3 

incf 

ACCbHI 

006B 

0211 

movf 

ACCaHI.W 

006C 

01F3 

addwf 

ACCbHI 

006D 

0333 

II0.JU3D  rrf 

ACCbHI 

006E 

0332 

rrf 

ACCbLO 

006F 

0335 

rrf 

ACCcHl 

0070 

0334 

rrf... 

-  HCQSl^' 

; 

I:       ^      ■  -^u 

r 

a'".'  • 

...  lioeai. 

0071 

0337 

rrf 

ACCdHI 

; rotate  d  right 

0072 

0336 

rrf 

ACCdLO 

0073 

0703 

btfss 

STATUS,  CARRY 

;need  to  add? 

S@to 

;  no  «^  ticM.MReessary 

0075 

0210 

movf 

HCCeiUO.v 

->  ACCb  ) 

0076 

01F2 

addwf 

ACCbLO 

;adcl  lab 

0077 

0603 

btfsc 

STATUS,  CARRY 

•  add^in  carry 

0078 

02B3 

incf 

ACCbHI 

0079 

0211 

movf 

ACCaHI.w 

007A 

01F3 

addwf 

ACCbHI 

;  add  msb 

00^ 

03»3 

m_/aJD  rrf 

ACCbBI 

00?G 

6332 

rrf 

007D 

033S 

rrfeigj 

-.  acceai 

007B 

0334 

rrf 

ACCcLO 

'■ 

mulMac 

LOCAL 

NO_ADD 

007F 

0337 

■ 

rrf 

ACCdHI 

; rotate  d  right 

0080 

0336 

rrf 

ACCdLO 

0081 

0703 

btfss 

STATOS,  CARRY 

;ne<!d  to  add? 

0082 

OAS  9 

goto 

N0_A11D 

;  no  addition,  niecessary 

0083 

0210 

movf 

ACCaLO,  w 

;  Addition  (  necb  +:  ACO« 

->  ACCb  ) 

0084 

01F2 

addwf 

ACCbLO 

;add  Isb           ,  i 

0085 

0603 

btfsc 

STATUS ,  CARRY 

;add  in  carry  -. 

0086 

02B3 

incf 

ACCbHI 

0087 

021X 

movf 

ACCaHI.W 

00&8 

01F3 

addwf 

ACCI^ 

■  ad^  msb  1 

0039 

0333 

NOJiDD  rrf 

ACCbHI 

003A 

0332 

rrf 

ACCbLO 

ooas 

0335 

rrf 

ACCoHI 

oosc 

0334 

rrf 

ACCcLO 

trxuk  ■ 
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mulMac 


LOCAL 

N0JU3D 

008D 

0337 

; 

rrf 

ACCdHI 

.•rotate  d  right 

008E 

0336 

rrf 

ACCdLO 

008F 

0703 

btfss 

STATUS,  CARRY 

;  need  to  add? 

0090 

0A97 

goto 

NO_ADD 

;  no  addition  necessary 

0091 

0210 

movf 

ACCaliO.w 

;  Addition  (  ACCb  +  ACCa 

->  ACCb  ) 

0092 

01F2 

ACGULO 

0093 

0603 

btfsc 

STATUS,  CARRY 

;add  in  carry 

0094 

02B3 

incf 

ACCbHI 

0095 

0211 

movf 

ACCaHI,w 

0096 

01F3 

0097 

0333 

NO_ADD  rrf 

ACCl>HI 

0098 

0332 

rrf  ] 

.  JCCbLO 

.  -  -  - 

0099 

0335 

rrf 

ACCCHI 

0O9A  033« 

rrf 

ACCCLO 

; 

mulliac 

LOCAL 

lJO_Aia> 

009B 

0337 

rrf 

ACCdHI 

; rotate  d  right 

,  r 

009C 

0336 

rrf 

ACCdLO 

Oft9  0703 

btfss 

STATUS,  CARRY 

;need  to  add?           -  ' 

0&98 

oms 

goto 

N0JU3D 

■  no  atSdlitioB -necessary 

009F 

0210 

BOVf 

ACCaLO.W 

;  A&iltion  (  ACCb  +  ACCa 

->  ACCb  ) 

OOAO 

01F2 

addunC 

xcetuso 

OOAl 

0603 

btfsc 

STATUS ,  CARRY 

•  add  in  carry 

0OA2 

02B3 

incf 

ACCbHI 

00  A3 

0211 

movf 

ACCaHI,w 

00A4 

01P3 

OddHf 

;  aid&  nsb 

uino 

00A5 

0333 

NO_AI}D  rrf 

,,.  .jj 

00&S 

0332 

rrf 

OOA? 

0335 

rrf 

ACCeai 

OOAS 

0334 

rrf 

ACCcLO 

"  -■ :  0 

znulHac 

LOCAL 

HOJkUD 

zf.za 

5CE0 

Q0A9 

0337 

rrf 

ACCdHI 

;rotafe«:d  ri^t 

!  ; 

OOSA 

0336 

rrf 

ACCdLO 

OOAB 

0703 

btfss 

STATUS,  CARRY 

;need  to  add? 

00  AC 

0AB3 

goto 

NO_ADD 

;  no  addition  necessary 

00  AD 

0210 

movf 

ACCaLO , w 

;   Addition   (  ACCb  +  ACCa 

->  ACCb  ) 

OOAE 

01F2 

addwf 

ACCbLO 

;add  Isb 

OOAF 

0603 

btfsc 

STATUS ,  CARRY 

; add  in  carry 

OOBO 

02B3 

incf 

ACCbHI 

OOBl 

0211 

movf 

ACCaHI,W 

... 

00B2 

01F3 

addwf 

ACCbHI 

■  l  add'  asb  • 

O0B3 

0333 

IR>_JUX)  rrf 

ACCbHI 

00B4 

0332 

rrf 

ACCbLO 

00B5 

0335 

rrf 

ACCcHI 

O0B6 

0334 

rrf 

ACCcLO 

; 

mulHac 

LOCAL 

NO^D 

00B7 

0337 

; 

rrf 

ACCdHI 

(•rotate  d  right 

00B8 

0336 

rrf 

ACCdLO 

00B9 

0703 

btfss 

STATUS,  CARRY 

;need  to  add? 

0^  OACl 

goto 

;no  addition  neceeifitEy 

OOBB 

0210 

movf 

ACCai<o,w 

/Addition  (  ACCb  +  ACCa 

->  ACCb  ) 

OOBC 

01F2 

addwf 

ACCbLO 

;add  Isb 

OOBD 

0603 

btfsc 

STATUS,  CARRY 

;add  in  carry 

OOBE 

02B3 

incf 

ACCbHI 

OOBF 

0211 

movf 

ACCaHI,w 

OOCO 

01F3 

addwf 

ACCbHI 

;add  msb 
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OOCl 

0333 

SOJUSD 

rrf 

ACCbHI 

00C2 

0332 

rrf 

ACCbLO 

00C3 

0335 

rrf 

ACCcHI 

00C4 

0334 

rrf-^ 

"■  i 

> 

tn^r^finaiit  -  > 

-■-  ^A  . 

00C5 

0337 

rrf 

ACCdHl  '■ 

rotate  d  riglf^*^ 

00C6 

0336 

rrf 

00C7 

0703 

btfss 

00C8 

OACF 

goto 

NO  ADD 

no  addition  nscessar^ 

00C9 

021 0 

movf 

AQcicion  I  iK>U0  +  A^ca 

01F2 

addwf 

ACCbLO 

add  Isb 

OOCB 

0603 

btfsc 

SV&^,  GASSY 

add  in  earry 

OOCC 

02B3 

incf 

ACCbHI 

00  CD 

021X 

movf 

ACCaHI.w 

OOCE 

01P3 

addwf 

ACCbHI                  ;add  nisb 

0  OCF 

0333 

NOJIDD 

rrf 

ACCbHI 

m: 

OODO 

0332 

rrf 

ACCbLO 

OODl 

0335 

rrf 

ACCcHI 

00O2 

0334 

rrf  - 

JI-.-_J,1 

BUlMac 

LOCAL 

NOJUJD 

00D3 

0337 

rrf 

ACCdHI 

rotate  d  right 

00D4 

rrf 

ACCdLO 

00D5 

0703 

btfss 

STATCrS,  CARRY 

neadcto  add? 

00D6 

OAOD 

goto 

/lao  ^Sfcdditiozi  necessary 

O0D7 

0210 

sovf 

i^m^^ima  (  A£ieb  +  Acca 

00D8 

addwf 

ACCbliO 

0603 

btfsc 

STATUS,  CARRY 

add  1»  carry  I 

incf 

ACCbHI 

■1 J 

OODB 

0211 

movf 

ACCaHI.w 

ODBC 

01F3 

addwf 

ACCbHI                 ;add  msb 

OOttD 

0333 

NO_ADD 

rrf 

OODB 

0332 

rrf 

ACCbLO 

amw 

0335 

rrf 

ACCcHI 

OO'BO 

0334 

rrf, 

ACCcIiO'  - 

IF 

SIGNED 

btfss 

tkmnVBSSi,  ■ 

retlw 

*.  cL  Lt  .i-  ■O- 

comf 

AeCeSiO  ; 

negate  ACCa  (  -ACOa  -> 

incf 

AGCe^O- 

btfsc 

STATUS,ZJ)it 

decf 

ACCcHI 

comf 

ACCcHI 

^£#o 

eeanf 

ACCbLO  , 

incf 

ACCbLO 

btfsc 

STATUS,  Z_bit 

decf 

ACCbHI 

comf 

ACCbHI 

retlw 

0 

980:0 

retl*i 

%:  -.SB;'          .   -bV.-  ■  ~''i-y>: 

piotec^x  /  tecxxii^h  utility  Rdanai^ 


. *************** ****«^**^*** ***************************** *********** 


00E2 

ocio 

setup  movlw 

.16  - 

;  £<ir  16  shifts 

00E3 

0038 

inovwf 

00E4 

0213 

movf 

ACCbHI.w 

imove  ACQj  t»i  AOed 

00E5 

0037 

inovwf 

ACCdHI 

00E6 

0212 

movf 

ACCbLO,w 

;-                                                •  VT'l  ( 

00E7 

0036 

movwf 

ACCdLO 

00B8 

0073 

clrf 

ACCbHI 

00E9 

0072 

clrf 

ACCajLO 

00B& 

0800 

retlw 
.************** 

0 

*************** 

************************************** 

OOEB 

0270 

neg_A  comf 

ACCaLO 

;  negate  ACCa  (  -ACCa  ->  ACCa  ) 

OOBC 

0290 

Inef 

ACCaI.0 

OOBD 

0643 

btfsc 

STATUS,  Z_bit 

ooas 

OOFl 

de^ 

ACCaSI 

0271 

coinf  ■ 

ACCaHI 

OOFO 

0800 

retlw 

0 

**************************************** 


************************ 


Assemble  this  section  only  if  Signed  Arithmetic  Needed 
IF  SIGNED 


S_SICTI  movf 
xorwf 

movwf 
btfss 
goto 

coraf 

incf 

btfsG 

decf 

ccnif 

chekji.  btfss 
retlw 
goto 

ENDIF 


ACCaHI,  W 
ACCbHI.w 
sign 

ACCbHI ,  MSB 
chek_A 

ACCbLO 

ACCbliO 

STATBS,Z_bit 

ACCbHI 

ACCbHI 

ACCaHI, MSB 
0 

neg^ 


if  MSB  set  90  &  negate  ACCb 
negate  ACCb 

if  MSB  set  go  &  negate  ACCa 


MMdWPftSCXX^IIatll  Utility  Rdiitf^s 


OOFX  0000 


Errors 
Warnings 


******************************************************************* 

******************************************************************* 
Load  constant  values  to  ACCa  &  ACCb  for  testing 


OOFl  OCOl 

00F2  0031 

00F3  OCFF 

00F4  0030 


loadAB  movlw 
movwf 
movlw 
movwf 


ACCaHI 
OFF 

ACCaLO 


loads  ACCa  =  OlFF 


00P5  0C7P 

00F6  0033 
00F7  OCFF 
OOFS  0032 
00f9  OSOO 


movlw 
movwf 
movlw 
movwf 
retlw 


07F 

ACCbHI 
OFF 

ACCbLO 
0 


loads  ACCb  =  7FFP 


OOFB  09F1 
OOFC  0900 


call 
call 


loadAB 


ri^lt  of  nliltaplying  ACCb*ACCa- 
WatB  (ACCb.ACCc)  =  OOFF  7B01 


OOFD  OATO 


goto 


self 


OlFF  OAFA 


org 
goto 


PIC54 
main 


. **************************************************************** 
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PAGE  1 


*************************************************************** 
Double  Precision  Addition  &  Subtraction 


****************************************************, 

Addition  ;     ACCb(16  bits)  +  ACCa(16  bits)   ->  ACCb{16  bits) 

(a)  Load  the  1st  operand  in  location  ACCaLO  i  ACCaHI   (  16  bits  ) 

(b)  Load  the  2nd  operand  in  location  ACCbLO  &  ACCbHI  (  16  bits  ) 

(c)  CALL  D_add 

<d)  result  is  la  location  ACCbLO  &  liCeiMI  <  16  bits  ) 


Performance 


************* 


Program  Memory    s  07 
clock  Cycles        :  08 
******************************* 


**********************. 


SubtractlcQ  :  A^(16  bits)  -  ACC»(],g  Mtsj  ->  ACCb(16  bits) 

(a)  Load  the  1st  operand  in  location  ACCaLO  Is  ACCaHI  (  16  bits 

(b)  Load  the  2nd  operand  in  leiea^l^  ACCfcliO  £  Aga:BI  (  16  bitsg 

(c)  CALL  D_aub  ^  V 

(d)  The  result  is  in  location  ACCbLO  &  ACCHii  (  16  bits  ) 

Performance  : 

Program  Memory    :  14  , 

Clock  Cycles        :  17 
****************************************************************** 

LIST  P=16C54 


) 


0010 

ACCaLO 

equ 

10 

0011 

ACCaHI 

egu 

11 

0012 

ACCbLO 

equ 

12 

0013 

ACCbHI 

equ 

13 

include  *mpreg.h' 

. ************** 

****** 

******              PIC16C5X  Header 

************************* 

OlFF 

PIC54 

equ 

IFFH 

;  Define  Reset  Vectors 

OlFF 

PIC55 

equ 

IFFH 

03FF 

PIC56 

equ 

3FFH 

07FF 

P1C57 

equ 

7FFH 

0001 

RTCC 

egu 

Ih 

0002 

PC 

equ 

2h 

0003 

STATOS 

equ 

3h 

;  F3  Reg  is  STATtT§  Reg. 

0004 

FSR 

equ 

4h 

0005 

Port_A 

equ 

5h 

0006 

PortJ 

equ 

6b 

;  I/O  Port  Assi^ments 

0007 

Port_C 

equ 

7h 

. ************************************** ***********i 

t****** ***************** 

;    STATUS  REG.  Bits 

0000 

CARRY 

equ 

Oh 

;  Carry  Bit  is  Bit.O  of  F3 

0000 

C 

equ 

0001 

DCARRY 

equ 

Ih 

0001 

DC 

equ 

Ih, 

£(!(;.•)  A 

0002 

ZJlit 

equ 

2h 

;  Bit  2  of  F3  is  Zero  Bit 

0002 

Z 

equ 

2h 

0003 

P_DOWN 

equ 

3h 

0003 

PD 

equ 

3h 

0004 

T_OOT 

equ 

4h 

O0O4 

TO 

equ 

4h 

OOOS 

FAO 

equ 

5h 

0006 

PAl 

equ 

6h 

0007 

PA2 

equ 

7h 

5-113 


PK^1l60^^^fiaO)aMliHKUtility^^^R^ 


0000 

LSB 

equ 

Oh 

0007 

equ 

7h 

0001 

TRUE 

equ 

Ih  ' 

0001 

YES 

equ 

Ih  ' 

ooeo 

FAI.SB 

equ 

Ob 

0000 

■  tm 

e^' ' 

.  *******«**«iie*«ft«AJfr*4r************«******** ******************************** 

org 

0 

0000  0908 


0001  0210' 

0002  01F2 

0003  0S63 

0004  02S3 

0005  0211 

0006  01F3 

0007  0800 


*************************** ********** 

Double  Precision  Subtracti<si  (  ACCb  -  ACCa  ->  ACCb  ) 

D_sub      call       neg_A  ;  At  first  negate  ACCa;  Th^  add 

******************************************************************* 
Double  Precision    Addition  (  ACCb  +  ACCa  ->  jiSCb  ) 

i3Lada     movf  ACCaLO.w 

addwf  ACCbLO  ;add  Isb 

'  btfsc  STATas-,  (AteSX       ;  add  in  carry ' 

inof  ACCbKI 

movf  ACCaHI.w 

addwf  ACCbHI  ;add  msb 

retlw  0 


0008  min 

0009  0280 
OOOA  0643 
OOOB  OOFl 
OOOC  0271 
OOOD  OSOO 


OOOS  OCOl 
OOQF  0031 

ono  ^ge 

0011  0030 


neg_A 


comf 
incf 


decf 
comf 
retlw 


ACCaliO 
ACCaLO 


btfsc       STATUS,  Z_bit 


ACCaHI 
ACCaHI 
0 


;  negit*?  i»CCa  (  -ACCa  ->  ACCa  ) 


ft*  *********  ****tt****'*'****«****4t%%4r#%'^^#l^9t4Hft%%^ffrA»lfc%%^*  ******  ******* 

*************************************^**A******j^H»****«*************  '  i 

Load  constant  values  to  ACCa  &  I£i0b  for  CeiKlner 


loadAB    movlw  1 

movwf  ACCaHI 
movlw  VfW 


loads  l^Ca  =  Q3.FF 


0012  0C7F 

0013  0033 

0014  OCFF 

0015  0032 

0016  0800 

0017  0000 

0018  090E 

0019  0901 


movlw  07F 

movwf  ACCbHI 

movlw  OFF 

movwf  ACCbLO 

retlw  0 

nop 


ball 
call 


load^ 
D_add 


loads  *fcCb  =  "WW 


result- 'bf  a^imSSS  ACCbfACCa->ACCb 
Here  A^eb  =  8if^ 


OOIA  090E 
OOIB  0900 


call 
call 


loadAB 
D_sub 


result  of  subtracting  ACCb  -  ACCa->ACCb 
Here  Accb  =  7E00 


OOlC  OAIC 


self 


goto 


self 


OlFP  0A17 


Errors 

Warnings 


org 

goto 
END 

. ************ 


PIC54 

main 

t* ******************* 


************************* 


IBB 
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************************************************************************ 

BCD  To  Binary  Conversion 

This  routine  converts  a  5  digit  BCD  number  to  a  16  bit  binary 
number . 

The  input  5  digit  BCD  numbers  are  asumed  to  be  in  locations 
RO,  Rl  £  R2  with  RO  containing  the  MSD  in  i^a  rig^t  most  nll:fl>le. 

The  16  bit  binary  nusiber  is  output  in  registers  HLbyte  £  lOayte 
(  high  byte  £  low  byte  repectively  ) . 


The  method  used  for  conversion  is  : 

input  number  X  =  abcde  (  the  5  digit  BCD  number  ) 
X  =  abcde  =  lOIlOdOIlOa+bl-fcj+dl+e 


TOW  . 


Ferfoimance  : 

Program  Memory 

Clock  Cycles 


30 

121 


. ****** 

********** 

********************************************* 

LIST 

P=16C54 

0010 

«_byte 

egu 

10 

0011 

LJayte 

equ 

11 

0012 

RO 

equ 

12 

;  SAM  Assignment 

0013 

Rl 

equ 

13 

0014 

R2 

equ 

14 

0015 

H_teinp 

equ 

15 

;   tenporary  register 

'V,  :  3 

ooie 

L_tesi^ 

equ 

16 

;  teBip6rary  register 

r************************* 


OIPF 

PIC54 

equ 

IFFH 

OlFF 

PICS  5 

equ 

IFFH 

3FFH 

OWF 

etja 

7FM 

0001 

) 

RTCC 

equ 

Ih 

0002 

PC 

equ 

2h 

0003 

STATUS 

equ 

3h 

0004 

FSR 

equ 

4h 

0005 

Port_A 

equ 

5h 

0006 

PortJB 

equ 

611 

0007 

Port_C 

equ 

7h 

. ******************** 

0000 

CARRY 

equ 

Oh 

0000 

C 

equ 

Oh 

0001 

DCASRY 

equ 

Ih 

0001 

DC 

equ 

Ih 

0002 

Z_bit 

equ 

2h 

0002 

Z 

equ 

2h 

0003 

P_POIOl 

equ 

3h 

0003 

PD 

equ 

3h 

0004 

T_O0T 

equ 

4h 

0004 

TO 

equ 

'4h 

0005 

PAO 

equ 

5h 

0006 

PAl 

equ 

6h 

PIC1§CSX  Header  *************** 
Define  Reset  Vectors 


F3  Reg  is  STXTDS  Reg. 


********** 


;  I/O  Port  Aaitlgnneats 


STATUS  REG.  Bits 

Carry  Bit  is  Bit.O  of  F3 


Bit  2  <i|  F3  is  Zero  Bit 


ilSiO  A 


****** 
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©M7 

eqvi 

7h 

0001 

; 

Same 

equ 

Ih 

0000 

; 

LSB 

equ 

Oh 

0007 

M 

ami 

TRUE 

equ 

Ih 

YES 

equ 

Ih 

0000 

FALSE 

equ 

Oh 

0000 

NO 

equ 

Oh 

WW'S' 

'08^ 

npylOb 

andlw 

OF 

0001 

OlFl 

addwf 

L  byte 

0002 

0603 

btfsc 

STATUS ,  CARRY 

0003 

02B0 

incf 

H_byte 

0004 

0403 

npylOa 

bcf 

STATUS ,  CARRY 

;  multiply  by  2 

0005 

0351 

rlf 

L_by te ,  w 

0006 

0036 

movwf 

0007 

0350 

rlf 

H  byte ,  w 

;   (H_teinp,L  tenip)  -  2*N 

0008 

0035 

movwf 

H_ten5> 

0009 

0403 

bcf 

STATUS,  CMWY 

;  multiply  by  2 

OOOA 

0371 

rlf 

L_byte 

OOOB 

0370 

rlf 

H  byte 

oooc 

0403 

bcf 

STATUS,  CARRY 

;  multiply  by  2 

OOOD 

0371 

rlf 

'  LJuyte 

OOOE 

0370 

rlf 

H_Jbyte 

OOOF 

0403 

bcf 

STATUS, CARRY 

!  multiply  by  2 

0010 

0371 

rlf 

L_byte 

0011 

0370 

rlf 

H  byte 

0012 

0216 

movf 

L_ten:^ ,  w 

0013 

OlFl 

addwf 

L  toyte 

0014 

0603 

btfsc 

STATUS  CaBBV 

0015 

02B0 

inef 

0016 

0215 

movt 

0017 

OlFO 

addwf 

ELbyte 

0018 

0800 

retlw 

0 

;  («_byfc»,i(J>yte)  =  10*K 

0019 

0070 

1 

drf 

OOIA 

0212 

BO,w 

OOIB 

OEOF 

andlw 

of' 

eolc 

0031 

movwf 

OOID 

0904 

call 

npylOa 

;  result  c  lOa+b 

mm 

0393 

swapf 

Rl,w 

OOlF 

0900 

call 

mpylOb 

;  result  =  10[10a+b] 

0020 

0213 

movf 

Rl,w 

0021 

0900 

call 

;  result  »  10 [10[10a+b] +c] 

0022 

0394 

swapf 

«'i  If 

0023 

0900 

call 

HfxylOb 

;  result^i  10[l0[i0[lQe»+b]+c]+d] 

0024 

«214 

novf  . 

ft2,w 

002S 

OSOF 

andlw' 

0> 

0026 

OlFl 

addwf 

L_byte 

0027 

0603 

btfsc 

STATUS,  CARRY 

0028 

02B0 

incf 

H_byte 

!  result^  10ll^i0[iq^+bj+ol+d] 

0029 

0800 

retlw 

0 

;  BCD  to  binary  eonversi^  done 
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Test  Program 


*************************************  ir********************** 


002A 

0C06 

main 

jmovlw 

06 

002B 

0032 

movwf 

RO 

;   Set  RO  =  06 

002c 

0C55 

inovlw 

55 

002D 

0033 

inovwf 

Rl 

•   Sst  Rl  =  55 

003S 

0C35 

movlw 

35 

0027 

0034 

movwf 

R2 

;  Set  R2  =  35            (  RO,  Rl 

R2  =  6,55,35 

) 

0030 

0919 

call 

BCDtoB 

;  After  conversion  H_Byte  = 

PP  £  lU^ta  = 

0031 

0A31 

self 

goto 

"  self 

org 

IFF 

OIPF 

0A2A 

goto 

main  ' 

Errors  :  0 
Warnings  :  0 
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APPENDIX  G:  BINARY  TO  BCD  LISTING 
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p=16c54,n=0 


**************«********************^*************** 
Binary  To  BCD  Conversioa  Routine 

This  routine  converts  the  8  hit  binary  nuBiber  in  the  H  Register 

to  a  2  digit  BCD  number. 

The  least  significant  digit  is  returned  in  location  LSD  and 
the  most  significant  digit  is  returned  in  location  MSD. 


Performance  i 

Program  Memory 
Clock  Cycles 


81  (werst  case  when  W  =  S3  Hex  ) 
(  i.e  max  Decimal  niiidser  99  ) 


******************************************************************* 


0010 

LSD 

equ 

10 

0011 

MSD 

equ 

11 

VSS  "tgpreg.h' 

. ****** 

******** 

************    PIC16C5X  Header  ************************* 

OIPF 

PIC54 

equ 

IFFH 

;  Define  Reset  Vectors 

OlFP 

P1C55 

equ 

IFFH 

03FF 

PIC56 

equ 

3FPH 

07PF 

PICS7 

equ 

7FFH 

0001 

RTCC 

equ 

1 

0002 

PC 

equ 

2 

0003 

STATUS 

equ 

3 

;  F3  Reg  Is  STATUS  Reg. 

0004 

FSR 

equ 

4 

0005 

Port_A 

equ 

5 

0006 

PGrt_B 

eqti 

6 

;  I/O  Port  Assignnents 

0007 

Port_C 

eqv 

7 

. *********************************** ****************** ******************** 

;   STATUS  REG.  Bits 

0000 

CARRY 

equ 

0 

;  Carry  Bit  is  Bit.O  of  F3 

C 

eq» 

0 

0091 

msamx 

e^ 

1 

oeoi 

DC 

eqa 

1 

0002 

ZJ)it 

e^ 

2 

;  Bit  2  of  F3  is  Zero  Bit 

0002 

z 

equ 

2 

0003 

P_DOWN 

equ 

3 

0003 

PD 

equ 

3 

0004 

e^ 

4 

0004 

TO 

equ 

4 

0005 

PAO 

equ 

5 

0006 

FAl 

equ 

6 

0007 

PA2 

equ 

7 

0001 

Same 

equ 

1 

0000 

W 

equ 

0 

0000 

LSB 

equ 

0 

0007 

HSB 

equ 

7 

tool 

TRUE 

equ 

1 

S-t18 
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0001 
0000 
0000 


YES  eqa 
FALSE  equ 
NO  equ 


It  ********************  it**  **************** 


0000  mi 

0001  0030 

0002  OCOA 

0003  0090 

0004  0703 

0005  0A09 

oeo«  0030 

0007  02B1 

0008  0A02 

0009  0800 


pipiCD  elpcf 
movwf 


gtenth  movlw 
siibwf 


LSD 
.10 
LSD.W 
BTFSS       STATUS,  CABS* 
0oto  over 
aemt  LSD 
IncC  MSD 
goto 
retlw 


gtenth 
0 


****************************  ************************************ 


OOOA  0C63 
OOOB  0900 
OOOC  OAOC 


nam 
selE 


movlw 

call 

goto 


63 

BinBCD 
self 


W  reg  =  63  Hex 

after  conversion,  MSD  =  9  S  LSD  =  9 
(  63  Hex  =  99  Decimal  ) 


OlFF  OAOA 


org 

goto 


IFF 
main 


Errors 
Warnings 


%«li!Mle(lMlli|t)l96MnNv;ine. 
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APPENDIX  H:  BINARY  (l^-BIT)  TO  BCD  LISTING 

lO^AiH  BO  .  54 


PAdS  1 


***************************** 


**************  ******************** 


Binary  To  BCD  Conversion  Routine 
This  routine  converts  a  16  Bit  binary  Nxunber  to  a  5  Digit 
BCD  Number.  This  routine  is  useful  since  PIC16C55  &  PIC16C57 
have    two  8  bit  ports  and  one  4  bit  port  (  total  o£_5  3CD  digits) 

The  16  bit  binary  nuiriber  is  input  in  locations  H_byte  and 
lijsyte  with  the  high  byte  in  H_byte. 

The  5  digit  BCD  number  is  returned  in  RO,  Rl  and  R2  with  RO 
containing  the  MSD  in  its  ris^t  mc^t  j^^l^lo. 


Performance  : 

Program  Heciory 
Clock  Cycles 


35 
885 


******************************************************************* 


LIST 

P=16C54 

0016 

count 

equ 

16 

0017 

ten^ 

equ 

17 

dOlo 

; 

equ 

10 

0011 

L_byte 

equ 

11 

0012 

RO 

equ 

12 

;  RAH  Assigmn^ts 

0013 

Rl 

equ 

13 

0014 

R2 

equ 

14 

Include 


•npreg.h' 


. ************************** 


OlFF 
OlFF 
03FF 
07PP 

omt 

0002 

oooi 

0004 

0005 
0006 
0007 


0000 
0000 
0001 
0001 
0002 
0002 
0003 
0003 
0004 

aoo4 

0005 

oooe 

0007 
0001 
0000 


PIC54 
PIC5S 
PIC56 
PIC57 


equ 
equ 
equ 


STATUS  equ 
FSR  equ 


equ 
equ 


Port_A 
Port_B 


equ 
equ 
equ 


IFFH 
IFFH 
3FFH 
7PFH 

Ih 
2h 
3h 
41i 

5h 
6h 
7h 


MCISCSX  aeader  ********* 
Define  Reset  Vectors 


;  F3  Reg  is  STATUS  Reg. 


;  I/O  Port  Assignments 


**************** 


************************************************************************* 


CARRY 
C 


Z_bit 
Z 


equ 
equ 

equ 
equ 
equ 


P_DOWN  equ 


PD 

T_OUT 
TO 
PAO 
KM. 

am! 


LSS 


equ 
equ 
equ 
equ 
equ 
equ 

equ 

equ 


Oh 
Oh 
Ih 
Ih 
2h 
2h 
3h 
3h 
4h 
4h 
5h 
6h 
7h 

Ih 

Oh 


STATUS  REG.  Bits 

Carry  Bit  is  Bit.O  of  F3 


Bit  2  of  F3  is  Zero  Bit 
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0007 

MSB 

egu 

7h 

0001 

TRUE 

equ 

Ih 

0001 

YES 

equ 

Ih 

0000 

FALSE 

equ 

Oh 

0000 

NO 

equ 

Oh 

0000 

0403 

B2_BCD 

bcf 

STATDS ,  0 

;  clear  the  carry  bit 

0001 

OCIO 

movl  w 

.  16 

0002 

0036 

movwf 

count 

0003 

0072 

clrf 

RO 

0004 

0073 

clrf 

Rl 

0005 

clrf 

,.  PI  ■  - 

0006 

0371 

Id^lS 

rlf 

L_byte 

0007 

0370 

rlf 

HJvte 

0008 

0374 

rlf 

R2 

0009 

0373 

rlf 

Rl 

-r 

OOOA 

0372 

fU 

80  . 

OO0S' 

i02F6 

decfsz 

count 

oooc 

OftOE 

a.4jDEC 

OOOD 

0800 

RBTLH 

0 

OOOE 

0C14 

ad  j  DEC 

niOTlw 

R2 

m24 

siov»f 

7SR 

.  -  -.    .  . 

eali  .  - 

0011 

0C13 

> 

movlw 

Rl 

0012 

0024 

movwf 

FSR 

0013 

0918 

call 

ad j BCD 

0014 

0C12 

movlw 

RO 

0015 

0024 

movwf 

FSR 

001£ 

0918 

call 

ftdjBCD  , 

0017 

0A06 

goto 

loopie 

0018 

0C03 

ad j BCD 

movlw 

3 

0019 

OICO 

addwf 

o,w 

OOIA 

0037 

movwf 

temp 

O0tB.©«S7»-H 

btf  se 

te3i^,3^ 

;  test  if  result  >  7 

OOlC 

0020 

movwf 

0 

OOID 

0C30 

movlw 

30  r-. 

OOIE 

OICO 

addwf 

0,W                  ,  , 

OOIF 

0037 

movwf 

temp 

0020 

06F7 

btfsc 

temp,  7 

;  test  if  r  result;,*  7,  -;i 

0021 

0020 

movwf 

0 

;  save  as  MSD 

0022 

0800 

RETLW 

8     •  ■. 

Test  Program 

*  *******1t1fk******ic***1t*1eie1e*;ic*1t**  ******* 

0023 

OCFF 

main 

movlw 

OFF 

0024 

0030 

movwf 

H_byte 

mzs 

0031 

BlfilWWf 

It_}>yte 

;  The  16  bit  binary  number  =  FFFF 

fWO 

csall 

B2  JCD 

;  After  conversion  the  Decimal  Niuhber 

;   in  R0,R1,R2  =  06,55,35 

0027 

0A27 

self 

goto 

self 

OlFF  0*23 


org 
goto 


IFF 
main 


PIC16C5X/16CXX  Math  Utility  Routines 


APmpieOC  fc  UNSIGNED  BCD  ADDITION  USmnQ 

mitm  BO. 54 

***.*».»*.*»».*..    Unsigned  BCD  Addition 


********** 


This  routine  performs  a  2  Digit  Unsigned  BCD  Addition 
'it  ia  Aacated  that  the  two  BCD  numbers  ialm  aSSmi  are  in 
locations  HUnul  &  Nuiii_2.  Ibe  result  is  the  sum  of  Nunul+Num.a 
and  is  stored  In  location  SamJ  and  the  overflow  carry  is  rettimed 
In  location  Nunul 


Performance  : 

Program  Memory 
Clock  Cycles 


25 
23 


(  worst  case  ) 


t 

Wr  2.0 

I  on  7/30/92. 

OJ^a..-            I.r  ; 

■  ********************** 

*************tt^it4gM*******'*******************  ; 

1 

K           •  • 

LIST 

P=16C54 

0008 

equ 

8 

;  Overflow  flow  tisrry  overwrites  lhii^_l 

0008 

result 

equ 

8 

0009 

HJBH_2 

equ 

9 

;  Nuin_2  +  Num_l  overwrites  Num_2 

0009 

0_f low 

equ 

9 

include 

"npreg .  h' 

,**************************              PIC16C5X  Header  ************************* 

OlFF 

PIC54 

equ 

IFVB 

;  Define  Reset  Vectors 

OlFP 

PICS  5 

equ 

IFFH 

03FF 

PIC56 

equ 

3FFH 

07FP 

PICS7 

equ 

7FFH 

0001 

RTCC 

equ 

Ih 

0002 

PC 

equ 

2h 

09m 

STATUS 

equ 

3h 

;  F3  Reg  is  SWAStJy  Reg. 

6004 

FSR 

equ 

4h 

; 

0005 

equ 

Sh 

0006 

FortJ 

equ 

6h 

;  I/O  Port  Assignments 

0007 

Port_C 

equ 

7h 

; 

J  ****** 

******^*ai*****AM****************%»*****mm**********************ik*^** 

0000 

CARRY 

equ 

Oh 

;  Carry  Bit  is  %ti.O  S^  F3 

0000 

C 

equ 

Oh 

0001 

DCARSY 

equ 

Ih 

1 

0001 

DC 

equ 

Ih 

0002 

Z_J>it 

equ 

2h 

;  Bit  2  of  F3  Is  itwo' Bit 

0002 

Z 

equ 

2h 

0003 

  'taeew' 

•41 

0003 

•qu 

311 

0004        ■  "  • 

tiow  * 

4h 

0004 

TO 

equ 

4h 

0005 

PAO 

equ 

5h 

0006 

PAl 

equ 

6h 

0007 

PA2 

equ 

7h 

0001 

!  ^ 

•qa 

Ih 

0000 

LSB 

equ 

Oh 

0007 

MSB 

equ 

7h 

0001 

TRUE 

equ 

Ih 

0001 

YES 

equ 

Ih 

0000 

FALSE 

equ 

Oh 

O  ttlB<  MhiULlfltiifwililiogiciliiij 
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0000 


Oh 


0000 
0001 
0002 

0003 
0004 
0005 
OOM 
0007 
0008 
0009 
OOOA 
OOOB 
OOOC 
OOOD 
OOOE 
OWF 
0010 
0011 
0012 
0013 
0014 
0015 
0046 
0017 
0018 


0208 
01K9 
0068 

0368 
0623 
OAOD 

oeoe 

01E9 
0603 
02A8 
0723 
00A9 
OAOF 
0C06 
01E9 
QC60 
01B9 
0603 
0A16 
0708 
00A9 
0800 
OC01 
0^28 
0800 


0019  0C99 
001&  0028 
OOIB  0C99 
OOlC  0029 

OOID  0900 


00  IE  OAIE 


OlFF  0A19 


overl 


over3 


, ************* 
main  movlw 
movwf 
movlw 
movwf 

call 


movf 

Num_i  ,w 

addwf 

Num_2 

}  do  bloaiy  addition 

clrf 

Nuin_l 

rlf 

N\am_l 

btf  sc 

STATUS ,  DC 

;   Is  DC  =  0  ? 

goto 

adjust 

;  adjust  LSD 

movlw 

6 

addwf 

lJam_2 

;  Test  for  LSD  >  9   (  by  adding  6 

inef 

llum_l 

btfss 

STATUS,  DC 

;  £'  «iM>#eli89'  Siirit'  Carry 

subwf 

Num_2 

;  IiSB  <  9  ,  eo  set  back  original  value. 

goto 

overl 

^ 

movlw 

6 

addwf 

Num_2 

movlw 

60 

■  add  6  to  USD 

a4dwf 

Num_2 

btfsc 

STATUS,  CARRY 

goto 

over  3 

btfss 

Num_l ,  0 

subwf 

Num_2 

RKTLW 

0 

movlw 

1 

movwf 

Mt3m_l 

RETLW 

0 

***************************************************** 


Test  Program 

r******************i 

99 

Num_i 

99 

Nui!i_2 


************************************ 

Set  Num_l  =  99  (  max  BCD  digit  ) 

Set  Num_2  =  99 

After  addition,  Nuin_2  =  98 
and  Num_l  =  01   (  99+99  =  198  ->  max  number 


self 


org 
goto 


self 


IFF 
main 


END 


Errors  ;  0 
Warnings  i  0 
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APPENDIX  J: 

MFA^I  BO. 54 


UNSIGNED  BCD  SUBTRACTION  LISTING 


.»»»«..,.».»»»*.*.»    Unsigned  BCD  Subtraction  ******•**•.*»♦* 

This  routine  performs  a  2  Digit  Unsigned  BCD  Subtraction. 
Ik.  Sm-  ttaavmsAi-^Bmk-^m  two  BCD  nnobear  -feo  beheUbtxaeted.  ar«  In         '  >. 
loe^tioBS  lMa_l  &  I>uSt_2.  'Tlie  SeSulit'  ii'  'Sue  ^ie^sm&a  of  &  miiiC^ 

(  Kuni_2  -  >ium_l)  and  is  stored  In  location  Nuilu2  and  the  overflow  cafry 
is  retiimed'  in  location  NtQn_l. 


Performance 


Program  Memory 
Clock  Cycles 


31 


LIST 

P= 

0008 

Num_l 

equ 

8 

0008 

result 

equ 

8 

0009 

Nuin_2 

equ 

9 

0009 

O_flow 

equ 

9 

21     (  worst  case  ) 

;  Overflow  flow  carry  overwrites^  Niini_i 
;  Nuin_2  -  Nuin_l  overwrites  Nuin_2 


incltide 


*inpreg.h' 

t  *  ****  -k  *  * 


PIC16C5X  Header  *************************** 


OlFF 

PIC54 

equ 

IFFH 

;  Define  Reset  Vectors 

OlFF 

PICS5 

equ 

IFFH 

03FF 

PIC56 

equ 

3FFH 

07FP 

ties? 

equ 

7FEH 

0001 

RTCC 

equ 

Ih 

0002 

PC 

equ 

2h 

0003 

STATUS 

equ 

3h 

I'i^  Re^  is  STATUS  Reg. 

0004 

FSR 

equ 

4h 

I  ./B-i-. 

0005 

equ 

Sh 

0006 

Port_B 

equ 

■  6h  ■ 

;  I/O  Port  Assig^ents 

0007 

Port_C 

equ 

7h 

******************* 


*********** 


************* 


equ 

Oh 

0000 

c 

equ 

Oh 

0001 

DCMOCt 

equ 

Ih 

0001 

DC 

equ 

Ih 

0002 

Z_bit 

equ 

2h 

0002 

Z 

equ 

2h 

0003 

P_DOWN 

equ 

3h 

0OO3 

PD 

equ 

3h 

0004 

T_OUT 

equ 

4h 

0004 

TO 

equ 

4h 

OOOS 

^0 

equ 

Sh 

000« 

PAl 

equ 

6h 

0007 

PA2 

equ 

7h 

0001 

Same 

equ 

Ih 

0000 

LSB 

equ 

Oh 

0007 

MSB 

equ 

7h 

0001 

TRUE 

equ 

Ih 

0001 

YES 

equ 

Ih 

0000 

FALSE 

ec[U 

Oh 

0000 

NO 

equ 

Oh 

STATUS  REG.  Bits 

Carry  Bit  is  Blt.O  of  P3 


;  Bit  2  of  F3  is  Zero  Bit 


,*********1t**********************1tt**-k*****1H,**i,it*******  ******  *********** 
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0000  0208 

0001  00A9 

0002  0068 

0003  0368 

0004  0723 

0005  OAOC 

0006  07fi9 

0007  OAOB 

0008  0649 

0009  OAOC 
OOOA  0729 
OOOB  OAOE 
OOOC  0C06 
OOOD  00A9 
OOOB  0708 

oaer  oai? 

0010  0068 

0011  07E9 

0012  0800 

0013  06C9 

0014  0A17 

0015  07A9 

0016  0800 

0017  OC60 

0018  00A9 

0019  0068 
OOIA  0703 
OOIB  0800 
OOlC  OCOl 
00 ID  0028 
OOIE  0800 


OOIF  0C23 

0020  0028 

0021  0C99 

0022  0029 

0023  0900 


BCDSub 


adjstl 


movf 

lluin_l.w 

subwf 

flain_2 

clrf 

Num_l 

rlf 

Num_l 

btfss 

STATUS, DC 

goto 

adjstl 

btfss 

NUlH_2,3 

;  Adjust  I,SO  of  Result 

goto 

OVer_l 

btfsc 

jmin_2,2 

gotb 

adjstl 

;  Adjust.  LSD  of  Result 

btfss 

Nuni_2 , 1 

goto 

Over_l 

;  No  :  69  for  USD 

movlw 

6 

subwf 

Num_2 

btfss 

Num_1.0 

;  cy  =  0  ? 

goto 

adjstZ 

;  ya»,  adjust  MSD  of  Result 

clrf 

NUnul 

btfss 

Num_2 , 7 

,-  No,  test  for  MSD  >9 

RETLW 

0 

btfsc 

Num_2 , 6 

goto 

adjst2 

btfss 

Nuin_2,5 

RETLW 

0 

;  add  6  to'HSD 

movlw 

60 

subwf 

Num_2 

clrf 

Nuin_l 

btfss 

STATUS,  CARRY 

;  test  if  underflow 

RETLW 

0 

\  -  ■ 

movlw 

1 

movwf 

HunUl 

0: 

adj8t2 


Over 

ri 

^ ******************************************************************** 


Test  Program 
**************** 


movlw  23 

movwf  N^nul^ 

movlw  99 

movwf  Nuin_2 

call  BCDSub 


*************************************** 


fet  nm_i  =  23 
Set  Num_2  =  99 

After  subtraction,  Num_2  =  76   (  99-23  ) 
and  Num_l  =  0  (  indicates  positive  result 


0024  0C99 

0025  pe^s 

0026'^%e:0tf" 
0027  0029 


movlw 

movlw 
movwf 


99 

NUIK_1 
0 

NUII(_2 


;  ?et  Num_l  =  99 
;  Set  Nimi_2  =  0 


0028  0900 


0029  0X2'^ 


elf 


call 


goto 


BCDSiO) 


self 


After  subtraction,  ttanj  =  1 
and  Num_l  =  1  (  indicates  negative  result 
-1    <-     (  -99  ) 


OlFF  OAIP 


org 
goto 


IFF 
main 


Errors  :  0 
Warnings  :  0 


«i«9»«MW9^lp  iMSmiMlld^'  Inc. 
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APPENDK IC  SGHJAIS  ROOT  BY  NEWTON-RAPHSON  METHOD 


mim  01.81  imlmmmsS.     Sipf_94.ASit     S-«-ld<94  10:38:49 


PAGE  1 


LOC    OBJECT  CODE 


LUip  SODRCB  TEXT 


I  f.S-«:» 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
t)i0b9 
00  lip 
OOlf 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
'  0028 
0029 
0030 
0031 
0032 
0033 
0034 
003S 
0036 
0037 
0038 
0039 
0040 
OSUl 

■to 


0043 
0044 
0045 
0046 


list       p=16C54,  n^O' 

*************** 

Revisiom  0»*e3-94 


S^iiiare  Hoot  By  IftiWton  Ri^l^KOii  Method 

l-tet^iA  ^Oiiputes  the  square  root  ot  a  16  bit  tuiniber(wlth 
low  b/te  i&  IShaStiO  £  high  byte  in  NumBi  ) .  Af  tex  loading  NutnLo  & 
NvunHi  with  the  dasired  mmber  whose  sguax«>  root  is  to  be  coasted, 
branch  to  location  iSqtt  (  by  "GOTO    Sqrt'  ) .      CMi    Sqrt'  canhot 

be  issued  because  the  Sqrt  function  makes  calls  to  Math  routines 
and  the  stack  is  conpletely  used  up. 

The  result  =  sqrt  (N\jinHi,NuiiiLo)   is  returned  in  location  SqrtLo. 
The  total  number  of  iterations  is  set  to  ten.   If  more  iterations 
are  desired,  change  "LupCnt  equ  .10'  to  the  desired  value.  Also, 
tdni  iAltlal  guess  value  o£  the  squoire  is  given  set  as 

input/2  (  in  subroutine  'init'  1 .  ^w^er  nay  nodlfy  this  scheme 
if  a  better  initial  approximation  val^  is  known.  A  good  initial 
guess  will  help  the  algorithm  convergle  at  a  faster  rate  and  thus 
less  nxamber  of  iterations  required. 

Two  utility  math  routines  are  used  by  this  program  :  D_divS 
and  D_add.  These  two  routines  are  listed  as  seperate  routines 
under  double  precision  ptviai^M        cbai^),^^  precision  addtion 
respectively. 

Note  :    If  square  root  of  an  8  bit  number  is  desired,    it  is  probably 

better  to  have  a  table  look  scheme  rather  than  using  numerical 
Methods. 


Performance 


Prograst  Kemory 
clock  Cycles 


27     {excluding  Math  Routines' 
D_divS  &  D_add  ) 
"  3600  {  approximately  ) 


mt^mOak  this  prosri^.  ^>e  i^leiiie,  namely  •D_add^ 
-  isitet  W  included  into  this  program.  Aese  two  routines 
are  listed  as  a  s^arate  program,  in  files  *I^_^U3D.ASM' 
Hbm  0_divS  routine  was  previously  found  in  "DBLJIIVS.ASM' . 

************************************************************* 


0047 

include 

■picreg 

8047 

0048 

org 

0 

0049 

OOOA 

0050 

lAipCnt 

equ 

.10 

0051 

OOID 

0052 

NumLo 

equ 

ID 

OOIB 

0053 

NumHi 

equ 

IE 

OOIF 

0054 

count 

equ 

IF 

0055 

0056 

;  These 

are 

used  by 

0057 

0010 

0058 

ACCaLO 

equ 

10 

0011 

0059 

ACCaHI 

equ 

11 

0012 

0060 

EXPa 

equ 

12 

;  Nuniier  of  iterations 


Mas 
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0013 

0061 

ACCbLO 

equ 

13                ■  .i 

0014 

0062 

ACCbHI 

equ 

14 

0015 

0063 

EXPb 

equ 

15 

0016 

0064 

ACCcLO 

equ 

16 

0017 

0065 

ACCcHl 

equ 

17 

0018 

0066 

ACCdLO 

equ 

18 

0019 

0067 

ACCdHI 

equ 

19 

0.01& 

0068 

-  egii..,  ■. 

;  lA 

OOIB 

0069 

sign 

eqti 

IB 

0070 

0071 

■  ■    ■  ,  ;,  ^.t■.I 

0010 

0072 

SqrtLo 

equ 

ACCelLO 

0011 

0073 

S^tHl 

egii 

.  ■  J: 

0074 

ill  ••! 

.1  - 

0000 

O  CO^.  -  -  -  / 

0076 

movlw. 

LupCnt 

.' 

0001 

003F 

0077 

movwf 

count 

0002 

021E 

0078 

movf 

NumHi ,  W 

0003 

0031 

0079 

movwf 

SqrtHi 

0004 

021D 

0080 

movf 

NumLo,W 

;  set  initial  gusss  root  =  Na>|/2 

0005 

0030 

0081 

movwf 

SqrtLo 

OM* 

0092 

Ijcf 

oft? 

0»3l 

0083 

rr£ 

S^tHl 

0008 

0330 

0084 

rrf 

S^tLo 

0009 

OSOO 

0085 

retlw 

0 

0086 

OOOA 

0403 

0087 

div2 

bcf 

STATUS ,  CARRY     -, . 

OOOB 

0314 

0088 

rrf 

ACCbHI, W 

•i  ..' 

0:031 

0089 

movwf 

Sqr;tgl 

oms 

0313 

0090 

rrf 

ACC1$L0,H 

OOOB 

0030 

0091 

movwf 

SqrtLo      .,  , ., 

OOOF 

0800 

0092 

retlw 

0 

0093 

n  ■  > 

0010 

0900 

0094 

Sqrt 

call 

init 

'     ■  -J   '    -  * 

0011 

02  ID 

0095 

sloop 

movf 

N\unLo ,  W 

QStM 

0033 

0096 

xnovwf 

AGCbLO  T 

:  ■-.  -J 

0013 

021B 

0097 

movf 

NunKi.W 

- 

0014 

0034 

0098 

movwf 

AGCbHI    .  ' 

0099 

0015 

091B 

0100 

call 

D_divS^ 

;  double  precision  division 

0016 

0946 

0101 

call 

D_adia 

;  double  preci^iffi  addition 

0102 

0Q17 

090A 

0103 

call 

div2  „ 

OOlS 

02VF 

0104 

decf^z 

«;ount  , 

0019 

OAll 

oiiJjia 

,gpto 

;  all  iterations  done 

OOIA 

0A52 

0106 

goto 

over 

0107 

;  branch  back  t,pr!3esired  location 

■  ■-  I  r. 

0108 

0109 

;  Double  precision  routines  placed  here 

0110 

0111 

0000 

0112 

FALSE 

;  jSetj          TO  'r^pB'  if  the  rotiiti^ies 

0113 

;'  for  Kultipliojttion  £  Division  needs 

0114 

;  to  be  assembled  as  Signed  Integ^ 

0115 

;  Routines.  If  'FALSE'  the  above  tjjK^ 

0116 

;  routines  (  D_mpy  '  D_div  )  us^.  ,^ 

0117 

;  nftigi^aBaS,  acltjpBjsio.               .^lO  , 

0118 

0119 

Double  Precision  Division 

0120 

0121 

(  Optimized  for 

Code  Size  :  Looped  Code  ) 

1    i  .-if. 

0122 

0123 

.*******************************************************************. 

0124 

;      Division  : 

ACCb(16  bits)  /  ACCa,(16'bits)  ->  ACCb(16  bits)  with 

0125 

'     ,              Remainder  in  ACCc  (16 

0126 

<a)  Load  0)9  Swcrainatox  in  locsticna  Apc|t^;  «  Xi^HiQ  (  .t#,pits 

. .  oiax 

4^ ,  lioack  <bha>  IXmexmter  is.  IseaMsn.  IHsAmZ.  &  ACOaliO  <'  |16  ) 

0128 

(c)  CALL  D_div 

0129 

(d)  The 

16  bit  result  is 

in  location  ACCbBl  &  ACCbLO 
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0130  ) 
0131 
0132 
0133 
0134 
0135 
0136 
0137 
0138 


(e)  •Bm  16  bit 


laiter  is  IH^lditiftlans  ACCcHI  &  ACCcLO 


Perfoztnaxice 


Program  Memory 
Clock  Cycles 


NOTE  : 


Jp9 


037 
310 


(  1 


pA^feaMwNi  ^tfS^mm  Xor  unsigned  aritlnetic 
«i^  •SZCH^ggti    Ifl^  . 

0139 

0140  -******************************************************************* 
0141 
0142 
0143 
0144 
0145 
014S 
0147 
014S 

0150 
0151 
0152 

0153  ; 

0154  D_aivS 

0155  ; 
0156 


Double  Preciaieai  StViae  (  1W16  -VSilPj''  "  ■ 

(  t/asSS/IkSem  ->  %ceb  witb  xmlli^i^li^  j^e  )  c  IS  Mt  output 
with  QuotloDIi  la  JjiSeb  ti£e^I,A%6[^)  and  ReniB^Dlder  in  AOCe  t^CcHI.ACCcLO) . 

NOTE    1    Before  cal^ling  this  routine,  the  user  should  maike  sure  that 

the  Nuinerator  (ACCb)  is  greater  than  Denominator  (ACCa)  .  If 
'  the  case  is  not  true,   the  user  should  scale  either  Numerator 

or  Dencaninator  or  both  such  that  Nuinerator  is  greater  than 
th*  DeiSii>ial»te«i  '  ' 


IF 


0157 

CALL 

s_siGai 

%  -  - 

0158 

EHDIF 

'  ^'  ■                   ■  ■ 

0159  ; 

r 

Oms  0937 

0160 

call 

setup           ■  -  - 

J  "• 

oeie  8077 

0161 

clrf 

ACCcRI 

■  I.  ' 

OOID  0076 

0162 

clrf 

ACCcLO 

OOIE  0403 

0163  dloop  bcf 

STATUS,  CARRY 

OOIF  0378 

0164 

rlf 

ACCdLO 

0020  0379 

0165 

rlf 

ACCdHI  W.i.S 

!:iO</ 

0021  0376 

0168 

rlf 

ACCCLO 

ZIJC 

0032  0377 

0167 

rl£ 

aeeaai  '  '''^  -* 

00 

1  '0^ 

0023  0211 

0168 

msiv£ 

ACCaBI.W 

0024  0097 

'•cttSS^  ■■ 

ACCcHl,w      '  - 

i^Smak  if  a>e  '''' 

0025  0743 

*  o  i^if 

STATUS,  Zjbit  " 

i:.  10/. 

0026  0A29 

0171 

goto 

nochk 

0027  0210 

0172 

movf 

ACCaLO.W 

0028  0096 

0173 

subwf 

ACCcLO,  w 

;if  msb  equal  then  check  Isb 

0^  0703 

0174  nochk  btfss 

STATUS,  CKteS 

icaxtsr  set  if  e>tt 

OM  0A32 

-  017S 

goto 

nogo 

S^S  0^  0 

movf 

ACCaLO,w 

;c-a  into  c 

mm  00B6 

0177 

stibwf 

ACCcLO 

002D  0703 

0178 

btfss 

STATUS,  CARRY  ■ 

002E  00F7 

0179 

decf 

ACCcHI 

002F  0211 

movf 

ACCaHI,w 

0030  00B7 

ACCcHI 

0031  0503 

STATUS,  CARRY 

;  shift  a  1  into  b  {result) 

0032  0373 

0183  nogo  rlf 

0033  0374 

0184 

rlf 

0034  02FA 

-  0185 

d«:fsz 

tecEp 

jlosB  mfeill  all  tets  checked 

0035  OAlE 

■~  0186 
0187  ; 

■  *^'S^%o 

dlo^ 

IF  SIGNED 

0189 

btfss 

sign, MSB 

;  check  sign  if  negative 

0190 

retlw 

0 

0191 

goto 

neg_B 

;  negate  ACCa  '(  '4tcba  ->  ACCa  ) 

0192 

ELSE 

0036  0800 

0193 
0194 

reta.iP'* 
ENDIF 

0          'i' "  • 

:i  .in 

■  ■  Tt  rtoi  ai 

\1A'J   l>i                .  V- 

0037  OCIO 

lip  "  movl^r*" 

'.1*'  

;"ior"i6  shifti 
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0038 

003A 

0199 

movwf 

ten^ 

0039 

0214 

0200 

movf 

ACCbHI  ,w                  ;move  ACCb  to  ACGd 

003A 

0039 

0201 

movwf 

ACCdHI 

003B 

0213 

0202 

movf 

ACCbLO.W 

003C 

0038  ' 

0203 

movwf 

ACCdLO                                 "                ■ ' f 

0074 

0204 

clrf 

Acea*i'                                '  '■■ 

003S! 

0073 

"  *  "0!WS 

clrf 

ACCbLO  ■ 

003F 

0800 

0206 

retlw 

0 

0207 

0208 

************** 

r*********       SIfJrAiltJr"**"*******************  ************* 

02  09 

0040 

0270 

0210  neg_A  comf 

ACCaLO                   ;  negate  ACCa  (  -ACCa  ->  ACCa  ) 

0041 

02B0 

0211 

incf 

ACCaLO 

0042 

0643 

0212 

btfsc 

STATUS,  Z_bit 

0O43 

OOFl 

0213 

decf  . 

ACCaHI 

6044 

0271 

0214 

comf 

ACCaHI 

0045 

0800 

0215 

retlw 

0 

0216 

0217 

******************************************************************* 

0218 

Assemble  this  section  only  if  Sign«a  Arithmetiio  Needed 

0219 

0220 

IF       SIGNED                                                      -■  ; 

0221 

Q222  S 

3_SIGN  movf 

ACCaHI,  W 

0223 

xorwf 

ACCbHI, W 

0224 

movwf 

sign 

0225 

btfss 

ACCbHI, MSB              ;  if  MSB  set  go  &  negate  ACCb 

0226 

goto 

chek_A 

0227 

'ioiwt;  HUTS, 

0228 

ceibC 

ACCALO                  ,*  negate  ACCb 

0229 

■  tamt'  ■ 

XS0)&                                                               ■  •;  ■;x  T  ' 

0230 

btfao 

S5&fBS,Z_bit   -                                 .  • 

0231 

decf 

ACCbHI 

0232 

comf 

ACCbHI  - 

0233 

,0234  Ghek_A  btfss 

ACCaHI, MSB               ;   If  MSB  Set  go  &  negate  ACCa 

0235 

retlw 

0                                                       -.                               1  : 

0236 

goto 

neg_A 

0237 

0238 

ENDIF 

0239 

0240 

include  <D 

„add.asm> 

0001 

************  ******  i»*.^****#***A*******  ******************  ************ 

0002 

X>ouble  Freeision  Addition  &  Subtraction 

0003 

0004 

Prcgrmn:  I3_ASM.ASM 

0005 

Revision:  08-03-94 

0006 

0007 

************** 

*****************************************************. 

0008 

Addition  : 

ACCb(16  bits)   +  ACCa(16  bits)   ->  ACCb{16  bits) 

0009 

(a)  Load 

the  1st  operand  in  location  ACCaLO  &  ACCaHI   (  16  bits 

0010 

(b)  Load  the  2nd  operand  in  location  ACCbLO  £  ACCbHI  (  16  bits 

0011 

(o)  CALL 

D_add 

0012 

(d)  The 

result  is  in  location  ACCbLO  &  ACCbHI  (  16  bits  ) 

0013 

0014 

Performance 

0015 

Program  Memory     :  07 

0016 

Clock  Cycles        :  08 

0017 

****************  *^*********** 

O018 

Double 

Precision    Addition  (  ACC^  *  ACCa  ->  ACCb  ) 

0019 

0046 

0210 

0020  D_add  movf 

ACCaLO, w 

0047 

01F3 

0021 

addwf 

ACCbLO                  jadd  Isb 

0048 

0603 

0022 

btfsc 

STATUS, CARRY       ;add  in  carry 

0049 

02B4 

0023 

incf 

ACCbHI 

a04*  0211 

0024 

mswf 

ACCaHI, w 

004B  OlWi 

0025 

adcJwf 

ACCbHI                     radd  msb 

004C 

08  00 

0026 

retlw 

0 

0027 

s-m 
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0028 

0029 

■  1  ■.-'-■It        •„,. , .               ■  •  :  ■, 

0240 

0241  ,- 

Q242  .********************************** ************************ 

0243  ; 

fxogzem 

0244  * ******************************* *****************ff********* 

0345  ; 

004D 

0CF3 

024S  Slain 

inovlw 

oro 

004E 

003B 

0247 

movwf 

NumHi 

 : 

004F 

0CF6 

0248 

movlw 

0F6 

;  Set  input  test  aonfeear  s  62454 

0050 

003D  i 

0249 

movwf 

NumLo 

;     =  F3F6h 

0250  ; 

0051 

OAIO 

0251 

goto 

Sqrt 

;  cannot  use  CALL  :  Math  routines 

0252  ; 

;  use  up  -an  the  sta^.t  l< 

0052 

0000 

0253  0»iee 

all  iterations  dttUSk; 

mM  t 

Si) 

0053 

0A53 

02S5  self 

goto 

self 

;  result  =  00F9h  =  24S  '  < 

0256  ; 

0257  ; 

0258 

org 

PIC54 

OlFF 

0*40 

0259 

goto 

main 

0260  ; 

03«1 

■!■   ' ,  •"■  ' 

m$z 

-H  .  - 

UK  @g|US:  HI 

lip  fW  *  Used,  - 

-'  =  Unused) 

.00^  >■  7BB 
0044:  1.  m 


0180  I  «  

OICO   :  X 

All  other  memory  blocks  unused. 
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APPENDIX  L:  INOL-UDe  FILE  FOR  FIXED  POIMUHbinNE 


processor  16C71 
define  assembler  constants 


BO 
Bl 
B2 
B3 
B4 
B5 


equ 
equ 
equ 
equ 
equ 
equ 


equ 
equ 


define  special  function  registers 

cblocic  0x00  ;  page  0  registers 

MDFvRlECC ,  PCL ,  STATUS ,  FSR ,  WS*,  TRISB ,  ZZZZ, ' 
ADCOHO ,  RDRES ,  PCLATH ,  INTCON 

ende 

^lock  0x00  ,■  page  1  registers  ;   .  . 

INDF,  OPTION,  PCL ,  STATUS  ,  FSR ,  PORTA»#CSlTB.,;aZZa-,  . 
ADCONl ,  ADRES ,  PCLATH,  INTCON 

endc 

^fine  laeginning  of  general  purpose  RAM 


RjajSTART 
RAMSTOP  equ 


equ 
0x2  F 


OxOC 


define  ccanmonly  used  bits 
STATUS  bit  definitions 


♦define  _C 
♦define  _DC 

♦  define  _Z 

♦  define  _PD 

♦  define  _T0 
♦def  ijie  JUPO 
♦define  _PAO 

♦  define  _RP1 

♦  define  _PA1 
♦define  _IRP 
♦define  _PA2 


STATUS,  0 
STATUS,  1 
STATUS,  2 
STATUS,  3 
STATUS,  4 
STATUS,  5 
STATUS,  5 
STATUS,  6 
STATUS,  6 
STATUS,? 


nnnniiMiiiiiii  <n 
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JMP€NDIX  M:  16/8  FIXED  P0ir4T  DIVIDE  ROUTINES 

!  16/8  PIC16  FIXED  POINT  DIVIDE  ROUTINES     VERSION  1.5 

f  Input:     fixed  point  arguments  in  AARG  and  BARG 

;  Output:  quotient  AARG/BARQ  followed  by  remainder  in  REM 

;  Ml  tlttings  are  worst  case  cycle  counts 


-1  .aouxn! 


)0v 


It  is  useful  to  note  that  the  additional  routine  FXDISOTO 

can  be  called  in  a  signed  divide  {plication  In  the  special  case 

vAiere  AARG  >  0  and  BARG  >  0,  tfaerc^  offering  some  laprovegnent  in 

performance. 

I^biM  Clocks  FlM!el<ni 

tmsmaa  tM  tS  blt/S  bit  ->  IS.eS  stgoed  fixaa  poiM  MvtSia 

FXD1608U  294  16  blt/8  bit  ->  16.08  unsigned  fixed  point  divide 

mmMSm  tft  te  bit/?  bl^  -^  16>.a7  im^^m'  tixad  poii»mvide' 

FXDISOTU  166  15  bit/7  bit  ->  1S.S7  ^Igol^a  fitted  point  divide 

Hue  tMiMs  are  based  on  ttae  Isi^nifl  nacros.  If  space  permits, 

^fM^baatM^  41-50  clooK*' :dutf s«v«sd <by  using  the  unrolled  macros. 


list  r=dec,x=on,t=off ,p=16C71 
Include  <VtC16.1SO 


•  **1r1i*******-k*******ic***-** 


tc********************************************* 


ACC 


Define  divide  register  variables 

•SP  ;  most  slspiif  leaut  laj^te  of  coatlsitsas  4  byte  accumulator 


SIGH 


0x13  ;  save  location  for  sign  in  MSB 

Mfltt         0x19  ;  tenporary  storage 

t  I>ef  ine  blaw^  ^^eration  arguments  e .  •sJTAf 

AA{U3  equ  OxOD  ;  most  significant  byte  of  argument  A 

BARG  equ  0x16  ;  most  significant  byte  of  argument  B 

REM  equ         0x11  ;  most  significant  byte  of  remainder 

UOOSeOBHt  0x1*  ;  loop  counter 

;  ttaitms      (  aaiks+bo,  Mms*Bl  )    and    (  acc+bo,  acc+bi) 

;  ]S«Ses«B.ce  the  same  storage  locations,  and  similarly  for 

{  mmUfmOi^,  Sm+Bl  )  and  (  »EC+Si.  ACC+bS  ) 


-»****************  ***************************************»********************«^^ 
J ******************************************************************************* 

;  16/08  BZf  Division  Hacros 


Max  timing) 


3+5+2+5*ll+10+10+fi*ll+10+2  =  163  elks 


Min  Timing:  3+5+2+5*11+10+10+6*11+10+2 
FMl  42  OH: 


163  elks 


LOOFS1608B 


MOW 

BAHG+BO,W 

SUBWF 

REM+BO 

RLF 

ACC+BO 

ELF 

ACC+BO,W 

SLF 

REM+BO 

MOVF 

BABG+BO,H 

ADDWF 

REM+BO 

SLF 

ACC+BO 

MOVLW 

6 

MOVWF 

LOOPCOUNT 

KLF 

ACC+BO,  W 

RLF 

RS(+BO 

MOVF 

BARG+BO,W 

BTFSC 

ACC+BO,  LSB 

SUBWF 

REM+BO 

BTFSS 

ACC+BO,  LSB 

ADDWF 

REM+BO 

ACC+BO 

OBCFSZ 

LOOPCOONT 

GOTO 

LOOPS1608A 

BLF 

ACC+B1,W 

RLF 

REM+BO 

VSVF 

BARG+BO,W 

BTFSC 

ACC+BO , LSB 

SUBWF 

REM+BO 

BTFSS 

ACC+BO, LSB 

ADDWF 

REM+BO 

RLF 

ACC+Bl 

mvm 

7 

HOVHF 

LOOPCOUNT 

RLF 

ACC+Bl, W 

RLF 

REM+BO 

MOVF 

BARG+BO , W 

BTFSC 

ACC+Bl, LSB 

SUBWF 

REM+BO 

BTFSS 

ACC+Bl, LSB 

ADDHF 

REM+BO 

RLF 

ACC+Bl 

OECFSZ 

LOOPCODMT 

GOTO 

LOOPS1608B 

BTFSS 

ACC+Bl, LSB 

ADDWF 

RQI+BO 

UDIV164)8L 

Kbk  Tiai^:  2+7*12+11+3+7*24+23  =  291  elks 

Kin  Timing:  2+7*11+10+3+7*17+16  =  227  elks 
FM:  39  DM:  7 
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LOOFUieOSB 


RLP 

MOW 

SUBWF 

Stave 

GOTO 
ADOHF 


GOTO 

CUtF 

MOVLW 
MOVWF 

RLF 
RLF 
RLF 

MOVF 

SUBWF 

CLRF 

CLRW 

BTFSS 


GOTO 

MOVF 

ADDWF 

CXBF 

CLRM 

BTFSC 

mCFSZ 


IXDIVieOTt 
;  Max  Timing: 

;  Min  Timingt 

FM:  39 


LOOPCOONT 

ACC+BO,W 
REM+BO 
BARG+BO,W 
REH+BO 

_C 

REKfBO 
_C 

ACC+BO 


LOOPCOUNT 

ACC+B1,W 

BBt+BO 

TEMP 

BARG+BO,W 

REM+BO 

ACC+B5 

_C 

ACC+B5,W 
TEMP 

_C 

UOK68B 
BARG+BO,W 
REH+BO 
ACC+B5 


ACC+B5,W 
TEMP 


us 'tis* 


I.0OPC0IIMT 
LOOFDieOSB 


7+6*11+10+10+6*11+10+2  =  171  clkB 
7+6*11+10+10+6*11+10+2  =  171  elks 
DM:  5 


LOOFD1607A 


RLF 

ACC+B0,W 

KLF 

REH+BO 

HOVF 

BASS+BO,H 

REK+BO 

tasf 

ACC+BO                                -  , 

MOVLW 

7 

MOVWF 

LOOPCOUOT 

ACC+BO, W 

5^84 


LOOFDieOVB 


REH+BO 

1K>VP 

BAR&rBU ,  W 

BTPSC 

ACC+BO.LSB 

SUBWP 

REM+BO 

BTFSS 

ACC+BO.LSB 

ADDWF 

REH+BO 

KLP 

ACC+BO 

DECFSZ 

LOOPCOUNT 

GOTO 

I.OOPtn.607A 

RLF 

ACC+B1,W 

RLF 

REH+BO 

MOVF 

BARG+BO,W 

^FSC 

ACC+BO,LSB 

SDBB0P 

SEH+BO 

BTFSS 

ACC+BCLSB 

ADDHF 

REH+BO 

ACC+Bl 

HOVLW 

7 

MOVWF 

LOOPCOUNT 

ACC+B1,W 

ntp 

ItSH+BO 

MOVF 

BARG+BO ,  W 

BTFSC 

ACC+B1,LSB 

SOBWF 

REH+BO 

BTFSS 

ACC+Bl , LSB 

ADDWF 

REH+BO 

KLF 

ACC+Bl 

DECFSZ 

LOOPCOUNT 

GOTO 

LOOPU1607B 

BTFSS 

ACC+Bl, LSB 

REH+BO 

UDIV1507L  maci 
;  Max  Timing: 

;  Hit!  Timing; 

PH:  42 


3+5+2+5*11+10+10+6*11+10+2  =  163  elks 
3+5+2+5*11+10+10+6*11+10+2  =  163  elks 
DHi  5 


LOOPO1507A 


MOVF 

BARG+BO, W 

SUBWF 

REM+BO 

RLF 

ACC+BO 

RLF 

ACC+BO,W 

RLF 

REH+BO 

HOVF 

BARG+BO, W 

ADDHF 

REM+BO 

RLF 

ACC+BO 

wssim 

6 

LOOPCOONT 

RLF 

ACC+BO, W 

RLF 

REM+BO 

MOVF 

BARG+BO, W 

BTFSC 

ACC+BO, LSB 
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SUBWP 
BTFSS 
AODHF 

am 


REM+BO 
ACC+BO,LSB 
REHt-SO 
ACC+BO 


LOOPCODNT 
LOOFU1507A 

Rac+BO 


BTPSC 
SUBWF 


iiooFtnsoTs 


RLF 
HOVF 


ACC+BO, LSB 

REM+BO 

JM5C»S0,LSB 


ACC+Bl 


ACC+Bl,  W 
REH+BO 


BTFSS 

DECFSZ 

GOTO 


ACC+Bl , LSB 
REM+BO 
ACC+Bl , LSB 
REM+BO 
ACC+Bl 

tocmxxxrt 

LOOPU1507B 


ACC+Bl, LSB 
RISK+BO 


SDrvi608  macro 

Max  Timing:  3+5+14*8+2  =  122  elks 

Bin  Timing:  3+5+14*8+2  =  122  elks 

!        :tm  m 

vaxitbl*  1 


MOW 
SUBWF 


BARG+BO,W 

REM+BO 

ACC+BO 


laltile  1  <  8 


ACC+BO, W 
REM+BO 

BARG+BO,W, 

REM+BO 

ACC+BO 


ACC+BO  ,W 

BEKfBO 

B»«S+BO,M 

ACC+BO,  LSB 
RIHfBO 
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BTFSS 
ADDHP 
RLF 

i=i+l 

endw 

RLF 
RLF 
MOVF 

BTFSC 

SUBWF 
BTFSS 
ASOWF 
RLF 

1  =  9 

lAiile  i  <  16 

RLF 
RLP 
MOVF 


naotie 

RLF 


1=1+1 


ACC+BO.LSB 

REM+BO 

ACC+BO 


ACC+B1,W 

REM+BO 

BARG+BO.W 

ACC+BO, LSB 
REM+BO 
ACC+BO, LSB 
REM+BO 
ACC+Bl 


ACC+B1,W 

REM+BO 

BARG+BO,W 

AGC+B1,LSB 
RBKfBO 
ACC+Bl, LSB 
REM+BO 
ACC+Bl 


BTFSS 
ADDHF 


UDIV1608 


ACC+Bl, LSB 
Ral+BO 


restore  =  9/21  elks,     nonrestore  =  8/14  elks 

Max  Timing:   8*9+1+8*21  =  241  elks 

Min  Timing:   8*8+1+8*14  =  177  elks 

EM:  241  EM:  6 

variable  i 

1  =  0 

while  i  <  8 


RLP 
RLF 
MOVF 


UOK68»V(i) 


GOTO 

BCF 

RLF 


ACC+BO, W 
REM+BO 
BARG+BO.W 
REM+BO 

_C 

00K«8tv(i) 
REM+SO 

_G 

ACC+BO 


i=i+l 


«1«9»Mtereeiij>T«diliBtejyine.  @SOOS26[>paoe49 
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I!  HI 't 

'iiiti*.  !  <  16 

Elf' 

sa,F 

RLF 

MOVF 

SUBWF 

CLRF 

CLRW 

BTFSS 

IHCFSZ 


ACC+B1,W 
SEH+BO 

TEMP 

BARG+BO , W 

REH+BO 

ACC+B5 

-p. 

ACC+B5,H 


BTFSC 

GOTO 

MOVF 


CliRF 
CLRW 
BTFSC 


UOK68#v(i) 
BARG+BO, W 
REM+BO 
ACC+B5 

TEMP 


uoKestvU) 


BCF 


Max  Timing: 
Min  Timing: 
PM:  127 

variable  1 


5+15*8+2  =  127  oiks 
5+15*8+2  =  127  oiks 


i  =  1 

while  i  <  8 

BOW 

BTFSC 

SUBWF 
BTFSS 
ADDWF 


ACC+BO,W 
REH+BO 
BARG+BO, W 
REH+BO 
ACC+BO 


ACC+BO,W 
REM+BO 
BARG+BO, W 

ACC+BS,Xi^ 
REM+BO 
ACC+BO,  LSB 
REH+BO 
ACC+BO 
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RLF 
MOVF 

BTFSC 
SUBWF 
BTFSS 
ADDNF 

RLF 


AGC+Bl.W 

REM+BO 

BASG+BO.W 

ACC+BO,LSB 

REM+BO 

ACC+BO,LSB 

REM+BO 

ACC+Bl 


while  i  <  16 

RLF 
RLF 
MOVF 

BTFSC 
SUBWF 
BTFSS 
ADDHF 
RLF 

i=i+l 

endw 

BTFSS 
ASDHF 


ACC+Bl,  W 

REM+BO 

BARG+BO,W 

ACC+Bl, LSB 
REM+BO 
ACC+Bl,  LSB 
REM+BO 
ACC+Bl 


ACC+Bl, LSB 
REM+BO 


UDIV1507  macro 

Max  Timing:  3+5+14*8+2  =  122  elks 

Min  Timing:  3+5+14*8+2  =  122  oiks 

FMl  122 

variable  i 

MOVF  BKRO+B0,W 
REM+BO 
ACC+BO 


EH:  4 


RLF 


RLF 
RLF 
MOVF 

KEtm 
i  -  2 

vblla  i  <  8 
R£F 

REP  REM+ 


BTFSC 
SUBWF 
BTFSS 


ACC+BO, W 
REM+BO 
BARQ+BO,W 
-SSi+BO 
ACC+BO 


ACC+BO, H 

BARS+BO.H 

ACC+BO, LSB 
REM+BO 
ACC+BO,  LSB 


in  I  litliliiiK  il  in  I  Tm  Liiiim  liii . 
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REM+BO 


RLF 

ACCfBO 

i=i+l 

enc3w 

RLF 

ACC+B1,W 

RLF 

REM+BO 

MOVF 

BARG+BO,W 

BTFSC 

ACC+BO , LSB 

SUBWF 

REM+BO 

BTFSS 

ACC+BO, 

ADDMF 

REM+BO 

RLF 

C  '  J 

i  =  9 

wiiile  i  <  16 

'OK 

RLF 

ACC+Bl , W 

RLF  REM+BO 

MOVF 

BARG+BO,W 

BTFSC 

ACC+Bl , LSB 

SUBWF 

RSM+BO 

..  c 

BTFSS 

ACC+Bl  yliSB 

'.  c+r-  -A 

ADDWF 

RLP 

,  _  .. 

i=l*l 

•J'  tZ-' 

endw 

8S1-.B 

BTFSS 

;  16/8  Bit  Signed  Fixed  PolBfe  H&vtAa  lS/8  ->  16. W 


16  bit  signed  fixed  point  dividend  in  AARG+BO,  AAHG+Bl 
8  bit  signed  fixed  point  divisor  in  BARG+BO 


Use:         CALL         PXD1608S  --'^^Jl 

Output:   16  bit  signed  fixed  point  quotient  in  AARG+Bi.'«'.^iiiBS!»^ 
8  bit  signed  fixed  point  remalnd^  in  REM+BO 


Result:  AARG,  REM  <-  AARG  /  BARG 
Max  Timing:  10+163+3 


176  elks  A  >  a,  B.>  0 

11+163+11  =  185  cUm-Xl* 
14+163+11  =  188  elks 
15+163*3  =  181  elks 


.is  *  $.^'<mi<'  0 

*  <  "0,  B  >  0 
A  <  0,   B  <  0 


Min  Timing:          10+163+3  =  176  elks                       A  >  0,  B  >  0 

11+163+11  =  185  elks  A  >  0,   B  <  0 

14+163+11  =  188  elks  A  <  0,  B  >  0 

iE*UJi»3  '.«  liltl  elks  <  0,  .'B:<<  e 


EM:   15+42+10  =  67 
PXDieOSS  MOVF 


DM:  6 


AARG+BO,W 

BHHMMiiW 
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C%1S08S 


BTFSS 
SOTO 

CQMF 
MCF 

BTFSS 
GOTO 

COMF 

mcF 


C1608S 


COHP 
CLRF 

SDIV1608L 
-  BTFSS  • 

COMP 

INCF 

BTFSC 

DECF 

COHF 

COHF 


BARG+BO,MSB 

cAieoss 


at  »s*r.f 


if  MSB  set  go  &  negate  BABG 


AARG+BO,MSB 

C1608S 

AARG+Bl 
_Z 


;  if  MSB  set  go  &  negate  ACCa 


ii 


O3t!00^«    -  .        .....      .  ... 

AARG+Bl  ■  :  .;        '-        -.  -  .    .      ,.  . 

AARG+Bl 

_Z 

AARG+BO 
MRQ+BO 

SEIf^BO 


***************************************************************** *******************«**^****** 
*****************************************************  *****  *************#****1^***************** 

-    :    -        '.  -T'' 

16/8  Bit  Unsigned  Fixed  Point  Divide  16/8  ->  16.08 

-  r  r  .  I  ~\-. 

Input:     16  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARG+Bl 

15  bit  nawiipiei'  M-iatmA  to  flMief^k-^tPiBS+Bl 

Use:         CALL  PXD1608O 

Output:  16  bit  unsigned  fixed  point  Quotient  In  MRS+Bg,;,AARG+Bl 

16  bit  unslgMa  IWtMWHHr  MNMI 


.    .  .Bmiati  ^i^eea.  rbc.  .<.,  aabs./  bms 

Max  Timing:  1+291+2  =  294  elks 

Min  Timing:  1+227+2  =  230  cjlcs 

PM:  1+39+1  =  41  DM:  7 

FXD1608U  CLRF  RBH+BO 

BETLH 


. ********************************************************************************************** 
*********************************************************************************************** 

;  16/7  Bit  tJbslgned  Fixed  Point  Divide  16/7  •>  16.07 

;  Ii^t:    16  bit  unsigned  fixed  point  dividend  in  MRG+BO,  AARG+Bl 


5-U1 


f  7  bit  unsigned  fixed  point  dtwtsw  in  BARG+BO,  BARG+Bl 

;  Use:         CALL  PXD1607U 

;  Output:  16  bit  unsigned  fixed  point  quotient  in  AARG+BO,  AARG+Bl 

S  ?        OBsigned  fixed  point  remainder  in  ES<I4-»0  " 

Result:  AARG,  REM    <-    AARG  /  BARG 

Sax  Timing:  1+171+2  s  1?4  .«ifca  ' 

Min  Timing:  1+171+2  =  174  elks  ■  ' 

;  PM;   1+39+1  =  41  DM:   5  ---  ' 

FXD1607U  CLRF  REM+BO  'ia+OW/ 

OxOO  ■  '  -' 


*************]^* *********************************************************** A************ ******* 
********************************************************************************************** 

15/7  Bit  Unsigned  Fixed  Point  Divide  15/7  ->  15.07'"  ^  '■ 

Input!     15  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARO*M  '•'■^'^fl 
7  bit  unsigned  fixed  point  divisor  in  BARG^BO,  BARG+Bl  ' 

Use:         CALL  PXD1507U 

Output:  15  bit  unsigned  fixed  point  quotient  in  AARG+BO,  AARG+Bl 
7  bit  unsi0Mi4  Ctaod  peatnt  c^nalnder  in  SE^+BO 

Result:   AARG,    REM     <-     AARG  /  BARG 

Max  Timing:  1  +  163+2  =  166  elks  •«•••*••»••••••...-••»  

Min  Timings  1+163+2  =  166  oiks 

m.!  1+42+1  =  44  DM:  5 

FXD1507O  CLRF  ^ >*Et(»iO' "-  'C'  J-'il,       :    .i  l      -   :  -..(•  , 


:        ^r:  ,  I,,  ,.  .       f  ..^  , .  -  ,,  - 

END 

***********************************************************A**AA^^.^.^.^AA******************** 
*****************  *************************************************************  ***********«^ 

.  .li-'  J*'  -  T^M 

tj-.^j  Of.  -  I..UOUT  nJ.IC 

"   iM.l  S!  -I  - 
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APPENDIX  N:  16/16  FIXED  POINT  DIVIDE  ROUTINES 

16/16  PIC16  FIXED  ?^0t' WUS&IBSS  VmslOS  1.5 
Ii^t:     fixed  point  liJ4)Bpgtt%>  MlA  MtSB 

Output:  qttOti«it  MSG/BMSS  follolMi  tlr  iMWindeC 'i^'Siit' 
All  timings  are  woxst  case  cycle  counts 

It  is  useful  to  note  that  the  additional  routine  FXDlBlSn 
can  be  called  in  a  signed  divide  application  in  the  special  case 
where  AARG  >  0  and  BARG  >  0>  tli«pd^  offering  some  is^rovan^at  in 
perfozmance. 

Routine  CJ^^m  IMetMl 

FZD1616S  319  16  bit/16  bit  ->  16.16  signed  fixed  point  divide 

FXD1616U  373  16  bit/16  bit  ->  16.16  unsigned  fixed  point  divide 

FXD1515U  294  15  bit/15  bit  ->  15.15  unsigned  fixed  point  divide 

The  above  timings  are  based  on  the  looped  macros.  If  space  permits, 
%I>i:oxinately  65-69  clocks  can  be  aanxBd  Itif  miog  the  -Mie^lled  macros .' 

list       r=dBe,aft*»,t*^fi,i«3btefl  M.I. 


include  <PIC16.n^ 


1  ■  > 


*  ********************* 

I  Define  divide  reglse«r  mwUMeM 


ACC 

equ 

;  sMMI  mi^UimMt  byte  of  contiguous  4  byte  accumulator 

SIGN 

equ 

;  mm  'Smmittm       mi0^  in  msb 

TEMP 

equ 

0x19 

;  temporary-  sto^mpt         V^  Ju-J^uU, 

Define  binary 

operation 

arg\unents 

AARG 

equ 

OxOD 

;  most  significant  byte  of  argument  A 

~  .V 

BARG 
REH 

equ 
equ 

ime 

;  most  significant  byte  of  eurg^iflkent  B  it.^< 
;          tig0E:lcmt.  byte  of  remainder 

LOOPCOCMT  eija 

H«>te:        (  AARG+BO,  AARG+Bl  )     and     (  ACC +30,  ACC+Bl) 

reference  the  same  storage  locations,  and  similarly  for  '' 

•alio  «•<.  -. 

:  16/16  Bit  Division  Macros 

SDIV1616L  macro 

Wax  Timingi  «  'JSii' 

;  mn  Timing,.         13+3t«*5*4rftS*3  «  36!i  '■..^-K-.-  - 

;  PM:  42  EUi  7  '  'J 


®  1 994  Microchip  Technology  Inc. 


&4I43 


DS00526DTpage  55 


RLF 

HLF 

MOW 

StJBWF 

MOVP 

BTFSS 

INCFS2 


RLP 


W3f 


SADDSeL 


BTFSS 
GOTO 

SUBWF 

MOVF 

BTFSS 

INCFSZ 

SUBWF 

GOTO 

ADDWF 
.liOVF  '  ' 
BTFSC 
mCFSZ 


RLF 
RLF 

DECFSZ 

GOTO 

BTFSC 

GOTO 

MOVF 

MOW 

BTFSC 

INCF 

ADDHF 


ACC+BO,W 

REM-fBl 
REH+BO 

BARG+B1,W 
REM+Bl 
BARG+BO,W 
_C 

BARG+BO,W 
REM+BO 
ACC+Bl 
ACC+BO 

15 


■    ■    .  -■         -  ■-  ■  ■  ir.± 


ACC+BO,  W 
REM+Bl 


ACC+Bl , LSB 
SADD66L 

REM+Bl 

_c 

BARO+B0,W 

REM+BO 

SOK66LL 

REH+Bl 

_G 

ACC+Bl 
ACC+BO 

L00PS161S 
ACC+Bl ,  LSB 

soKeeL 

BARG+B1,W 

Jc  - 

_C 

BARG+BO,W 
REM+BO 


»1  ISC 


:«c.v- 


:  .-^    '    --if  tu.  :  : 

UDIV1616L  macro 

;  restore  =  23  elks,     nonrestore  =  17  elks  ..    .   .  «   

Max  Timings  2+15*23+22  =  369  elks 

J..  i-?lM  .1    .  ^i: 

Min  Timings         2+15*17+16  =  273  elks 

-.    ii.  fi 

FKs  24  mts  7 

MOVLW  16 

MOVWF  LOOPCOUNT  -.      ;^   ,    '. -=   -  3  '  •  t  '  ♦ r  r 


LOOPU1616 


RLF 


ACC+BO,  W 
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•  Max  Timl&gt 

;  Min  Timing  I 

I  FM:  42 


RLF 

RLF 

RSKfBO 

MOVF 

BABG+B1,W 

SUBWF 

SEKfBl 

MOVF 

BARG+BO,W 

BTFSS 

_C 

INCFSZ 

BARG+BO,W 

SOBHF 

.MOD 

BTFSC 

_c 

GOTO 

UOK66LL 

MOVF 

BARG+Bl , W 

ADDWF 

REM+Bl 

MOVF 

BARG+BO,W 

BTFSC 

ACDHF 

BCP 

_c 

RLF 

ACC+Bl 

RLF 

SBCFSZ 

GOTO 

Lo^ffitiis 

n.'i.  .  COS 

macro 

UADD55L 


«i»(tn>sa 


13+14*17+Xe+3  -  270  elks 


DM:  7 


KLF 

ACC+BO,W 

1  .  . 

RLF 

RStft-Bl 

SLF 

REH+BO 

MOVF 

BARG+Bl, W 

SOTWF 

RBH+Bl 

MOVF 

BARG+BO,W 

BTFSS 

_C 

INCFSZ 

BARG+BO.W 

SOBHF 

SXK+BO 

■i'.  C  *. 

KLF 

ACX:+B1 

RLF 

»ec*WQ 

IXT  ji'.- 

iiOVLH 

IS 

.U4 

MOVHF 

-Liicseoo^ 

RLF 

»CC+BO,W 

SLF 

a 

-   t  •Itlbl 

RLF 

mmm 

MOVF 

•■19 

BTFSS 

ACC+Bl , LSB 

GOTO 

UADD55L 

SOBWF 

REM+Bl 

HOVF 

B*Ra+BO,W 

(il  •/<.<-.. ■:-«'! 

BTFSS 

_C 

INCFSZ 

BARG+BO,W 

SUBWF 

REM+BO 

GOTO 

UOK55LL 

REM+Bl 

MOVF 

BftSG+BO,ll 

BTFSC 

_C 

RLF 


BTFSC 

GOTO 

MOVF 

ADDHF 

MOVF 

BTFSC 

INCF 


EM»3+B0,W 

ACC+Bl 
ACC+BO 

LOOPCOUNT 
L0OPCJ1515 

tIDKSSI. 

BARG+B1,W 

REM+Bl 

BARG+BO,W 

_C 

BARG+BO,W 
REM+BO 


•-"■J- 


C0K55L 


Bwero 
Hln  Timing  I 


f*i0+«*14+14+7*14+e  =  221  elks 
7-i.t6+«n3»t3*7*13*3i  -  202  elks 


(i  7+10+6*18+18+7*18+8  =  277      EMl  6 


varial^le  i 

MOVF 

BAB6+B1,W 

SUBWF 

MOVF 

BTFSS 

_c 

INCFSZ 

BAS£t+BO,W 

SUBWF 

Ra(+BO 

ACC+BO 

ma 

A££t>BO,W 

Htm 

SEit+Bl 

RLF 

REM+BO 

MOVF 

BARG+Bl  ,M 

ADDHF 

REM+Bl 

MOVF 

BARG+BO,W 

BTFSC 

_C 

BMBS+BO.H 

BBK+BO 

mM 

ACC+BO 

1  =  2 

while  i  <  8 

KOf 

ACe+BO,W 

RLF 

REM+Bl 

RLF 

REM+BO 

MOVF 

BARG+Bl, W 

BTFSS 

ACC+BO, LSB 

GOTO 

sa!»66*v(i) 

SUBWF 

imi+Bi 

MOVF 

BAEtO+B0,W 

BTFSS 

_c 

INCFSZ 

BARG+BO,W 

SUBMF 

REM+BO 

OOTO 

so!e6e*v(i) 

jiiranec.: 
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air  WllJi1>MlirniiiliWftrflTMrilt^'iititVi-f  hr't 

V' iwwwBiQnip*?  voiwionQy' '  inc. 


i) 


ADDWF 

MOVP 

BTFSC 

mCFSZ 

AEOMF 

SLF 

i=i+l 

encitf 

HLF 

RLF 
RLF 
MOW 


REM+Bl 
BASG+BO,W 

BBHfBO 
ACC+BO 


REM+Bl 
REM+BO 
BARG+B1,W 


o-l  'o.'.V  C'l 


BTFSS 
GOTO 


ACC+BO,LSB 
SAE0668 


SUBWF 

MOVF 

BTFSS 

INCFSZ 

SUBWF 

GOTO 


BEH4.B1 
BARS+BO.W 

_C 

BARG+BO,W 

REM-fBO 

SOK668 


ADDHF 
MOVP 

BTFSC 

INCFSZ 

ADDWF 


B»RS4>B0,« 

_c 

BARG+BO,H 
REM+BO 


SOK668 


RLF 
i  =  9 

lifen*  i  <  is 

RLF 
RLF 
RLF 
MOVF 


ACC+Bl 


ACC+B1,W 
KBatt-Bl 


■J. 

,.  ■'CI- -I 

■J-/ 


BTFSS 
GOTO 


ACC+B1,LSB 
SADD66#v(i) 


SDBWF 

MOVF 

BTPSS 

INCFSZ 

SUBWF 

GOTO 


REM+Bl 

_c 

BARG+BO,W 

REM+BO 

SOK66#v(i) 


SADD66#v(i) 


1) 


ADEWF 
MOVP 
BTFSC 
INCFSZ 


iOiF 
i=i+l 


REM+Bl 

BlffiS+BO,H 
RBM+BO 

ACC-fBl 


BTFSC 

GOTO 

MOVF 


ACC+B1,LSB 

SOK66 

BARG+B1,W 
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restore  =  20  elks 
Max  Timing:  16*20 
Min  Timing:  16*14 
m-.  16*20  =  320 

fag 

RLF 

MOW 

SUBWF 

MOVF 

BTFSS 


nonrestore  =  14  elks 
=  320  elks 
=  224  elks 


16 


BTFSC 

GOTO 

MOVF 

ADQWF 

MOVF 

BTFSC 


REM+BO 
BARG+Bl.H 
REH+Bl 
BAR6+B0,H 

_G 

REH+BO 


UOK66#v(i) 
BARG+B1,W 
REHt-Bl 

_c 

BftRS+BO.H 
RSfl-BO 


ACC-KBl 
JkCC+BO 


i=i+l 
endw 

I  BUE  t4«bi|!«         94-10+6*14+14+7*14+8  >=  221  elks 

;  1^  Timing,         7+10+6*13+13+7*13+3  =  202  elks 

!  H|i         7+10+6*18+18+7*18+8  «  277  DM:  6 

variable  i 

MOVF  BARG+B1,W 
SUBWF  REH+Bl 
MOVF  BARG+BO ,  W 
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BTFSS 
INCFSZ 
SUBWF 
HLF 


BARO+B0,W 
HEM+BO 


RLF 

RLF 

RLF 

MOVF 

ADDWF 

MOVF 

BTPSC 

INCFSZ 

ADDWF 


ACC+BO,W 

REM+Bl 

REM+BO 

BARG+B1,W 

REM+Bl 

BARG+BO,{( 

_C 

ACC+BO 


('  «  i 


while  i  < 


RLF 

RLF 
RLF 
MOVF 


REM+Bl 
REM+BO 
BARG+Bl , W 


BTFSS 
SOTO 


ACC+BO,LSB 


tJ0KS5;#V(i) 


SUBWF 

MOVF 

BTFSS 

INCFSZ 

SUBWF 

Q09b 

ADtjtJF 

MOVf 

BTPSC 

INCFSZ 

ADDWF 

RLf 

i=i;+l 
endw 


REM+Bl 
BARG+BO,W 

_C 

BfiRQ+BO.W 
HE3t4-BO 

ucacsstvd) 

BAI»+BO,H 

_C 

BARG+BO,W 
RHM+BO 

ACC+BS 


-a 

'VUM 

;'>lljriA 


RLF 
RLE 
SLF 
MOOT 

BTFSS 
GOTO 

SUBWF 

MOVF 

BTFSS 

INCFSZ 

SUBWF 

GOTO 

ADDWP 
MBVFn 
BTFSC 
IHCESZ 


ACC+B1,W 
REH+Bl  , 

ACC+BO,LSB 
UADD558 


REM+BX  ,  '-■  t 

_e 

BARG+BO,W  V,  -=•    >aJi    1>*M  IJIIUMIS 

REM+BO 

REM+Bl 
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UOK558 


tdiile  1  <  16 

RLF 
RLF 
MOVF 


ACC+Kl,W 

REM+Bl 

REM+BO 
BARG+B1,W 


UOK55#v(i) 


BTFSS 
SOTO 

SUBWF 
MOVF 

BTFSS 

INCFSZ 

SUBWF 

ADDMF 

MOVF 

WTFSC 


ADDHF 
ELF 


ACC+Bl , LSB 
a»IX955tv(i) 

_c 

BARG+BO,W 

REM+BO 

nOK55*v(l) 

_c 

BARG+BO,W 

REM+BO 

ACC+Bl 


BTFSC 
GOTO 
MOVF 
ADCWF 

MOVF 
BTFSC 

mcF 


ACC+Bl,  LSB 
UOKS5 

tirat+Bi 

BARO+B0,W 

_C 

BARG+BO,W 
RBM+BO 


*******  tt* 


************* 


******** 


************************************** 
************************************** 


16/16  Bit  Signed  Fixed  Point  Divide  16/16  ->  16.16 

£^t:     16  bit  fixed  point  lafviaeiid  la  MRG+BO,  AARO+Bl 
16  bit  fixed  point  divlAor  in  BMQ+BO,  BARG+Bl 


Use: 


CALL 


FXD1616S 


Output:  16  bit  fixed  point  quotient  in  AARG+BO,  AARG+Bl 

16  bit  fixed  point  remainder  Is  BBM+BO,  ttStM^* 

$mm  I  MIS'  ■ 

11+290+3  =  304  elks  A  >  0,  B  >  0 

15+290+14  =  319  elks 

15+290+14  =  319  elks 
19*290+3  =  312  clta  - 


Result:  AARG,  REM 

Hagi  finliigi 


ISti^tS*         11+255+3  =  269  elks  ji  0 

1S+2SS+14  =  a««  el»g<-H-  * 
15+255+14  =  284  elks 
19+255+3  =  277  elks 


A  > 
A  < 
A  < 


A  > 
A  < 
A  < 


0,  B  <  0 
0,  B  >  0 

r^r  -B 

0  ,  '«S*<  0 
0,  B  >  0 
0,  B  <  0 
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IHCidCiX/  lieXX  M^H  tliiiit^Rcnit1nl»s 


FH:  19+42+13  =  74 


Fxoieies 


CA1616S 


ei6iss 


MOW 
XORWF 
MOVWF 
BTFSS 

ocwo  ■  ~ 

COUP 
INCF 

BTFSC 

DECF 

COMF 

BTFSS 

GOTO  -> 

COMF 

INCF 

BTFSC 

DECF 

COMF 

CLRF 
CLRF 

SDIV1616L 

BTFSS 
RETLH 

COMF 

INCF 

BTFSC 

DECF 

COMF 

COMF 

mcF 

BTFSC 


ccaiF 

RBTIM 


AARG+BO,W 
BARG+BO , W 
SIGN 

BARG+BO,  MSB 

t^KBftf  ■  •  ■  *  ■ 


if  MSB  set  go  &  negate  BARG 


BARG+Bl 
BARG+Bl 

_Z 

BARG+BO 
BARG+BO 

AARG+BO,MSB 


J  An 

;  if  MSB  set  go  &  negate  ACCa 


M»e+Bi 


lUUlG+Bl 

_z 

AARG+BO 
AARG+BO 


KEK+Bl 


SieM.MSB 
0x00 

Ma«^f-Bi 
_z 

AARG+BO 
AARG+BO 

jgiHfBl 
RBM+Bl 
_? 

0x00 


;  negate  (ACCcACCd) 


00>!C' 


. ********************************************************************************************** 
.**************************************************************************************•'******* 

16/16  Bit  Unsigned  Fixed  Point  Divide  16/16  ->  16.16 

;  Input:     16  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARG+Bl 

;  16  bit  uaslgned  fixed  point  divisor  in  BARO+BO,  BM^Bl 


Output:  16  bit  unsigned  fixed  point  quotient  in  AARG+BO,  AARG+Bl 

16  bit  vmm^um  t^ma-  »9tm  wmMm  ^  iwm<>«»>  laK^si 


;  Result:  AADG,  REH    <-  / 

}  Max  Timing:  2+369+2  =  373  elks 

Min  Timing:  2+273+2  =  277  elks 

;  PM:  2+24+1  =  27  DM:  7 

PXD1616U  CLRF  REH+BO 
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CLRF  RHt*Bl 

UDIV1616L 

RETLW  0x00  ■  ; 

.  **********************  A* 

.  ******************************************************  ********^*****«*********^.******#* 

15/15  Bit  Unsigned  Fixed  Point  Divide  15/15  ->  15.15 

;  Input:     15  bit  unsigned  fixed  point  dividend  in  AARG+BO,  AARG+Bl 

;  XS         aosigned  fixed  point  divisor  in  BKtQ+BO,  BARG+Bl 

I  Use:        CALL  smiSlSS 

t  iSWI^ti:  %%  Mfc  unsigaed  fdxed  point  quetleitt  in  AAI^-rSO',  AASO^Sl 

:  IS         amsigned  fixed  point  reinainder  in  RBM+BO ,  RBM^Bl 

i  ■  /' 

;  .UllMalfti  MWi,  -tm    <-    MSG  I  Bass 

;  Hue  Timing:         2>>'2?0+2  =  294  clfcs 

!  Min  Timing:  2+270+2  =  274  elks 

PM:   2+42+1  =  45  DM:   7  ,  . 

FZD1515U  CLRF  REM+BO 

CIJtF  REM+Bl 


3'.  r»( 


REnW  0X00  Li  ^fAA 

END  ■  ; 

-***************************•*******************##»***•**********************♦*****»*•********* 
J  **************************•*****************#*«***•*•*****.*******  ***********%^**.A*«*«*###1lr 


n  ,0K!.".  '        ■   <^f■;vl^  »eic^f«>''>  J         %m>  31-3  H  •ji'i"! 

./  -   in:.  ,us  .         ^      ,..zi  '  iW  «>' 

1 


=4*    ->    X(i-,  a?jK^- 


PIC16C5X/  16CXX  Math  Utility  Routines 


JWVENDIX  O:  32/1 6  FIXED  POINT  DIVIDE  ROUTINES 

32/16  PIC16  FIXED  POINT  DIVIDE  ROOTINES  VERSION  1.5 

;  Input:     fixed  point  arguments  in  AARG  and  BARG 

;  Output:  quotient  AARa/BABS  followed  by  remainder  In  Ripi. 

J  All  timings  are  worst  ease  e^Ie'  oeaW:«  ••• 

;  It  is  useful  to  note  that  the  additional  routine  FXD3115U 

;  can  be  called  in  a  signed  divide  application  in  the  special  case 

;  where  AARG  >  0  and  BASfi  >  0,  theratiy  oC£«B'Jiii^  asne  inprovera^t  in 

;  performance. 


Routine 


raD3216S       578  32  KiC/lifi  mt  ->  33. IS  mimm^  fixed  point  dlwidB 
FXD321gO       702  32  bit/lg  Kit  ->  33. 1<  -mmiigBmei  fixed  point  divide 
FXDSllSn       541  31  bife/lS  kit  -»  m.lS  u^tsnad  fixed  point  divide 
list      *Bdete',H=«s»,i;-off  ,p=16e?l  w,oe*u'i.-j 

include  <PIC1S,: 


-■tryjts 

.J-  'jC 


.*********  ******************************  ************ik******«iJc**it*********** 


Define  divide 

rtmMmt  inlviiiibles 

ACC 

equ 

OxOD 

;  most  significant  byte  of  contiguous  4  Isyte  aoeian^lftt^ 

SIGN 

equ 

0x13 

;  save  location  for  sign  in  MSB 

-.  n 

TEMP 

equ 

0x19 

;   ten^orary  storage 

Tim 

Define  binary 

^pe^^nti^i 

AARG) 

e^ 

OxOQ 

r  MHSt'  .«i$^£tiMtt.          °f  argument  A 

BABS 

eqa 

0x16 

;  most  slgnlficaait  byte  of  argument  B 

REM 

equ 

0x11 

;  mamb  siigolf  ieaaot  byte  of  mammSes 

IiOOPCOUNT  equ 

0x14 

;  loop  e^Mitattr 

(  AARG+BO,  AARG+Bl   )     and     (  ACC+BO,  ACC+Bl) 

reference  the  same  storage  locations,   and  similarly  £oZ 

(  REM+BO,   REM+Bl   )   euld   (  ACC+B4,  ACC+B5  ) 


.  ************************************** ******»*******«*##4#|^P^!d%^ 
.  *************  jt************************ 


;  32/16  Bit  Division  Kkcros 

SDIV3216L  macaro 
;  Max  Timing: 

;  Min  Timing: 

PM:  157 

MOW 
SDBHl 
MOVP 


■  U 

9+6*17*l«*l«+«*17*16+16+6*17+16+16+6*17+16+8  ■=  5??  elimn 

  T  -St 

9+6*16+lS+15+6*l6+lS+15+6*16+15+i5##f,^*S+3  =  501  cl*»r:l 

EM:  9 


BARG+Bl.W 

nmmi 


PIC16C5X  /  16CXX  Math  Utility  Routines 


BTFSS 
INCFSZ 


REKt.BO 
ACC+BO 


MOVLW 
MOVWF 


LOOSCOtJNT 


i.oops32ieA 


RLP 
RLF 
RLF 
MOVF 

BTFSS 
GOTO 


REM+Bl 

REM+BO 

BARG+Bl.W 

ACC+BO,LSB 

SADD26LA 


SUBNF 
MOVF 
BTFSS 
INCFSZ 

GOTO 

ADDWF 

MOVF 

BTFSC 

INCFSZ 

ADDWF 


BaSQ+BO.W 

_G'  "CI 
BARG+BO ,  W 
REM+BO 
SOK26LA 

REM+Bl 

BARG+BO,  W 
REM+BO 


■  m 


tve' 


GOTO 

RLF 
RLF 
MOVF 


IiOO^S321«A 

ACC+B1,W 
REM+Bl 
REM+BO 
BARG+B1,W 

SADD26LS 


•J-J'. 

Mm. 


SUBWF 
MOVF 
BTFSS 
INCFSZ 


REM+Bl 
BARG+BO,  W 
_C 

BARG+BO,  W 


SOU.'. 


etms 


SOK26L8 


ADDWF 
MOVF 
BTFSC 
INCFSZ 

txsam 

RLF 


BLF 
tfOVF 
BTF^ 
GOTO 


REM+Bl 
BARG+BO,  W 

_C 

BARG+BO,  W 


LOOfCOOilT 

»CC+B1,W 

RQJ+Bl 

REH+BO 

BARG+B1,W 

ACCo-Bl.IiSB 

SJuasseiiB 


SUBWF 

MOVF 

BTFSS 


REM+Bl 
BARG+BO, W 
_C 

BABS+B6,W 


<0^MMMfllMMIIMn^ 


PIC16C5X/  16CXX  Math  Utility  Routines 


ADDWF 
MOVF 


ADDWF 


DECFSZ 


GOfO 


moVf 

BTFSS 
INCFSZ 
SUBWF 
W*0 

ADI^ 
MOVF 

BTPSC 

INCFSZ 

ADDWF 

RLF 

MOVLW 

MOVWP 

RLF 
KLF 
RLF 


B¥fSS 

GOTO 

SUBWF 

MOVF 

BTFSS 

INCFSZ 

SUBWF 

GOTO 


GOTO 
RLF 

BTFSS 


REM+BO 
REM+Bl 

REM+BO 

ACC+Bl 

LOOPCOUNT 
I.0OPS3216B 

REM+BO 
BARG+B1,W 
ACC+Bl, LSB 


_c 

BARG+BO,W 
REM+BO 

_c 

BARG+BO,W 
REM+BO 

ACC+B2 


LOOPCOUNT 

ACC+B2,W 

REM+Bl 

REM+BO 


SADD26LC 
RSI+Bl 


ci!.>as 


US 

LOOPCOUNT 
LOOPS3216C 

ACC+B3,W 
RBM+Bl 
R^+BO 
BaitS+Bl,W 


--•)(. 


-•  m 


o-OO 
It"  WPS 

'  .  .  ...11 
-ja 
'  wo 

vOK 


■  <i 
,  IK 


PIC16C5X/  16CXX  Math  Utility  Routines 


SADD26L24 


I,OOPS3216D 


GOTO 

SOBWF 

MOVF 

BTFSS 


ADDWF 

MOVF 

BTFSC 


MOVLW 
MOVWF 

RLF 

tax 

MOVF 

BTFSS 

GOTO 


SADD26L24 

REM+Bl 
BAKG+BO.W 

_C 

SOK26L24 

REM+Bl 
BARG+BO.H 

_C 

ACC+B3 


LOOPCOUNT 


BAR0+B1,W 

ACC+B3,LSB 

SADD26LD 


3_ 


W,OC  -rM!.-.T 


SJUH]2SU> 


SOBWF 
MOVF 
BTFSS 
mCFSZ 


GOTO 

ADDHF 

MOVF 

BTFSC 

mcFsz 


GOTO 

BTFSC 

GOTO 
MOVF 
ADDWF 
MM 


S0K2eL 

enc±n 

ODIV3216L  maceo 
;  Max  Timing: 

;  Hin  Timing  I 

FM:  233 

MOVF 


REM+Bl 

_c 

BARG+BO.W 
REM+BO 
S0K2 6LD 

REM+Bl 

MJ^BS.W 

_C 

SkBS+BO,H 
REH+BO 

ACC+BS 

I/>^S321CD 

ACC+B3,LSB 

SOK2  6L 

BARG+B1,W 

REH+Bl 

BftBS+BO.N 

_C 

BM)S+BO,W 
REH+BO 


W 


I-  +IUi 


3T-  • 


15:*«*22+21+21+6*22+21+21+6*22+21+21a#l9Sai^*d 
lS+6*21+20+20+6*21+20+20+6*21+20+20+6*2i+20+3 
at:  11 

. :  •mi' 


K«EM>B1,W 
IW+Bl 


SSS  elk*-. 


■1  •  .7  -  .OOit? 


5-156 


MOVF 

S"Ct< 

BTFSS 

_e 

■> 

INCFSZ 

MRS+BO.W 

SUBWF 

SBtfBO 

I -St- 

CLRF 

SIGN 

CLRW 

BTFSS 

_G 

INCFSZ 

SIQN.M 

,7  ,- 

SUBWF 

TEHP 

RLF 

ACC+BO 

•  -  ■ 

7 

movWf 

LOOPCODHT 

RLF 

ACC+BO,W 

RLF 

REH+Bl 

RLF 

REM+BO 

MOVF 

BARG+Bl , W 

BTFSS 

ACC-fBOyliSB 

K.ra+wAi! 

GOTO 

■  1 

RBHt-Bl 

MOVF 

BARG+BO,W 

BTFSS 

c 

.-,,(,, 

- 

BARG+BO  t W 

RSM^BO 

CLRF 

SIGN 

CUW 

-  . 

BTFSS 

c 

SIGN,W 

9USHF 

TEMP 

■■ 

GOTO 

UOK26IiA 

-  ■;- 

ADDNF 

REH+Bl 

MOVF 

BARG+BO ,  W 

BTFSC 

c 

tt.OO+r.-j'j 

XiNV-r  Oil 

ADDWF 

RBK+BO 

CLRF 

SIGN 

CLRW 

BTFSC 

_c 

IKCFSZ 

ADBHF 

al 

Rlf 

ACC+80 

r  -  ■, 

LOOPCOUNT 

LOOPU3216A 

V  ••(> 

RLF 

RLF 

RLF 

RBI+BO 

.  a 

MOVF 

BARG+Bl,  W 

■  ja 

BTFSS 

ACC+BO,LSB 

GOTO 

UAOD26L8 

>■  '.^ 

SUBWF 

SBH+Bi 

MOVF 

BMtS+BO,H 

V 

BTFSS 

_C 

INCFSZ 

mia+BO.w 

SUBWF 

RBtt+BO 

.  .■■  7t!I 

CLRF 

SIGN 

■i,  je 

CLRN 

IKtlg 

BTFSS 

_C 

mCFSZ 

SIGN,W 

SUBWF 

TEMP 

H.w:— i 

GOTO 

UOK2eL8 

ADDWF 

REM+Bl 

FH€:IGCDC:/1WXK  Malti  IHilitrBoutifies 


MOVF 

BTFSC 

INCPSZ 

ADDHF 

CLRF 

CLRW 

BTFSC 


BAB&t-BO.H 
_C 

BARG+BO,W 

REM+BO 
SIGH 

_C 


'■I  Df 


LOOFa3216B 


MOVLW 
MOVWF 

RLF 

MOVF 

BTFSS 
GOTO 

SUBWF 


INCFSZ 

SUBWF 

CLRF 

CLRW 

BTFSS 


GOTO 

ASDWF 

MOVP 

BTFSC 


stiem 

CLRF 

CLRW 

BTFSC 

INCFSZ 

ADDWF 


LOOPCOUNT 

ACC+B1,W 

SBKt-Bl 

REH+BO 

BARG+Bl , W 
ACC+B1,LSB 
UADD2  6LB 

REM+Bl 

_c 

B%»S+BO,W 

REMfBO 

SICM 

_C 

SXOf.N 

UOK26LB 

REM+Bl 

BAIi!S+BO,t« 

_C 

SIGN 

_c 

Sldt.W 
TEMP 


PEJ .  'If.  A 


•.'t'.!r?-' 


Oe-jru 

•-tit. 


v.  -  - 


rk-  -.HI 


tR9!E26LB 


RLF 


DBCFSZ 
OPTO 


LOOPCOUNT 
I.OOFU3216B 


iraVF 

BTFSS 

GOTO 


ACC+B2,W 

REM+Bl 

REM+BO 

BARG+Bl,  W 

ACC+Bl,LSi 

UADD26L1S 


SUBWF 

MOVF 

BTFSS 

IMCFSZ 

SUBWF 

CLRF 

CLRW 

BTFSS 

INCFSZ 

SUBWF 

GOTO 


REM+Bl 
_C 

SIGH 

_C 

SIGN,W 
TEMP 

DOK2SI.16 


.IBS  I'-. 


5^188 


BTFSC 
INCFSZ 

CLRP 
CLRW 
BTFSC 

mcssz 


WI[2SL16 


HOVW 


BARG+BO ,  W 
REH+BO 

Sim 
_c 

SIGH.W 
TBKP 

ACG+i2 


iiooficotan' 


RLF 

RLF 
RLF 
MOVF 


OOTO 

SUBWF 
MOVF 
BTFSS 
INCFSZ 


rAI»26IiC 


omasLc 


CLBF 

CLSm 

BTFSS 

INCFSZ 

SUBWF 

GOTO 

ADDWF 

MOVF 

BTFSC 

INCFSZ 

ADDHF 

CLRF 

CLRW 

BTFSC 

INCFSZ 

msam 

RLF 


ACC+B2,W 

REM+Bl 

REM+BO 

BARG+B1,W 

ACC'fB2,LSB 

t>aDD26LC 

REM+Bl 

BARG+BO,  W 
_C 

BARG+BO,  W 

Sim 

_c 

SIGN.W 

TEMP 

UOK26LC 

JS 

BMKS+SO.N 

HBh-BO 

SIGN 

^C 

sxm.v 


3_ 


w&z; 

"ah;  i 


DECFSZ 
GOTO 

RLF 

RLF 

RLF 

MOVF 

BTFSS 

GOTO 


MOVF 
BTFSS 

INCFSZ 

SUBWF 

CLRF 

CLRW 

BTFSS 

INCFSZ 

SUBUF 

0^6 


LOOPCOUNT 
LOOPU3216C 

ACC+B3,W 

REM+Bl 

REH+BO 

BARG+B1,W 

ACC+B2,LSB 

UAE026L24 

RBK+Bl 
BARG+BO,  H 
_C 

BftRO+BO.W 
BSt+BO 

szm 
_c 

SIGif.H 

TEMP 

DOK26ti24 


hi/'.!- 
.-3 
V  it 
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UAIS32 61.24 


00X261.24 


LOOPU3216D 


XJOS26XJ) 


ADDHF 

MOVF 

BTFSC 

INCFSZ 

ADDWF 

CLRF 

CLRW 

BTFSC 


MOVLW 
MOVWF 

RLF 

MOVF 

BTFSS 
GOTO 

SUBWF 

MOVF 

BTFSS 

INCFSZ 

SUBWF 

CLRF 

CLRW 

BTFSS 

INCFSZ 


GOTO 

ADDWF 

MOVF 

BTFSC 


CLRF 

CLRW 

BTFSC 

INCFSZ 

ADDWF 

RLF 

DECFSZ 
GOTO 

BTFSC 

GOTO 

MOVF 

ADDWF 

MOVF 

BTFSC 

INCF 

ADDWF 


BARG+BO.M 

_C 

BARG+BO,H 

REM+BO 
SIGN 

_C 

SIGH.W 


ACC+B3 


LOOPCOUNT 
ACC+B3,W 

RXit+BO 

BARG+B1,W 
ACC+B3,LSB 
UADD2  6LD 

REM+Bl 

_c 

BARG+BO,W 

REM+BO 

SIGN 

_C 

SIGR.W 
TEMP 

UOK26LD 

REM+Bl 

mm*no,v 
_c 

BABS+BO.W 
REH+BO 


_C 

SIGN.W 
TEMP 

ACC+B3 

LOOPCOUNT 
LOOPU3216D 

ACC+B3,LSB 
tlOK26L 

BARO+BO.M 

_C 

BARG+BO,W 
REH+BO 


sa.; 


«  OB+iiS-'.; 


I'rI'M'  ■-.or' 


IS.I ,  £»+a..i 


VieK26h 


BDiVBllBL  macro 
;  Max  Timing: 

;  Min  Timing: 


9+6*17+16+16+6*17+16+16+6*17  +  16+16+6*17+16+8  =  537  elks 
9+6*16+15+15+6*16+15+15+6*16+15+15+6*16+15+3  =  501  elks 


m 


MOVF 


BTFSS 

INCFSZ 

SUBWF 


RBI+Bl 
_C 

BMtS+BO.W 
ACC+BO 


DM:  9 


MOVLH 

MOVW 


LOOPCOtJNT 


RLF 

RIiF 

UOVF 

BTFSS 

GOTO 


MOVF 

BTFSS 

INCFSZ 

SUBWF 

GOTO 

ADDNF 

MOVF 

BTFSC 

INCFSZ 


ACC+BO,W 
REM+Bl 
REM+BO 
BARG+B1,W 

RBM+Bl 

BARG+BO,W 

_C 

BARG+BO,W 

REM+BO 

UOKlSIiA 

REH+Bl 

BARG+BO.W 

_C 

BARS+BO.W 
SBK+BO 

ACC+BO 


■•  ■■.•I 

l.'lf  -t  -fi 


•KSU». 
•  TOO 


IiOOFCODNT 
LOOPD3115A 


U0K15LS 


lilBiaKiillSB 


MOVF 


GOTO 

SUBWF 
MOVF 
BTFSS 
mCFSZ 


GOTO 

ADDWF 

MOVF 

BTFSC 

INCFSZ 

ADDWF 


MOVUf 
MOVtffi' 

RLF 
RLF 

RLF 

MOVF 
BTFSS 


ACC+B1,W 
REM+Bl 
REM+BO 
BARS+B1,W 
ACC+BO, LSB 

REM+Bl 

BARG+BO,W 

_C 

BABS+BO.H 

RHi+BO 

TJOKISLS 

REM+Bl 

BARG+BO,W 

_C 

BABO+B0,H 
REM+BO 

ACC+Bl 


IiOOPCOOHT 

ACC+Bl, H 
REM+Bl 

REM+BO 

BARG+B1,W 
ACC+Bl, LSB 


w.  ;«*  .  •■A 

Itl+KM 


0  .  .<  -«MB 


IVOK 


5-161 


mooiSLB 


R»0B1 
_C 

BARG+BO,W 
REM+BO 


ADDWF 

MOVF 

BTFSC 


REH+Bl 
BARG+BO,W 

_C 

BARG+BO,W 
REM+BO 


LOOPU3115B 


MOVF 
BTPSS 

GOTO 


ACC+B2,W 

REH+Bl 

RBH+BO 

ACeVBl.LSB 
UADD15L16 


SUBWF 

MOVF 

BTFSS 


GOTO 


REM+Bl 

BARG+BO,W 

_C 

RBr+BO 

UOK15L16 


ADDWF 

MOVF 

BTFSC 


REM+Bl 

BARO+BO.W 

_C 

BMte+BO.H 
KEHt-BO 


vonLiSLie 


ACC+B2 


IiOOFCI3115C 


MOVHF 

KLF 
RLF 
JRLF 
MOVF 


MOVF 


SOTO 

ADDHF 

MOVF 

BTFSC 


LOOPCOUNT 

Aec+B2,w 

REM+Bl 

REM+BO 

BARG+B1,W 

ACC+B2,LSB 

UAMJISLC 

SSKMBl. 
BU«S+BO,W 

_c 

BARG+BO,W 

REM+BO 

U0K15LC 


_C 

BftRCM-BO.W 
REH+BO 

ACC*B2 


0  3  -  ^^ 


LooptraiiBc 


S-162 


RLF 

RLF 

RLF 

MOVF 

BTFSS 

GOTO 

SUBWF 
HOW 


ACC+B3,W 

REH+Bl 

REH+BO 

BARG+B1,W     ,tKr;jfu^        ;ri>»ii^i-j  -r       -  J 

ACC+B2,LSB  .oa-vn  iU  •a/baltas't  ■  i  :.  ''ii  . 
UADD1SL24 

OSiA3       .  >      ■  ' 

REH+Bl 

_c  ST?  .  i)c-»t£a»aj 

BARG+BO,W  -1-8  =  (X^rU^iS 
REM+BO  I  t»TT«*ai 

UOK15L24 


UADD15L24 


ADDWF 

MOVF 

BTFSC 

IMCFSZ 

ADDNF 


REH+Bl 
BARG+BO,W 
_C  -    ' . 

BABO+BO.H 
RBK-BO 


L00F0311&D 


MOVLW 
MOVWF 

RIiF 

RLF 

RLF 

MOVF 

BTFSS 

GOTO 


ACC+B3 


LOOPCOUNTi 

ACC+B3,W 

REM+Bl 

REM+BO 

BARG+B1,W 

ACC+B3 , LSB 

UADDISLD 


=.:-!'r« 

•—'53 

•aa 


MOVF 


INCFSZ 

SUBWF 

GOTO 


BARG+BO,W 
_C 

BARG+BO,W 

REM+BO 

U0K15LD 


arjf.oe+ciaA 


ADDWF 

MOVF 

BTFSC 

INCFSZ 


BARG+BO,W 
_C 

BARS+BO,W 

jsm*mo 


X, 


OOTO 


ItOefFCOODT 
LOOPC0115D 


Pi?  ^B  i! 
1?+MH« 


U0K15L 


BTFSC 

GOTO 

MOVF 

ADDI^ 

MOVF 

BTFSC 

INCF 

AI83MF 


ACC'I.Ba.I.SB 
O0K15L 

RSHfBl 

B»iR6>fB0,W 
_C 

BUtS+BO.H 
RBKt'BO 


;  'Or-. 


.  **************************** A ***********!* 

J********************************************************************************************** 

;  32/16  Bit  Signed  Fixed  Point  Divide  32/16  ->  32.16 

;  II«)Uti     32  bit  fixed  point  dividend  in  AARG+BO,  AARG+B1,AARG+B2,AARG+B3 


T 


Dse: 


CALL 


Oai^t:  32  bit 


p^iMt  divisor  in  &W*WO,  WiS4-Bl 
FXD3216S 

fixed  point  quotient  in  AARG+BO,  AARG+Bl,AjtSG+B2,AARG+B3 
fixed  point  renaindier  in  Rac+BO,  SEH+Bl 


Result:  urns,  REH 


ASKS  / 
11+537+3 


S51  eUm  m»9¥J«>»  6 

21+537+20  =  578  <dU^ 
25+537+3  =  5«S  clkfi 

11+501+3  =  515  elks  A  >  0,  B  >  0 

15+501+20  =  535  elks 

2S+S01+3  =  'Sa*  ellEs' 

■■>.  '■■■-'.>{/': 


Ml  25+i*r*ii  =  aoi 


CA3216S 


&  >  Oii,^9e^  6 

A  <  iff,  B  >  0 
A  <  Oi'  B  «  0 


A  >  0,  B  <  0 


EM:  10 


MOW 

AARG+BO,W 

>- f?'    ■..                         '  : 

XORWF 

BARG+BO,W 

MOVHF 

BT7SS 

S®a+BO,MSB 

;  if  MSB  set  go  &  negate  Wets' ''^ 

■•«  .  ♦  !t  • 

COMF 

BARG+Bl 

INCF 

BARG+Bl 

BTFSC 

_Z 

DECF 

BARG+BO 

''          '  ~ 

COMF 

BARG+BO 

t  :  1  "i  J.  '                    '  .  "■ 

BTPSS 

AAR6+^,Ifl^ 

GOTO 

C3216S 

COMF 

AARG+B3 

■  . 

INCF 

AA^S+SJ 

BTFSC 

_Z 

:.,      "                     .  :  ■ 

_Z 

IMF 

AARS+Bl 

CCWF 

AARG+Bl 

BTFSC 

_Z 

I»CF 

AARG+BO 

mm 

AARS+BO 

RBH+BO 

Wit 

REK+Bl 

BTFSS 

RBTIM 

OxOS 

COMF 

AASS+B3 

INCF 

AARQ+B3 

BTFSC 

_Z 

DBCF 

AARS+B2 

COMF 

AABO+B2 

BTFSC 

_Z 

DECF 

AARG+Bl 

COMF 

AAI®*B1 

BTFSC 

_Z 

DECF 

AARG+BO 

COMF 

AARG+BO 

COMF 

REH+Bl 

0?  rc'^'.-"- 
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INCF  Kffll+Bl  ;c3TC  1 

BTFSC  _Z 
DEGF  RSKfBO 
COHF  IffilK^BO 

SSfCVH  0x00 

. ********************************************************************************************** 


).  32/16  Bit  tfiislga^  rim^  mirn-  tH^*^  32/ie  ->  32.16 

;  lapat.!    32  bit  vmslgned  ftsnd  point  divi<in4  lA  JMIkBS4'B0,  iUUIS4>Bl,.^e»fB2,AAR&fB3 

;  16  bit  uBslgned  fixed  point  divis^  is  jSa^+BO,  BMIG+Bl 

;;  CAU>  F9a)3216n 

J  'MW^t:  .32  bit  uasignad  'ti^ceai' j^etet  ^noJt^ent  !»:  JaneitBi,  ailiMBl,AABa4-B2,AAliO»^'' 

;  16  bit  itKBijped  £ij»d  point  rwawrtwawr  in  '.WttttO..  iUB^Bl 

;  ltiMlld.t!  KBf    <-    AAKO  /  BIffiG 

,j  'MI'tiAM*.         2*i6S«+2  =  702  cllca 

!  Max  Timing:         2+662+2  =  6«6  ^Uca 

;  FM:  2+233+1  =  236  CM:  11 

PZD321W  CIiSF  REH+BO 

(XRF  B^Bl 

iroiV3216L 

RETLW  0x00 

.  ************************************************* 

;  31/15  Bit  unsigned  Fixed  Point  Bivim  3ti/m  ->  tt.15 

S  IiQiat:    31  MS  unsigned  flxnl  point  divi^HnS  IM  mmmt0^,  AliiPM>l,AitftG+B2,jU«S+S3 

15  Ms  tHSiig^ed  f  ixad  point  divtmm  In  mwSQi  ttUi^Ml 

•  Use:        C»M.  F3(D31150 

;  Out^t;  31  bit  unsigned  fixed  point  quotient  in  AARC+BO,  AARa+Bl,AMIO+B2,JUU<8+B3 

;  15  bit  unsigned  fixed  point  remainder  in  REH+BO,  REM+Bl 

;  Result:  AARG,  R^    <:-    AARG  /  BARG 

!  Max  Timing:         2+537+2  =  541  elks 

Min  Timing:  2+501+2  =  505  elks 

i  FH<  2+157+1  =  160  OH:  9 

:itw@xi3sg  aim  rbm+bo 

CURF  REM+Bl 
QDIV311SI. 

RBTUf  0x00 

END 

;  ********************************************************************************************** 
. ********************************************************************************************** 
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A  Real-Time  Operating  System  for  PIC16/17 


Author:  Jerry  Farmer  -  Myriad  Development  Company 


I.  INTRODUCTION 


Ever  (tosam  of  having  a'' Reat^HRM  Kemoi  for  ttift 
F>ICt8CXXftmf(i^  of  ndcraprocitesors  ?  Or  «««*Wondi^ 
what MuRttaskingor Threads w^allabout?  T1wrtth1» 
aitictelsforyou.  We  will  «jiliRMSVy  *<>  Iniplg'"^*  ^ 
ofthe  featuresof  alarg^rtWflnKHliliii^^ 
in  much  less  space,  with  more  control,  without  the  large 
overhead  of  existing  kernels.  By  planning  ahead,  and 
using  the  technniues  outlined  here,  you  qtfi  build  your 
own  fast,  light,  powerful,  flexible  RT  kernels  with  just  the 
features  needed  to  get  the  job  done. 

Included  in  this  article  are  two  large  examples:  one  on 
the  PIC16C54,  and  the  other  on  the  new  powerful 
PIC16C64.  A  "Remote  Alarm*  Is  Implemented  on  the 
PIC16C64  as  an  example  of  a  Non-Preemptive  Kernel, 
with  two  asynchronous  serial  input  sources  capable  of 
rtnning  up  to  19,200  Baud  ak>ng  with  seven  sensors 
needing  to  be  deb(ttirK»dce  inputs.  One  more  input  line 
is  nmnitored  and  causes  an  intenwd  soflwar»  reooiim. 
For  output,  this  example  has  a  LED  1f«lt  Show  eighft 
different  internal  states^  of  the  "Remote  Alami",  blinking 
at  dMferent  rates  and diffdrsntai»quences.  L.astbutnot 
least,  is  an  asynchronous  Serial  output  capable  of 
lUnning  at  38,400  Baud  passing  the  inputs  to  the  n«it 
remote  alarm  statnn:  Several  short  and  k>ng  timers  are 
included  to  roun#  duiihe  nine  cooperating  tasks  in  this 
example.  Please  referto  Figure  2  and  Appendix  B. 

The  second  example  is  Implemented  on  an  PIC16C64 
featuring  an  intemipt  driven  semi-Preemptive  kernel. 
Thit^caiTlple  hasihe  serial  ihput  and  output  routines  of 
first  example  moved  into  Intenupt  Service  Routines 
(tSR)  f6rmore  speM' and  accuracy.  The  intenvpt 
cdiMibiimas  of  the  PIG16C64  WiH  be  mptotBi,  and  a 
fiaal-Ttne  Multitasking  Ittmelfiamewoifc  will  bedeval^ 
oped.  PAtis^feterJtO'ngureSandAppenklxC. 


i  'J  il'  9'.)  !a  >C";,;  -.  '  - ,  _rt.»^  Iuq.  o1 


OO"'  :  ..-lit'. '>^. 

Why  do  1  Need  a  Real-Time  Kernel  ? 

Real-Time  Design  Technques  altow  the  engineer/de- 
signer to  break-up  large,  complicated  problems  into 
smaller  simpler  tasks  or  threads.  These  more  manage- 
able units  of  code  allow  forfaster  response  to  important 
events,  while  prioritizing  the  jobs  to  be  done  in  a  struc- 
tured well  tested  fonnat.  The  kernel  does  the  job  of 
keeping  the  time,  the  peace  between  tasks,  and  keeping 
all  the  tasks'  communication  flowing.  More  activities  can 
be  performed  in  the  same  amount  of  time  by  altowing 
other  tasks  to  work  while  other  tasks  are  waiting  for 
some  event  to  occur.  Smaller  code  is  also  the  result  of 
using  State-Driven  techniques  because  much  informa- 
tion is  condensed  into  the  state  variables  and  code 
structure.  Ifyou  need  an  example,  k>okatthe  PIC16C54's 
"Remote  Alami"  code. 

What  is  Multitasking  Anyway  ? 

This  Is  the  appearance  of  several  tasks  working  at  the 
same  time.  Each  task  thinks  that  it  owns  the  CPU,  but 
this  appearance  is  controlled  by  the  kernel.  Only  one 
task  can  be  running  at  a  time,  but  there  is  undone  work 
that  can  be  done  by  othertasksnot  blocked.  Multitasking 
is  the  orchestration  of  interrupts,  events,  communica- 
tion, shared  data,  and  timing  to  get  a  job  done.  Real- 
Time  Programming  is  just  a  bunch  of  ideas,  concepts 
and  techniques  that  allow  us  to  divide  problems  if^tq 
units  of  code  that  are  based  on  units  of  time,  or 
that  drive  a  task  from  one  state  to  another. 

.v.  -  .     9ie  anoitoas  iBSjiln.)  Kb  .e  .  S 

jte>^  '  -fWWlAmiHt  Mttn  E-'.  -   r»<J 
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PIC16/17  Real-Tlfne  Opinrtfng  System 


CONCEPTS 


We  will  cover  the  basic  concepts  of  kernels  here  so  that 
we  are  using  the  same  language  when  tall<ing  about  this 
difficult  topic.  This  article  is  a  very  quicl<  survey  on  Real- 
Time  Kemel  concepts,  I  hope  to  get  you  thinking, 
reading  more,  and  hopefully  writing  RT  Operating  Sys- 
tems for  your  current  and  future  projects.  Many  great 
books  have  been  written  about  this  very  broad  and 
interesting  subject.  We  will  refer  to  some  of  these  books 
which  have  different  points  of  viewotherthan  expressed 
in  this  paper.  v.     .         f  .  .  ,  . 

mical  Sectfoiii  "^'-^  wr 

A  critical  sectk>n  is  a  shared  data  structure,  or  a  shared 
resource,  or  a  critical  time  section  of  code,  or  a  non- 
reentrant  section  of  code  that  can  have  only  one  owner 
that  is  allowed  to  view/change/use  that  section  at  any 
one  time.  These  sections  must  not  be  inten-upted  during 
the  update  process.  These  sections  must  be  protected 
so  that  other  tasks  can  not  get  in  and  change  the 
pointers/data  or  modify  the  hardware  at  the  same  time. 
Remember  that  if  two  tasks  can  get  into  a  critical  section, 
then  data  WILL  be  corrupted.  Make  sure  that  critical 
sectk>ns  are  small,  with  time  for  pending  interrupts  to  get 
serviced.  Ho\  understanding  critical  sections  is  where 
the  beginning  RT  programmers  get  into  the  most  trouble. 
Even  without  interrupts,  you  must  protect  variables  that 
are  changing  over  time  such  as  the  byte  sized  variable 
'xmt_byte"  used  in  the  PIC16C54  example.  This  vari- 
able changes  each  time  the  STATE  changes  for  the 
Serial  Out  Task.  Semaphores,  and  Disabling  Interrupts 
are  some  of  the  techniques  used  to  coordinate  between 
different  tasks  wanting  to  control  a  critteal  section.  Task 
#4  is  devoted  to  the  proper  feeding  of  the  shared  Seriai 
Out  Resource  in  the  PIC16C54  example.  Note  the  use 
of  the  binary  semaphore  "OStato_B"  to  control  Task  #4, 
and  Task  #1,  and  variable  "xmt.byte".  There  are  several 
tn^ris  examples  of  critical  sections  in  the  PIC16C64 
ex^fik>le  because  of  intenupts.  We  disable  interrupts  for 
very  short  time  periods  to  protect  these  areas.  Alsokithe 
PIC16C64  example,  all  critical  sections  are  finished 
before  checking  to  see  if  the  kemel  wants  another  task 
to  start  running  instead  of  the  current  task.  We  will 
discuss  in  more  detail  how  to  protect  critical  sections 
laisr  in  this  article. 


FIGURE  1 :  TASK  /  PROCESS  STATE 
TRANSITION  DIAGRAM 


Btecuting  State    <  >         |SR  State 

(Context  Switch} 

(Waiting  for  Events) 

Ready  State 

<   WaitinsStete 

Shared  Resetirees 

t3ata  structures,  displays,  I/O  hardware,  non-reentrant 
routines  are  a  few  resource  examples.  If  two  or  more 
tasks  use  these  resources,  ttien  they. fus  called  Shai»4i 
Resources  and  you  must  protect  them  from  being  cor- 
rupted. They  must  have  only  one  owner,  a  way  of  telling 
others  to  wait,  and  mayt>e  a  waiting  list  forfutijre  users 
of  that  resource.  A  rare  example  of  a  shared  resoutcd 
Is  when  there  exists  a  critwal  timing  sequence  of  input 
md  output  opei^ions  lo  control  some  hardware.  You 
must  disable  imBnupis  before  starting  this  sequence, 
and  ensile  them  upon  finishing.  Note  ttki  task  #1  in  the 
Riei6C6A«Nampie  It  anjMampteirfan  ltaon<«Mntranir 
iilgliiwIlwtmiistbefimiMMhes^^ 

itLimimlf^amm.mlai^m     .kio<  •<  ^  .--> , 

When  one  task  takes  over  from  another,  the  current 
values  of  the  CPU  registers  for  this  running  task  are 
sawed  and  the  ofcj  saved  registers  for  the  newtask  arei 
^%storad!'  The  new  task  continues  where  it  left  off.  This 
is  all  done  by  the  Context  Switch  part  of  the  Real-Time 
Kernel.  Eenh  task  usually  lias  a 'context  switch  storage 
area".  Each  task's  SP  (Stadc  Pointer  pointing  into  tit* 
own  stadc)  is  stored  therat  alpng  «Mi  all  the  olber 
lnpiottaiA  eayed'  reg^imKu  Hip  jimiete  Ai^m'  ana. 
«inpl9^^g!is  not  need  toiUMweoMniMimM  bew 
all4wtierip9i1apt  inuiiiliii  I  i<|>iW]i|ji)||y  liiinl  liiifiMii 
each  tasltis  finished.  TIiediMHPSM  'Wcampieusesa 
similar  concept,  thus  keeping  the  numlier  of  saved 
registers  per  task  way  down.  We  use  an  okJ  concept 
called  "where  I  came  from"*  The  variable  "FROM"  is 
used  to  direct  the  dispBteher  to  start  up  the  task  where 
it  left  off.  This  is  because  you  can  not  manipulate  the 
stack  in  the  PIC16CXX family.  This  same  reason  is  why 
we  have  a  "semi-  Preemptive"  kemel  on  the  PIC16C64 
as  an  example.  By  the  way,  the  faster  ttie.  '  Conliewt 
Switch  is  done,  ttie  better. 

Scheduler 

The  schedujer  is  that  part  of  the  kernel  that  deckles 
which  tE^  to  nm  nWd.  W9  will  talk  about  several 
commpn^pesheiff.  in  this  section.  This  is  where  afot 
Qf  'thMdng  shouM,^  done  before  starting  your  new 
project  .  By  understanding  the  different  kinds  of 
schedulere  and  what  features  and  problems  each  type 
has,  you  can  match  your  problem  to  a  creatively  styled 
scheduler  that  meets  your  needs.  For  example,  the 
PIC16C54  example  shows  the  recalling  of  tasks  #1-3 
just  before  a  king  sequence  of  code  is  executed.  More 
creative  ways  can  also  be  done,  but  be  etMlltlMilHW 
all  tasks  to  execute  in  a  timely  fashkm. 

PleaseseeRguref.  Eachtask  must  be  in 'Ready  State' 
orthe  "Executing  State*  tobe«ei^taadl^riieiMMl^ 
to  get  temporary  control  of  the^HJ  nood. 
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NON-PREEMPTIVE  KERNEL  lOfTAWORHOMYB 

1M  Nen^ewemptKwKeirTal  is  also  caHsd  a''<6eopa«a- 
M»:l^ai6lCb8eatteeth»ta^only  give-up  controtiidwn 
thsy  wantAiMcl  to  in«ooiidyMtion  with  otherlaskB,  and 
evatris. '  The  'Rsnnota  Alann*  C8cainpis^  '*ises«  Non- 
Preemptive  Kemeityp»,siimingihat  despite  its  reputa- 
tion as  being  a  simple  Icemei  type,  alot  can  be  done  withi 
it.  The  NDn^Preemptiva  Kernel  type  is  welisuitedforthe 
non-interrupt  type  PIC16CXXS.  The  heart  beat  ^^Me 
PIC16C54  example  is  the  Mamal  RTCC  counter  cms^ 
ingoverfrom  high  value  to>lowrvalue  of  the  counter  .Uk 
tte>pre-scatel'  to  adjust  the  time  units.  The  veiy1i|Bt 
isisks,  oontinuaiiy  read  the  RTCC  directly,  comparingllto 
delta  of  time  to  see  if  it  should  firs. 

PREEMPTIVE  KERNEL 

In  aPreempM  Meriwl,  a  runnihs  task  can  be  swapped 
outforoMgherprier^taskwhentttMeomesceady.  The 
Prsempttve>Kemel  iiaCes  mueh  moreonMeniipts  as^te 
drivlng  foice;  The  oantext  switch 'is  at  th»  l«Bart  (^1hls 
typeo^imncrt;  To>bnpleniant!atraePfeem[^e  Kmei, 
youmustbesdjletomanlpulatethesiack.  Thislswhywa 
implemented  a  'semi-Preemptive'  kernel  on  the 
PIC1 6C64,  with  some  of  the  best  features  of  both  types 
of  kernels.  We  moved  some  of  the  tasks  In  the  PIC1 6C54 
example  into  ISRs  to  handle  the  l/Os.  This  works  very 
well  as  the  ISRs  are  very  short  and  do  most  of  the  real 
work  in  this  example.  The  timeiO  interrupt  is  the  heart 
beat  for  the  P I C 1 6C64  example .  You  must  have  a  cbck 
interrupt  in  order  to  make  a  true  Preemptive  kernel. 

ROUND  ROBIN  SCHEDULER 

When  the  scheduler  finds  tasks  on  the  ready  queue  that 
have  the  same  priorities,  the  scheduler  often  uses  a 
technique  called  Round  Robin  scheduling  to  make  sure 
each  task  gets  its  day  in  the  sun.  This  means  more 
housekeeping  to  get  it  right.  This  is  part  of  the  creative 
ways  you  can  tailor  the  scheduler  to  fit  your  needs.  In 
the  PIC16C54  example,  all  tasks  will  get  to  run  shortly 
after  their  appointed  time.  This  means  that  no  task  will 
dominate  all  others  in  this  simple  approach.  In  the 
"olden"  days  of  the  first  Real-Time  Operating  Systems 
the  term  was  used  to  mean  the  same  as  "time  slicing". 
The  Preemptive  Kernels  ot  today  are  a  majgr.,step 
fonvard,  with  their  priority  sc^|pa^««^.it^leitp^^9|B- 
municatkxi  capabilities. 


PREEMPTIVE  VS.  NON-PREEMPTIVE 

The  Preemptive  Kernel  is  the  harder  to  devek>p,  but  is 
easier  to  use,  and  is  sometimes  used  incorrectly.  You 
tiiustspendmoreupbx>nttii)ne  with  the  Non-Preemptive 
Kernel  but  tt  is  letter  for  more  cramped  mksroproces- 
sors.  You  get  much  better  response  time  between  a 
cause/event  and  the  response/action  for  that  event  with 
a  Non-Preemptive  Kernel.  The  Preemptive  Kernel  is 
more  predtetable  in  the  response  times,  and  can  be 
^ialMilKMi  tiriii4MBdrniirn«n»td  odmplete  a  ffitm 
@|iniM»JI|«Pfi|)Hve 

In  a  PiMmptiM  Kernel;  Mo  or  more  tinks  may  want  to 
'use  Am  same  subrMiHne.  TTieproblM  lsthMyoucan 
nof  >GehtrDl  fmhett  a  ta^  is  ^wappei  out  «nd  Mhsn 
anothertakes  ltepteioe.  Thus,  if  a  subroutine  mte  only 
focal  w  pleased  vaMI^  (hat  «re  stared  dtily  in  daeh 
lask^  staefc,  then  Itecall  reanhantora  pure  routine;  fti' 
;jgMttttvartaBlu«rfiaiaiH««M8|^  used  insi^apure 
routine.  A  way  mmm^iSmmmiimi&fmfamtmm^ 
treat  the  whole  subroutine  as  a  prttk»l  sectipr^., 
Appendix  D  is  an  example  of  reentrdrit  code  ^dgment  in ' 
might  have  been  tl|lBil»ifc)|jaS»6^gW»9ie^^ 

Task  Priority   ,  ,,  -,,  , 

Some  tasks  drendl^eraated  equal.  Semei^  miist 
Im  done  on  timarer  data  wilt  be  tost.  Make  the  tasks 
that  must  get  done,  the  highest  pridfty,  and  go  down 
the  scale  from  there.  Some  kemels  make  you  have  a 
different  prtority  for  each  teisk.  This  is  a  good  idea 
and  requires  some  thought  before  coding  to  make  the 
design  come  out  > 

STATIC  Vis."  D¥i*eiiic  I 

INVERSIONS 

For  most  embedded  Real-Time  Kemels,  both  state 
priorities  and  statk;  tasks  are  used.  Dynamic  priorities 
are  sometimes  used  to  solve  deadlock  and  other  com- 
plex situations  that  arises  from  not  understanding  the 
problem  and  not  understanding  Real-Time  Techniques. 
You  should  relook  at  how  you  divided  the  problem,  and 
divide  less  so  as  to  include  the  resources  in  question 
under  one  semaphore.  You  could  divide  the  problem 
more  to  have  more  tasks  not  needing  two  or  more 
resources  to  complete  its  job,  and  fiave  the  new  tasks 
talc  more  together. 


nT»j>,-6'        ^i-.T'^--!^  )t<ri«i.*«»ierti  ■-r:'---:r!,  .^si 
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As  for  Dynamic  tasks,  you  should  define  the  problem  so  as 
to  know  ahead  of  coding,  the  continuous  use  of  all  task. 
You  will  need  more  upfront  time  in  the  planning  stage  to 
get  all  tasks  talking,  but  it  is  well  worth  it  to  keep  Dynamic 
Priorities  and  Dynamic  Tasking  out  of  the  kemel  design. 

Priority  Inversions  is  a  trick  used  to  get  passed  a  poorly 
designed  system  by  allowing  the  inverting  of  the  priorities 
to  allow  lower  tasks  to  run  that  were  blocked  before.  This 
is  a  cheap  trick,  and  is  best  kept  out  of  a  Real-Time  Kemel. 
Use  the  same  techniq|#s.j^  ouUinect  in  ttiis  section  h> 

Semaphores  yoM'.5n'M33« 

Tliei*  are  basica^  two  types:  binaiy  mdeoiMing'Seraa- 
plasns.  The  bina^  serraphore  is  used  to^UoMr  only  oaa 
owner,  and  aH  ottier  taslts  wanting  access  are  madenle 
vwait.  The  counting  semaphore,  keeps  a  list  of  users  thai 
wsnt  to  get  access.  Sernaphores  can  be  used  in  marry 
)W0ys,  we  will  illustrate  most  of  them  in  the  following 

pmm^.-  Ne^     ^i  f!mmflimKta.meMitfi 

MUTUA!,|XCLUSIOKl  "  '  " 

We  have  dtecussed  Mutual  Bcduskm  before,  that  there 
must  be  a  way  to  exclude  other  tasks  from  gaining  access 
to  crittoal  sectlorts.  Mutual  Exduskin  is  the  process  of 
excludtoigibtfienfiemaooesstolhesharedresoutces.  To 
make  a  semaphore  is  a  very  compltoated  process.  The 
semaphore's  constructk)n  must  be  atomic.  That  means 
that  once  the  process  has  started,  it  can  not  be  interrupted 
until  it  has  saved  the  name  of  the  new  owner.  From  there 
on,  it  knows  that  no  one  else  can  break-in  and  change 
owners.  We  have  implemented  the  binary  semaphore 


In  the  PIC16C64  example,  we  also  disable  interrupts  to 
get  the  same  effect.  There  are  at  least  two  good  ways  of 
implementing  a  binary  semaphore.  The  first  and  okJest 
way  was  discovered  by  a  Dutch  mathematician  named 
Dekker.  We  will  refer  you  to  a  book  that  talks  more  about 
this  algorithm.  The  second  method  of  implementing  a 
binary  semaphore  was  also  discovered  by  another  Dutch- 
man named  Dijkstra.  This  method  uses  the  lestandset" 
type  instructkin  and  Is  much  more  important  to  us.  We 
usedthe'dec&jumplfnot  zero'  instnictkin  (see  PIC1 6C^ 
example).  '       •     '  .  .  .  i 

DEADLOCK 

Deadk>ck  is  a  condition  where  two  or  mere  losia  oiM 
resources  that  other  tasks  need  to  complete  thereaia(|pi- 
ment  but  will  not  release  theirown  resources  untn  thMthw 
tasks  release  theirs.  Talkalx>utcooperation.  Please  read 
section,  "Static  vs.  Dynamic  Priorities  and  Priority  Inver- 
snns"  for  a  discussk>n  about  such  problems  and  ways  to 
solve  them.  The  root  of  such  problems  is  not  undeiatand- 
ing  the  original  problem. 


SYNCHRONIZATION  f.Ci 

Semaphores  can  be  used  to  synchronizsitasks  so  thdf 
messages  can  be  passed  between  them.'  AJsotasks; 
can  be  started  up  by  semaphores,  stopped  t>y  sema- 
phores, or  started  together.  They  are  the  foundatkm 
bk)cks  for  Real-Time  Programming.  Once  you  have 
builtabinary  semaphore foryour  kemel,  you  can  build 
veiy  complex  semaphoresto  synchronize  anything.  In 
Jhe  PIC1 6C54  example,  data  from  several  sources  are 
peissed  out  the  Serial  Port  Resource.  Task  #4  synchro- 
nizes the  other  tasks  trying  to  send  data  out  and 
synchronizes withtask#1  togetitdone.  Whentask#1 
is  running,  then  task  #4  cein  not  run  until  task  #1  is 
ready  for  more  data  to  send  out. 

INTERTASK  COMMUNICATION 

!^  have  tsmk<litm<*lMm06itiMil^iMf^^  tu&» 
kemats,  one  can  indode  mora  complex  connanica- 
tkm  mefthodsto  pass  data/tnessages  betwasntaska. 
Much  of  the  ttandshaking  is  done  for  you  Msideiltw 
kernel.  This  takes  a  lot  more  space  andieKeButiofi 
speed  to  implement  them  in  a  kernel. 

Event  Flags 

We  implemented  Event  Flags  as  simple  bits  having 
two  states  (on  and  off).  More  info  can  be  stored  per 
Event  Flag  such  as  time  it  was  recorded,  by  who,  and 
who  the  event  bekings  to,  and  whether  data  was  tost. 

Message  Mailboxes 

This  Is  a  nice  feature  to  have  if  you  have  the  ram  space. 
Maill)oxes  allow  the  designer  to  pass  messages  be- 
tween tasks,  and  alk>ws  messages  to  be  kx>ked  at 
when  the  task  is  ready,  and  to  reply  telling  the  sender 

'  ViEitthe  message  was  received.  One  message  can  be 

"^^'ent  to  many  tasks  at  ttie  same  \!ime. 

Message  Queues 

This  again  is  a  very  nk:e  feature  if  you  have  the 
executton  time,  and  the  ram  to  implement  them.  This 
feature  is  related  to  Mailboxes,  in  that  you  can  store 
several  messages  even  after  reading,  to  be  processed 
later.  If  you  want  to  only  operate  on  thie  highest 
prioritized  messages  before  handling  the  rest,  this  Is 
alk>wed.  You  can  be  veiy  fancy  with  the  Mailboxes  and 
m^^mtV^mieimmifiivde  them. 
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Inlsmipts  '!!■-  ,.oH 

intaniipts  are  one  of  the  best  inventions  to  come  along 
for«olving  Real-Time  problems.  You  can  get  very  quick 
response  to  the  need,  and  then  go  tenkto  what  you  were 
doing.  The  only  problem  is  that  they  can  and  do  happen 
atthe  worst  times.  That  means  that  you  must  learn  how 
to  turn  them  on  and  off  to  protect  your  critical  sections. 
Note  that  before  an  interrupt  can  be  handled,  you  must 
save  all  important  registers  so  that  you  can  restore  them 
so  that  the  kernel  can  restart  the  task  where  it  left  off. 
This  is  much  like  the  context  switch  Issue,  but  for 
intemjpts,  you  must  always  save  and  restore.  In  the 
PIC16C64  example,  the  Status,  W,  and  FSR  registers 
are  saved  in  ram  because  of  the  biteimpl.  ni^g^^ 
register  is  sawed  onto  the  stack  by  haidwars.    ~  | 

HNTERRtiPTlATENCY,  ^SI»ONSE  «  H^XWERT 

Interrupt  Latency  is  defined  as  the  largest  time  period 
that  interrupts  are  disabled,  plus  the  time  it  takes  for  the 
ISR  to  start  to  execute. 

The  Interrupt  Response  Time  is  defined  for  a  Non- 
Preemptive  system  as  Interrupt  Latency  plus  the  "con- 
text saving  time".  For  a  Preemptive  system,  add  the 
^acutksn  time  for  the  kernel  to  record  ttte  interru(A. . 

Interrupt  Recovery  Time  f6raNon-Preem(^a  system  is 
defined  as  the  time  to  restore  the  saved  context  and  for 

the  restarting  of  the  task  that  was  interrupted.  Interrupt 
Recovery  Time  for  a  Preemptive  system  is  the  same  as 
for  the  fston-Preemptive  system  plus  the  time  the  kernel 
takes  In  the  scheduler  deckling  whk:h  task  to  run  next. 
These  measurements  are  how  most  kernels  are  com- 
pared with  each  other.  The  PIC16C64  example  does 
very  well  in  these  measurements.  That  is  because  of  the 
PIC16CXX  processor  and  that  they  are  mostly  a  Non- 
Preemptive  system.  You  must  keep  the  time  you  disable 
interrupts  to  a  minimum  in  any  kernel  you  write  or  any 
task  that  you  write.  You  should  break-up  long  se- 
quences of  instructions  to  alk}w  for  interrupts  that  are 
already  waiting  to  execute. 


ISR  (Interrupt  ServKe  Routine)  Processing  Time  is 
defined  as  the  time  a  ISR  keeps  control  of  the  CPU.  This 
amount  of  time  shoukl  be  short,  and  if  ak>t  of  processing 
needs  to  be  done  in  a  ISR,  then  break  up  the  ISR.  The 
new  ISR  sftoukJ  now  just  store  the  new  data  and  return. 
Next,  create  a  new  task  and  move  the  extra  code  from 
theoidlSRintothenewtask.  RememberViatWeloriger 
you  are  In  one  intenvpt,  the  longer  you  can  ftcA  ahsWer 
another  pressing  inten'upt. 

Nesting  Interrupts  are  where  the  interrupt  with  a  higher 
priority  can  Interrupt  a  lower  priority  interrupt.  Care  must 
be  used,  as  different  interrupts  may  have  critical  sec- 
tions too,  and  disabling  interrupts  must  be  used  here  too 
to  protect  critKal  sectnns.  Nesting  of  interrupts  may  not 
exist  on  all  mksroprocessors,  such  sis  the  PIC16CXX 
family. 

NON-MASKABLE  INTERRUPTS 

On  some  microprocessors,  you  can  enable/disable  se- 
lected Interrupts,  such  as  on  the  PIC1 6/1 7  family.  This 
Is  a  great  tool  to  control  the  flow  of  data  into  the  system 
and  out.  Some  systems  have  what  is  called  Non- 
Maskable  Interrupts.  Here  you  can  not  turn  them  off  by 
software  masking.  These  NMIs  as  they  are  call  for  short, 
are  used  as  ck>ck  Ticks,  because  you  do  not  want 
problems  with  complex  critk:al  sectbns  on  a  interrupt 
that  you  can  not  turn  off.  The  PIC1 6CXX  family  does  not 
have  any  NMIs.  NMIs  are  not  as  useful  as  maskable 
Interrupts. 

CLOCK  TICK 

The  Clock  Tick,  is  the  heart  beat  of  the  system.  This  Is 
how  the  kemel  keeps  time  (relative  &absolute).  This  Is 
how  the  kemel  is  restarted  to  see  if  there  Is  a  delay  that 
has  finished,  so  that  that  task  can  be  moved  into  the 
ready  state.  In  the  PIC16C54  example,  the  RTCC  clock 
is  used.  In  the  PIC16C64  example,  the  timetO  is  used. 
You  must  have  a  clock  interrupt  in  order  to  make  a  true 
Preemptive  kemel.  This  is  the  other  reason  why  we 
implementedaNon-PreemptiveKemelonthePIC16C54 
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ANALYSIS  OF  coommMimm' 

These  sections  are  the  real  meat  of  this  article.  In  these 
sections  we  will  explain  how  the  concepts  are  put  to 
practical  use  line  by  line  in  each  of  the  two  main  ex- 
amples -  PIC16C54  (Appendix  C)  and  PIC16C^  (Ap- 

pbhaixm         •       '  "'^•w;. 

We  will  jMSRiine  ci  short  reentmnt  eocto  menipl^  ») 
-AppencbcB.  We  will  give  some  ideas  on  how  to  e)^>wid 
the  examples  and  how  far  and  how  fast  the  examples 
can  be  pushed.  Be  sure  to  read  both  sections  on  the  two 

examples. 

The  "Remote  Alarm"  application  has  many  interesting 
features.  The  concept  is  to  have  as  many  tiers  of  units 
like  a  tree  feeding  into  the  lower  level  units  the  status  of 
each  of  the  larger  branches  to  one  central  point.  Each 
unit  can  detect  any  changes  in  status  before  the  intnidiii 
shuts  that  unit  down,  or  tampers  with  it.  If  any  unifs 
power  or  wires  connedHn^  it  d6wn  the  tree  are  cut,  VrM 
lack  of  the  fk>w  of  status  and  passwords  wouM  be 
noticed  in  five  seconds  and  reported  down  the  line.  The 
two  Serial  Input  lines  per  unit  receive  the  status  arxi 
passwords  from  it's  two  larger  branches,  checking  the 
data  and  passing  the  info  down  the  line  by  Its  own  SeriaU 
Output  line.  The  seven  input  status  lines  are  debounced 
in  these  examples,  showing  the  technique. 

The  LED  on  each  unit  reports  the  status  at  that  node  as 
to  the  importance  of  its  own  seven  input  status  lines  and 
the  status  flowing  down  the  line.  The  level  indication 
outputted  on  the  LED  continues  at  the  last  highest  leval; 
until  either  a  reset  is  received  on  the  'Reset  State"  line 
or  five  minutes  of  no  new  activity  on  the  seven  input 
status  lines  are  received.  When  either  of  these  two 
events  occur,  the  level  of  the  LED  output  is  adjusted  to 
the  current  level  of  input.  Some  of  the  features  are 
changed  for  this  article.  See  Figures  2  and  5. 

Another  Embedded  System  use  of  this  type  of  "Remote 
Alarm"  application  is  that  of  placing  the  unit  on  the 
outside  of  a  safe.  Hopefully  the  intruder  would  be 
detected  before  arriving  at  the  unit  itself.  The  continuous 
stream  of  status  and  passwords  to  the  larger  unit  inside 
woukj  slow  down  any  simple  theft.  l  '- 

PIC16C54  -  "Remote  Alarm"  Example 

This  example  is  a  cross  between  a  true  application  and 
an  attempt  to  show  new  concepts  and  some  extra 
features  for  show.  Some  of  the  application  specific  code 
has  been  removed  to  show  more  clearly  the  possibilities 
of  a  ReaLTime  Operating  System  on  the  PIC16/17 
family.  We  chose  the  Baud  rate  for  the  Serial  output  to 
be  twice  the  speed  of  the  two  Serial  inputs  because  it  is 
harder  to  accurately  output  a  precise  Serial  Oulput  than 
it  is  to  monitor  Serial  inputs. 


FIGUIIE2:  REMOTE  ALARM-  cuk-J^ 
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lihis  example  operates  at  4Mhz.  By  simply  increasing 
the  crystal  speed  to  8MHz,  the  two  Asynchronous  input 
Serial  Baud  rates  Increase  from  4800  Baud  to  9600 
Baud.  The  Serial  Output  Baud  rate  increases  from  9600 
Baud  to  19,200  Baud.  By  increasing  the  crystal  speed 
to  1 6MHz,  it  will  increase  the  Baud  rates  to  1 9,200  Baud 
for  the  two  independent  Asynchronous  inputs,  and  in- 
crease the  baud  rate  forthe  Asynchronous  Serial  output 
to  38,400  Baud.  By  adjusting  the  constants  in  the  code 
forthe  Serial  routines,  other  Baud  rates  can  be  achieved 
at  other  crystal  speeds.  Note  that  you  must  use  a  very 
stable  crystal  setup  and  NOT  an  RC  combination  to  njn 
these  examples. 

We  will  now  give  a  quick  outline  of  the  PI016C54  code 
example.  Lines  1  -85  are  the  equates  for  this  progranft 
Lines  88-95  are  simple  jump  tables  so  as  to  save  somi^ 
of  the  precious  "first  256  bytes"  of  each  page.  The  Serial 
Output  Routines- Task #1  are  in  lines 97-1 59.  Task#7's 
subroutines  start  at  line  1 60  and  continue  to  line  277.  In 
this  section,  the  LED  output  is  controlled.  The  subrou- 
tine QCheck_T123,  lines  278-301,  is  used  to  allow  the 
checking  of  Tasks  #1-3  to  see  if  they  are  ready  to 
execute  before  a  long  section  of  code  in  a  slower  Task 
is  about  to  be  executed.  This  is  a  creative  way  for  the 
Kernel's  Scheduler  to  makes  sure  that  the  highest 
Prioritized  Tasks  get  serviced  before  the  less  important 
tasks  get  executed.  Task  #2  starts  at  line  302.  This  task 
reads  the  Serial  Input  #1  for  Asynchronous  data.  Task 
#2  can  be  described  as  a  State  Machine  for  outputting  a 
byte  Serially.  Task  #3  interrupts  the  code  of  Task  #2  at 
line  333  and  continues  until  line  362.  Task  #3  also  reads 
the  Serial  Input  but  on  input  #2.  Task  #2's  subroutines 
continue  at  line  363  and  continue  until  line  423.  Task 
#3's  subroutines  continue  at  line  424  and  continue  until 
line  484  is  reached.  The  main  or  starting  code  is  started 
at  line  485.  From  that  line  to  line  51 5,  all  variables  are 
hitiallzed.  and  all  tasks  are  Initialized  itMBltoiKfriidi. 
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This  is  whera  M  raal  aoHon  is  dond.  fikch  taslt  diiil^ 
the  time  to  see#ll»etMKliMiG«M»i®9iFeet  for  It  to  rmi 
Ttie  tasks  that  awiiie^  BtoeMi  #Mv»a  job  to  do  now 
sm  in  aii^a^  St£dK  In  the  M«rtn  Loop,  we  checlc  the 
c«rt«nt*stat»©f  eaeh  tesk  in  order  of  Priority  (1-9).  If 
ready,  we  do  a  very  simple  Task  Switch  and  place  that 
task  in  the  Executing  State/Running  State.  Several  time 
unit  changes  take  place  In  the  Main  Loop.  Tasks  #1  -4 
use  2  uSecs  as  a  time  base  by  reading  the  RTCC 
directly.  Atlme  unit  change  takes  place  at  lines  562-575 
to  512  uSecs  per  unit  for  Tasks  #5-6.  Another  time  unit 
change  takes  place  for  Tasks  #7-9,  to  1 31 072  uSecs  per 
unit.  For Tasks#5-9, each taskcountsthetimeunltsand 
compares  them  to  their  standard  for  activation  or  activity. 
Task  #4  starts  at  line  538  and  finishes  at  line  561 .  Task 
#4  controls  the  feeding  of  Task  #1  from  several  other 
tasks  that  want  data  to  be  outputted.  It  uses  several 
Semaphores  to  make  sure  that  Task  #1  is  not  bothered 
until  it  is  ready  for  another  byte.  Task  #5  moniiors  the 
Level  Reset  Line,  and  Is  always  running.  It  simply  resets 
the  status  of  the  LED,  to  be  recalculated  in  Task  #6. 
Task  #5  runs  through  lines  576-581 ,  and  is  very  short. 
Lines  582-61 1  represent  Task  #6.  Here  we  debounce 
the  seven  sensor  Input  lines,  leaving  the  cunent  stan- 
dard in  the  variable  "Old_RB".  Task  #6  asks/Signals 
Task  #4  to  output  the  current  standard  out  the  Serial  pin. 
Task  #7's  main  code  Is  lines  621  -628.  Task  #8  Is  a  five 
second  lack  of  activity  timer,  and  exists  In  lines  629-645. 
If  no  data  comes  from  either  of  the  two  input  Serial  lines, 
then  Task  #8  Signals  Task  #4  to  send  a  special  byte  to 
be  outputted  by  Task  #1 .  This  Signals  the  next  "Remote 
Alarm"  of  the  lack  of  communication  between  units.  The 
last  task  is  Task  #9.  This  is  a  five  minute  lack  of  Severe 
Errors  the  from  Sensor  Reset  Timer.  Lines  646-663 
compose  Task  #9.  Subroutine  Do_D_H_E_L  starts  at 
line  667  and  continues  through  to  line  692.  This  routine 
determines  the  Highest  Error  Level,  and  passes  Task 
#7,  the  current  state,  to  output  on  the  LED.  Lines  693- 
703,  clearthe  registers  #7-1  f=h,  Th»*iump«tf  l*«>wer-dh* 
code  Is  the  last  lines  705-706'. 

The  following  sections  describe  in  more  detail  how  and 
what  each  part  of  the  code  does  and  why.  The  code 
segment  lines  1-87  are  explained  in  this  paragraph.  Line 
4  tells  the  MPASM  assembler  which  PIC16/17  you  are 
using.  The  include  file  "PICREG.H"  follows  with  the 
equates  and  assignments  to  make  the  code  more  read- 
able and  changeable.  You  should  use  equates  that 
relate  symbols  to  each  other.  The  Constants  -  lines  10- 
12  are  the  values  to  change  for  different  Baud  rates. 
They  represent  the  Bit  Times  for  the  Baud  rates  divided 
by  2  minus  some  latency  factor  You  might  have  to 
adjust  the  "Fudge  Factor"  and  other  values  to  fine  tune 
the  performance.  The  value  used  for  the  "Fudge  Factor" 
is  related  to  the  longest  path  of  code.  Lines  21  -24  are  an 
experiment  that  altows  a  simple  name  to  be  associated 
to  a  single  bit.  This  allows  for  easily  changeable  assign- 
ments. Lines  30-54  are  the  variable  assignments. 
Variables  (lines  35-39)  are  used  as  time  counters.  They 
count  the  number  of  units  of  time,  and  are  compared  to 
literals  to  see  If  an  Event  has  just  happened.  The  bits 


ilHe^  in  WMi  57'^  ar6  used  as  Binary  Semaphores, 
fii^  keep  OrlHcea  Sections  of  data  protected.  We  will 
^  them  In  action  later  in  the  code.  The  b^  defined  in 
I!hes67-73are  ertorfiags.  Theydeflnethecun-ehtorlast 
enor  states  of  the  Semi  routines,  and  whether  data  was 
k>st  coming 'm  orout.  The  section  of  equates  In  lines  76- 
85  are  used  to  define  the  different  LED  activity.  They  are 
used  by  Task  #7  to  keep  the  LED  blinking.  In  lines  89- 
94,  we  try  to  save  the  all  important  first  256  bytes  of  any 
page. 

Task  #1  outputs  a  byte  Asynchronously  over  the  Serial 
Output  pin.  Task  #1  is  started  at  line  98.  The  time  units 
used  for  Tasks  #1  -4  are  2^5.  We  first  sample  the  RTCC 
and  store  the  count.  When  Tasks  #1  -4  are  then  allowed 
to  ain,  they  check  the  difference  between  the  first 
sample  and  the  current  lime.  If  the  delta  is  greater  than 
or  equal  to  the  delay,  then  that  Event  has  just  happened. 
We  first  check  If  the  state  of  the  Serial  Output  Is  zero.  We 
then  jump  to  OStateSto«teutthoautputting  of  the  "Start 
Br.  Because  any  Serial  i^^it^Migs  must  be  rock 
solid,  We  use  a  trick  in  lines  101-1 11  th^  helps  greatly. 
We  ch^  if  we  ire  within  a  cerMi  amount  of  time 
BEFORE  the  deadlme  and  ttien  Wait  for  the  time  to 
output  another  bit.  This  trick  alkiws  to'  be  Within  a 
certain  ±  amoiiirtl  of  tiim  Within  Me  dxpeeted  time  to 
ou^ut  that  bit.  With  this  code,  we  are  about  <±8% 
accurate  MM  Output.  Youcanonlyuseth'istrick 
onthemo^@MbaiMcs,andonfyonone.  InthiSsec^kin 
^  , ;  .  of  i^code,  we  are  eonstotly  cheeky  the  delta  of  time 
from  the  "FlRST_RTCC_0*'  reading  and  the  cun-ent 
reading  of  RTCC.  When  we  are  very  close  to  the  output 
time,  we  jump  to  line  1 1 7.  If  we  aiis  not  even  ctose  to  the 
proper  time,  we  exit  back  to  the  main  loop,  so  we  can 
check  the  other  timers  and  tasks.  Now  look  at  Figure  4 
for  a  description  of  the  Output  Pulses,  the  "Bit  units  of 
Time",  and  the  associated  state  numbers.  Nei»MlW4Ml| 
activities  are  spread  out  over  time. 

The  timer  Events  help  to  define  the  different  ^tes  and 
thdir  associated  output  activities,  ^h  Event  is  handled 
in  a  very  short,  well-defined  set  W  code  as  Task  #1. 
Lines  1 17-131 ,  are  a  qutek  state  jump  table.  You  need 
to  break  all  Real-Time  code  into  very  short  segments  - 
in  and  then  out.  Each  segment  is  just  a  few  lines  long., 

 iflsndo  your  activity,  save  status,  and  Increment  to  tfra 

next  state.  Notice  that  OStateO_7  code  Is  used  several 
times  to  output  all  8  bits.  The  state  variable  Is  used  also 
to  count  the  number  of  bits  already  outputted.  The  time 
to  the  next  outputting  of  a  bit  Is  calculatedand  is  adjusted 
to  take  out  the  accumulation  of  errors  In  lines  151-152. 
We  make  sure  of  a  full  "Stop  Bit"  length  in  the  OStateE 
code.  In  the  OStateLcode,  we  reset  the  OState  variable 
to  zero,  and  tell  the  world  that  we  are  not  outputting  now 
in  line  157.  This  is  Important  because  we  use  that  bit 
(OState_B)  to  S  Ignal  that  we  need  to  protect  the  variable 
xmt_byte  that  changes  over  several  states.  We  also  use 
It  to  Signal  that  we  are  ready  for  another  byte  to  output. 
Look  at  Task  #4.  See  how  It  uses  this  Semaphore  to  full 
advantage.  We  have  just  explained  a  Critical  Segment 
variable  ^  outlirgd  In  th^theory  sections  of  this  article. 
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Task  #2  reads  the  Serial  Input  line  1,  running  at  4800 
Baud.  The  code  stnicture  is  very  similar  to  that  of  Task 
#1.  See  Figures.  Notne  that  there  are  more  states  thari 
the  Serial  Output  Task  #1.  Once  the  'Start  BT  is 
detected,  we  half  step  into  the  "Start  BiT  to  see  if  H  was 
a  'Falsa  Start"  or  not.  We  ttien  sample  and  store  lha 
incoming  bits  to  form  an  8-bit  byte  just  like  Task  #1 .  We 
sample  the  'Stop  Bif  to  seq  if  it  is  a  'Frame  Error".  We 
^anot^er  MZ  m^^miomm^^Mt^SMM 
there  was  an  'Frame  Erroi'  betow  raawtttig  fa^^'f 
state  to  0.  Otherwise,  we  reset  Task  #1  's  state  to  0,  and 
^gnal  that  we  are  ready  for  another  'Start  Bif .  The  just 
risceived  byte  is  stored 'm  variable  'RCV.Storage".  A 
check  is  made  to  see  if  we  already  sent  out  the  last 
received  byte  before  clobbering  the  old  byte  with  the  new 
^e. 

Task  #3  reads  the  Serial  Input  line  2,  running  at  4800 
Baud.  The  code  structure  is  the  same  as  Task  #2.  See 
Figure  #3.  The  received  byte  is  also  put  into  the  same 
storage  variable  as  Task  #2  -  'RCV.Stonage".  When 
either  Teisk#2or  Task  #3  receives  a  valid  byte,  Task#8's 
counter  is  reset.  You  can  up  the  Baud  rate  of  Task  #2 
and  3  if  you  lower  the  output  Baud  rate  of  Task  #1 .  Note 
that  for  Te^dmg  the  Serial  Input  Lines,  you  can  be  off  by 
±1  S%  for  each  sampling,  but  not  accumulatively. 


'fajak**ilnttetfiena>»batliilrtllWWfe8a>ri 
gMsffretflwiiwIliMtmitiiMilliiiliilMiifi*  ttcm 


can  think  of  lha  S(Mii»MiMrUBAi  «s  a  Sheuwl  Re> 
source.  The  use  of  Saim^hnrosltem  alkmr  tlw  Syn- 
chronization of  data  and  actions. 

Task  #5  monitors  the  Level  Reset  Input  Line  and  will 
reset  the  LED  state  variable  if  the  line  ever  goes  low. 
This  task  is  always  in  the  Ready  State.  This  task  is  sakl 
to  sin^jly  'pole  the  input  line' when  ever  it  can. 

Task  116  debounces  the  seven  sensor  input  lines,  run- 
ning every  20  mSecs.  The  variable  "T_20_mS_CO"  is 
ln{^«ip;ited  every  512  uSecs  (Clock  Tick)  and  is  com- 
psmd  tatha  count  needed  to  equal  20  mSecs.  If  it  is 
time,  the  subroutine  QCheck_T123  is  called  to  see  if 
Tasks  #1-3  are  in  the  Ready  State.  If  any  of  the  Tasks 
#1  -3  are  ready,  they  are  ran  and  we  then  continue  with 
Task  #6.  We  compare  the  current  value  of  the  input 
Port_B  to  see  if  it  stayed  the  same  from  the  last  reading 
20  mSecs  back.  If  the  two  readings  are  the  same,  then 
Port_B  is  considered  to  be  stable  and  the  possibly  new 
value  is  placed  in  the  variable  "Old_RB"  to  be  outputted 
by  Task  #1.  The  subroutine  D_H_E_L  Is  called  to 
determine  the  new  LED  state.  We  then  check  if  Task  #1 
was  too  busy  to  output  the  last  sensor  status  byte,  if  so 
lhan  tfiat  error  is  recorded. 


FIGURE  3:   SERIAL  INPUT  STATES  VS.  TIRflE  DIAGRAM 
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Task  #7  outputs  the  Highest  Severity  Level  Indication  on 
the  LED.  Do_LED  starts  at  line  161 ,  and  continues  to 
276.  This  task  is  also  broken  into  small  time  units  of 
code,  tt  is  constantly  checking  to  see  If  it  is  time  to  switch 
the  on/off  condition  of  the  LED.  The  time  units  for  Task 
#7  are  regulated  by  the  code  in  lines  61 3-61 9.  1 31 072nS 
= time  unit  for  Tasks  #7-9.  Task  #7  has  many  state  jump 
tables  so  it  is  included  in  the  first  256  bytes  of  the  first 
page.  Lines  168-175  explain  the  on  and  off  sequences 
and  otfs  that  represent  levels  of  severity  of  the  input 
status  lines.  The  variable  "LED_Mode"  has  both  Task 
#7's  current  state  number  and  the  sub-state-numberfor 
that  state's  output  sequence. 

Task  #8  is  a  5  second  lack  of  input  from  either  of  the  two 
Serial  input  timers.  Tasks  #2  and  #3  will  reset  the  time 
counter  for  Task  #8,  when  either  receives  a  full  byte.  If 
the  tpe,  cpuntar  "t_5^S_CO".  6q»^.  5  fees,  then  the 
LH)'s  s^te  is  bumped  to  the  highest,  arkf  a  special  byte 
is  sent  down  the  line  to  the  next  'Remote  Alarm"  unit. 
The  counter  variable  is  reset,  and  count  starts  all  over. 
We  then  check  if  Task  #1  was  too  busy  to  output  the  last 
special  status  byte,  if  so  then  that  error  is  recorded. 

Task  #9  measures  5  minutes  of  calm  on  the  7  sensor 
lines  and  then  resets  the  LED's  state.  Task  #9  needs  1 6 
bits  of  counter  power  to  record  5  minutes  of  time.  The 
counter  variables  are  reset  after  being  triggered. 

Do_D_H_E_L  determines  the  LED's  next  state  based 
on  the  7  sensor  input  status.  This  subroutine  checks 
each  bit  to  see  if  it  is  active  and  then  checks  if  a  di^in^ 
in  the  LED's  curent  state  needs  changing. 

Do_Clear_Regs  clears  registers  7-1  Fh.  It  leaves  the 
FSR  register  zeroed  out.  This  very  important  for  the 
PIG16C57  chip. 

PIC16C64  -  "Remote  MMlP^  iWMiifie 

This  example  is  the  same  as  the  PIC16C54  exam^ 
witti  a  few  changes  to  take  advantage  of  the  three  ttmens 
on  the  PIC16C64  and  interrupts.  The  second  Serial 
input  routine  was  replaced  by  an  example  of  a  software 
PWM  (Pulse  Width  Modulation)  example.  The  «me 
code  as  the  PIC16C54  example  will  run  on  the  PICt6(%4 
wNh  very  few  changes  usmg  only  the  TM  RO  (RTCC).  ge 
sure  to  read  about  the  PIC16CS4  example,  as  the 
comments  wDi  not  be  repettel,  except  to  make  a^nng 
point. 

MWE  5:  REIMOTE  ALARM  -  PIC1iC64 
EXAMPLE 


Serial  IN  ^ 

mmmm 

Remote 
Alarm 

LED  Level  ^ 

7  Sensors  IN  ^ 

Serial  OUT  ^ 

Software  PWM  ^ 

Reset  State  ^ 

This  example  operates  at  4Mhz.  By  simply  increasing 
the  crystal  speeds,  you  can  change  the  input  and  output 
Baud  rates  just  as  outlined  in  the  section  on  the  P IC1 6C54 
example's  crystal  selection.  By  adjusting  the  constants 
in  the  code  for  the  Serial  routines,  other  Baud  rates  can 
be  achieved  art  other  crystal  speeds.  Note  that  you  must 
use  «i  yeiytstal^  c^^l  ^MP  and  NOT  an  RC  combi- 

Wb  v#l  nQw^ivea^uibic'Mii»<))f  the  PtC16e64  teSSe 
^irarnple'.  Lirtes  are  Wis  equates  for  Wis  pn^gram. 
Notic^  that  thei^  is  no  need  for  jump  tables  for'siibfou- 
tines  to  be  in  ttie  Tirst  256  bytes"  Of  each  pageas  th6f# 
was  hvM  PI&i®C54  eSKimple.  Nale  that  tie  *Reset 
Vector'  is  now  at  code  address  0,  and  the  interrupt 
Wtof  is  at  Code  address  4.  Task  #1  and  2  have  been 
M|>ltfed  greatly  by  using  intermpts  and  timers.  For 
"^iMc  WI ,  weno  iongerneed  to  use  the  Irick"  any  more. 
Wfti  Me  to  execute  once  ttie  routines  for  Task  #1  and 
Wers  are  called.  The  sectton  of  code  that  handles  the 
'Stkri  Br  (OStateS)  lines  1 06-1 22  hasbeen  changed  to 
sitting  up  TMR2  with  its  interrupt  to  trigger  the  next  call 
Hf  ttiis  subroutine.  The  initial  call  to  this  subroutine  was 
by  Task  #4,  but  later  calls  are  due  to  Timer  2's  intermpts. 
The  amount  of  time  until  the  next  interrupt  Is  set  byeach 
state's  code.  This  amount  is  based  on  the  "Bit  Unit  of 
Time"  Which  is  based  on  Baud  rate  and  crystal  speed. 
An  easy  change  to  the  code  is  to  add  a  software 
selectable  and  "changeable  on  the  fly"  Baud  rate.  This 
is  done  by  having  a  variable  that  selects  the  new  Baud 
rate  from  the  two  data  tables.  One  table  gets  you  the  Bit 
Delay  value  -  see  line  1 1 0.  The  other  data  table  gets  the 
value  to  be  put  into  T2CON  -  see  line  1 07,  which  selects 
the  Post  and  Pre-scalers.  You  may  need  to  adjust  the  Bit 
Delay  value  to  take  in  accountthe  Interrupt  Latency.  The 
OStateL  state  code  shuts  down  Timer  2  and  its  intermpt. 
See  lines  647-676  to  understand  how  we  get  here  by 
interrupt.  Once  Timer2's  count  equals  the  count  we  put 
into  register  PR2,  we  get  an  interrupt  if  the  following 
three  conditions  are  true:  1 .)  Not  already  in  an  inten-upt. 
When  the  current  interrupt  is  done,  our  interrupt  will  be 
executed.  2.)GIEandPEIEbitsareseL  3.)TMR2IEbit 
is  set.  Remember  to  clear  the  Flag  bit  as  in  line  1 1 4 
before  returning  from  an  inten'upt.  Return  from  this 
subroutine  will  return  you  back  to  Task  #4  or  back  to  the 
ISR  handle  lines  647-676  depending  on  who  called  this 
routine.  The  Task  #7's  subroutines  are  the  same  as  in 
tt»  PIC16C54  example,  lines  151-268.  Task  #2  is 
dnerentfromtheprevious example,  lines 288-380.  First 
Task  #2  uses  two  interrupts.  The  INT  interrupt  on  pin 
RBO/INT  is  used  to  detect  the  "Start  Bit".  It  is  very 
accurate.  It  is  turned  off  after  ttie  detectnn  in  11  StateS 
code.  ThesecondintempfTMIMen  Biabledinthe 
llStateS  code.  T«tm  t  b  i»n  used  to  cause  an 
ir(tenuptforailtheotl^#MN^ln'Task#2.  Notksethat 
Timer  1  lias  a  16-ljit  eSttMn'  and  we  calculate  the 
amount  of  Gkx;k  Tk^  until  overt  tow  in  lines 329-333.  In 
tfie  state  code  1 1  StateL,  TMR1isshutdown,andthelNT 
intemjpt  is  now  Enabled  so  as  to  detect  the  next  input 
byte.  The  initializing  of  the  PIC16C64  variable  takes 
^^smMiMmMB'^.  lie  lniM^oftheMcst^ 
ptace  hmm  mmt.         Mil*     bit  to  be  set 
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is  the  GIE  bit  in  line  451  after  ALL  is  setup.  There  are 
several  ways  to  execute  the  Task  #3-9  ccxJe:  by  Timer  0 
overflow  interrupt,  by  having  the  code  be  in  the  back- 
ground as  in  this  example.  The  tradeoffs  are  many,  and 
too  deep  for  this  artk:le.  Notk:e  that  the  subroutine 
QCheck_T123  is  not  needed  In  this  method.  TimerO 
overflow  interrupt  sets  the  flag:  Time_Bit.  TM  cod9  in 
lines  454-457  can  be  considered  the  'IDLE  Ta$K"  brt 
seme  systems.  It  waits  for  a  Clock  Tick  from  TMRO's 
overflow.  TEisk  #3  is  new,  and  is  a  simple  8-bit  software 
SWA.  Lines 459-478 show  how  to  have  8  bits  of  ON^  and 
^bitsofOFF.  This  task  has  two  states,  on  and  off.  You 
may  add  to  the  code  by  altowing  the  Real-Time  changing 
tt  the  8-bit  values  under  software  control.  When  you 
change  the  veilues  In  the  variables  PWM_Out  and 
PWMJn,  disable  all  interrupts  by  using  the  folk>wing 
Vtm  'BCF  INTCON.GIE',  and  enable  all  interrupts  by 
usftig-thefolk>wingline:"BSF  INTCON.GIE".  The  new 
values  will  be  used  at  the  next  transHnn,  thus  aitowing 
asroootti  change.  This  task  ooukl  easily  be  used  h  the 
PIOt6C54  aKPgfMe  typeKemel^  Teek  #4  is  the  same 
ewsent-tbat  t  ciis  Task  fl's  subnoutlite  to  Initiate  th9 
ou4>uttkig  of'  a  byte.  See  line  503.  Tasks  *5-9  are  the 
sems  as  in  the  P1C16CS4  axample.  The  subroutines: 
D_H..^E_L  and  Clear_RegB  are  the  same  In  both  ex- 
amples. The  TMRO  (Tner  0)  Overflow  interrupt  ISR 
(Intenupt  Sen/Ke  Routine)  Is  lines  641-645.  This  ISR 
will  set  the  Time_Bit  bit  and  clear  the  Flag  that  caused 
the  interrupt.  The  Interrupt  code  lines  647-676  handles 
the  saving  of  the  Context  Registers  and  the  restoring  of 
the  Context  Registers  (W,  Status,  FSR)  and  by  checking 
the  order  which  interrupts  are  to  be  handled  first  -  see 
lines656-669.  A  very  important  line  Is  654.  Youmustset 
the  memory  page  pointers  here  for  the  ISR  routines  ! 
Line  676  is  the  only  place  that  an  intenupt  Is  alk^wed  to 
return  and  set  the  GIE  bit  (RETFIE). 


>>•  i  f    '  I  ••'T-ninitmSi  i. --^ - 

SMAppandiKEferth*isli«MMiM»8m«nt  INscoda 
con«spaiKlsto)ina93l»^SMIM^t6Q54MBin^ 
The  purpose  of  fsentrent  (Stfkiii^idMw  tmor  more; 
iBSics  to  use  th»sama  oodaflMIM  ^Mn^Ume*.  See  the 
tpnSplt^tM^  reentrant  in  the  theoty  sectkm  (4  this 
NeMbs  how  the  registers  18h-1Bh  match  tbs 
meters  ICh-tFh,  both  stmtiiigiWitts  the  stsda  variable 
Itf  UhB  two  tasks  using  this«e«ttR».-  Note  how  Task  il2- 
mfi  Task  #3  load  a  pointer  to  the  state  variable  for  their 
tek  before  calling  IXJJState  code.  By  using  the  FSR 
register  as  a  pointer,  and  incrementing  or  decermenting 
the  FSR  register,  you  can  keep  the  variables  in  the  two 
tfisks  straight  even  if  the  two  tasks  are  using  different 
fode  in  the  subroutine  at  any  one  time.  This  method  is 
hot  easy  to  implement,  as  can  be  seen,  so  use  two 
copies  for  readability  Instead,  like  the  PIC16CS4  ex- 
ample. 

SUMMARY 

Now  that  the  P1C16/17  family  of  microcontrollers  have  a 
way  of  executing  Real-Time  Programs,  using  the  tech- 
niques outlined  in  this  article,  there  is  very  little  that 
PIC16/17S  can  not  do!  Much  more  than  was  ever 
dreamed  before.  Many  of  you  will  quickly  understand 
and  start  modifying  these  examples.  Great.  Thatmeans 
that  we  have  done  our  job  at  Myriad.  A  few  of  you  may 
want  more  help.  Great.  AtMyrladDevetopmentCo.,  we 
LOVE  the  PIC16/17  famiV.  ^. ,  i, 
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APPENOKA 

A  Reat-Tinie  >toe8bulary 

ASYNCHRONOUS  -  an  aciMly  that  can  happen  at  any 

moment,  at  any  time 

BLOCKING  -  the  act  of  wantingto  waiting  for  an  EViNT 
befom  continuing  znSm^^^^v^, 
CLOCK  TiCK  -  the  heart  beatM  aHfM  Isieswt  on 

CONTEXTS-ASK  SWITCH  -  mocbile  that  sawas  and 
restores  the  states  of  a  tasic 

CRITICALSECTION-sectionorcotleorhardwata-onlyT 
one  user  at  a  time 

DEADLOCK  -  that  is  where  two  TASKs  are  waiting  for 

each  others  resources 

DISPATCHING  -  the  act  of  starting  up  a  TASK  to  run 
from  an  RT  Kernel 

DYNAIUIIO  PRIORITI^  -  Oie  aMily  for  TASKs  to  have 
there  PRIORiTiES  changed 

DYNAMIC  TASKil<lG  -  the  creation  and  the  IdMng  of 

TASKS 

EMBEDDED  SYST^  <  an  ihteirad  ^stem  that  oper- 
ates ail  by  itself 

ENABUNG/DtSABUNGIKn^RUPTS-CiontroHlnglhe 

interrupting  processing 

EVENT  -  Timer,  communication,  handshaking,  inter- 
rupts, data,  external  events 

EVENT  FLAGS  -  the  storage  of  current  states  or  info  on 
wliat  li»  haf^iened 

INTERRUPT  -  a  haitkwara  0*m  fii«laiMi|)lamaOttial 
triggers  a  jump  to  the  ISR  rstilliw  to  handtofMleimit 

INTERRUPT  LATENCY  -  how  long  «  tol<es  once  sig- 
naled to  start  an  ISR 

INTERRUPT  RECOVERY  -  how  long  tt  ttrins  once 
interrupted  to  return  t)ack  to  code 

KERNEL  -  module  that  controls  TASKs,  iNTERROPTs, 

and  intertask  communfcations 

MAILBOXES  -  a  way  to  pass  data  from  one  TASK  to 
another 

MASKABLE  INTERRUPTS -theabWytocontrol  Whether 
an  ISR  is  called  or  not 

MULTITASKING  -  the  act  of  several  TASKs  thiittg 
they  own  the  CPU 

MUTUAL  EXCLUSION  -  the  apt  of  allowing  only  ONE 
owner  to  a  RESOURCE 

NMi  -  Non-Maslcabie  Intenvpt  -can  not  betumsd  off  by 

software 

READY  STATE  -  Referring  to  a  list  of  TASKs  ready 
(having  wort<  to  do  NOW) 

REENTRANT  -  code  that  can  be  used  by  several  TASICs 
at  the  same  time 


RESOURCE  -  data  stmcturas, 
non-reentrant  routines 

RUNNING  STATE  -  Refaf|igto#t»PMEtaslcownintK 

using  the  CPU  currently 

SCHEDULER  -  that  part  of  a  kernel  that  deckles  which 
TASK  to  run  next 


SIGNAL - 
something  has  tafipened 

STATE  MACHINE  -  an  ii 
job  into  TASKs  &  ISRs 


YM  J»loY  » . 

SYNCHRONIZATION  -  wetB f AaKia»»il|iiMP  uiMi: 
data  or  at  a  special  time 

TASK  PRIORITY  -  each  TASK  is  ranked  as  to  fts 
importance  to  getting  done 

TASKH-HREAD  -  code  that  is  define^  ify  a  small  coher- 
ent job/woHc  to  bw  dm* 

Tttfi  SU^iS  >  the  a^  of  giving  the  same  announi  of 

TRAP  -  a  softMiBre  caused  intemip^-'^*'*^^ 
access 


WAITING  STATE 
foranEVENT(s) 


Referring  to  a  llst  #  T«ap^  wtitng 


5-178 


Rl©16/17  f^l-Ttme  Operating  System 


'Reentrant  Code  Bxanvl*'  BeAigned  by  ^/rlad  DevalopBent 
PICiec54,  Cz:patal.  IfatebDeg  Tloer  OFF 


;  Register 

Files 

IStatel 

equ 

18h 

.-Serial  In  #1  State 

First_RTCC. 

.11 

equ 

19h 

;  Starting  time  for  next  #1  Input  event 

nbtil 

equ 

mi 

iHext  Bit  tl  In  Tine  -  variable  tiiM 

rcv_byte_l 

equ 

;  Receive  Serial  fl  In  byte 

IState2 

equ 

ICh 

;  Serial  In  12  State 

First_RTCC. 

.12 

equ 

uai 

;  Starting  time  for  next  *2  Input  event 

nbti2 

lEb 

;Next  Bit  *2  In  Time  -  variable  time 

«^ 

;Reeelv«  Serial  «2  la  byee 

J  ****** 

2,3  - 

Asynchronous  2400  Baud  Serial  Input  (IiOW=0)  I 

L^l 


movf 

btsc 

goto 

movf 

movwf 

incf 

movf 

subwf 

incf 

movf 

subwf 

btss 

goto 

mevlw 
subwf 
movf 
andlw 


goto 

goto 

goto 

goto 

goto 

goto 

goto 

goto 

goto 

goto 

goto  * 

goto 

olrf 
' retlw 


INDIR 

STATUS,  Z 

IStateS 

RTCCW 

temp 

FSR 

INDIR,H 

tenp 

FSR 

INDIR,  W 
tenp,W  - 
STATUS,  0' 
LI  ^ 
sa 

2 

FSR 

INDIR,  W 
H'OF' 

IStateS? 

IStateO_7 

IStateO_7 

IStateO_7 

IStateO_7 

IState0_7 

IStateO_7 

IState0_7 

IState0_7 

IStateE 

IStateL 

F^ 
0 


;if  r^te2  =»  6 

tbera  Do  Stitrt  Bit 

;Get  current  time 

/Point  to  First_RTCC_I(l,2) 

^Omt  %tm>i  ^na  cbit  >  2  us 

1  PaMZ  hi»m  feac  next  il#ut  bit  ? 


~t  tbint"  to  IState  ( 1 , 2;| 

;Get  (0-B)  mode  t 
-^;Get  only  mode  # 

%4rli4 
;l/2  <k 


;Bit 
;Bit 
;Bit 
;Bit 
;Bit 
;Bit 

;Bit 

;Bit 


;a  -3. 


; Serial  Stop  tfit 
;Last  State 


4  i 


r 

a 


X  1' 

5 


; Clear  the  FSR  register 


.  *^J*i»;  * 
Ta#10 


. ***** 


■V  C  O  C    'J  O 

;Taak  2  -  AsyradlvoiieiW  MOO  Baud  Serial  I^iut  (IiOHsOi 
movlw     IStatel  ; Feint  to  IStatel 

movwf  FSR 
call  Do_IState 

;Task  3  -  Asynchronous  2400  Baud  Serial  Ii^ut  (LOW=0) 
mevlw     IState  ;  Point  to  3Sgt»tj^ 

movwf  FSR 
call  Do_;iS:fcate 


END 


«M<79 


tmSH  01.00.01  Inter. 


«E%Jg,lkM      •t~a§^m*  ;i.tt.lt<t$ 


tim  1 


LOC    OBJBCT  COOR 


LINE  SOmCB  TBXT 


OlFF 
OlFF 
03FF 
07PP 

0001 

0002 
0003 
0004 

0005 

mm 


0000 
0000 
0001 


0003 
0004 
0004 
0005 
0006 
MO? 

0001 

oooo 

0000 
0007 


0001 
0002 
0003 
0004 

Ml 


"Remote  Alarm'  VI . 02  Designed  by  Myriad  Development  Co.   -  Jerry  Farmer 
PIC16C54,  4HHz  Crystal,  WatchDog  Timer  OFF,  HPASM  instruction  set 

list       p=16C54 , t=ON, c=132 


owl 

0002 
0003 
0004 
0005 

,  ooos 

"  0007 
0008 
0009 
0010 
0011 
0012 
;  i  0013 
'  *  0014 
.  e  WIS 

*■■,  miv 

0017 
0018 
0019 
0020 
0021 
M  0022 
'  0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 

m$* 

0035 
0036 
-  0037 


PIC54  equ 


PIC55 
PICS6 
PIC57 
< 

RKIC 
PC 

STATUS  equ 

FSR  equ 


equ 
equ 
equ 

•91 

equ 


.*********»*»«|.    piciScSX  Header 

IFFH 
IFFH 


************************* 


Port_A  equ 
Port_B  equ 
Port_C  equ 


3FFH 
7FFH 

1 
2 
3 
4 

5 
« 


.( 'Mttset  Vector* 


;  m  Reg  la  SCIWB  Kng. 


;  i/0  Port  AasiJ^ments 


s  - 

■  u 
u  » 

$-5 


^  K  I 


9 


CARRY 

equ 

0 

C 

equ 

0 

DCARRY 

equ 

1 

DC 

equ 

1 

Zj5it 

equ 

2 

Z 

equ 

2 

P_D0WII 

equ 

3 

PD 

equ 

3 

T_OUT 

equ 

4 

TO 

equ 

4 

PAO 

equ 

5 

PAl 

equ 

6 

na 

«qu 

t 

m» 

1 

w 

equ 

0 

LSB 

equ 

0 

I  w^eism^isa .  Bits  ^ 
"CSrry'^t  is  Bit.O  of  F3  ' 


Bit  2  of  F3  is  Zero  :Slt 


^1  I 


X 

e 


0O38 

0001 

0039 

TRUE  eqii 

1 

0001 

0040 

YES  equ 

1 

0000 

0041 

FALSE  equ 

0 

0000 

0042 

NO  equ 

0 

0043 

0044 

.*************************************************************«******** 

0006 

&m 

mm 

;  Constants 

mse 

0009 

INDIR 

equ 

0 

Indirect  Register 

vm 

OOIO 

ODT_BIT_TIME 

equ 

33h 

9600  Baud,  104uS  Bit  Rate 

0011 

IN_BIT_TIME 

equ 

64h 

4800  Baud,  208uS  Bit  Rate 

0012 

PUDGE_'MMB 

equ 

23h 

Current  Time  within  a  Fudge  Factor 

0013 
0014 

;  B  Register  Definitions 

0001 

0015 

# define  Level_ 

Reset 

Port_B,0 

Low  will  cause  Past  Level  to  reset 

-Oil 

8. 

RB.7  -  RB.l        Input  from  Sensors 

OOFF 

•wm 

!^_TR1S 

fipiiiiiiii' 

KB  'FRIS  at:  INIT  Sb^«.  »  all  li^ut 

0018 

RB_MASK 

equ 

B'OOOOOOOO' 

What  isJ'Htah/Low  for  RB  at  INIf  State 

0019 

0020 

;  A  Register  Definitions  -  Programmable 

Inputs 

0002 

0021 

#define  Serial 

_IN_1 

Port_A,0 

.•Serial  Input  »1  -  8  bits 

0003 

0022 

#define  LED 

Port_A, 1 

;LED  Output  -  Level/State  Indicator 

0004 

0023 

#define  Serial 

_Out 

Port_A, 2 

;  Serial  Output  -  8  bits  +  passwords 

0005 

0024 

#define  Serial 

_IN_2 

Port_A, 3 

.•Serial  Input  #2  -  8  bits- 

0025 

00#9 

0O26 

RA_TRIS 

equ 

B' 11111001' 

Rft  THIS  at  IKIT  State 

0027 

RA_MASK 

aqu 

Bif^fWOiOO' 

jmaO:  Is-  Hlt^/lzaw  t<xt  tOe  alt  OUT  0t«te 

0028 

0029 

;  Register  Files 

Vim 

0030 

temp 

equ 

07h 

.-Tempary  holding  register  -  PIC16C54/56 

0031 

Timer _Bits 

equ 

08h 

.•Indicates  which  Timer  (s)  are  Active  =  1 

0009 

FtagB      •          4^  » 

iSCzoK  jPlags                    .u  «••( 

(0-2)=4<»ae,  3>!i;ed_b,  (4-s)sse«  t,  i^ma 

0006 

0034 

OState 

equ 

OBh 

; Serial  Out  State 

OOOG 

0035 

T_5_M_L0 

equ 

OCh 

5  Min  Timer  Counter  -  Low 

OOOD 

0036 

T_5_M_HI 

equ 

ODh 

;  5  Min  Timer  Counter  -  High 

OOOE 

0037 

T_5_S_C0 

equ 

OEh 

.•5  Second  Timer  -  lack  of  Serial  Input 

OOOF 

0038 

T_20_mS_CO 

equ 

OFh 

;20  mS  Timer  -  used  for  debouncing 

0010 

0039 

LED_C 

equ 

lOh 

.•LED  Counter 

0011 

0040 

Last_RTCC 

equ 

llh 

;Last  value  of  RTGC 

0012 

0041 

FirstJlTCC_0 

equ 

12h 

jStiartlng  -tine  Bet-  next  OuQsat  evMUt 

06l3 

0042 

xmt_byte 

equ 

13h 

Serial  xmit  'byte  -  dastaroyed  in  use 

0014 

0043 

cc 

eqii 

Ml 

;256  *  RTCC  time 

0015 

0044 

RCV_St<»rage 

«4U 

IBh 

;Long  term  storage  of  rcV_}3yte  tl  i>  2 

001>6 

0045 

01d_RB 

equ 

16h 

;01dest/Master  c<^<  of  Iffi    'pr  -•>"- 

fsmi 

0046 

LaBt_S»CC"rj 

equ 

17h 

Last  copy  of  RB       "^^     "i   rt*rc  ^/enj 

2 
o 

O) 

13 
(D 

H 

I' 
(D 

O 
T3 

(D 
-t 
0) 

5" 

(Q 

3 


0018 

0047 

IStatel  equ 

18h 

0019 

0048 

First_RTCC_Il  equ 

19h 

OOIA 

0049 

nbtil  equ 

lAh 

OOIB 

0050 

rcv_byte_l  equ 

IBh 

OOlC 

0051 

IState2  equ 

1C& 

OOID 

0052 

First_RTCC_I2  equ 

IMS- 

OOIB 

0053 

nbti2  equ 

ISi 

00  IP* 

0054 

rov_byte_2  equ 

IPh 

OOiSS 

0056 

;  Indicates  v^ich  Timer (s)  are  Active 

0006 

0057 

#define  OState_B 

Timer_Bits,  0 

0007 

0058 

♦define  IStatel_B 

Timer_Bits, 1 

0008 

0059 

#define  Istate2_B 

Tlmer_Bits,  2 

0009 

0060 

tdefine  T_5_S_B 

Tiiner_Bits,  3 

OOOA 

0061 

♦define  T_5_M_B 

Timer_Bits,  4 

OOOB 

0062 

tdeflgs*  I)CVj9otjOm_B 

.Tteer_Bitai5 

oooe 

0063 

#de*ii^  VBjmiJi'' 

<%ifcer_Bits,6 

0064 

♦  define  S_5_iSJ 

Mftier_Bits,7 

0065 

0066 

;  Error  Flags 

oooM' 

0067 

♦define  FS_Flag_l 

Flags, 0 

OOOF 

0068 

♦define  FE_Flag_l 

Flags , 1 

0010 

0069 

♦define  FS_Flag_2 

Flags,  2 

OOll 

0070 

♦define  FE_Flag_2 

Flags  ,3 

0012 

0071 

♦define  RCV_Overflow 

Flags , 4 

0013 

0072 

♦define  RB_Overflow 

Flags,  5 

omt 

0073 

♦define  S_5_S_0verf low 

0074 

0075 

.■Equates  for  LED  Task  tl 

0015 

0076 

♦define  LED_B 

LED_Mode,3 

0016 

0077 

♦  define  LED_NEW_B 

LED_Mode,7 

0008 

0078 

LED_0FP_)10DE  equ 

0089 

00"^ 

LBD_SEQUt00B  equ 

00  8A 

OOSO 

LED_SEQ2_)I0DE  equ 

B'lOOOlOlO' 

008B 

0081 

LBD_SEQ3_M0DE  equ 

B'lOOOlOll' 

009C 

0082 

LED_SLOW_MODE  equ 

B'lOOlllOO' 

009D 

0083 

LED_MEDIUM_MODE  equ 

B'lOOlllOl' 

009E 

0084 

LED_FASTJ10DE  eqU 

B'lOOllllO' 

0086 

■f 10001111' 

com 
mm 

}  clear  Kagisters  7-19b 

mm 

Clear_Kegs 

0000  0BE9 

0090 

GOTO       Do_ClearJlega  ■}Bm» 

'':  \i • 

0091 

0092 

;  Determine  the  I£lgfaest  Error  Is/mti.  S 

0093 

D_H_E_J,  1 

mm 

-ifis                   fliojatXAJ"  ;Save 

.■Serial  In  #1  State 

.■Starting  time  fci  next  #1  Input  event 
;Next  Bit  #1  In  Time  -  variable  time 
.■Receive  Serial  #1  In  byte 
.•Serial  In  #2  State 

;  Starting  time  for  next  ^2  Input  event 
;imct  Bit  *2  In  Tiane  -  varlaiW<mMli 
;«eBoive  Serial  #2  In  byte 

1  S  Flags  ^ 
.■Serial  Out  Active  Bit  ■>!   "  - 

.■Serial  IN  ♦!  Active  Bit 
.■Serial  IN  #2  Active  Bit 
;5  Second  Timer  Active  Bit 
;5  Min  Timer  Active  Bit     .         '  ' 
t^Sfb  a  IffiW  Received  byte  to  send  out 
^^i0gS^eaMea'  a'l-dhatige  itt  KB  input  » 
I'Sma^lt  WS  ■■iiebs  ■at  .liutetlvity  .     '  ^ 


.■Serial  #1  IN  had  a  False  Start  Error 
.•Last  Serial  ♦I  IN  had  a  Frame  Error 
.■Serial  t2  IN  had  a  I^s«  SM^t  B»«az 
;Laat  Serial  12  IN  Hluf  iC  Vrama  Icz^ 
;Lost  Serial  Input  Byte  -  too  Slow 
;Lost  RB  Input  Byte  -  tcto  SldW     '  ' 
;IiOBt  '5S  Inacfclvity*  48sg  -  too  Slow 


LED  is  active 

LED  has  just  changed  Modes  =  1 

sa»  m^iemt  m  urn-  of/  -I's  wff  •<■ ' 

LED  Sequence  2:  3x(.2s),  Is  Off 
LED  Sequence  3;   5x(.2s),   Is  Off 
LED  Slow  Pulsing  -  .  3  Hz 
LED  Medium  Pulsing  -  1  Hz 
LED  Fast  Pulsing  -  3  Hz 

vmxmf  coi^ttitstMiy 


0095 

O096 

. ****** 

fj^ak  #1  -  Asynchronous  9600  Baud  Serial  Output 

0097 

Do_OState 

0002 

022B 

.0098 

MOVF 

OState 

f*f  OState  ==  0 

0003 

0643 

0099 

BTFSC 

STATUS, Z 

; 

0004 

0A24 

0100 

GOTO 

OStateS 

;                   then  goto  Output-Start-Bit 

0005 

0201 

0101 

MOVF 

RTCCW 

•Gee  -cXtnMK  time 

0006 

0027 

0102 

MOVWF 

ttiUip 

;                             &  Store  in  teiipary  variable 

0007 

0212 

01.Q3 

MOVF 

PirBt_RTCC_0,W 

;Get  elapsed  tinte;  Time  unit  =  2  us 

0008 

D0A7 

0104 

;Delta  of  Current  Time  £  Orginal  Time 

0009 

0C23 

0105 

MOVLW 

1S0IX1E_T1MB 

;Take  in  account  ^eswMtaig  tine  to  do  It 

OOOA 

0087 

0106 

SUBWP 

temp.W 

;Time  within  fiaSge  factor  ? 

OOOB 

0703 

0107 

BTFSS 

STATUS,  C 

OOOC 

0A23 

0108 

GOTO 

_0005 

;Not  time  yet  to  change  States  so  return 

OOOD 

0C33 

0109 

_0003 

MOVLW 

OOT'_BIT_TIME 

;Past  time  for  next  out-bit  ? 

OOOE 

0087 

mm 

SDBWF 

ter[^,W 

OOOF 

06103 

m,si 

BT?FSC 

STATUS, C 

;Do  some  delaying  until  it  is  time 

0010 

omM 

mm 

SOK) 

_0004 

le  sow  :tisie  to  ^tttf^t  •  bit 

0011 

0C04 

0W3 

MOVLW 

H'04' 

fMBeaimt  for  loiop  deflay"  • 

0012 

01E7 

0114 

ADDWF 

temp 

OBI  3 

0000 

0115 

NOP 

;      make  loop  delay  even 

0014 

OAOD 

0116 

GOTO 

_0003 

;Wait  for  exact  time  to  output  bit 

0015 

020B 

0117 

_0004 

MOVF 

OState, W 

;Get  (0-A)  mode  #          i  '  ■    ^  - 

0016 

OEOF 

0118 

ANDLW 

H'OF' 

;Get  only  mode  # 

0017 

01E2 

mm 

-PC 

;  junp  to  subrsMime 

0018 

0A24 

ma 

■mm 

OStateS 

; .Serial  StMtfe'  Mt 

00.19 

OMB 

0121 

ISOTO 

OStateO_7 

■iJfc,  «!!.■  A..  Wi-is  » 

OOIA 

0A2S 

0122 

GOTO 

OStateO_7 

Vl^t^""  -  .'.T"'*'  iv-  -      1.  •" 

OOIB 

0A2B 

0123 

GOTO 

OStateO_7 

;Bit  2 

OOlC 

0A2B 

0124 

GOTO 

OStateO_7 

•  Bit  3            -^^■•'   "  i   ■  .  ■ 

OOID 

0A2B 

0125 

GOTO 

OStateO_7 

;Bit  4 

OOIE 

0A2B 

GOTO 

•Bit  5               -J.         }~      .  "  y}~X: 

OOIF 

0A2B 

0127 

GOTO 

OStateO_7 

,-Bit  6 

0020 

mm- 

jOa*«teO_7 

;Bi  t  7 

omi 

'mm 

mm} 

0022 

0A3« 

0130 

GOTO 

OStEiteli 

0023 

0800 

0131 

_0flO5 

RETLW 

H'OO' 

0132 

0133 

OStateS 

0024 

0545 

0134 

BSF 

Serial„Out 

.■Serial  Start  Bit 

0025 

0201 

0135 

MOVF 

RTCCW 

0026 

0032 

0136 

MOVWF 

First_RTCC_0 

0027 

ocm 

0137 

MOVLW 

H'OD' 

0028 

0(^ 

0538 

Pll!St.RTCC_e» 

0029 

02318 

OState 

';inc0^Mfi       Wm  state 

002A 

0800 

mm 

KEKLW 

H'OO' 

;Bit  0-7 

''L''y 

I  002B 

0333 

0143 

RRF 

xint„byte 

Hove  bit  into  C  f s«n  Z^lilMt  IMOt  Mt 

002C 

0703 

0144 

BTFSS 

STATUS,  C 

1 

002D 

0445 

0145 

BCF 

Sarial_Out 

1 

1  002^ 

0603 

0146 

B^'F'SC 

STATUS, C 

002F 

0545 

0147 

BSF 

Seriar_Out 

,  0030 

i 

0A32 

0148 

0149  OStateE 

GOTO 

OS_End 

0031 

0445 

0150 

BCF 

Serial_Out 

Serial  Stop  Bit 

0032 

1 

0C33 

0151  OS_End 

MOVLW 

OUT_BIT_TIME        /Adjust  out  the  cumulation  of  error 

0033 

01F2 

0152 

ASDWF 

■  ',i«f.t«i  tmr  B4f 

{  0034 

02AB 

0153 

mcF 

ostata              ;  incrmomt  w  mmm 

1  0035 

0800 

RETLW 

H'OO' 

0036 

006B 

0156 

GIiSF 

estate                ;Ready  tiTiVUid  next  byte  out 

0037 

0408 

0157 

BCF 

0State_B             ; Serial  Quit %ot  active 

0038 

0800 

0158 
0159 

RETLW 

H'OO  ' 

1 

0160  •***•*» 

;Task  #7  -  Output  Highest  Level  Indication  on  LED 

1  c 

•I'-.O 

0039 

06EA 

LED_JIEW_B 

Initialize  regs  if  change  i»  mode* 

1  003a 

0A4C 

GOTO 

LED_NEW 

003B 

02BO 

ewi 

INCF 

LED_C 

Ine  Counter  -  Time  Ohit  =  131072  uS 

(J03C 

020A 

0165 

MOVP 

LED_Mode,W 

Get   (0-7)   mode  » 

ODSD 

0E07 

0166 

ANDLW 

H'07'  • 

Get  only  mode  # 

2 

003E 

01E2 

0167 

ADDWF 

PC 

jump  to  subroutine 

003F 

0A48 

0168 

GOTO 

LED_0FF 

LED  OFF 

0040 

0A64 

0169 

GOTO 

LED_SEQ1 

LED  Seq  li  1  short  pulse  &  pause 

:  mm- 

0SS7 

mm 

MiB>> 

LBD_SEQ2 

ma  Seq-  2  8  2'  short  pulsea:  S'  pme» 

0«SA 

81,74 

Mb 

LED_SEQ3 

LE0  seq  3:  3  short  pulaes  &  pause 

0043 

0A50 

0172 

LED_SLOW 

LED  Slow  Pulsing  -   . 3  Hz 

0044 

0A5E 

0173 

LEDJJEDIUM 

LED  Medium  Pulsing  -  1  Hz 

0045 

0A61 

0174 

GOTO 

LED_PAST              ;LBD  Past  Pulsing  -  3  Hz 

i  0046 

0A4D 

0175 

GOTO 

LED_Olf                          W«(SBMJa<S^ly  '  •   f  [ 

1  0047 

0800 

0176  _0012 

RETLW 

H'OO'  ' 

i  f>UN> 

0177  ;  

IKXHTH 

1  PC-- 

0178  LED_OFF 

t 

1  wee 

o«aS' 

i 

{  mas 

a»m. 

mm 

oa4A 

0070 

0181 

CLRF 

MID_C                  .-Reset  Counter  -  LED_C  =  0 

004B 

080«; 

0182 

0183  ;  

RETLW 

H'OO' 

0184  LED_NEW 

004C 

04EA 

0185 

BCF 

LED_NEW_B 

Done  initializing 

IiEB_ON 

004D 

0S2S 

Sim 

Turn  on  LED 

mm  osw 

mm* 

Reset  Counter  -  LED_C  =  0 

«04F 

0800 

cnsi  '-  i 
3&gi ;  '— - 

0.  • 

SETLW 

0191 

LED_SLOW 

■  n 

0050 

ococ 

0192 

MOVLW 

H'OC  iotKXi* 

0051 

0027 

0193 

MOVWF 

temp 

0052 

0207 

0194 

LED_S  MOVE 

temp , W 

iOiMiH  H^J^^t  Stai*  .3%  «  50%  Duty 

0053 

0090 

0195 

SUBWF 

LED_C,W 

00^4 

0743 

BTFSS 

STATUS,  Z 

0055 

0&47 

GOTO 

_0012 

J.' 

0056 

OCIO 

019:8 

MOVLW 

H'lO ' 

0057 

OlAA 

0199 

XORWF 

LED_JIode 

; Switch  states 

0058 

07  8A 

0200 

BTFSS 

LED_Mode,4 

;Now  make  LED  same  state 

0059 

0425 

0201 

BCF 

LED 

005A 

068A 

.0202 

BTFSC 

LED_Mode ,  4 

.005B 

0525 

.mo3 

J* 

405C 

0070 

O204 

; Reset  LED_C 

^P5D 

0800 

0205 

It'iOO ' 

0206 

1  

0207 

LED_MEDIUM 

005E 

0C04 

0208 

MOVLW 

H'  04  V. 

005F 

0027 

0209 

MOVWF 

temp 

0060 

0A52 

0210 

GOTO 

LED_S 

;Go  do  it 

0211 

; 

LBD_FAS^. 

OOfil 

pcol 

H'Ol' 

;3Hz  9  50%  Duty 

Mil* 

tuns' 

>  J         ■ ;  a»   ■         "n      .  oi  • 

'00«$3 

«215 

4mo-jS  ■ 

|i36  db  tt 

0216 

;  

0217 

LED_SEQ1 

;  .  2  ON,   1  OFF 

0064 

07  8A 

0218 

BTFSS 

LED_Mode,4 

;Skip  if  bit  is  high 

0065 

0A76 

0219 

GOTO 

ONI 

;Go  do  it 

0066 

0A82 

0220 

GOTO 

0FF3 

;Go  do  it 

0221 

;  

1', 

0222 

LED_SEa2 

.fi-iaHSR,;  «2  OFF,  .2.  ON,  1  OFF 

0067 

02  OA 

:  .  J  MOVE 

LED_Hode,W 

00«S 

0027 

1^24 

HOVWF 

teinp-^  . 

0069 

0C30 

0225 

MOVLW 

H'30' 

;Get  sequence  #  only 

006A 

0167 

0226 

ANDWF 

temp 

006B 

03A7 

0227 

SWAPF 

temp 

;  swap  nibbles 

006C 

0207 

0228 

MOVF 

temp.  If. 

;get  nibble  for  offset 

006D 

01E2 

0229 

ADDWF 

PC 

; Table  jump  calculation 

006E 

0A76 

0230 

GOTO 

ONI 

;LED  is  on,  check  if  time  to  change 

006F 

0A7C 

0231 

GOTO 

0FF2 

;LBD  is  off,  check  if  time  to  change 

007.0 

0A76 

0232 

GOTO 

imifiBi^g^me^  it  time  ko  eduasp 

0071 

0A82 

0233 

GOTO 

ilM^  it  aie,  eKm^  it  fe-itW'  to  ^samtt* 

0234 

0235 

LED_Exit 

9. 

0072 

OCIO 

0236 

MOVLW 

H'lO' 

;  Inc  Seq  1           ,  .         ■  - 

0073 

OlEA 

LBOJiode 

0074 

0070 

;  Reset  UO}_C 

00-75 

0800 

02  3  9 

H*'00 ' 

0076 

0C02 

0241 

H '  02  ' 

0077 

0090 

0242 

LED  C  W 

0078 

mi  T 

si Aluo  t a 

0079 

UA4  / 

0244 

niwo 

0012 

no  AC 

By"  ■ 

007b 

0A7<2 

0246 

QOTO 

LiBULJSXlC 

-  •  -  .            :           .    ^-5.  , 

0247 

0FF2 

: :  '1* 

007C 

0C02 

0248 

HUVijW 

H'  02  ' 

;  unecK  i4»iJL.c  xx^  &iX9v  f  •  *  Bec-*oii 

007D 

0090 

0249 

SUBWF 

T  f  T\  t.t 
Lr.lJ_Q- ,  w 

007E 

0743 

0250 

BTFSS 

D 1  Ai Uo  ,  it 

0D7F 

0A47 

0251 

GOTO 

_0012 

0080 

0525 

asp 

XiED  . 

0061 

0A72 

QOTO 

wov 

0{^9^ 

■■(^^ 

rr- 

HOVLW 

H'  08 ' 

;;Che^'^  li^L.Ct''i'r  bianVK^  1  'Sej^^^^ff 

0083 

0090 

SUBWF 

LED_C ,  W 

0084 

0743 

0257 

BTFSS 

STATUS , Z 

0085 

0A47 

0258 

GOTO 

_0012 

0086 

0525 

0259 

BSF 

LED 

;Tarn  on  LED  ;. 

0087 

OCFO 

0260 

MOVLW 

H'FO  ' 

0088 

012A 

lORWF 

LEDJiOCte 

f^AUse  (39^  &  NBH)  to  overflow  to  0 

0089 

0A72 

0262 

eoTo 

LED_Bxit 

0263 

LED_SEQ3 

■  4  nH      9  AM      9  nM      9  nm7      9  cos 

008A 

020a 

0264 

MOVF 

LED_Mode,W 

008B 

0027 

0265 

MOVWF 

temp 

)0O8C 

0C70 

0266 

MOVLW 

H'70' 

;Oet  sequence  #  only 

Q08D 

0167 

0267 

ANDWF 

teinp 

OOSiE 

03A7 

SHWF 

t:eaB|> 

;  swap  nibbles 

QOBF 

0207 

mvF 

;get  nibble  for  offset 

0090 

01E2 

mm 

;9«)3le  iws  ealculatio^ 

0091 

0A76 

0371 

aene 

•tXD  Is  on  check  if  tine  to  dimxigB 

0092 

0A7C 

0272 

GOTO 

;LED  is  off  check  if  time  to  change 

0093 

0A76 

0273 

GOTO 

;LED  is  on  check  if  time  to  change 

0094 

0A7C 

0274 

GOTO 

0FF2 

;LED  is  off  check  if  time  to  change 

0095 

0A76 

0275 

GOTO 

ONI 

;LED  is  on  check  if  time  to  change 

0096 

OAS  2 

0276 

GOTO 

0FF3 

;LED  is  off  check  if  time  to  change 

.  **** 

Quick  Cheek  of  1m*1sa  tl,  ti,  and  t3 

02.7* 

QCheck_T123 

o^«p 

;  Task 

#1  -  Asynchronous 

9600  Baud  Serial  Output  (LOW=0) 

0097 

0708 

0281 

BTFSS 

OState_B 

;if  not  outputing  now  then  skip  call 

0098 

0A9A 

0282 

GOTO 

T2 

0099 

0902 

0283 

CALL 

Do_OState 

;Go  Do  Task  #1 

0284 
0285 

;  Task 

12  -  Asynchronous 

4800  Baud  Serial  Input  (LOW=0) 

009A 

062ll' 

Gt^ 

•S2i 

[•U/JBTFSC 

IStatelJl 

;if  alreai^  started  then  call 

2 
O 

■>j 

(D 

3 

(D 
O 

■o 

(D 

■■■■ 

3 
(Q 

(/) 
«< 
(0 

(D 

3 


009& 

0A9F 

0287 

GOTO 

_0029 

009C 

0605 

02  88 

BTFSC 

Serial_IN_l 

;i£  Start  bit  ?  then  call 

009D 

0A9F 

02  89 

GOTO 

_0029 

009E 

OA^ 

0290 

GOTO 

T3 

009F 

0291 
.0^92 

Do_IlState 

;Go  Do  Task  #2 

0293 

•Task 

#3  -  Asynchronous 

4800  Baud  Serial  Input  (LOW^O) 

00  AO 

0648 

0294 

T3  BTFSC 

lState2_B 

;if  already  started  then  call 

ooai 

02  95 

GOTO 

_0031 

00A2 

0665 

02  96 

BTFSC 

Serial_IN_2 

;i£  Start  bit  7  then  call 

00A3 

0AA5 

02  97 

GOTO 

_0031 

tlur.caMser  po  wavr  arvro 

00A4 

0800 

0298 

RETLW 

H '  00 ' 

00A5 

G9C2 

029# 

_0G31  CALL 

uo^i^ocacG 

00A6 

°W 

n  vu 

lt,VO. 

fm^fm^oamB  4800  Baud  Sartal  iTopat  (LOW°0) 

t  " 

0303 

Do_Il State 

0304 

MOVF 

IStatcl 

;1£  IStaftel- °a  0  nt, 

00A8 

0643 

0305 

BTFSC 

STATUS , Z 

thefk  Do  Start  Bit 

00A9 

OADD 

0306 

GOTO 

IlStateS 

OOAA 

0201 

0307 

MOVF 

RTCC , W 

;Get  current  time 

OOAB 

0027 

tsnp 

GO  AC 

0219 

IK3VF 

FirBt_RTCC_ 

.11, w 

;Get  elapsed  tine;  Time  Unit,  -  2  uS 

00  AD 

0OA7 

SUBWF 

tenp 

jtflfp^  time  for  next  input  bit  7 

ooae 

02  lA 

O-^li 

MOVF 

nbtil.W 

OOAF 

0087 

03 12 

SUBWF 

temp,  W 

oobo 

0703 

0313 

BTFSS 

STATUS , C 

GOBI 

OACl 

0314 

GOTO 

_0033 

•00B2 

0218 

MOVF 

IStatel.W 

;Oet  (0-B)  mode  » 

pOB3 

OBOF 

ANDLW 

H'OP' 

;Get  only  mode  # 

00B4 

ADEWF 

PC 

;juii^  to  subroutine 

G0B5 

OADD 

0316 

GOTO 

IlStateS 

; Serial  Start  Bit 

00B6 

0AE6 

0319 

GOTO 

IlState2 

;  1/2  of                     ^          if  ^ti^  4UM$- 

00B7 

OAEF 

0320 

GOTO 

llStateO_7 

;Bit  0    . 3-c 

00B8 

OAEF 

0321 

GOTO 

IlStateO_7 

;Bit  1 

O0B9 

OAEF 

0322 

GOTO 

IlStateO_7 

;Bit  2 

OOBA 

OAEF 

0323 

GOTO 

IlStateO_7 

;Bit  3 

OOBB 

OAEF 

ms^ 

GOTO 

llStateO_7 

,-Bit  A 

GOBC 

OAEF 

GOTO 

IlStateO_7 

;Bit  S 

GOBD 

OAEF 

0396 

GOTO 

IlStateO_7 

;Bit  6 

OOBE 

OJW 

03^7 

GOTO 

IlStatfO_7 

J;Bit  7     .            ,  ,         IS  tur  i 

00^ 

<^9 

0328 

aom 

UStateB 

{Serial  Stop  Bit 

OOCO 

0BQ3 

0329 

n'n 

0330 

_0033 

OOCl 

0331 
0332 

RETLW 

H'OO' 

.  ****** 

jTaak  *3  - 

Asynchronous  4800  Baud.gpilal  j^ab.  XJiOlf'O ) 

.«334 

Do.U state  , 

00C2 

023C 

0335 

IState2                ;if  IStatel  ==  0 

00C3 

0643 

0336 

BTFSC 

STATUS, Z 

then  Do  Start,  jBiji|>y(ji,j, 

0337 

I2StateS 

00C5 

0201 

MOVE 

RTCCW 

Get  current  time 

O0C6 

0027 

noon 
0339 

MUVWr 

ten^ 

00C7 

02  ID 

0340 

H^VF 

Pir8t_RTCC_I2,W  ;Get  eX^sed  time;  Time  Unit  =  Si  «S 

00C8 

00A7 

0341 

SUBI^ 

00C9 

02  IB 

0342 

MOVF 

nbtl2,W 

Fast  tine  for  neact  iiiciut  bit  7 

OOCA 

0087 

0343 

SUBWF 

tempfW 

0703 

0344 

BTFSS 

STATUS,  C 

OOCC 

OADC 

0345 

GOTO 

_0035 

02 IC 

0346 

MOVF 

ISCate2,W 

Get  (0-B)  mode  # 

OOCE 

OEOF 

0347 

ANDLW 

H'OF' 

Get  only  mode  # 

OOCF 

0XB2 

0^!4£l' 

ADDWF 

PC 

jtatp  subroutlns 

OODO 

OHIO 

0349 

GOTO 

I2StateS 

Serial  3ta3rt  Bit 

OODl 

0B19 

0350 

GOTO 

I2StateS2 

1/2  of  St4^^           see.  If  i|ta«c1^ 

00D2 

0B22 

0351 

GOTO 

I2StateO_7 

Bit  0 

00D3 

0B22 

0352 

GOTO 

I2StateO_7 

Bit  1 

00O4 

0B22 

0353 

GOTO 

12StateO_7 

Bit  2 

00D5 

0B22 

0354 

GOTO 

I2StateO_7 

Bit  3  . 

00D6 

Uo^  ^ 

035S 

GOTO 

I2StateO_7 

Bit  4 

v\iui 

0B22 

03,^6. 

GOTO 

12StateO_7 

Bit  5 

00D8 

0B22t 

omf: 

GOTO 

I2StateO_7 

Bit  £ 

00D9 

0B22 

0358 

GOTO 

I2Stata!0_7 

0359 

GOTO 

l2stateE             ;  Serial  Stop  Mt, 

OODB 

0B36 

0360 

GOTO 

I2statelr.           rtMtStabs.-^  itlik^^^^lM^  =  - 

OODC 

0800 

0361 
0362 

_0035 

RETLW 

H'OO' 

^  '  ■'-■^ 

0363 

.  *** 

; Subroutines  for 

Task  #2 

OSiA  IlStataS  j  ,- 

Start  Bit  -  Setup  J^alB9,  \meiafeles 

OQPD 

0^ 

IStatel_B             ; Serial  Input  Active 

02D1 

JO 

RTCCW                (Store  starting  tiine 

GGUF 

0039 

mm 

mwf 

Firat.Ri'FCa.Mii^irro.'- ■                                      ■  ■ '-.n.- 

OOEO 

OCOD 

0368 

MOVLW 

H'OD'                    iFudge  again 

OOEl 

00B9. 

0369 

SUBWF 

First_RTCC_Il 

00E2 

0C32 

0370 

MOVLW 

H'32'                    ;Tiine  delay  =  1/2  bit  time 

00E3 

003A 

0371 

MOVWF 

nbtil 

00E4 

02B8 

0372 

INCF 

IStatel 

Increment  to  next  state 

00B5 

0800 

RBTLW 

H'OO'  ,  ,.. 

Check  If  still  a  Start  Bit 

IlState2 

O0E6 

070S 

BTFSS 

Serlal_IN_l         ;  False  Start  Wcfm^  ^           i  - 

O0E7 

0B06 

0376 

GOTO 

FS_Brror_l 

»I  rtftjjr  ||<o«-nl 

00E8 

0409 

0377 

BCF 

FS_Plag_l 

Start  Bit  OK 

00E9 

02  lA 

0378 

MOVF 

nbtil, W 

Mjust  <»ii^  ^  error 

OOEA 

01F9 

0379 

ADDWF 

First_RTCC_Il 

OOEB 

0C64 

0380 

MOVLW 

IN_BIT_TIME 

Time  Delay  =  full  bit  time 

OOEC 

003A 

0381 

MOVWF 

nbtil 

I>9j^jK6|al 

iscroment  to  next  state 

OOEE  0800 

OOEF  0705 
OOFO  0403 
OOFl  0605 
OOFS  0S03 
6bP3  b33S 

00F4  021A 
OOFS  01F9 
00F6  02B8 
OOVl  0800 

00F8  0605 
00F9  0B09 
OOFA  0429 
OOFB  006E 

OOFC  021B 
OOFD  0035 
OOFE  07A8 
DOFF  0489 

0100  06A8 

0101  0589 

0102  05A8 

0103  0078 

0104  0428 

0105  0800 

0106  0428 

0107  0509 

0108  0B03 

0109  021A 
OlOA  01F9 
OlOB  0C32 
OlOC  003A 
OlOD  0529 
OlOE  02B8 
OlOF  0800 


RETLW 
llStateO_7 

BTFSS 


BCF 

BTFSC 

BSF 

RSP 

MOVF 

ADDWF 

INCP 

RETLW 


P_Error_i 

MOVF 

ADDWF 

MOVLW 

MOVWF 

BSF 

INCF 

RETLW 


H'OO' 

Serial_IN_l 
STATUS, C 
Serial_IN_l 

rcv_byte_l 

nbtil.W 

First_RTCC_ll 

ISt,atel 

H'OO' 

Serial_IN_l 
F_Error_l 
FE_Flag_l 
T_5_S_C0 
s  the  msg  Here 
rcv_byte„l , W 
RCV_Storage 
RCV_Got_One_B 
RCV_Overf low 
RCV_Got_One_B 
RCV_Over  f  1  ow 
RCV_Ciot_One_B 

IStatel 

IStatel_B 

H'OO' 

IStatel_B 
FS_Flag_l, 
llStateL' 

nbtil,W 

First_RTCC_Il 

H'32' 

nbtil 

FE_Flag_l 

IStatel 

H'OO' 


;Bit  0-7 

;Move  Input  bit  into  C 


•1  ^-ir 


;Adjust  out  the  error 
(•increment  to  next  state 

I'Check  if  we  have  a  proper  Stop  Bit 
;'Fralas  Error 

jStop  Bit  OK 

;  Reset  5  Sec  'Timer  -  got  a  good  byt« 


:We  Now  have  a  RB  Value  to  go  out 

;Rea<^  to  receive  next  byte 

;  Serial  In  n«t  c«rj:j(i*t'3ilr  wm^vm. 


;  False  Start  -  Shut  Down  Cheelciao 
.'Serial  Input  NOT  Active 
; Falsa  Start  Error 
; Start  All  Over 

iFTsammcfot  -  Itelt  for  Bid  of  Stop  Bit 

iTim>JS»liv_  =  1/2  ^i.  yn« 

;  Frame  Error  for  this  %Jije.  ? 
.■Increment  to  next  state 


.■Subroutines  for  Task  #3 


0110  0548 

0111  0201 

0112  003D 

0113  OCOD 

0114  OOBD 


IZStateS 


BSF 

MOVF 

MOVWF 

MOVLW 

SUBVfF 


IState2_B 
RTCC.W 

First_RTCC_I2 
H'OD' 

First_RTCC_I2 


;  Start  Bit  -  Setup  timing  varlabliti! 
.■Serial  Input  Active 
; Store  starting  time 

; Fudge  again 


Ol 


0115 

0C32 

0431 

MOVLW 

H'32'  . 

0116 

003E 

0432 

MDVWF 

nbti2 

0117 

02BC 

0433 

INCP 

IState2 

0118 

0800 

0434 
0435 

RETLW 
I2StateS2 

H'OO' 

0119 

0765 

0436 

BTFSS 

Seriail;iN_2 

OllA 

0B39 

0437 

GOTO 

FS_Error_2 

OllB 

0449 

0438 

BCF 

FS_Flag_2 

one 

021E 

0439 

MOVF 

nbti2,W 

OllD 

OlFD 

0440 

ADDWF 

First_RTCC_I2 

OllE 

0C64 

0441 

MOVLW 

IN_BIT_TIME 

003E 

HOVWF 

nbtl2 

9,120 

02BC 

IMCP 

ISt:at:e2 

0121 

0900 

RETLW 
12State0_7 

H'OO' 

0122 

0765 

0446 

BTFSS 

Serial_IN_2 

0123 

0403 

0447 

BCF 

STATUS , C 

0124 

0665 

0448 

BTFSC 

Serial_IN_2 

0125 

0503 

0449 

BSF 

STATUS ,  C 

0126 

033F 

0450 

RRF 

rcv_byte_2 

0127 

02  IB 

nbti2,W 

mod 

QIJPD 
dwS^ 

0455 

I2SCateE 

Flrst_BTCC_l2 

012B 

0665 

0456 

BTFSC 

Serial_IN_2  . 

012C 

0B3C 

0457 

GOTO 

P_Error_2 

012D 

0469 

Q4S8; 

BCF 

FE_Flag_2 

012E 

006E 

CLRF 

T_5_S_C0 

m 

;  Process  the  msg  Here 

012P 

021P 

MOVF 

rcv_byte_2,W 

0130 

0035 

0462 

MOVWF 

RCV_Storage 

0131 

07A8 

0463 

BTFSS 

RCV_Got_0ne_B 

0132 

0489 

0464 

BCF 

RCV_Overf  low 

0133 

06A8 

0465 

BTFSC 

RCV_Got_One_B 

0134 

0589 

0466 

BSF 

RCV_Overf low 

0135 

05A8 

RCV_Qot_One_B 

0136 

007C 

m 

CLRF 

IState2 

0137 

0448 

BCF 

IState2_B 

0138 

0800 

Oty,  RETLW 
Ot^  FS_Error_2 

H'OO' 

0139 

0448 

0473 

BCF 

IState2_B 

013A 

0549 

0474 

BSF 

FS_Flag_2 

013B 

0B36 

0475 

OOTO 

I2StateL 

0476 

F  Error_2 

013C 

02iB 

Q477 

Movr 

m 

0^ 

^«iif:t_HTCC_12 

;Tiina  delay  <i  1/2  bit  tine 

.■Increment  to  next  state 

; Check  if  still  a  start  Bit 
; False  Start  Error  7 

; Start  Bit  OK 
.•Adjust  out  the  error 

;Time  Delay  =  full  bit  time 

; increment  to  next  state 

;Bit  0-7 

.Move  c  into  left  moat  bit 

.■Adjust  out  the  error 
.•increment  to  next  state 

;  check  'i'YSi  *  JP''^°^^'b  ^^op  Bit 

.■Stop  Bit  OK 

.•Reset  5  Sec  Timer  -  got  a  good  byte 
;^ke  a  copy  of  just  received  Ijyte 

.•Ready  to  receive  next  ^yte 
.•Serial  In  not  currently  active 


;  False  Start  -  Shut  Down  Checking 
; False  Start  Error 
.•Start  All  Over 

; Frame  Error , '-M^^^V^  fit  Bit 
;,A4just  out  tliC  ^^^t 


013E  0C32 
013F  003E 

0140  0569 

0141  02BC 

0142  0800 


MOVLW 


H'32' 

nbti2 

FE_Flag_2 

IState2 

H'OO' 


;Time  Delay  =  1/2  bit  tiros 

.■Frame  ^rror  for  this  Byte  ? 
;Inoreraent  to  next  state 


.■Code  Starting 


r?  Til 


0143  OCOO 

0144  0025 

0145  OCOO 

0146  0026 

0147  0CF9 

0148  0005 

0149  OCPF 
014A  0006 
014B  OCOO 
014C  0002 
014D  0900 
014E  0061 


014F  0206 

0150  0036 

0151  0216 

0152  0037 

0153  05C8 

0154  0C08 

0155  002A 

0156  0568 

mi  m 


0158  0708 

0159  0B5B 
015A  0902 


015B  bS2g 
015C  0B60 
015D  0605 
015E  0B60 


MOVLW 

MOVWF 

HOVLW 

MOVWF 

MOVLW 

TRIS 

MOVLW 

TRIS 

MOVLW 

OPTION 


H'OO' 

Port_^ 

H'OO' 

Port_B 

H'F9' 

5 

H'FF' 

6 

H'OO' 

Clear_Regs 
RTCC  _ 


2  a 


;  laltla>].|^ 'Tasks  ^ 


Port_B,W 

Old^RB 

OlcLRB.W 

Last_RB 

RB_NEW_B 

LED_OFF_M0DE 

LED_Mode 

T_5_S_B 

T_5_M_B 


MdM:.  JU:'  W^/Lati  for  Rft  at  XNIT  f*9at»: 
;What  is  High/Low  for  RS  at  %iIT  State 
;RA  TRIS  at  INIT  State 

■        »?  > 

;RB  TRIS  at  INIT  State 

-•|(       »  pe«;i>  fi''i  uii'^i:- 

;RTCC/2 

.'Clear  Registers  7-lF  -  Saibi' Memory  Page 

;Task  #1  waits  for  byte  to  output 
;Task  »2  waits  for  Serial  IN  Start  Bit 
;Task  »3  waits  for  Serial  IN  Start  Bit 
;Taslc  #4  runs  when  Task  1  is  Not 
.■Task  #5  is  always  running  ^^^^ 
;Task  (6  is  Initialized  here 

;Mstke  all  the  same  initial^  v^S^ue 

'$aak  ii««<^  to  output 

.•Task  #7  is  Started 
;Task  #8  is  Started  here 
;Task  19  is  Started  here 


Handle  Task  £  Timer  activities  -  Main  Loop 


Task_l 


BTFSS 

GOTO 

CALL 


GOTO 

BTFSC 

GOTO 


.-Task  #1  ■ 

OState_B 
Task_2 
Do  estate 


Asynchronous  9600  Baud  Serial  Qu^at  (IiOW=0) 
;if  not  outputing  lugw  tSom,  t^is  call 

;Go  Do  Task  #1 


;Task  #2  -  Asynchronous  4800  Baud  Serial  Input  (LOW=0) 
TStajtelB  I  if  already  started  then  call 

eoll  '~    «  -'^-  -I  .  *    i"'     •*■      Traac  iroiKBj 


Serlal_IM  1 
_0053  ^ 


:if  Start  bit  ?  ttm  emll 

■■•   |>;    ;v¥  jj   


Ol 


015F  (mei 
dieo  Oiki 


fxei  ofi4e 

0162  0B66 

0163  0665 

0164  0B66 

0165  0867 

alii 


0167  0608 

0168  0B7D 

0169  07A8 
016A  0B70 
016B  0215 
016C  0033 
016D  04A8 
Oies  0508 


8171  88^7 

0172  0218 

0173  0033 

0174  04C8 

0175  0508 

0176  0B7D 

0177  07E8 
W78  0B7D 
§179  OCFF 
6i7*  0033 

pi7B 


017D  0201 
017E  0027 
017F  0211 

0180  0087 

0181  0703 

0182  0B86 

0183  0207 

0184  0031 

0185  0BS8 

|l86  0207 


0527 
0528 

0529 
0530 

BP* 

0533 
0534 
0535 
0536 
0537 
0538 
0539 
0540 
0541 
0542 
0543 
0544 
0545 
0546 
0547 
0548 

ill 

0551 
0552 
0553 
0554 
0555 

Ip 

o'sii 

055§ 
0560 
0561 
0562 
P563 

mi 

0565 
0566 

0567 
0568 
0569 
0570 
0571 


Task_3 


.0055 


Task_4 


.0057 


.0059 


GOTO 
CALL 


BTOSC 

GOTO 

BTFSC 

GOTO 

9OTO 


BTFSC 

GOTO 

BTFSS 

GOTO 

MOVF 

MOVWF 

BCF 

BSF„ 


DgilState 


;Go  Do  Task  #2 


SS 

coio 

MOVWF 

BCF 

BSF 

GOTO 

BTFSS 

GOTO 

MOVLW 


MOVF 

MOVWF 

MOVF 

SOBWF 

BTFSS 

GOTO 

MOVF 

MOVWF 

GOTO 


;Task  t3  -  Asynchronous  4800  Baud  SerlaJ 
Ift»te2J   ,  -,J.-..  -  . -  J 

_ess5  ■ ' 

Serial_IN_2  ;if  StM|  fait  f  tttm.  call 
0055  '       '  ■  --' 


Tm!?_4 

;Task  #4      FlUs  next  Buffered  Byte  to  Send  Out  thcen^  7ask  1 

OState_B  ;  if  outputing  now  then  skip  call 

_0059 

RCV_Got_One_B      ;Got  a  NEW  Received  to  send 

_0057 

;Send  just  received  byte 


RCV_Storage,W 
xmt_byte 
RCV_Got_One_B 
OState_B 
_0059 
RB_NEW_B 

xmt^byte 

RB_NEW_B 

OState_B 

_0059 

S_5_S_B 

JOBS. 


SR^Time 


MOVF 


OState_B 

; Heart  Beat 

RTCCW 

tesnp 

LastJlTCC,W 
tesnp, W 

STATUS , C 

Inc_Time 

temp,W 

Last_RTCC 

Task_l 

tei;i>,W 
|iif|JRTCG 


; Clear  need  to  send  old  byte 

; Start  Task  #1  &  Lock  Out  Others 

.■Indicates  a  change  in  RB  input 

;  Send  New  RB  value 

; Clear  need  to  send  out  newest  valu# 
; Start  Task  tl  &  Lock  Out  Others 

;Serial  In  5  sees  of  inactivity 

;felear  need  to  send  msg 

; Start  Task  #1  &  Lock  Out  Others 

Time  unit  =  512  uS  for  Tasks  #5  &  #6 
•t«^^  ■'S12' 

.•fest  to  jgee  if  it'  overflowed ' 


;unit  error  =  <  (+-512  US| 


;Save  current  RTCC  into  Laat_RTCC 


2 
O 

(D 
Q) 


1- 

O 
T3 

(D 
-\ 
D) 

3 
(Q 

(D 

3^ 


0575 

0576 

Task_5 

;Task  (5  -  llonltoE  {«ve3..:£e9«|e' Input  Line  -  Always  Ri^lsst 

0188 

0606 

0577 

BTFSC 

Level_Reset 

0189 

0B8C 

0578 

GOTO 

Task_6 

018A 

0C08 

0579 

MOVLW 

LED_OFF_MODE 

;  Lowest  Level  Indicator  output 

018B 

002A 

0580 
0S81 

MOVWF 

LED_Mode 

0582 

Tas)^_6 

;Task  46  -  Oebounce  8  bit  Input  Senaozs  -  Runs  every  20  nS 

018C 

02Ai 

im 

WCP 

TJ20jBiS_CO 

;  Inc.  Counfeaic  ■  -^ttgft^llk^!r<-Sk2  us 

018D 

0C29 

MOVLH 

H'27' 

)  Used  to  4alfsw$aw  Ite  input 

018E 

008P 

0585 

SOBWP 

T_20_mS_CO,W 

018F 

0743 

0586 

BTFSS 

STATUS,  Z 

0190 

0BA7 

0587 

GOTO 

_0065 

0191 

ooep 

0588 
0589 

CUtF 

T_20_jBSjCP 

;  Reset  T_20_jiiS_CO  to  start  over  again 

i$i2 

0997 

05 90 
0591 

mm 

■    ■  •  r 

eeheeK.T123 

;Qtticlc  Ciimeii.  of  Tasks  tl,  *2  and  «3 

0193 

0206 

0592 

MOVP 

Port_B,W 

;&as't  fsng^  «C  'M'  .Mm  as  euecmtt  ? 

0194 

0097 

0593 

SUBWF 

Last_RB,W 

■  j*T   ■                      .-V" -•    -f   *i  — 

0195 

0643 

0594 

BTFSC 

STATUS, Z 

0196 

0B9A 

0595 

GOTO 

_0062 

0197 

0206 

0596 

MOVF 

Port_B,W 

;     Store  Current  RB  -  diff  from  Last 

8198 

0037 

ogsir 

MOVWF 

LastjpB 

0199 

aB9C 

QSfS 

GOTO 

_0063 

019A 

0217 

0599 

_0062 

HOVF 

LwsMlf^N 

019B 

0036 

osop 

MOVWP 

OlelLRB 

019C 

0236 

0604 

_0063 

MOVF 

01d_RB 

019D 

0643 

0602 

BTFSC 

STATUS , Z 

019E 

OBAl 

0603 

GOTO 

_0064 

019F 

006C 

0604 

CLRF 

T_5_M_L0 

; Reset  5  Min  Timer 

01  AO 

006D 

0605 

CLRF 

T_5_M_HI 

;     still  not  zero  yet 

OlAl 

0901 

OffS 

„0O64 

CALL 

D_H_EJ, 

/Determine  the  Highest  Error  Level 

Q1A2 

07C8 

BTFSS 

RB_J)EW_3 

;Che^  for  Lost  Data  Error 

Q1A3 

04A9 

(m'i 

BC9> 

RB_OveE£low 

■  ^  <  -"»(•  "... 

S1A4 

06C8 

6609 

mm 

SB_J)BWJS 

01A5 

05A9 

0610 

BSF 

RB_Ow«rflow 

01A6 

05C8 

0611 
0612 
0613 

BSP 

KBjmji  ■ 

;  Heart,; 8«»«t  - 

;  Every  20  mS  send  Old-^  out 
Time  unit  =  131072  uS  j[^-T«8k«: «7,  #»  &  ^9 

01A7 

0GF9 

0614 

_0065 

MOVLW 

H'F9' 

;RA  TRIS  -  refresh 

01A8 

0005 

0615 

TRIS 

5 

01A9 

OCPP 

0616 

MOVLW 

H'FF' 

;BB  TRIS  -  refresh 

OlAA 

0006 

0617 

TRIS 

6 

91AB 

02F4 

0618 

tSCFSZ 

cc 

;St^-up  time  units  *  35% 

sue 

0BS8 

0619 

GOTO 

Task_l 

0620 

0621  Task_7 

;Task  7  -  Output  Highest  Level  Indication  on  LED 

|1SS 

mm 

$m 

mms 

;ls  nm  active  ? 

OlAE 

OBBl 

OlAF 

0997 

OIBO 

0939 

OlBl 

0768 

0 1B2 

063^ 

01B3 

02AE 

01B4 

0C26 

01B5 

008E 

01B6 

0743 

0635 

01B7 

obco 

Q636 

01B8 

006E 

01B9 

0C8F 

OIBA 

002A 

0638 

OIBB 

07E8 

OlBC 

04C9 

|641 

OIBD 

06B8 

OIBE 

05C9 

0|3F 

6S45 

0#4S 

OlCO 

0788 

OlCl 

OBDl 

01C2 

02  AC 

01C3 

0643 

02AD 

01C5 

0C08 

uiwo 

nnon 

IUEIE% 

01C7 

0743 

01C8 

OBDl 

01C9 

OCPO 

OICA 

008C 

OICB 

0743 

m^ 

OICC 

OBDl 

OICD 

006C 

06€0 

QICB 

00«D 

0661 

0662 

oime 

002A 

0663 

OlDl 

0B58 

0666 

0667 

0668 

01D2 

OC07 

tffi 

0027 

mi6 

Taek_ 


QOTO 
CALL 
CALL 


BTFSS 

GOTO 

INCF 

MOVLW 

SOBWF 

WfFSS 

GOTO 

CLRF 

MOVLW 

MOVWF 

BTFSS 

BCF 

BTFSC 

BSF 

GOTO 

INCF 

BTFSC 

HJCF 

HQVLW 


BTFSS 

wm 

MCWLW 
SUBWF 
BTFSS 
SOTO 


Task_A 


HOW 
MOVHF 

GOTO 


Task_8 

QCheck_T123 

Do_LED 


;Task  « 
T_5_S_B 
Task_9 
T_5_S_C0 
H'26' 
T_5_S_C0,W 
STATUS, Z 
Task_9 
T_5_S_C0 
LED_0N_M0DE 
LED_Mode 
S_5_S_B 

S_5_S_0ver£low 
S_S_S_B 

S_5_S_0v«r£low 
S_5_S_B 


;Quick  Check  of  Tasks  *1,  42  and  13 

; Handle  LBD  timing 

5  Second  Serial  Input  Lack  of  Activity  Tim«# 
; 5  Sec  Timer  Active  ? 

;Inc  Counter  -  Time  Unit  =  131072  uS 
.•Check  T  5  S  CO  if  time 


;  Check  if  Lost  Dat^v^Brror 


.-Task  #9  - 

T_5_M_B 

Task_A 

T_5_M_L0 

STATUS,  Z 

T_5_JUII 

H'08' 

S^TUS,Z 
Task_A 

H'FO  ' 

T_5_M_L0,W 
STATUS,  Z 
Task^ 

%J.JUa 


Task_l 


;Send  notica  9f«5,  seconds  of  inaction 

5  Hin.  Lack  of  Sevar^  Ar^XTfcoB.  8#n#er^  Reset  Timer 
;S  Kin  Tlnar  Active  ? 

;Inc  LO  Counter;  Time  Unit  =  131072  uS 
;See  if  carry  needs  to  be  passed  on  ? 

;iac  Ki  Q<3mitmt        mik  =  izim  us 

;iS2»8<    dtodt  $i.SJOI  it  time 

■  ir!>       •-■  -•• 

;»2288>    Check  T_5_M_L0  if  time 


iifemoiS^,i0»mi~i^^k<i»^3Stmt^k  -17. 

;Loop  Forever 


Do_D_H_E_L 


;  Determine  the  Highest  Error  Level  &  Start  Task  #7 
tmdp 


01D4 

02 16 

0671 

MOVF 

01d_RB , W 

;Get  copy  of  7  denounced  Sensor  Input 

01D5 

0037 

0672 

MUVWr 

Last  RB 

01D6 

0377 

0673 

_007  0 

RliF 

Las  t__RB 

; Put  top  bit  into  C  bit 

01D7 

0603 

0614 

p)aXi/BOK  1£   L  Die  IB  S8C 

01D8 

OBDE 

0675 

GOTO 

_0072 

01D9 

02E7 

;  Continue  to  cnscK  Issseir  bits 

OlDA 

0BD6 

0677 

GOTO 

 0070 

0678 

_0071 

MOVF 

Port_B,W 

;Restora  cur^eat  vaXue  RB 

nn^T 

0679 

MOVWF 

Last_RB 

OIDD 

0800 

0680 

RETLW 

H'OO' 

OlDE 

02  OA 

0681 

_0072 

MOVF 

LED_Moda,W 

;Get  current  Level  lal&tmMm-- 

0E07 

0682 

ANDLW 

H'07' 

;Get  only           ■  * 

OlEO 

0037 

{Store  into  a  tampary  register 

OlBl 

0207 

mssv 

.•Check  if  already  at  this  Level 

01E2 

0097 

0685 

SUBWF 

Last_RB,W 

01E3 

0603 

0686 

BTFSC 

STATUS , C 

01E4 

OBDB 

0687 

GOTO 

_0071 

01E5 

0C88 

0688 

MOVLW 

H'88' 

; start  to  build  LED_Mode 

01E6 

0107 

0689 

lORWF 

tentPfW 

;Put  new  Level  Indicator  into  reg 

01E7 

002A 

0690 

MOVWF 

I>BD_|iedB 

; Store  new  LED  Mode 

01E8 

OK)B 

0691 

G070 

Q€92 

0'  V 

0693 

D0_Clear_Reg8 

^  mma  Registeire  7-lltt 

01E9 

OCIF 

0694 

MOVLW 

H'lF- 

;Pirst  regs  to  clear 

OlEA 

0024 

0695 

MOVWF 

FSR 

OlEB 

0060 

0696 

IjOOp_C 

CLRF 

INDIR 

;Clear  reg 

OlEC 

00E4 

0697 

DECF 

FSR 

; point  to  next  reg  to  clear 

OlED 

0CE7 

0698 

MOVLW 

H'E7  ' 

;Dec  temp,   jximp  if  not  done 

OlEB 

0084 

0699 

SUBWF 

FSR.W 

.  ^          '  :^ 

OIBP 

0603 

Q70Q 

BTFSC 

STATUS,  C 

OlFO 

OBSB 

mn 

-4. 

GOTO 

Loop_C 

Olfl 

0064 

mm 

CLRF 

FSR 

.■Lastly  clear  FSR  reg 

01^ 

0800 

'r. 

RETLW 

H'OO' 

M4 

0705 

ORG 

H'  IFF' 

;  RESET  to  Main 

OlFF 

0B43 

0706 

GOTO 

Main 

0707 

§7&8 

m^i 

0710 

Errors      i        0  oo'iJ  ■  eiCTt'  C-l     ««Hi*  ui»f  .>ii>"1  llxai.  OiJ '  MiVSII  inef-r.-f  >;»  »e. 

Warnings  :       0  ooa;      isosim*  VT*^^(.  KJ  OO  txwrStieg  pX  B'xf"?  ll»*»T»B>wit  r.a'  -  i»>  t9i»>i 

nsc   u«w.-i  '  ^i^.  .-ini  laa 


NiWat  <•!  Ofl  Ol  !"r»i 


MPASM  01.00.01  Inter.  APP_D.ASM      7-29-1994    lli20:6  PAGE  1 

LOC     OBJECT  CODE  LINE  SOURCE  TEXT 

t        .  0001  ;   'Remote  Alarm64'  VI. 00  Designed  by  M/riad  Development  Co.  -  Jerry  Farmer 

ivr.  ./      •        e  0002  ;  PIC16C64,  4HHz  Crystal,  WatofaDog  Timm:  OFF,  HFASM  instruction  sat 

eoo3 

Kit  list  pmWim:rit^»e^l32 

tm 

^$  include  ■■PIC16C64.H"' 

^0^1  <**************************    &i©It064  ®ea^r  ***********************#* 


n 

0002 

0003 

;Bank  0 

-  set 

RPO  = 

0 

0000 

0004 

INDF 

equ 

OOh 

; Indirect  Address 

0001 

0005 

TMRO 

equ 

Olh 

0002 

0006 

PCL 

equ 

Q2h 

0003 

9m 

STATUS 

•WO 

113b: 

0004 

eoos 

FSR 

atpi- 

041l 

-r.  . 

0005 

0009 

PORTA 

equ 

05h 

!  I/O  Port  As«lgMant8 

0006 

0010 

PORTB 

equ 

06h 

0007 

0011 

PORTC 

equ 

07h 

0008 

0012 

PORTD 

equ 

08h 

0009 

0013 

PORTE 

equ 

09h 

OOOA 

0014 

PCLATH 

equ 

OAh 

OOOB 

0015 

INTCON 

equ 

OBh 

oooc 

0016 

PIRl 

equ 

OCh 

ooos 

P017 

TmiL 

equ 

om> 

OOOF 

mia 

THRIH 

equ 

OFh 

0010 

0019 

TICON 

equ 

lOh 

0011 

0020 

TMR2 

equ 

llh 

0012 

0021 

T2C0N 

equ 

12h 

0013 

0022 

SSPBUF 

equ 

13h 

0014 

mm 

SSPCON 

equ 

141l 

0015 

m* 

CCPRIL 

equ 

isb 

■  .■.<?,:•--  ■  t  •It  -  .    •»..:  ■- 

O03§ 

CCFRIH 

0017 

0026 

0027 

CCPICON 

•qir-" 

0028 

;BANK  1 

-  set 

RPO  = 

1 

0001 

0029 

OPTION 

equ 

Olh 

0005 

0030 

TRISA 

equ 

05h 

0006 

0031 

TRISB 

equ 

06h 

0007 

0032 

TRISC 

equ 

07h 

0008 

0033 

TRISD 

equ 

08h 

0009 

0034 

TRISE 

eqn  ; 

09h 

oooc 

0035 

PIEl 

ege 

OCh 

-■■I  f**  T>i'   !■).          :  i 

0991  . 

003$ 

FCON 

■^>. 

mi 

mm 

0037 

PR2 

0013 
0014 


0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 

U6ti 
mi 
%m 

0003 
0004 

0005 
0006 
0007 

0000 

m 

0003 
0007 

0000 
0001 
0002 
0003 

m 

0000 
0001 
0002 
0003 
0004 
0005 

oops 

0000 
0001 
0002 

6m 


0038 
0039 
0040 
0041 
0042 
0043 
0O44 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0014 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 

mm 


SSFADD 

egu 

13h 

SSPSTAT 

equ 

14h 

; 

.««*..* 

************ 

******************************************************* 

; 

C 

equ 

0 

;  STATUS 

DC 

equ 

1 

;  STATUS 

Z 

equ 

2 

■  SVkWS 

FD 

es^ 

» 

I  STATUS 

TO 

e#"*" 

;StATOS **••' 

RPO 

gmk 

;  STATUS 

RPl 

t 

; STATUS 

IRP 

equ 

7 

;  STATUS 

RBIF 

equ 

0 

;  INTCON 

INTF 

equ 

1 

(INTCON 

RTIF 

equ 

2 

;  INTCON 

RBIE 

equ 

3 

.•IMTCON 

INTE 

equ 

4 

; INTCON 

RTIE 

equ 

5 

timcom 

PEIE 

equ 

6 

;  INTCON 

GIE 

equ 

7 

;  INTCON 

TMRIIF  equ 

TMR2IP  ei^ 

CCPIIF  eq^ 

SSPIF  eip 

PSPIF  e<ju 


equ 

equ 


TMRION 
TMKICS 

TllNSYWC  equ 
TIOSCEN  equ 

TICKFSO  e^n 
TlCKFSl 


T2CKPS0  equ 

T2CKPS1  equ 

TMR20N  equ 

TOUTPSO  equ 

TOUTPSl  equ 

T0UTPS2  equ 

;rpQTFS3  _fgu 

SSPHO  equ 
SSPHl  equ 
SSFH2 


;  PXRl 
;  PIRl 
;PIR1 
;PIR1 
jPIRl 

TICON 
TICON 
TICON 

nc(m 

TICON 
TICON 

T2C0N 
T2C0N, 
T2C0n' 
T2C0N 
T2C0N 
T2C0N  , 
;T2C0N  ^, 

; SSFCON 
; SSFCON 

II 


Ol 


0004 

0086 

CKP 

egu 

4 

0005 

0087 

SSPEN 

equ 

5 

0006 

0088 

SSPOV 

equ 

6 

0007 

0089 
0090 

WCOL 

ec(u 

7 

QOOO 

0091 

CCPIMO 

equ 

0 

0001 

0092 

CCPIMI 

equ 

1 

0002 

0093 

CCP1M2 

equ 

2 

0003 

0094 

CCP1M3 

equ 

3 

0004 

0095 

CCPIY 

equ 

OOOS 

0096 
0097 

CCPIX 

equ 

0000 

0098 

TRISEO 

equ 

0 

0001 

0099 

TRISEl 

equ 

1 

0002 

0100 

TRISE2 

equ 

2 

0004 

0101 

PSPMODE 

equ 

4 

0005 

0102 

IBOV 

equ 

5 

0006 

0103 

OBF 

equ 

« 

0007 

0104 
0105 

IBF 

equ 

7 

0000 

0106 

TMRllE 

equ 

0 

0001 

0107 

TMR2IE 

equ 

1 

0002 

0108 

CCPIIE 

equ 

2 

0003 

0109 

SSPIE 

equ 

3 

(Sfef 

0110 
0111 

FSPIE. 

w 

7 

0001 

0112 
0113 

POR 

equ 

1 

0001 
0000 

0114 
0115 
0116 

Same 
w 

m 

mm 

i 

0000 

0117 

LSB 

equ 

0 

0007 

0118 
0119 

MSB 

equ 

7 

0001 

0120 

TRUE 

equ 

1 

0001 

0121 

YES 

equ 

1 

0000 

0122 

FALSE 

equ 

0 

0000 

0123 
0124 

NO 

equ 

0 

. . '  • 

0125 

mi 

0127 
0128 
0129 
0130 
0006 

•V.I 

•J 

SSPCON 
SSPCON 
SSPCON 
SSPCON 

CCPICON 
CCPICON 
CCPICON 
CCPICON 
CCPICON 
CCPICON 

TRISE 
TRISE 
TRISE 
TRISE 
TBISE 

;PIB1 

;  PIEl 
;  PIEl 
;  PIEl 
;t>tE^ 


********** 


0000 

0009  SeriaX_lN_l 

equ 

0 

Serial  Input  #1-8  bits  -  INT  pin 

0010 

RB.7  -  RB.l  ==  Input  from  Sensors 

OOFF 

OJIh^  RB.TRIS 

equ 

B'llllllll' 

RB  TRIS  at  INIT  State  ==  all  input 

0000 

equ 

B' 00000000' 

■What  is  Hj]gVI)E»  foi'  RB  at  INIT  State 

OOM  ;  A  Ragi^tei;  Def  initioos  -  Frogramable  Iivsuts 

0000 

OOIS.  Lew«l_|l«aet 

0                          ;mB'EA-0  -  Reset  Level  Indicator 

0001 

0016  LED 

«W 

1^                         i}s^  Output  -  Level/State  Indicator 

0002 

0017  Serial_Out 

■:^rial  Output  -  8  bits  +  passwords 

0003 

0018  FHH_Out 

equ 

3 

PWM  Output  -  8  bits  ON,   8  bits  OFF 

0019 

OOFl 

RA^IIilS 

equ 

B'llllOOiOl' 

RA  TRIS  at  INIT  State 

0000 

OC^  RAJIASK 

equ 

B' 00000000* 

-lAilt:  ia  High/Low  for  RA  at  INIT  State 

'.•  • 

■xy  1 

WM      >  ,{ 

0034  tCnp  ";..L 

<w 

ZOh                     sTentiary  fasUlag  register  -  PICiec54/56 

0021 

0025  trap 

aqu 

21h 

•  Tenpary  reg 

0022 

0026  Teinp_W 

•0" 

22h 

■Iitternq>t  storage  of  W 

0023 

0027  T€aiip_stat 

equ 

23h 

•Interrupt  storage  of  STATUS 

0024 

0028  Tenip_FSR  |^ 

equ 

24h 

Interrupt  storage  of  FSR 

0025 

0029  T_B 

equ 

25h 

Indicates  v^ich  Timer  (s)  are  Active  ^  1 

OOM;  FUOS  ^ 

361a 

^^^f=^^?*^3^ijB»J<   (4-6)=S»q  #,  7-=SBW 

27h 

0028 

28h 

Serial  Out  State 

0029 

•qo 

29h 

Serial  In  11  State 

002 A 

0034  cc 

equ 

2Ah 

256  *  TMRO  time 

002B 

0035  T_5_M_L0 

equ 

2Bh 

5  Min  Timer  Counter  -  Low 

002c 

0036  T_5_M_HI 

equ 

2Ch 

5  Min  Timer  Counter  -  High 

0037  T_S_S_CO 

equ 

2Dh 

•5  Second  Timer  -  lack  of  Serial  Input 

002B 

0038  T_20jiiS_CO 

equ 

2Eh 

■20  mS  Timer  -  used  for  debouncing 

0039  T_pinuco  ... 

eqn> 

2Fh 

■mtl  Counter 

UUJU 

0040  LKD_C 

equ 

30h         ;  . 

•LED  Counter 

0031 

Op41  xntJvte 

equ 

31h 

•Serial  xmit  byte  -  destroyed  in  use 

0032 

0042  rcv_)vte_l 

equ 

32h 

•Receive  Serial  #1  In  byte 

0033 

0043  RCV_Storage 

equ 

33h 

•Long  term  storage  of  rcv_byte  #1 

0034 

0044  01d_RB 

equ 

34h 

•Oldest/Master  copy  of  RB 

0035 

0045  LastJRB 

equ 

35h 

•Last  copy  o£  RB 

0036 

0046  FHH_aN  ..^ 

'Oqtt't , 

;MI  OH  eewd^ 

0037 

0047  FHK_OFF 

aqa 

37ii 

•,vm.  OFV  Counter 

qpss 

0048  IMItJsaio 

aqtt 

3k8h 

;IWI  teepttxy  countea;  . 

0049 

-■  1  -  rt»o  2T-^ 

OOSO  ;  Indicates  which  Timer  (s)  are  jkettw*  = 

1  4  Flags  -  T_B 

0000 

0051  OState_B 

equ 

0 

•Serial  Out  Active  Bit  ; 

0001 

0052  IStatel_B 

equ 

1 

•Serial  IN  #1  Active  Bit   ^i^:^  t"V-5*- 

0002 

0053  T_5_S_B 

equ 

2 

•  5  Second  Timer  Active  Bit  ^(^r  - 

0003 

0054  T_5_»LB 

equ 

3 

;5  Min  Timer  Active  Bit 

0004 

0055  RCV_Got_One_B 

equ 

« 

;Got  a  NEW  Received  byte  to  seOiS  £Wfe 

mk 

0056  RBJNBW_B 

eqU' 

.•Indicates  a  change  in  RB  input 

0006 

0057  S_5_?L» 

eq^ 

6 

; Serial  In  5  sacs  of  inactivity 

01 


0007 

0058 

equ  7 

0059 

0060 

;  Error  Flags  - 

FLAGS 

0000 

0061 

FS_Flag_l 

equ  0 

pool 

0062 

FE_PlagJ 

equ  1 

0€fl2 

0063 

RCV_Over£low 

equ  2 

0003 

0064 

RB_Overf  low 

equ          3           V.     ■  .  _ 

0004 

0065 

S_5_S_0verf  low 

equ  4 

0005 

0066 

Time_Bit 

equ  5 

■  0067 

0068 

.■Equates  for  LED  Task  #7  -  LED_Mode 

0003 

0069 

LED__B 

equ        "3:  t 

0007 

0070 

LED_NEW_B 

Ami  *7 

equ  i> 

(fiPiO* 

1OO.7I 

Z<BO_QFFJ«)[)B 

„,,,,             ■Albim'AA'l  AAA  < 

LBD_SBQl_flOm! 

^Q^pl  B'lUUUlUUl 

LBD_SEQ2_>10DB 

equ          s  luuuxuxu 

0074 

LED_SEQ3_M0DE 

equ          0  luuuiuii 

0075 

LED_SLOW_M0DE 

equ          D  iuuiiiuu 

0076 

LBD_MEDIUM_MODE 

D'lnniTinii 
equ           tJ  iUUiiiUl 

-MSB 

0077 

LED_FAST_MODE 

equ         0  J.UU1111U 

AOS? 

0078 

I.EDjC»tJIODB 

•oiini        •<n*)i  nnni  111* 

0079 

It' 

n-iii  SUM 

<K  ORO 

M71 

T    '.  m  1 

•1:1 

28P7 

-0092 

OOTO 

Main  ; 

0093 

■  »r  . 

0084 

ORG 

4 

0085 

0004 

29D4 

0086 

GOTO 

Interrupt 

0087 

-  ) 

0088 

Te«lc  *1  -  Asynchronous 

0«38 

mm 

:  MOVF 

ostate.W  '1 

0006 

3  SOP 

O091 

ANDLW 

H'OF' 

0007 

0782 

0092 

ADDWF 

PCL 

0008 

2814 

GOTO 

estates 

0009 

2823 

>■;  GOTO 

OStateO_7 

OOOA 

2823 

GOTO 

OStateO_7 

mm 

3823 

QBtAtaOJ) 

tmc  2823 

'  nji  OOTO 

fi®tate0_7 

OOOD 

2823 

mm 

re  GOTO 

mtstteOJl 

OOOE 

2823 

r»A«-  -OOTO 

OStateO_7 

OOOF 

2823 

0100 

OOTO 

OStateO_7 

0010 

2823 

0101 

GOTO 

OStateO_7 

0011 

2829 

,0102 

GOTO 

OStateE  .;. 

0012 

2831 

,^4iQ3  ,.K  J';  C50T0 

0013 

0008 

RETURN 

;EWM  Activity  Bit 


;  Serial  #1  IN  had  a  False  Start  Error 
;Last  Serial  «1  IN  had  a  Frame  Error 
;Loat  Serial  Input  Byte  -  too  Slow 
;Lost  RB  Input  Byte  -  too  Slow 
;Lost  '5S  Inactivity'  msg  -  too  Slew 
.■Indicate  512  uS;j>as  passed 


;LED  is  active  -  LED_Mode.3 
;LED  has  just  changed  Modes  =  1 

■.«MK<3W'-  »rc.:  =    .  -I  :        ■  IV  i; 

:tSK>  Sequeiice- 1 1  .2nr        la  Off 
;LED  Sequence  2:   3x(;<^)t.<-.4#l  Wf 
;LED  Sequence  3:   5x(.2:s),   1«  Off 
;LED  Slow  Pulsing  -  .3  Hz 
;LED  Medium  Pulsing  -  1  Hz 
;LED  Fast  Pulsing  -  3  Hz 
;LED  ON  Continuously 


; Interrupt  Vector 


9600  Baud  Serial  Output  (I.OW=0) 

;Get   (0-A)  mode  # 
;Get  only  mode  # 
;  jximp  to  subroutine 
.■Serial  Start  Bit 
;Bit  0  ,  -i 

.■Bit  1 

;B4t  3-  -  -Jwr  -  g  prr«  *rf--:»--  c-r^ 
;Bit  4  r-;Asr\r-  .  ■    :  ■ 

.•Bit  5         rt^^'       «     -  ..■  -  ;  , 
.■Bit  6 
.•Bit  7 

.■Serial  Stop  Bit 
;Ii^t  State 


0106 

OStateS 

0014 

3000 

0107 

MOVLW 

H '  00  ' 

Post  S,  Pre  1=1  &  <mf 

0015 

0092 

0108 

MOVWF 

T2C0N 

0016 

1683 

0109 

BSF 

STATUS, RPO 

Point  to  BANK  1 

0017 

3053 

0110 

MOVLW 

H'68'  -  H'lS' 

;104uS  -  9600  Baud  £  adjust  to  Latmoy 

0018 

0092 

0111 

MOVWF 

PR2 

0019 

1283 

@112 

BCF 

STATUS , RPO 

;  Point  to  BANK  0 

OOlA 

0191 

CLRF 

TMR2 

;Inlt  to  0 

COIB 

108C 

0114 

BCF 

PIRl , TMR2IF 

.'Clear  Timer  2  Flag  so  as  to  start  fraah 

0  OIC 

1505 

0115 

BSF 

PORTA,  Sei"ial_Out 

.'Output  'Serial  Start  Bit'  o^^^g.  1fmi> 

OOID 

1512 

0116 

BSF 

T2CON,TMR20N 

Start  Timer  2 

'OJillO 

0117 

•^m^^  &m'9Bbsi*WSmm-  allM^g  Intamipts 

0118 

'  <{*\ 

OOIF 

1683 

0119 

BSP 

S  rKVxJa  1  KrU 

FoinK  to  VKIBL  1 

0020 

148C 

BSF 

rial  1  XrlKAllS 

.■Allow  for  Tlmur  2  interrupts 

0021 

1283 

0121 

BCF 

STATUS  t  Kx*U 

;  Point  to  BANK  0 

0022 

0008 

0122 
0123 
0 124 

RETURN 

7 

Bit  0-7 

0023 

OCBl 

0125 

RRF 

xmt_byte 

Move  bit  into  C  £rom  right  most  bit 

0024 

1C03 

0126 

BTFSS 

STATUS , C 

Output  C  bit 

0025 

1105 

0127 

BCF 

PORTA, Serial_Out 

0026 

1803 

0128 

BTFSC 

STATUS , C 

0027 

150^ 

0129 

BSF 

PORTA, Serial_Out 

0028 

2  82A 

0130 
0131 

OStateE 

GOTO 

OS_End 

0029 

1105 

0132 

BCF 

PORTA, Serial_Out 

; Serial  Stop  Bit 

002A 

108c 

0133 

OS_End 

BCF 

PIRl , TMR2IP 

clear  Timer  2  Flag  so  as  tis  Start  fraah 

002B 

1683 

0134 

BSF 

STATUS,  RPO 

Point  to  BANK  1 

002C 

306C 

0135 

MOVLW 

H'68'  +  H'4' 

;104uS  -  9600  Baud_&  adjust  to  Latency 

002D 

0092 

0136 

MOVWF 

PR2 

002E 

i2di 

^fl37 

BCF 

t 

^i^^Sttl^^to'^next  State 

002F 

0AA8 

0138 

INCF 

OSllite'''' 

0030 

0008 

0139 
0140 

OStateL 

RETURN 

0031 

1683 

0141 

BSF 

STATUS, RPO 

Point  to  BANK  1 

0032 

108C 

0142 

BCF 

PIE1,TMR2IE 

Do  NOT  Allow  Timer  2  interrupts 

0033 

1283 

0143 

BCF 

STATUS, RPO 

Point  to  BANK  0 

mm 

0034 

:»m 

m-' 

ti!tB!i;1«lS2IF 

*i?fe*(lP^ia4f?Sr%lag'*e8'«s  to  start  fresh 

0035 

1112 

■sm 

BCF 

T2CON,TMR20N 

;StOp  Timer  2 

0036 

01A8 

mi 

CLRP 

OS bate 

;Ready  to  send  next  byte  out 

0037 

1025 

0148 

BCF 

T_B,OState_B 

; Serial  Out  not  active 

0038 

0008 

0149 
0150 

RETURN 

0151 

.  ****** 

VaaK  #7  -  Output  ^^haet  Laval  Indication  on  LED 

-r.          -.  K 

0152 

Do_JjED 

•  -  ■  f. 

mi§ 

6153 

*  r  * 

003A 

284C 

ei54 

GOTO 

LED_NEW 

003B 

OABO 

diss 

INCF 

LED_C 

;Inc  Counter  -  Time  Unit  =  131072  U!S 

003C 

0827 

0156 

MOVF 

LED_Wode,W 

;Get  (0-7)  mode  # 

003D 

3907 

ANDLW 

H'07' 

;Get  only  mode  # 

003E 

0782 

1^ 

ADDWF 

PCL 

;jump  to  subroutine 

003F 

2848 

GOTO 

LED_OFF 

;LED  OFF 

0040 

2864 

olio 

GOTO 

LED_SEQ1 

;LED  Seq  1:  1  short  pulse  &  pause 

0041 

2867 

GOTO 

LED_SEQ2 

;LED  Seq  2:  2  short  pulses  &  pause 

0042 

2e8A 

mi 

GOTO 

LBD_SBQ3- 

;LED  Seq  3 i  3  abort  pulses  &  pause 

9043 

2S5i) 

mi 

QOTO 

LBD_SLOH 

J  LED  Slow  Pttlsihg' -  .'3  Hz  '   '  ' 

0044 

285E 

GOTO 

LED_MEDH)M 

;LED  Medium  Pulsing  -  1  Hz 

0045 

2861 

WsAo 

LED_FAST 

;LED  Fast  Pulsing  -  3  Hz 

0046 

284D 

VSDJW 

;LED  ON  Continuously 

iU^ 

odes 

mi 

MM 

^0012 
LBD_OFF 

RETOBK 

0048 

1085 

61T0 

BCP 

PORTA,  LED 

;Turn  off  LED 

0049 

11A7 

8171 

BCF 

LED_Hode , LED_B 

;LED  must  be  off 

004A 

OIBO 

%in 

CLRF 

LED_C 

;  Reset  Counter  -  LED_C  =  0 

004B 

0008 

0173 
0174 
0175 

LED_NEW 

RETOBN 

im: 

0176 

BCF 

fiffi^:jkDa^',iKDJ91SH_B  -  ;t>6<ie  laltlallzlng 

0177 

LED_ON 

004D 

1485 

9i?S 

BSF 

PORTA, LED 

;Tum  on  LED 

004E 

OIBO 

81^1 

dUtF 

LED_C 

;  Reset  Counter  -  IM)_C  =  0 

004F 

0008 

elM 

RETURN 

LED  SLOW 

0050 

300C 

MM 

MOVLW 

H'OC 

;.3HZ  9  50%  Dity      -  ■      '  ' ^ 

0051 

00  AO 

mt 

MOVWF 

temp 

0052 

0820 

HU 

XiBB_S 

MOVF 

temp ,  W 

;  Check  LB)_C  if  tiros,   .3Hz  8  S0%  DutJ 

0053 

0230 

Sill 

SUBWP 

LED_C,W 

0054 

1D03 

STATUS,  Z'' 

0055 

2847 

_0012  ' 

0056 

3010 

Oils 

kovLW 

H'lO' 

0057 

06A7 

8198 

XORWF 

LED_Mode 

;  switch  states 

0058 

1E27 

8191 

BTFSS 

LED_Mode,4 

faW'taake  LED  same  statse 

0059 

1085 

4192 

BCF 

PORTA, LED 

■ il.r-"'  ' 

005A 

1A27 

6193 

BTFSC 

LED_Mode,4 

I  •     Si  <  --  -  -  ■ .        , . .  -  . 

005B 

1485 

8194 

BSF 

PORTA, LED 

005C 

OIBO 

'ms 

CLRF 

LED_C 

; Reset  LED_C 

005D 

0008 

§196 
0197 

RETURN 

ei9ti 

LBDIIEDiaH 

005E 

3004 

oi»9 

MOVLW 

H'04'" 

005F 

ilBVNF 

9281 

2 
O 

CT> 

(D 
Q) 


3 

(D 

o 

(D 
3 

«< 

(0 

i 


0202 


0203 

LED_PAST 

0061 

3001 

MOVLW 

H'Ol' 

0062 

OOAO 

0205 

MOVWF 

0063 

28S2 

0206 

GOTO 

0207 

;  

0208 

LED_SEQ1 

0064 

1E27 

0209 

BTFSS 

LED_Mode,4 

0065 

2878 

0210 

GOTO 

ONI 

0066 

2882 

0211 

GOTO 

0FF3 

0212 

0213 

LED_SEQ2 

0067 

0827 

0214 

MOVF 

LED_Mode,W 

0068 

OOAO 

0215 

MOVWF 

temp 

0069 

3030 

0216 

MOVLW 

H'30' 

#m 

©2l7 

mi 

tee 

sits 

t&aip 

006C 

082« 

0219 

MOVF 

temp.W 

OOSD 

0782 

0220 

ADDWF 

PCL 

006E 

2876 

0221 

GOTO 

ONI 

006F 

287C 

0222 

GOTO 

0FF2 

0070 

2876 

0223 

GOTO 

ONI 

6iM 

1^^^ 

0072  3010 

0073  07A7 

0074  OIbS' 

0075  0008 


MOVLW  H'lO' 


CLIi# 
RETURN 


0076  3002 

0077  0230 

0078  1D03 

0079  2847 
007A  1085 
007B  2872 


MOVLW 

SUBWF 

BTFSS 

GOTO 

BCP 

GOTO 


H'02' 
LED_C,W 
STATUS,  Z 
_0012 
PORTA,  LSD 
LED_Exit 


007C  3002 
007D  0230 
007E  1D03 
P07F  2847 
0080  14tS 
OOSi  28ti' 


MOVLW 

SUBWF 

BTFSS 

GOTO 

BSF 

GOTO 


H'02  ' 
LED_C,W 
STATUS, Z 
_0012 
PORTA,  LED 
LED_Ertfc. 


MOVLW 
SUBWF 
BTFSS 


H'08' 
LED_C,W 
STATUS,  Z 

m  .  r: 


;3Hz  9  50%  Duty 

;  .2  ON,   1  OFF 

;Skip  if  bit  is  high 

;Go  do  it     -  -  ••J- 

,-Godoit  -  --Mi*J« 

f.2  m,   .2  OFF,   .2  cast,  1  OFF 


;@#t  fiequence  #  only 

;  s*Sp  'nibbles 

;get  nibble  for  offstf^ 

; Table  junp  caloulatiea 

;LED  is  on,  check  if  time  to  change 

;LED  is  off,  check  if  time  to  change 

•  g©  is  on,  check  if  time  to  change 


; Inc  Seq  # 


; check  LED_C  if  time,    .2  sec-on 


;Turn  off  LED 


;tteck  LED_C  if  time,   .2  sec-on 


;Tum  on  LED 


; Check  LED_C  if  time,  1  see-off 


0086 

1485 

0250 

BSF 

PORTA,  StSO 

;Tum  on  LED 

0087 

30F0 

0251 

MOVLW 

H'FO' 

0088 

04A7 

0252 

lORHF 

LEDJtode 

.•Cause  (Seqt  &  NEW)  to  overflow  to  0 

0089 

2872 

0253 

GOTO 

LBJ.Exlt 

t^si 

I.ED_SEQ3 

;.i2  C«I,   .a  OKFi  -.2  'On,   .2' OWr  .2  W,  1  OFF 

008A 

0827 

MOVF 

LED_Mode,W 

■Get  LED  info 

008B 

OOAO 

0256 

MOVWF 

temp 

•eik  as^witaa  t  only 

008C 

3070 

0257 

MOVLW 

H'70' 

008D 

05A0 

0258 

temp 

008E 

OEAO 

0259 

^^JF 

temp 

;  swap  nibbles 

008F 

0820 

0260 

temp,W 

; get  nibble  for  offset 

0090 

0782 

PCL 

;  Table  ixup  eiMKte&liOK'  "^'^^ 

0091 

2876 

GOTO 

ONI 

;LED  Is  on  cIsmA:      ttim  fee  eteasa 

0092 

jite 

GOTO 

OFP2 

iIjBD  is  off  check  if  time  to  change 

oii'4 

GOTO 

ONI        '  • 

liSas  is  on  check  if  time  to  change 

0094 

287c 

GOTO 

0FF2 

;LED  is  off  check  if  time  to  change 

0095 

2876 

02$l 

GOTO 

ONI 

;LED  is  on  check  if  time  to  change 

0096 

2882 

IMS 

0267 
0268 

GOTO 

0FF3 

;LED  is  off  check  if  time  to  change 

0269 

.****** 

Task  »2  -  Asynchronous  4800  Baud  Serial  Input  (LOW=0) 

6230 

DollState 

0097 

0829 

bi?! 

MOVF 

IStatel.W 

0098 

390F 

0272 

ANDLW 

%'W 

;Get  only  mode  # 

0099 

0782 

0273 

ADDWF 

to 

;§u2ip  to  subroutine 

009A 

28A7 

0274 

GOTO 

IlStateS 

; Serial  Start  Bit 

009B 

28B8 

0275 

GOTO 

IlState2 

;l/2  of  Start  Bit  -  mmJM  aiwrt 
;Bit  0       -     •  '^••^•^ 

009C 

28C5 

0276 

GOTO 

IlStateO_7 

009p 

28C5 

GOTO 

IlStateO_7 

.gj^t  1                     "**  '°  ^oa* 

009E 

28C5 

GOTO 

IlStatoO_7 

i.Bit  2                          ;  I 

009P 

28C5 

IlStateO_7 

;Bit  3                                                 '  ''' 

OOAO 

28C5 

IlStateO_7 

;Bit  4 

OOAl 

28C5 

0281 

GOTO 

IlStateO_7 

;Bit  5 

00A2 

28C5 

0282 

GOTO 

IlStateO_7 

;Bit  6  "' 

00A3 

28C5 

0283 

GOTO 

Ilstate0_7 

;Bit  7 

00A4 

28D4 

0284 

GOTO 

IlStateE 

; Serial  Stop  Bit 

00A5 

28DF 

0285 

GOTO 

IlStateL 

;Last  State  -  End  of  Stop  Bit 

001^6 

0008 

0286 

MM 

RVl'UHH 

oisf 
tiiii 

^l^autlnas  fox 

T«sk  #2 

;  Start  Mt  -  Setup  timing  variables 

00A7 

120B 

0290 

BCF 

INTCON,  INTE 

.•Disable  detecting  changes  on  INT  pin 

00A8 

108B 

0291 

BCF 

INTCON, INTF 

; Clear  Interrupting  Flag 

O0A9 

3000 

0292 

MOVLW 

H'OO' 

.•Internal  elk,  Pre  1  =  1  4  OFF 

OOAA 

0090 

0293 

MOVWF 

TICON 

OOAB 

018E 

0294 

CLRF 

TMRIL 

.•Calculate  (0  -  #)  of  counts  until  roll-over 

OOAC 

304A 

0295 

MOVLW 

H'68'  -  H'lK' 

;2089^^^          tend  «  adjust  to  Lateney 

OOAO 

028b 

0296 

SOBWF 

THttlL 

09^ 

8197 

CLRF 

TMRIK 

0^ 

0298 

DECF 

TMRIH 

OOBO 

lOOC 

0299 

BCF 

PIR1,TMR1IP 

OOBl 

1410 

0300 

BSF 

TICON.TMRION 

0OB2 

0AA9 

0301 

DJCF 

IStatel 

00B3 

14A5 

0302 
0303 

BSF 

T_B, IStatel_B 

00B4 

1683 

0304 

BSF 

STATUS, RPO 

00B5 

BSF 

PIEl.TMRlIB 

oose 

1283 

m 

BCF 

STATUS, RPO 

00B7 

0008 

0307 
0308 

^TURN 

IlStata2 

O0B8 

1C06 

0309 

BTFSS 

PORTB,Serial_IN. 

00B9 

28E9 

0310 

GOTO 

FS_Error_l 

OOBA 

1026 

0311 

BCF 

FLAGS,  FS_Flag_l 

fQBB 

1010 

oai2 

T1C0N,TMR10N 

ftOBC 

018E 

wi 

TMRIL 

dOBD 

301A 

liOVLW 

H'DO'  :i,H',26' 

OOBE 

028E 

oSi's 

SUBWF 

THRIL 

OOBF 

018F 

0316 

CLRF 

TMRIH 

OOCO 

038F 

0317 

DECF 

TMRIH 

OOCl 

lOOC 

0318 

BCF 

PIRI.TMRIIF 

00C2 

1410 

0319 

BSF 

TICON.TMRION 

00C3 

0AA9 

0320 

INCF 

IStatel 

00C4 

0008 

0331, 
041^ 

IlState0_7 

0OC5 
00C6 

1C06 
1003 

0t2i 

,  BTFSS 
BCF 

PORTB,Serial_IN 
STATUS,  C 

00C7 

1806 

0325 

BTFSC 

PORTB,Serial_lN. 

0OC8 

1403 

0326 

BSF 

STATUS , C 

00C9 

0CB2 

0327 

RRF 

rcv_byte_l 

OOCA 

1010 

0328 

BCF 

TICON.TMRION 

OOCB 

018E 

0329 

CLRF 

TtlRlL 

pa? 

mcD 

02  8E 

OOCE 

018F 

0332 

CLRF 

TMRIH 

OOCP 

038F 

0333 

DECF 

TMRIH 

OODO 

lOOC 

0334 

BCF 

PIRI.TMRIIF 

OODl 

1410 

0335 

BSF 

TICON.TMRION 

00D2 

0AA9 

0336 

INCF 

IStatel 

00D3 

0008 

0337 
0338 

RETURN 

IlStabeE 

0004 

18Q6 

0339 

BTFSC 

PORTS,  s^ial_lN. 

OODS 

28EC 

0340 

GOTO 

P_Brror_i 

0341 

BCF 

FLAGS . FE_Flag_l 

0019$; 

GUP 

0342 

CLRF 

T_5_S_C0 

0343 

;  Process  the  msg  Here  ! 

00D8 

0832 

0344 

MOVF 

rcv_byte_l .  W 

00D9 

00B3 

0345 

MOVWF 

RCV_Storage 

;Ci^e  Timer  1  Flag  so  as  £o  SCart  fresh 

.•Start  Timer  1 

.•inc  to  next  state  BEFORE  allowing  interrvq^fes 
.'Serial  Input  Active 

.■Point  to  BANK  1 

(j^low  for  HiOBX  l  ^^^^ffOg^fug^  4FT» 
;8oint  to  BANK  0 

.•Check  if  Still  a  Start  Bit 
.1     ; False  Start  Error  ? 

.•Start  Bit  OK 
;Stop  Timer  1 


•H'FF' 

;  Clear  Timer  1  Flag  so  as  to  start  fresh 

; start  Timer  1 

; increment  to  next  state 

;Bit  0-7 

.1    ;  Move  Input  , 


;Move  C  into  left  most  bit 
;Stop  Timer  1 

tZ9%i!0  Ti  iPP  9fv4^#.<l4#'B^  Latency 


H'FF' 

Clear  Timer  1  Flag  so  as  to  start  fresh 
Start  Timer  1  . 
increment  to  next  state 

;  Check  if  we  have  a  proper  Stop  Bit 
.1    ;praBS  Er^or 


;StOB  Bit  OK  .  ,  J, 
.•Reset  5  Sec  Timer 


;Hake  a  copy  of  just  recei'?ed  Isyte 


CJl 


OODA  1B3$ 
OODB  112i 
OODC  1A25 
00I»  1526 
OODE  1625 

OODF  1010 
OOEO  1683 
OOEl  14 OC 
00B2  1283 
00E3  lOOC 

00B4  01A9 

00E5  lOAS 

0QE6  108B 
00E7  160B 
0OE8  0008 


OOEC  14A6 
OOED  0AA9 
OOEE  1010 
OOEF  018E 
OOFO  304A 
OOFl  028B 
00F2  018F 
00F3  038P 
00F4  lOOC 
00F5  1410 


oon  I  eye 
mn  0183 

00F8  0184 
0OF9  0181 
OOFA  3000 
COFB  0085 
OOFC  0086 
OOFD  0087 
OOPS  0088 
OOFF  OQU 

mi  ?«# 


TJ,RCV_Got_One_B 
FLAGS ,  RCy_Over  f  low 
TJ,  RCV_Got_One_B 
FLAGS ,  RCV_Over£loW 
T_B .  RCV_Got_One_B 


; Report  Lost  data 


;We  Nbw  have  a  RB  Value  to. go  out 


61 
D3C9 

0361 

0362 
0363 

m* 

ms 

0366 
0367 
0368 
0369 
0370 
0371 
0372 

mi 
om 

037fi 

0377 
0378 
0379 
93«0 
0^81 
0382 
0383 
0384 
0385 
0386 
0387 
0388 

0390 

0391 
0392 


TICON.TMRION 
STATUS,  RPO 
PIEl.TMRllE 
STATUS,  RPO 
PIR1,THR1IF 

IStat^i 

T_B, IStatel_B 

INTCON,  ItJTF 
INTCON,  INTE 


TJ,  IStatelJ 


. ****** 

Hain 


GOTO 

_1 

BSP 

FLAGS ,  FB_Flag_l 

INCP 

IStatel 

BCF 

TICON.TMRION 

CLRF 

THRIL 

nmu. 

CLRF 

TMRIH 

DECF 

TMRIH 

BCF 

PIRl.TMRlIF 

BSF 

TICQH.TMRION 

RETURN 

Code  Smarting  p< 

CLRF 

CLRF 

FSR 

CLRF 

TMRO 

MOVLW 

H'OO' 

MOVWF 

PORTA 

MOVWF 

PORTB 

IKJVWF 

PORTC 

MOVWF 

FORTD 

MOVWF 

PORTE 

C^JiP 

FCLATR 

m9^ 

;Stop  Timer  1 

;  Point  to  BANK  1 

; Allow  for  Timer  1  interrupts 

;  Point  to  BANK  0 

;Clear  Timer  1  Flag  so  as  to  start  fresh 

;  Ready  to  receive  next  byte 

; Serial  In  not  currently  active 

;  Clear  Interrupting  Flag     -        .,^  -^r:-.\ 
;  Enable  detecting  changes  on  mt  pin 


^ptecklng 


;^^^^^nt  H@¥  jtietlVie 

; False  Start  Error 
; Start  All  Over 

;Frame  Error  -  Wait  for  End  of  Stop  Bit 
; Frame  Error  for  this  Byte  ? 
; Increment  to  next  state 
;Stop  Timer  1       -  jr? 

;208us/2  ^tt^feij^i^  aSimt-^bif  LaUi^ 


;H'FF' 

;Clear  Timer  1  F^<ig.  sq  as  to  start„;^iBSfa 
; Start  Timer  1 


; Clear  TimerO 

;What  is  High/Low  for  RA  at  RESET  State 

.    -ri.,'-     -  e\ 


,-^OIB,PfilB,RTlB,/INTE,/RBIE,  /RTIF, /INTP, /RBIF 


0102 

008B 

0394 

MOVWF 

INTCON 

0103 

018C 

0395 

CLRF 

PlRl 

0104 

018E 

0396 

CLRF 

TMRIL 

0105 

018F 

0397 

CLRF 

TMRIH 

0106 

0190 

0398 

CLRF 

TICON 

0107 

0191 

0399 

CLRF 

TMR2 

0108 

0192 

0400 

CLRF 

T2C0N 

0109 

0193 

0401 

CLRF 

SSPBUF 

0194 

0402 

CLRF 

SSPCOH 

0195 

0403 

CLRF 

CCPRIL 

Mc 

OlOD 

0194i 
0197 

&m 

0406 

,   ,  .  CIJRF 
CLRF 

OlOE 

1683 

0407 

BSF 

S^A9DS,RF0 

OlOF 

3040 

0408 

MOVLW 

H'40' 

0110 

0081 

0409 

MOVWF 

OPTION 

0111 

30F1 

0410 

MOVLW 

RA^TRIS 

0112 
0113 

008£ 
30pi? 

A5i2 

tlOVHF 
MOVLW 

TRISA 
H'FF' 

0114 

0086 

0413 

MOVWF 

TRISB 

0115 

0087 

0414 

MOVWF 

TRISC 

0116 

0088 

0415 

MOVWF 

TRISD 

0117 

3007 

0416 

MOVLW 

H'07' 

0118 

0089 

0417 

MOVWF 

TRISE 

0119 

CISC 

0418 

CLRF 

PIEl 

QUA 

lies 

0419 

BSF 

PCOH, POR 

«tlB 
fl'llC 

0192 

m° 

OAF 

PR2 

0193 

dsn 

SSPADD 

OllD 

0194 

0422 
0423 

CLRF 

SSPSTAT 

OllE 

1283 

0424 

BCF 

STATUS,  RPO 

eiiF 

21BF 

0425 
0426 

CALL 

Cle«r_liegs 

L 

rt- 

;Initlal&^  Tasks 

0120 

3031 

'  '  ^'  MOVLW 

H'31' 

0121 

00B6 

0431 

MOVWF 

PWM_ON 

0122 

3031 

0432 

MOVLW 

H'31' 

0123 

00B7 

0433 

MOVWF 

PWM_OFF 

0124 

OlAF 

0434 

CLRF 

T_PWM_CO 

0125 

0836 

0435 

MOVF 

PWM_ON,W 

0126 

00B8 

0436 

MOVWF 

PVOLtmp 

0127 

1585 

0437 

BSF 

PORTA,  PWH_Out 

0128 

17A5 

0438 
0439 

BSF 

'r_3,T_PWl(_B 

0440 

4^ 

; Timer  2  Flag  cleared 

rTimef  1  OfT  iinfcil'r'ee»iS/  fot  input 
(Timer  2  OFF  xmtil  have  byte  to  output 

'x.  2  0Ar*       ci"  i  OT  n-  i* 

; Point  to  BANK  1 

;TMR0/2  &  Interrupt  on  Rising  edge  of  INT 
;Load  OPVION  reg 

;RB  TRIS  at  RESET  State 


;T£>iiar  2  Interrupt  disabled 


•  ■«»  srxJ^^j  sK'r>  -v;" 

(Point  to  BANK  0 

(Clear  Registers  20-7F,  SO-CO  Memory  Pages 


Task  #1  waits  for  byte  to  output 
Task  #2  waits  for  Serial /iUwt  Bit 
Task  (3  is  initialized  J^^i^j^|aJ£  pulses 
25  mS  ON  -     •  . 

*  Period  =  50  mS,  DS=  50% 

»  25  mS  OFF 

mov  PWM_tmp,PWMLON 

Start  Outputina  blJ 
« 

Task  #4  runs  when  Task  1  is  Sot 


CJl 


012  A 

00B4 

0442 

MOVWF 

014JIB 

012B 

0834 

0443 

HOVP 

014JIB,W 

;Make  all  the  same  initial  value 

012C 

00B5 

0444 

MOVWF 

Last_RB 

012D 

16A5 

044S 

BSF 

T_B,RB_NEW_B 

;Tell  Task  14:  RB  byte  reat^  to  ontFUt 

012E 

3008 

0446 

HOVLW 

LED_OFF_MODE 

012F 

00A7 

0447 

MOVWF 

LED_Mode 

;Task  #7  is  Started 

0130 

1525 

0448 

BSF 

T_B,T_5_S_B 

;Task  #8  is  Started  here 

0131 

15A5 

0449 

BSF 

T_B,T_5_M_B 

;Task  #9  is  Started  here 

0459 

0132 

178B 

0451 

BSF 

INTCON.GIE 

.■Enable  Global  Interrupts 

0133  1EA6 

0134  2933 


'Ij. 

MS* 
0139 
013A 
013B 
013C 
013D 
013E 
013F 
0140 
0141 

Dim 


0838 
022F 
1D03 
2947 
OlAF 
1985 
2944 
1585 
0836 


0144  1185 

0145  0837 

0146  00B8 


;  Handle  Task  & 
Inc_Tiine 

BTFSS 

GOTO 

BCF 


Ta8K.3 


T3_l 


GOTO 
INCF 
MOVF 
SUBWF 
BTFSS 
GOTO 
CLRF 
BTFSC 
GOTO 
BSF 
MOVF 
SOVWF 


BCF 

MOVF 

HOVWF 


Timer  activities  -  Main  It^iOP.M^XM  in  background 
[Heart  Beat  -  Tiro,  juiit  =;^jl^^ttS  for  Tasks  15  &  #6  , 
FLAGS,  Tline_Bit    ';  J(dje  i^sjc     Walt  1#$:il  512  MS,  has  gone  iv 
Inc_Time 

FLAGS, TineJBit    .-Reset  for  next  indicator  frcm  THRO  Interrt^t 


Task_4 

T_PWM_CO 

PWM_tmp,W 

T_PWM_CO,W 

STATUS, Z 

Task_4 

T_PWM_CO 

PORTA,  PWI<_Out 

T3_l 

PORTA,  PWhCOUt 

PWM_ON,W 

FUt^tng? 


PORTA,  PWH_Out 
PWHLOFF,W 


.  *  ^U^r  *  B'i2uS 
hi&g  now  ttiea  skip  call 

;Inc  count  of  time 

;cjne  T_PWMLC0,PWH_tinp,Task_4 


; Reset  timer 


;  C3ian{Fe  ^i$>iit.  Stt«tfea 


;C3iange  Output  State,,, 
;mov  PWM_tin?,  PWH.OFF 


Task_ 


0147  1825 

0148  295E 

0149  1E25 
014A  2950 
014B  0833 
014C  OOBl 
014D  1225 
014E  1425 
014F  295D 

0150  llS^ 


0057 


BTFSC 

GOTO 

BTFSS 

GOTO 

HOVF 

MOVWF 


BTF^S 


;Task  «4  -  Finds  next  Buffered  Byta  to  Send  Out  through  Task  1 
T_B,ostate_B       ;lf  outputlng  now  then  skip  call 

Task_5 

T_B,RCV_Oot_One_B    ;0ot  a  NEW  Received  byte  to  send 

_0057 

RCV_Storage,W      ;Send  just  received  byte 
xiiit_byte 

7J/SCVj3ot_Oa0ja*'  ^elaM;  liiMd  old  l^ta 

T^e)stata_B     imMut  9»0t  ti.  «'  um  out  e#Mt* 

l^'t^JlBiLfi       ilticliaaiek  a  ebange  in  RB  input 


0151 

2957 

0490 

_0058 

0152 

0834 

0491 

MOVF 

01d_RB,W 

iflend  New  RB  Vttlu* 

0153 

OOBI 

0492 

xmt_byte 

0154 

12A5 

0493 

BCF 

T_B,RB_)»EW_B 

;  Clear  need  to  send  out  newest  valtie 

0155 

1425 

0494 

BSF 

T_B,OState_B 

;  Start  Task  «I  £  Lock  3ut  OtkWfs 

0156 

295D 

0495 

C30T0 

T4_S 

0157 

1F25 

0496 

_0058 

BTFSS 

T_B,S_5_S_B 

;Serial  In  5  sees  of  inaotivlt!g(t 

0158 

295E 

0497 

GOTO 

Task_5 

if^ll  of  inactivity  of  Serial  In 

0159 

3  OFF 

0498 

MOVLW 

H'FP' 

015A 

GOBI 

0499 

MOVWF 

xint_byte 

015B 

1325 

0500 

BCF 

T_B,S_5_S_B 

; Clear  need  to  send  msg                   *"  ' 

015C 

1425 

0501 

BSF 

T_B,OState_B 

; Start  Task  #1  &  Lock  Out  others 

20  05 

0502 

T4_S 

; Start  Task  tl 

01 5D 

0503 
0504 

CAItL 

Do_OState 

0505 

Task_5 

;Task  #5  -  Monitor  Level  Reset  Input  Line  -  Always  Running 

015E 

1805 

0506 

BTFSC 

PORTA,  Level_Reset 

015P 

2962 

0507 

GOTO 

Task_6 

0160 

3008 

0508 

IKIVLW 

LED_OFPJiODE 

; Lowest  Level  Indicator  output 

6i€t 

OOlk? 

%$S9 

fU,^  ,111 

9^10 

Sgfl  TaB!^_6 

■         ,N  * 

;Task  #6  -  Debounce  8  bit  Input  Seasoee  -  Mas  every  20  BiS 

0162 

OAAE 

8512 

EHCF 

T_20_inS_CO 

;Inc  Counter  -  Tinilfitt  S^it  us 

0163 

3027 

0513 

MOVLW 

H'27  ' 

;VaeA  to  debounce  the  i^ut 

0164 

022S 

0514 

SUBWF 

T_20_mS._CO,W 

0165 

1D03 

0515 

lilt  bb 

STATUS, Z 

0166 

297c 

0516 

GOTO 

_0065 

0167 

0517 

T_20_mS_CO 

;Reset  T_20_mS_CO  to  start  over  again 

0168 

0806 

0518 

MOTF 

PORTB.W 

it0^~St^  of  RB  Btuae  as  CuWents  7 

_____ 

Last_RB,W 

1  on^ 

ma 

STATUS,  Z 

#168 

296F 

GOTO 

_0462  ■ 

016C 

0806 

0522 

MOVF 

PORTB,W 

; Store  Current  RB  -  diff  from  Last 

&im 

e#BS 

0523 

MOVWF 

Last_RB 

■'■  v.-    ■  :D  cf" 

016E 

2971 

0524 

GOTO 

_0063 

016F 

0835 

0525 

_0062 

MOVF 

Last_RB,W  ■ 

.'tiiw'WS'^'^  tane  value  over  20  mS 

0170 

00B4 

0526 

MOVWF 

01d_RB 

0171 

08B4 

_00«3 

mm 

oleljSB 

;See  If  RB  is  KQtr  0 

0172 

1903 

itii 

btfsc 

j-KMWS.Z 

;RB  ===  0  7  tiMA  keep  timer  running 

0173 

2976 

GOTO 

_0064 

^174 

OlAB 

His 

CLRP 

T_5_M_L0 

f ftaset  5  Hin  Tiiner 

0175 

01  AC 

OSfl 

CLRF 

T_5_M_HI 

;     still  not  zero  yet 

0176 

21A8 

0532 

_0064 

CALL 

D_H_E_L 

; Determine  the  Highest  Error  L^KOal 

0177 

lEAS 

0533 

BTFSS 

T_B,RB_NEW_B 

;Check  for  Lost  Data  Error 

0178 

11A6 

0534 

BCF 

FLAGS ,  RB_Over  flow 

0179 

1AA5 

0535 

BTFSC 

T_B,RBJJEW_B 

FIiAOS ,  RB_Over  flow 

mi 

T_B,R6_JJBW_B 

jBv^^a  ii'iead  6lit>tB  '6ur  ^      •    v  ■• 

0538 

_0065 

; Heart  Beat 

-  Time  unit  =  131072  uS  for  Tasks  »7,  #8  &  #9 

017C 

1683 

Ss4i 

BSF 

STATUS, RPO 

!  Point  to  BANK  1 

017D 

30F1 

0542 

MOVLW 

RA_TR1S 

;RA  TRIS  -  refresh 

017E 

0085 

0543 

MOVWF 

TRISA 

017F 

30FF 

6544 

MOVLW 

H'FF' 

;RB  TRIS  -  refresh 

0180 

0086 

MOVWF 

TRISB 

0181 

1283 

■ 

BCF 

STATUS,  RPO 

; Point  to  BANK  0 

0182 

OBAA 

0547 

DECFSZ 

cc 

fSttpsras  >tte*  units  * 

6i8S 

2$3i 

0548 
0549 

GOTO 

Ino_Time 

0550 

Task_7 

;Task  7  -  Output  Highest  Level  Indication  on  LED 

0184 

1DA7 

3551 

BTPSS 

LED_Mode,LED 

_B     ;Is  led  active  ? 

0185 

2987 

mi 

GOTO 

Task_8 

0186 

2039 

0553 
0554 

CALL 

Do_LED 

;  Handle  LED  timing 

;  v 

0555 

Task_8 

;Task  #8-5 

Second  Serial  Input  Lack  of  Activity  Timer 

0187 

1D25 

osss 

BTFSS 

T_B,T_5_S_B 

;5  Sec  Timer  Active  ? 

0188 

2996 

SSS7 

GOTO 

Task_9 

0189 

OAAD 

0558 

INCF 

T_5_S_C0 

i*ftd  Counter  -  Time  ttait  =  131072  uS 

018A 

3026 

BSS9 

MOVLW 

H'26' 

018B 

022D 

SUBWF 

T_5_S_C0,W 

018C 

1D03 

iiM 

BTFSS 

STATUS , Z 

018D 

2996 

GOTO 

Task_9 

018E 

OlAD 

0563 

T_5_S_C0 

jjfeset  T_5_S_C0 

0l8P 

3d%p 

LED_0N_M0ljS 

;il8h«8t  Level  iMloater  output  ■ 

0190 

00A7 

-  >^ 

MOVWF 

LED_Mode 

0191 

1F25 

BTPSS 

T_B,S_5_S_B 

; cheek  it  hoot  Baba  Breoc 

0192 

1226 

BCP 

FLAGS,  S_5_S_ 

Overflow 

0193 

1B25 

BTFSC 

T_B,S_5_S_B 

0194 

1626 

mi 

BSF 

FLAGS, S  5_S_ 

Overflow 

6193 

IfSS 

{Send  notice  of     seconds  of  inaction 

?  •  ~- 

0572 

TaElc_9 

;Task  «9  -  5 

Min.  Lack  of  Severe  Error  from  Sensors  Reset 

0196 

1DA5 

0573 

miosis 

t_b,t_5_m;_b 

;5  Min  Timer  Active  ? 

0197 

29A7 

§574 

&orio 

Task_A 

0198 

OAAB 

SbiCf 

T_5_M_L0 

;lnc  LO  Counter;  Time  Unit  =  131072  uS 

0199 

1903 

sifis 

BTFSC 

STATUS, Z 

; See  if  carry  needs  to  be  passed  on  ? 

019A 

OAAC 

0l77 

INCF 

T_5_M_HI 

; Inc  HI  Counter;  Time  Unit  =  131072  US 

019B 

3008 

MOVLW 

H'08' 

;#2288<    Check  T_5_H_HI  if  time 

019C 

022C 

9879 

SUBWF 

T_5_M_HI  ,W 

019D 

1D03 

BTFSS 

STATUS,  Z 

019E 

29A7 

SSti 

GOTO 

Task„A 

019F 

30F0 

MOVLW 

H'FO' 

;#2288>    Check  tJSJA^ia  if  time 

OlAO 

02£B 

toBWF 

T_5_ltJ,0,W 

OlAl 

1D03 

l$Si 

BTf'SS 

STATOS  ,  % 

om 

29At 

iisTb 

\ 


01A3 

OlAB 

II 

ems 

CLRF 

T_5_M_L0 

;  Reset  T_5_M_L0 

aiA4 

OlAC 

0 

0587 

CLRF 

T_5_M_HI 

;  Reset  T_5J«_JII 

01A5 

3008 

mn 

MOVLH 

LED_OFF_MODE 

; Lowest  Leval  Indicator  output 

01A6 

00A7 

isi9 

6590  TaaKJV 

HOVWF 

LEDJIode 

01A7 

2933 

0591 
0592 

GOTO 

Inc_Time 

;  Loop  Forever 

0593  ;••♦* 

Determine  the  Highest  Error  Level  &  SItart  Task  #7 

01A8 

3007 

mi 

MOVLW 

H'07' 

/Check  top  7  bits 

01A9 

00  AO 

MOVWF 

OlAA 

0834 

HOVF 

oia_jiB,w 

;Oet  copy  of  7  debouncad  Swisor  In^t 

OlAB 

OOAl 

6S9« 

MOVWF 

tmp 

OlAC 

ODAl 

059*  _0070 

RLF 

tmp 

;Put  top  bit  into  C  bit 

OlAD 

1803 

M»t 

BTFSC 

STATUS ,  C 

; Check  if  C  bit  is  set 

OlAE 

29B4 

mu 

GOTO 

_0072 

OlAF 

OBAO 

0602 

DECFSZ 

temp 

(•Continue  to  check  lesser  bits 

OIBO 

2  9  AC 

0603 

GOTO 

_0070 

OlBl 

0806 

0604  _0071 

HOVF 

PORTB,W 

; Restore  current  value  of  RB 

01B2 

OOAl 

0lB3 

0008 

eidi 

fflHtWN 

■  r^*  rv>  ii****  1^  -  (1  -  ' 

01B4 

0827 

e«tt  _0072 

iKwi? 

tSD_Hode,W 

;Get  current  Level  Indicator 

01B5 

3907 

mi 

H'07' 

;Get  only           *  " 

01B6 

OOAl 

mm^ 

MOVWF 

tmp 

;  Store  into  a  teiipary  register 

01B7 

0820 

ma 

MOVF 

tenp.W 

;  Check  if  already  at  this  Level 

01B8 

0221 

Ml 

SUBWF 

tmp.W 

01B9 

1803 

BTFSC 

STATUS,  C  '■ 

OIBA 

29B1 

MS 

GOTO 

_0071 

OIBB 

3088 

HOVLW 

H'88'  •- 

OIBC 

0420 

lORHF 

tent),  if 

OIBD 

00A7 

MOVWF 

LED_)(ode 

;  Store  new  UBO  Mode 

OIBE 

29B1 

^1 

GOTO 

_0071 

<tjL  1 

0«59  ;«•«♦** 

20-7Fh,  AO-CO 

USSI  Clear_Regs 

OIBF 

307P 

HOVLW 

S»ft>  -''■■■<■■■(:. 

jrltet  rega  to  clear  In  Bank  0 

OICO 

0084 

MOVWF 

FSR 

OlCl 

olse 

INDF 

/Clear  reg 

01C2 

0384 

m% 

mew 

FSR 

; point  to  next  reg  to  clear 

01C3 

3020 

0625 

MOVLW 

H'2D' 

;Dec  temp,  juttp  if  not  done 

01C4 

0204 

0626 

SUBWF 

FSR.W 

01C5 

1803 

BTFSC 

STATUS,  C 

Dice 

29C1 

•US 

SOTO 

IiOC(p_Cl 

01C7 

30C6 

H'  CO ' 

OlC8 

0084 

HdVttF 

FSR' 

01C9 

0180 

mSi  L0<9_C2  CLRF 

1NDF~'  -  ' 

; Clear  reg 

OICA 

0384 

DECF 

FSR  ' 

; point  to  next  reg  to  clear 

Ol 


OICB  30A0 
OICC  0204 
OICD  1803 
OICE  29C9 
OICP  0184 
OlOO  0008 


OlDl  16A6 
01D2  HOB 

' ;         <  t  ■ 

01O4  00A2 
01D5  0E03 
01D6  00A3 
01D7  0804 
01D8  00A4 

OlOA  188C 
OlDB  2005 

OlDC  18A5 
OIDD  29E0 
OlDE  188B 
OlDP  2097 

OIBO  180C 
OlEl  2097 

01E2  190B 
01E3  21D1 

01E4  0824 
01E5  0084 

eiM  met 

01E8  0EA2 
01E9  0E22 
OlSA  0009 


0634 

0#5 

Ml? 


MOVLW 

SUBWF 

BTFSC 

C50T0 

CU»P 

RETOBN 


H'AO  ' 
PSR.W 
STATUS, C 
Loop_C2 
F3R 


6eti 

otiS 

&m 

0S45 

06i7 
0648 
0649 
^0 

0>6S$ 

ff65i 

mi 
m9» 
mm 

mm 


.******  'A 
msat  ■  MovwF 

SWAPF 
MOVWF 
MOVF 
MOVWF 

•»ir.- 

B5PP9C 
CALL 

OOTO 

BTFSC 

CALL 


III 


#t«7 
t«S8 

ma 

POP: 

6in 
mfi 

«st4  • 

mn 

0676 
0677 
0678 


BTFSC 
CALL 


BTFSC 
CALL 


MOVF 
MOVWF 


SHAFP 
SVOtfP 

RETFIE 

END 
i-'  .. 


;Dec  temp,  jump  i£  not  done 


. ****** 

Do_Inc_Time 
BSF 
BCF 


TMRO  IRS  -  Set  Tiine_Bit  for  background  tatllm 

FLAGS, Time_Bit  ;Tell  background  tasks  of  overflow 
INTCON.RTIF         ;Clear  for  next  overflow 


Ten4)_W 
STATUS,  W 

Temp_Stat 

FSR.W 

Teni)_PSR 

P1R1-,TMR2IP 
DOOState 


itotvA  to  iiSlt  «  -a^iwy  iKPORTAMT  mil 


l<3o  Do  Task  fl  -  all  states 


TJ*,  IStat«l_B  fINTF  will  BStfmm  tf  a^B'  t*  cleared 
II 

INTCON,  INTF 
Do_Il State 


PIRI/TKRIIP 
Do_IlState 

INTCOH.RTIP 
Do_tfiei_¥i]iia 

Tenp_FSR,W 
FSR 


;Go  Do  Task  #2-0  state  only 

■  o.,  3     i'tt^iT    'T7-»  ^~  I-",. 

,-00  Do  Task  #2  -  1-B  states 
.•Oo  Inc  Time_Bit  every  512uS 


TeBi)pJ|# 
I  STiJ*. 


iRabBm  fron  tntaxsnpi 


iift«j(A. 
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PIC16/17  Oscillator  Design  Guide 


Author  Kim  Peck 

Designing  a  clocl<  oscillator  without  some  knowledge  of 
the  fundamental  principals  of  acoustic  resonators  is 
possible  but  fraught  with  the  uncertainty  of  "cut  and  try" 
methods.  While  the  oscillator  may  be  made  to  run  with 
the  chosen  resonator,  it  is  quite  lil<ely  that  the  unit  will  be 
slightly  off  the  intended  frequency,  be  grossly  off  fre- 
quency because  it  is  operating  on  an  unintended  mode, 
or  have  unacceptable  temperature  characteristics  be- 
cause the  wrong  resonator  was  chosen  for  the  applica- 
tion. 

This  application  note  is  primarily  for  informational  pur- 
poses. It  is  intended  to  help  the  designer  of  clock 
oscillators  understand  the  parameters  of  crystal  resona- 
tors and  the  terminotogy  of  the  crystal  resonator  indus- 
try, both  of  which  tend  to  be  somewhat  mysterious  and 
arcane  to  the  uninitiated.  Details  of  crystal  cuts  and 
rotatkins,  for  instance,  are  of  no  use  to  the  oscillator 
designer,  only  the  designer  of  crystals.  The  oscillator 
designer  still  needs  to  understand  and  be  able  to  predict 
the  perfonnance  and  tradeoffs  associated  with  these 
parameters.  This  is  not  an  in-depth  or  rigorous  treat- 
ment of  acoustic  resonators,  but  a  practical  guide,  which 
should  allow  the  designer  to  gain  a  basic  understanding, 
and  to  help  in  choosing  and  specifying  resonators. 

INTRODUCTION 

The  main  puipose  of  the  oscillator  in  the  PIC1 6/1 7  parts, 
or  almost  any  other  microcontroller,  is  to  provide  a 
reliable  clock  for  the  controller  processes.  At  the  most 
basic  level,  the  <s\ock  prevtdes  a  timing  inten/al  to  ac- 
count for  circuit  rise  times  and  to  albw  data  to  stabilize 
before  ttiat  data  is  processed.  This  is  a  "synchronous' 
process.  The  ckx:k  also  provides  an  opportunity  for  the 
programmerto  perform  time  keeping  of  several  types,  in 
the  PIC16/17,  the  ckx:k  also  drives  hardware  dednated 
to  timekeeping.  The  applicatk>ns  may  include  keeping 
'real  time",  or  timing  sensitive  processes  such  as  serial 
data  cpmrnunication.  <The  accuracy  of  these  timing 
applteattons  is  dependent  i^jon  ttie  accursfcy  of  the  ckx^k 
oscillator.  „-i.'  .j;,  p,::.,.  t  -  ■     l  - , 

Design  Challenges 

The  PIC1 6/1 7  controllers  offer  unique  design  challenges 
because  they  are  unk|ueiy  flexible.  Flexibility  usually 
demands  difliaW4MliM«  «n  Hw  part  oi  the  designer, 


but  offers  otherwise  unattainable  performance.  The 
multiple  oscillator  options  and  wide  range  of  operating 
voltages  require  awareness  of  advantages  and  trade- 
offs of  various  configurations.  The  PIC16/17  designer 
must  be  able  to  accurately  predict  stability  performance 
of  various  configuration  and  then  obtain  that  perfor- 
mance from  the  PIC1 6/1 7  ckx;(yiti|)^igsucces^iyi 
implement  these  functions  .  ' ' 

Wide  Voltage  Range 

The  PIC16/1 7  operates  over  such  a  wide  voltage  range 
that  the  oscillator  parameters  may  be  the  limiting  factor 
in  the  operation  of  the  controller.  If  low  power  operation 
at  low  voltages  is  desired,  the  loop  gain  must  be  raised 
in  order  to  insure  reliable  ck>ck  operation.  If  a  nominal 
supply  voltage  is  available,  the  loop  gain  must  be  re- 
duced in  order  to  prevent  excessive  power  dissipation  in 
the  crystal.  If  battery  operation  is  intended,  then  a 
careful  balance  must  be  struck  between  reliable  opera- 
tion at  the  low  voltage,  and  damaging  delicate  resona- 
tors,  or  spu  nous  osciliations  at  the  high  voltage  when  the 
battery  is  fresh. 

Low  Power 

The  outstanding  performance  of  the  Low  Power  option 
places  a  burden  on  the  designer  who  would  take  advan- 
tage of  this  feature.  The  frequency  chosen  must  be  the 
lowest  practical.  Attention  must  be  paid  to  the  reac- 
tances associated  with  the  crystal  so  as  not  to  exces- 
sively load  the  oscillator  output  and  cause  excessive 
power  oonsumption.  - 

Low  Cost  .  c-ii  ,. 

The  low  cost  of  the  PIC16/17  series  presents  a  chal- 
lenge in  finding  commensurately  low-cost  components 
to  complete  the  design.  The  relationship  between  cost 
and  performance  when  various  types  of  resonators  are 
considered,  is  far  form  linear.  The  low  cost  of  the 
PIC1 6/1 7  microcontrollers,  may  remove  it  from  the  posi- 
tion of  being  the  cost  driver  in  some  designs,  challenging 
the  designer  to  aggressively  seek  cost  reductions  in 
components  which  were  prevk>usly  not  considered.  The 
second  challenge  offered  by  such  economical  parts  is 
that  of  new  applk»tkxis  whwh  were  not  consklerad 
pisctical  btSem  the  advent  of  PIC16/17  pracessois. 
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THEORY  OF  OSCILLATORS 


An  oMUIaiDFi»«4i»yj(W  which  operates  in  a  closed  ioop. 
This  condition  can  bo  difficult  to  analyze,  but  the  tech- 
niques for  aialysis  are  as  validMinoKMl^piBd  contiols 
as  ft  istetftnaeJcwIsioQps  m^tiBK0UKmi-^Walsm^- 
are  somewhat  unique  in  that  th«qr  ft*  MMtiot^yiy  un- 
sUd)le,butinaoontrollednKmn«ir.  Hftordartiir^dllMon 
to  occur  in  any  feedbadc  system,  two  primary  require- 
RMMs  must  be  met  The  total  phase  shiftmmtbezato 
or  36Q  degrees  at  thedesired  f  requwwaMMftillMMn 
gain  must  be  unity  or  greater  at  tt)atlra4ii>>'9R'^  '^^' ' 

The  kteal  Oscillator 

The  ideed^  oscillator  is  a  perfectly  flat  temperature  coef- 
ficimt,  is  100%  power  efficient,  has  no  limits  on  operat- 
ing frequency,  has  no  spurious  modes,  has  a  perfect 
output  wave  shape,  and  is  available  in  the  high  degrees 
of  miniaturization  which  exists  in  semiconductors.  This 
eedtlatw  et  course,  does  not  exi^.  The  pHmaiyiiriaitirii 
iacloc  (Dr  imo6t43seilialor  parameters  is  ttte  resoiMMS 
llie  fallowing  is:a  discussion  of  the  trado^,  IWMlM 
advaritag^andpriniatycBaadiwntiiMiiglliliipgniljaitr 
lar  types  of  resonatoi^  and  how  tlwyawiMitfiMlhiii  M 
PIC16/17  oscillator  design.  u3  ;  -<:nv  ylr.  wt 

RESONATOR  BASICS 

There  are  several  types  of  resonators  available  to  the 
designer  of  microprocessor  clocks.  They  all  provide 
trade-offs  between  perfomiance,  size,  frequency  range 
and  cost.  Resonators  for  clock  oscillators  usually  fall 
Into  two  basic  groups.  These  are  quartz  and  ceramic 
resonators.  Historically,  ceran^ic  resonators  came  into 
use  in  oscillators  much  later  than  quartz  crystals  and 
derive  all  of  their  tenninology  and  conventions  from  the 
longer  history  of  quartz  crystals.  A  third  type  of  clock 
oscillator  is  the  RC  (resistor/  capacitor).  This  oscillator 
Is  a  relaxation  type,  and  employs  no  resonator  as  such. 
While  this  type  requires  the  same  basic  conditions  for 
oscillatkin  to  occur  It  is  better  described  using  different 
techniques  and  analogies.  -       .  > 


.Ins 


'  Ofi  «rM  to  1*03  *■?!  y.!^ 

■'T  Kc«c^«(<>«.t'2lqmor  ■ 

ni  tmo  'let  fi  .twiebief  oo 
<olknlrvrww»PnX  rV&rOt'' 
.»i4it>tsoc>  erii  If  -  fid  k>  ri<i,i 


Quartz  Resonators 

Quartz  is  the  crystalline  form  of  silicon  dioxide.  This 
same  material,  in  amorphous  form,  is  commonly  found 
as  beach  sand  and  window  glass.  As  a  crystal,  it  exhibits 
piezoelectric  effects  as  well  as  desirable  mechank:al 
cfiaracteristics.  A  quartz  crystal  resonator  is  an  acous- 
tical device  which  operates  Into  the  hundreds  of  Ml-lz,  Its 
resonance  and  high  Q  are  mechanical  in  nature,  and  its 
piezoelectric  effects  create  an  alternating  electrk^l  po- 
tential which  mirrors  that  of  the  mechanical  vibration. 
Although  It  is  one  of  the  most  common  of  naturally 
occurring  crystals,  natural  quartz  of  sufficient  size  and 
purity  to  be  used  in  the  manufacturing  suitable  resona- 
tors, is  unusual  and  expensive.  Almost  all  modem 
resonators  are  manufactured  using  cultured  quartz,  grown 
in  large  autoclaves  at  high  temperatures  and  pressures. 

Wh^er  naturally  occurring  or  cuHured,  quarts  crystafe 
occur  as  six-sided  prismirMWr'i^fiainkls  iit  each  end. 
"mis  taw  ciystal  Is  tsalUS'^^mttt.  fri  Hn  arblliiny 
coordinate  system  the  Z ,  or  opOCEd  axis,  runs  the  length 
Q{jhe  ciy^aliMirReetlng  tl^  psinis  of  the  pyramids  at 
l^ch  end^  If  one  views  this  hexagonal  bar  on  end,  three 
Igas  may  be  drawn  between  each  of  the  six  opposing 
comers.  These  are  called  X  axes.  Perpendicular  to 
eaph  X  axis  is  a  y  axis,  which  connects  opposite  pairs  of 
f^es.  When  the  txiule  Is  cut  Into  thin  plates  or  bars 
called  blanks,  the  cut  of  the  saw  is  carefully  oriented 
either  ak>ng,  or  rotated  relative  to  one  of  these  axes. 
Orientation  of  the  saw  is  chosen  based  on  the  mode  of 
vibration  for  which  the  plate  is  intended,  and  the  desired 
temperature  profile.  Plates  are  usually  rounded  into 
discs.  Types  of  crystal  cuts  are  named  forthe  axis  which 
the  cutting  angle  is  referenced  when  the  blanks  are  cut 
from  the  boule.  After  being  cut  and  rounded,  the  blanks 
are  lapped  to  frequency  and  any  surface  finishing  or 
polishing  is  done  at  this  time.  Electrodes  are  deposited 
on  the  blanks  by  evaporation  plating,  and  the  blank  is 
mounted  in  the  tower  half  of  the  holder.  It  is  finished  to 
the  final  frequency  by  fine  adjustments  In  the  mass  of  the 
electrode  plating,  eitherby  evaporation  or  electroplating. 
The  top  cover  is  then  hermetically  sealed  by  one  of 
several  methods,  which  include  cold  welding  and  solder 
sealing. 

Most  crystals  made  today  are  A-T  cut,  which  employ  a 
thickness  mode.  This  mode  provides  the  highest  fre- 
quency for  a  given  thickness  of  the  plate,  and  the  best 
possible  frequency  stability  over  most  temperature 
ranges.  Many  other  modes  of  vibration  are  possible. 
Flexure  modes  are  usually  bar  shaped,  and  are  used  for 
k)w  frequency  (near  100  KHz)  resonators.  Tuning  fork 
apMli  am  •  special  case  of  ttiis  type. 


!-.eui 
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Ceramic  Resonators 

Unlike  quartz  lesoiMdprs,  which  are  cut  from  a  sii^j^ 
crystal,  ,  a  ceramic  resonator  is  molded  to  a  desir^; 
$|am|^ead  of  grown.  Tbe  material  is  polycrystalline 
f^l^Hiy^ium  titanate,  lor  some  similar  material.  The 
eloctiipal  model  is  ainrast  identical,  with  the  addition  of 
one  resistor,  as  the  meiterial  is  intrinsically  conductive. 
The  material  is  artificially  made  to  exhibit  piezoelectri- 
cal^  active  by  allowing  it  to  cool  very  slowly,  as  In 
fpwing  a  quartz  crystal  (not  nearly  as  long  a  time),  but 
toihe  presence  of  a  strong  electric  field.  The  molecular 
electric  dipoles  align  themselves  with  the  applied  elec- 
tric field.  When  the  material  has  cooled,  the  alignment  of 
the  electric  d^tpl^  is  retair»Kl,  v^jch^fg^MiglpI^ 
piaZQel«^(i^.  ■  •  .je>inenoTT  fcr.oKom 

Thes#Mterials  have  elastic  properties  that  ar^  not  a^ 
desinaHle  as  quartz,  and  so  their  peifoimance  is'  riot 
equal  to  that  of  quartz  resonators.  Specif  ically.'ceralMis 
resonators  have  fer  lower  Qs  and  frequency  deviatioriS 
due  to  tempeialiJFe'on  the  order  of  1 000  to  1 0000  times 
greeiter  than  Oiat  of  an  A-T  cut  quartz  crystal.  The  cost 
of  ceramic  retonatdrs  is  much  lower  however,  because 
the  rMterfal  is  not  grown  under  the  extreme  arxi  expen- 
sive conditions  that  arefiecsKary  forqiiiNb:-' 
also  much  sniaMet'  ten  A-T  (iut  qtiirt^^ 
particularly  at  frequencies  under  2  MHz. 

FIGURE  1:   RESONATOR  EQUIVALENT 
ELECTRICAL  CICUIT 
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Since  the  "Q"  of  cwamle  resMidNslc^Miendiy  lower 
than  quartz,  they  will  be  morB«asiVl>ull«tfsf(trai)uency 
by  variations  in  circuit  or  paras^  niaGlances.  This  is 
desinablaitacirtuitisdstigRadwithavariableeleinent, 
a^g0m»  tMm^taif^mm0tMi!  It  is  not  dasirWittif 
«wN|ihMp@a^bl»s^ilaM|rM^^  bscaoefi 
tRfr«0S«wdor  wHI  tfe  Ribre  susoeplible  to  vaiioSen  in 
pHmmBe  reaobneas,  such  as  capaieitois  fomwd  by 
circoit  board  etch,  and  temperature  wariMons  of  in- 
tMKtad  dtcuitreaclanenB;  Tlisse  vaitanoss.wlll  addto 
ilMaliiaaclysub^afttiatiMattotiovertan^ertiitureolthB 
rssdnator  itsett.  If  your  ^teMy  masds  ans  modest 
howwwr,  cetanfeiu  jU*<Miii4ei<»Wi*i  wfleod  coat  / 
peifom«neetrHtoidWi(ViO  i  - 

Equiwiteot  ele^llSS^^SIi^t 

The  circuit  shown  in  Figure  1  is  a  close  approximation  of 
a  quartz  or  ceramic  resonator  It  is  valid  forfrequencies 
of  interest  to  the  PIC16/17  designer.  Not  all  of  th^ 
parasitic  element  are  shown  as  they  are  not  important  ttt 
this  discussion.  In  this  circuit,  L,  and  C,  are  the  reac- 
tances which  primarily  detemriine  the  resonator  fre- 
quency, while  aseries  resistor  repra^lilts  circuit  k^iM^ 
A  shunt  capacitor,  represents  the'^olderaf^d  elw^ 
trode  capacitance. 

Because  L,  and  C,  are  associated  with  the  mechanical 
vibration  of  the  crystal,  these  are  commonly  referred  to 
as  the  motional  parameters,  while  C,  Is  called  the  static 
capacitance.  The  reactance  ot  L,  and  C,  are  equal  and 
opposite  at  the  series  resonant  frequency,  and  their 
magnitude  is  very  large  as  compared  to  R, .  The  phase 
shift  at  the  series  resonant  frequency  is  zero,  because 
the  reactances  cancel.  The  series  resonf|g||j||{{|(§)^ 
is  calculatedas  showm  in  equation  1. 


F  = 


1 


(1) 


FIGURE  2:  REACTANCE  VS.  FREQUENCY  PLOT 
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Ihe  actual  series  resonant  frequency  as  determined  bgt 
the  zero  phase  point  is  slightly  lower  than  this  calcufeiif 
fen  because  of  Dm  eOects  of  C,,  and  ior  iptastic^ 
pmpostecan  be  oonsWerad^jdanticsl..  Thisfact  may  b* 
Ua^' to  those  designing  tunable  crystal  oscillators. 
These  wsonatorpataineteisi  ace 'geneialiy  considered 
to  be  isnstantin  the  region  of  tto  main  iesonanee,  with 
the  excepUonioti^;;  A>plet  of  raectwee^Meffraquecu^ 
is  shown  in  Figure  a  Tlhe  point  labeled  Fg  is  the  series 
freqwncy,  while  F^ ,  isttttfrequency-Mhere  the  Civ^M 
israeonantwithaneKteiRailewlc 
tbisupoinlfe  sonMUmeB^iatledpaiallSl  I 
theifrequepey  where  ttie  ciysteiis  < 
own  electrode  capacitance.  Onl) 
useful  as  an  oscillator.  Notice  ttwt  ttwj 
nent  begins  to  rise,  before  f^'aw4 
above  F,.  This  mal<es  operation  with  small  load  capacir 
tors  (large  reactances )  difficult.  One  must  be  sure 
if  the  resonator  is  specified  to  operate  at  a  load  capacity 
that  the  maximum  value  of  R,  is  specified  at  that  opersd- 
ing  point.  The  zero  phase  shift  point  Isthe  nwstcornnxxi 
method  of  identifying  the  exact  series  resonant  frO'; 
^ueijif^,  vyheQt!^es<^tiesfrequencyisi<nown.op^^& 
alt  a  loaa  iiaaebince^  aa^  ctOcutated  as  tolkM^ZL 


(2) 


AF 


2(C„+C,) 


where  AF  is  the  deviation  from  F^to  F,^,  F^^  isthe  operating 
frequency  when  in  series  with  a  load  capacitor,  F,  is  the 
series  resonant  frequency  (without  any  load  capacitor)) 
and     is  the  load  capacitor. 

ttie'<ttiaii<#^'iitttie  frequency  F^can  be  approximated 
by: 


(3) 


The  reactance  slope  In  the  region  of  the  series  reso- 
nance can  t>e  approximated  by: 

AX  10^ 


m 


kFC, 


(4) 


where  AX  is  the  reactance  difference,  in  ohms,  Inm 
'  series,  at  which  of  course  the  reactance  is  zero.  Is 
the  fractional  frequency  deviation  from  series  reso- 
ntmce.  F  is  ttie  frequency  of  interest  in  MHz,  and  C,  is 
the  crystal  static  capacitance  of  Figure  1 .  Tms%si#,^ 
accurate  in  the  region  of  series  resonance  and  the  / 
accuracy  declines  as  frequencies  further  away  fioin''^ 
series  are  considered.  This  parameter  is  useful  in 
determming^  Ofitthum  C,,  which  the  designer  might 
specify  in  order  to  have  the  correct  tuning  sensitivity  for 
any  frequency  adju8tm«its,  or g«ma  what 
tuning  sensitivity  will  resultfrom««MiK»i«H^^ 
'nents. 


The  ratio  of  the  reactance  of  or  C^lo  is  arbitrarily 
designated  as  Q.  This  is  also  l<nown  as  the  quality  factor, 
end  applies  to  any  reactive  corfiponent.  The  series 
t^oriant  frequency  of  the  crystal  is  the  sum  of  the  total 
series  reactances.  Quartz  A-T  cut  crystals  exhibit  spilr- 
itous  modes  which  are  always  found  at  f  requerwies  just 
abov^  the' main  ri^ponsa.  These  are  always  present 
aMl  arii'notassociatecl>wllh  activity  dips.  There  are  also 
odd  ordered  mcichaniKbd  overtone  modes.  Any  of  thesA 
Aiodes  {spurious  or  overtone)  cah  be  modeled  £^  dtipK' 
cafes  of  the  primary  RLC  electrical  model,  and  placedM 
parallel  with  it  (see  Figure  3).  Notice  however,  that  there 
is  only  oneCg.  Nearthe  resonance  of  each  series  circuit; 
the  effects  of  the  other  resonances  may  be  considered 
nivgnglbte.  'SUd^t^Hmatit^  «tf  edursCK  has  its  own 
motional  propeite,  4w  one  e(  primary  iri(#a^  her#  is 
itte  R,  of  each  rasonance,  i;he  Fi,  usuqlbf  inoinses  wit|) 
|i^easingfivwtones„mfll(ingthe  higheroveitapasmore 
iQsey,  ThePiC1S/17  designer  must  taite  care  to  specify 
^lystal  spurious  to  always  be  of  higher  resistance  than 
the  desired  response.  This  can  >t>e  aptueved  in  a  well 
designed  resonator.  A  heavy  metal  eu^  as  gold,  as  an 
electrode,  will  discourage  higher  overtones,  by  virtue  of 
its  higher  mass.  Crystals  designed  for  high  frequencies, 


FIGURES:   EQUIVALENT  CIRCUIT  FOR 
I  SPURIOUS  AND  OVEiflWIi  I 

MODES 
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PIC16/17  Oscitlator  Design  Guide 


•|-M'    ■,'  i,  i. 

nui«e  and  iMh 


.  ntloikj  Ik  n.  '/KainitRax. 

1  «fT  .t«li.w4ou  si  6ku  «v# 

As8talad»erliar,1vwix9nditic)miMiatbems^^ 
tibA  to  (xScyr.  The  phaM  tshift  must  ba.  zsio  ocOett 
degrees  at  ttw  dasiisd  frequency,  and  ilie  total  sysfiwn 
gain  must  lie  one  gtaater  or  at  thsA  trequ Ateyi  Logie 
galas  or  hweMaisare  conveMent-tortMspurpose.  They 
have  laigeamountsot  gain,  theyHmitdean^vprodueing 
square  waves,  andlheiroUtputisappropriatBfordifeot^ 
driving  their  respective  logic  (amliee.  Mest  oecillalorBin 
ttw^liuilily  usetan'lnveiting  amplifier,  as  shown  in  Figuisa 

4.  Thephaseshntis180degFeesthroughthegate,an4 
the  two  reactances  at  either  end  of  the  crystal  are 
chosen  to  provide  an  additional  90  degrees  each,  bring- 
ing the  total  to  the  required  360  degrees.  The  primary 
effect  of  changes  in  phase  is  to  shift  the  operating 
frequency  (to  tune  the  crystaQ.  The  primary  effect  of 
changes  in  gain  is  to  cause  the  oscillator  to  cease 
functioning  when  reduced,  pc^umflmldws  ppdes 
and  excess  power  to  be  dfi^^MB^^^^^iiN'j^ff 
increased. 

Qscmatioa  win  0001?  at  the  frequency  for  which  IttetoM 
phase  aMR  is 360 degrees.  This  is  true  foranyfrequency 
(orrasooalorresponse)forwhiChthegainisgrealerVian 
Mfly  CMiding  unwantedirespeiise^  The  series  resis* 
teiK(^  |»tised  to  a#tstilh6  toop  gain,  and  to. provide 
some  isatertlonfromieactjve  loads  for  theamplifier.  The 
lower  limit  of  loop  gasi  is  determined  primarily  by  the 
need  for  sufficient  excess  gain  to  account  for  all  varia- 
tions, such  as  those  caused  by  temperature  and  voltage 
(not  just  in  the  amplifier,  the  ci^tal  resistance  may 
change  as  a  function  of  temperature).  The  upper  limit  of 
loop  gain  should  be  that  where  it  becomes  possible  (or 
at  least  likely )  for  the  oscillator  to  operate  on  a  spurious 
mode.  In  some  resonators  damage  to  the  resonator  is 
the  overriding  concern  regarding  drive  level.  If  the 
stability  requirement  is  rather  "loose"  the  stability  prob- 
lems may  not  be  the  first  indications  of  trouble.  Exces- 
sive drive  levels  in  tuning  fork  types  for  instance,  may 
cause  damage  to  the  point  that  the  crystal  unit  fails.  It  is 
important  to  estimate  drive  levels  before  operation  be- 
gins, include  and  adjust  a  series  resistance  approprij 
ateiy,  and  by  meaisurement,  verify  the  results. 

Estimating  Drive  levels  ^-—^ 

The  drive  levels  may  be  estimated  with  the  following 
steps.  First  find  the  load  impedance  presented  by  the 
crystal  networi<,  including  the  phase  shift  capacitors  and 
the  amplifier  input  impedance.  This  is  found  by  the 
following: 

R  =   ^  

R  A.  R 

^  '^OSC1 


The  cun'ent  delivered  into  this  impedance  is  found  by: 


(5) 


where  l\  is  the  netwoi1<  impedance.  is  the  reactance 
of  one  phase  shift  cs^iacitor  (assuming  they  are  the 
same).  is  the  input  impedance  of  the  0SC1  plh 
(should  include  reactance).      is  the  reactance  +  the 

resistance  al  the  operating  frequency  (      <-  jXg). 


V, 


OUT 


(6) 


where  i„  isttie  RMS  current  drawn  by  the  networtc. 
is  the  OSC2  output  RMS  voltage.  R,^  is  calculated 
above.  R3  is  described  above.  The  current  which 
passes  through  the  crystal  then  is  found  by: 


(7) 


'S  ■   '  'OSCI 
The  power  dissipated  by  the  ciystal  is  then  found  by  I, 
squared  times  the  crystal  R,. 

Controlling  Drive  Levels 

When  designing  any  oscillator,  one  should  take  care  not 
to  lower  the  loaded  Q  of  the  resonator  by  inserting  any 
resistive  components  between  the  phase  shift  capaci- 
tors (or  any  other  reactive  components)  and  the  crystal. 
It  It  is  necessary  to  reduce  the  drive  level  to  the  crystal, 
or  lower  the  overall  loop  gain,  resistance  should  be 
inserted  between  the  amplifier  output,  and  the  crystal 
(see  Figure  4).  This  method  is  much  better  than 
changing  load  reactances,  which  will  have  no  significant 
effect  on  gain  until  the  frequency  has  been  pulled  well 
away  from  the  design  center.  This  will  also  have  the 
more  significant  effect  of  raising  the  operating  current, 
because  if  no  series  resistor  is  present,  ttie  larger 
reactance  of  the  phase  shift  capacitor  will  load  the  OSC2 
output  directly.  If  a  very  low  drive  level  is  required,  such 
as  with  tuning  fort<  type  crystals,  the  series  resistor  is  the 
best  method.  The  resistor  should  be  adjusted  until  the 
unit  just  runs  with  a  typical  crystal  at  the  lowest  operating 
voltage,  and  the  resulting  drive  measured  at  the  highest 
operating  voltage.  The  actual  re^or  value  is  best 
determined  experim^tally  with  a  representative  sample 
of  crystals,  and  a  broad  range  of  values  should  be 
satisfaetofy.  hgeneral,tt)epiointwhereosclllartionsfeip8 
for  any  crystal  unit  (which  Is  Within' speoVied  paranr- 
Meri^,  Is  ttte  reslstorsiipper  nmn.  The  (MM  IMmayhe 
^  qhi^s,  for  a  tessfragH&er^^^i$<,'lii^fcM^ 
8^0  opetating  frequency.  If  no  spwibUs  or  ov*ertone 
modas  are  encountered,  it  Is  likely  that  the  osdllatiM' 
may  have  relatively  ntHef  excess  §aln  at  flwA  operating 
frequency.  If  the  resulting  drive  level  at  the  higiier 
voltage  Is  still  unacceptable,  then  the  supply  voltage 
variations  riiust  be  reduced. 

FIGURE  4:  PIC1 6/1 7  OSCILLATOR  CIRCUIT 
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Measuring  Drivactewete  .  m  oentvaab  tr»^u  sfH 

Drive  lewBis  cannot  be  easily  measuned  with  any  cer- 
taintybyreadlngvoltagesateadiendoftiiecrystal.  This 
is  because  of  the  phase  shift  which  is  present  in  varying 
degrees,  depending  on  how  close  toseries  resonancec^ 
the  ciystal,  the  oscillator  is  operating.  It  is  much  monn 
reliable  and  accurate  to  measure  Una  ciystal  cu  rrent  wi^ 
a  clip-on  type  oscilloscope  cun'ent  probe.  This  probe 
may  require  an  outboard  amplifier  in  order  to  measure 
very  low  drive  levels.  It  is  also  important  to  accurately 
loiowthe  series  resistance  of  the  crystal  under  the  same 
operating  conditions  of  frequency  and  drive  level.  This 
Information  is  easily  obtained  witii  network  analyzer  or  a 
modem  crystal  impedance  meter.  While  the  oscillator 
designer  may  not  be  equipped  with  such  a  meter,  the 
manufacturer  of  the  crystal  most  certainly  should  be, 
and  the  resistance  data  should  be  provided  for  at  least 
one,  and  perhaps  sev^,pQ8s|el«:ict^  Je^v9^,,|^|{|u;^ 
tions  in  drive  ar?  «(peclaet  . ,.•<«(  <jr»fK«crw>  nvtaitm 
i' '  Tt!'..  vnaie)  Biol 
UNDESIRED  MODES  '  ^    ■  <  .  ,! 

Mechanical  resonators  are  not  perfect  devices.  They 
exhibit  many  spurious  responses,  either  continuously  or 
over  narrow  temperature  ranges.  If  a  quartz  resonator 
is  swept  with  a  R.F.  network  analyzer,  several  smaller 
responses  will  be  seen  just  above  the  main  response. 
These  are  always  present  in  mechanical  plate  resona- 
tors. For  oscillator  applications,  they  must  be  specified 
to  have  a  lower  response  than  the  desired  mode.  The 
crystal  designer  can  control  these  to  some  extent  by 
varying  the  plate  geometry  and  the  electrode  size. 
These  spurious  modes  are  usually  similar  in  nature  to 
the  main  response,  and  do  not  vary  in  relatk>n  to  it  to  any 
important  degree.  Other  spurious  are  caused  by  com- 
pletely different  modes  of  vibration,  and  have  radically 
different  tempeiature  cunres.  These  may  lay  unnoticed 
until  a  temperature  is  reenhed  where  the  two  tempera- 
tnf»  curv^  intersect.  At  this  one  temperature,  tti(S 
spurious  mode  traps  some  of  the  mechanical  energy 
created  by  the  main  mode.  This  causes  a  rise  In  the 
series  resistance,  usually  accompanied  by  an  unaccept- 
at>le  change  in  frequency.  Witt)  a  very  small  change  i^ 
temperature,  the  effect  wiM  disappear.  This  is  know  as 
an  *eK;tivity  dip",  activity  bmng  a(dinensk>nless  mechani- 
cal property  which  is  inversely  proporttonal  to  resis- 
tance. Thesecanalsobesuccessfullyspeeifiedawayip 
most  resonators.  Any  response  of  the  rraonalor,  be  | 
spurious,  or  mechanical  overtones,  may  control  the 
oa^Hator output  frequency  if  phase  and  gain  criteria  are 
met.  In  some  unusual  circumstances,  the  oscillator  may 
run  simultaneously  on  two  or  more  modes.  In  generalj 
the  fundamental  response  of  any  mechanical  resonator, 
is  usually  the  largest  (lowest  loss),  and  the  oscillator  will 
run  on  this  response  if  no  other  circuit  elements  are 
Introduced  which  favor  higher  frequencies.  If  the  de- 
sired frequency  is  such  that  the  third  overtone,  begin  the 
first  available  (mechanical  overtones  are  always  odd 
lOrdered),  is  below  15  or  20  Ml-lz,  the  oscillator  may 

a^sBBanvTf ■rvrfT-i- -  \u   i.  ii,  i  iiaBaag 


occasionally  mn  at  around  three  times  the  desired 
frequency.  This  may  only  happen  every  third  orf  ifth  time 
the  unit  is  activated.  The  unit  meiy  start  correctly.  iHit 
jump  to  the  higher  overtone  when  the  unit  is  exposed  to 
aivery  narrow  temperature  range,  but  remain  thereafter 
IM  temperature  has  changed.  Tlie  best  fix  for  this 
problem  is  usually  a  reductton  in  overall^  loop  gairr. 
Occasionally  a  crystal  may  have  a  very  tow  resistanceat 
overtone  modesas  well  as  the  fundamental,  inttiisvase 
it  may  be  useful  to  specify  overtone  modes,  as  spurfcHiS 
and  guarantee  ^  least  a -3db  difference  between  ttie 
overtone '  and  the  famfemental  responses.  This  condi- 
tion wll  already  exist  for  99K.of  the  nmmB»o^iMgm 
kid  is  not  usually  specified. 

It  is  also  best  not  to  Insert  any  large  reactances  which 
would  compete  with  the  Q  of  the  crystal  for  control  of  the 
oscillator  output  frequency.  If  this  is  done  (say,  for  the 
purpose  of  adjusting  the  frequency  of  the  oscillator),  the 
tuning  reactance,  (usually  a  variable  capacitor),  must  be 
accompanied  by  an  equal  reactance  of  the  opposite  sign 
in  order  to  bring  the  total  loop  reactance  back  to  zero 
(unless  the  crystal  is  designed  to  operate  with  that  large 
series  reactance,  which  could  cause  otherproblems).  If 
the  oscillator  is  pulled  far  enough  from  the  series  fre- 
quency, the  rising  crystal  resistance  will  lowerthe  loaded 
Q  of  the  crystal  until  the  reactance  slope  of  these 
components  will  compete  with  ttvat  of  the  crystal.  This 
will  cause  the  oscillator  to  "run '  on  these  components 
instead  of  the  crystal,  the  loop  l>eing  completed  by  ttie 
Cg  of  the  crystal.  The  component  wilh  the  steepest 
reaetanee  slope  wHI  control  tha#BqiMm#of  the  0SGill» 
tsr.  fhebiniigsen^tMtyOfthe8weemp6(mntsiiiiilals6 
be  directly  piopoManal  to  the  magnitude^  their  reae> 
teneea.  Any  uiMranted  wriaHohoi  these  eomportento 
will  have  increasedeOnsafMtnta^forthe  stad>ility  ofM 
oscillator.  Another  souteiiiai'itpuilous  Is  a  neilaxation 
mode  which  Is  caused  by  the  amplifier  bias  circuits  and 
the  phaseshlftcapadtors.  The  kx>p  isoomptetedthrougit 
the  crystal  C,.  Again,  a  series  resistor  will  usually  solve 
this  problem,  although  in  some  cases  the  amplifier  bias 
values  may  need  to  be  cfianged. 

Load  Capacitors 

In  gate  or  logk:  type  of  oscillator,  the  crystal  is  usually 
manufactured  to  be  slightly  inductive  at  the  desired 
frequency,  and  this  inductance  is  canceled  by  the  twQ 
phase  shift  capacitors.  The  primary  purpose  of  these 
iMpaclton  is  to  provide  the  phase  shift  iMoaeMtf§r 
torthe>oeeillatoriorun.  Thelraelual  vatueterislativsAy 
imlinporteint  except,  a&aktadl^the  crys&il,aiKlasti«^ 
MMilwiaBtHit'WihM  nnimwitw  twiflior  Is  used.  These 
i«ao&nees  ara  the  sum  WHS  of  sdected  fixed  eapaet- 
tors,  any  trimmer  capacitors  which  may  be  desired,  and 
circuit  strays.  If  a  loop  is  considered  from  one  crystal 
terminal  through  one  phase  shift  capacitorth rough  grourxl 
and  the  second  phase  shift  capacitor,  to  the  second 
crystal  terminal,  all  the  reactances  including  the  crystal 
motional  parameters  must  add  up  to  zero,  at  tfie  desired 

operating  frequency. 

I" 


As  a  crystal  load  ,  all  circuit  reactartces  external  to  the 
crystal  should  be  thought  of  as  a  series  equivalent.  In 
order  to  know  the  total  load  reactance  seen  by  the 
crystal,  the  total  shunt  fsactarwes  on  either  terminal  are 
summed,  and  the  series  equivalent  is  calculated.  This 
should  jnohJde  the  0SC1  and  OSC2  terminal  reac- 
tancss,  but  these  are  negligible  if  they  are  suffidenHy 
snaUwhencomparedtothephaseshiftcapadtors.  The 
walua  of  these  capacitors ,  is  then  chosen  to  t>e  twice 
speoHiad;  load  capacity  of  the  crystal.  It  some  adjust 
mmt  ;o(  the  taeqiiency  is  necessary,  one  of  the  phain; 
shift  ieapacllocs  isan  be  eiiosefi  fSt  a  smaller  value,  an^ 
Am  tHfNHWiieaL  mad»  up:  by  a  variable  capacitor  plasfd 
aenoss  R.  An  aUarativamethod  is  to  place  a  larger  valuv 
oftrlinmeecapacil9riR!saiiss wHhthecrystal.  Thevalun 
of  thatttimmeFicaiMicitormust  be  chosen  along  with  itaR 
piaase  shM  capa^orsiiaU  in  series,  ta#re  the  oo^dbqI 
lDttd~capacity.  Fraquertcy  should  not  be 'adjustadUy 
sbiintingthecrystalwSha;eapacilDr.  If  itlsdesiredtouse 
a.  oystal  which  is  finished  at  series  resonance,  an 
inductorof  equii«lent«ac|aneetofeafteiil»ipl!pi»w!^ 
eapactteist  must  b»  placed  lni$mirawMii«i^|liiii«:r 
•■?:ns*       fiHrllSw  .•.•ii;'--'  '-'"'-' 

STABILITY 

-     •  ■■  .01  MHS 

@emral' 

Frequency  stability  is  the  tendency  of  the  oscillator  to 
remain  at  the  desired  operating  frequency.  Its  deviation 
from  that  frequency  is  most  conveni9ntly  expressed  as 
a  dimensionless  fraction,  either  In  parts  per  million 
(PPM)  or  a  percentage.  Absolute  deviations  in  Hz,  must 
always  be  referenced  to  the  operating  frequency,  which 
Is  less  convenient  and  not  universal.  In  the  following 
discussion  of  temperature  characteristics,  one  can  see 
that  the  fractional  deviations  are  universal  without  any 
directeffectofoperatingfrequency.  In orderto calculate 
a  total  frequency  stability,  various  sep^uate  eljernents- 
must  be  identified  and  quahtifiMJ.  fstot  all  parameters  of 
frequency  stability  are  important  to  eaeii  d^p.  the  ~ 
various  items  which  effect  the  frequency  of  an  esdhKar 
are:  the  temperature  profile  of  the  resonator,  1t» — 1 
resonator's  roomtemperature  frequency  tolerance  (also  '  ' 
known  as  "make  tolerance") ,  its  long  tenti  frequency  drift 
which  is  nonnally  know  as  ageing,  and  its  sensitivity  to 
other  circuit  reactances.  Is  it  possible  to  adjust  it  to  the 
exact  desired  frequency?  If  not,  how  big  is  the  enor  due 
to  other  component  tolerances.  Due  to  the  complexity 
of  th  Is  combination ,  most  crystal  manufacturers  will  off  er 
a  standard  crystal  which  is  guaranteed  to  be  + 1 00  P  PM 
over  -ZO^C  to  +  70°  C,  or  ±  30  PPM  over  -0°C  to  +  60°C. 
Note  that  the  temperature  coefficients  of  some  of  the 
curves  in  Figure  2  are  much  smaller  than  this  over  the 
same  temperature  range,   large  portions  of  th^  | 
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tolerances  are  devoted  to  make  tolerances  and  drcutt 
component  tolerances.  The  room  temperature  items 
can  be  relatively  simple  to  specify  In  the  resonator 
design,  careful  attention  is  paid  to  specifying  the 
crystal,  or  designirfg  the  oscillator  to  aecommodate  a 
standard  crystal,  more  of  the  total  stability  reqCilrement' 
can  be  devoted  to  ttte<tenipeiaturefiif@fHe,  or  the  overaB 
stability  requirement  can  be  reduced.  The  temperature 
profile,  however,  is  subject  to  other  circuit  influences 
external  to  the  resonator.  These  may  be  somewhat 
more  difficult  to  perceive  and  control.  If,  for  example,  the 
chosen  resonator  is  an  A-T  cut  or  tuning  fork  type, 
possessed  of  a  nominal  temperature  profile  of  less  than 
50  PPM  over  the  desired  temperature  range,  external 
influences,  such  as  capacitor  temperature  coeff Kients, 
may  play  an  important  part  in  the  overall  stability  of  the 
oscillator.  If  however,  a  ceramic  resonator  is  chosen,  it's 
temperature  profile  of  40  to  80  PPM/C,  will  dominate  the 
oscillator  stability,  and  5  or  10  PPM  shift  from  changes 
in  arqplif  ier  hnpedance  or  capacitor  temperature  coeff  i- 
qjfM^wlH.  iM|ia  important.  The  designer  may  chose 
SiCi^tal  even  when  the  overall  stability  specification  (of 
the  oscillator)  does  not  require  it,  giving  lairge  design 
margins.  If  any  amount  of  testing  or  adjustment  of  the 
oscillator  frequency  is  needed  with  the  kjwer  cost  reso- 
nator, the  crystal  may  t>e  more  cost  effective.  When 
designing  any  resonator  as  part  of  a  simple  tegic  type 
oscillator  circuit  (Figure  4),  some  attentnn  should  be 
given  to  swapping  the  amplifier  reactances  (that  is  to 
make  them  a  very  small  part  of  the  sum  total  circuit 
reactance)  with  the  phase  shift  capacitors,  and  any  other 
circuit  reactances.  This  is  at  least,  a  good  design 
practice.  The  largest  reactance  has  the  most  effect  on 
the  operating  frequency.  It  follows  then  that  the  motional 
parameters,  which  have  very  large  reactances,  domi- 
nate the  equation  for  the  total  reactance,  and  so  the 
operating  frequency  of  the  oscillator.  Another  good 
design  practice,  is  to  specify  only  as  much  pullablllty  as 
is  required  to  accommodate  the  make  tolerance  and 
ageing  of  the  resonator,  and  tolerance  of  other  circuit 
elements.  Pullability  is  a  function  of  the  ratio  of  C,  to  C„. 
"  As  the  reactance  of  the  crystal  C,  Increases  it  becomes 
more  stable  in  relation  to  QUtskle  reactive  Influences.  It 
also  becomes  more  diffKult  to  intentionally  adjust  its 
operating  frequency.  If  too  high  a  is  specified,  the 
resonatorwillt>e  sensitive  to  external  influences,  andtlia 
effect  of  these  influences  may  be  as  large  or  larger  tfian* 
the  temperature  profile.  If  the  C,  is  to  small,  it  may  not 
be  possible  to  adjust  the  unit  exactly  to  the  desired 
operating  frequency.  The  small  electrode  size  needed 
to  realize  a  low  C,  may  also  concentrate  the  mechanical 
energy  in  a  very  small  percentage  of  the  blank,  causing 
unpredKtable  behavior.  In  orderto  quantify  pullability  in 
temrs  of  C,  to  ratio  and  k>ad  capacitance  (referto  the 
Equivalent  Electrical  Circuit  sectnn). 
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A-T  Cuts 

TTie  A-T  cut  crystal  and  its  variations,  is  by  far  the  most 
popu  lar  resonator  in  the  world  today.  A-T  cut  crystals  are 
popular  because  the  "S"  shaped  temperature  curve  is 
centered  very  near  room  temperature,  typically  around 
27  C.  This  temperature  profile  is  compact,  symmetrical, 
and  most  manufacturers  are  able  to  provide  good  con- 
trol of  the  cut  angle. 

Because  most  of  the  crystals  manufactured  in  the  last  40 
years  have  been  A  -T  cuts,  they  are  very  well  understood 
and  documented.  Tbis  is  important  because  while 
temperature  coefficients  can  be  calculated  from  the 
mechanical  properties,  such  as  elastic  constants,  they 
can  (and  have  been)  measured  with  much  more  accu- 
racy. When  the  temperature  coefficients  are  accurately 
known,  the  temperature  profile  can  be  calculated  for  an 
individual  set  of  conditions.  Figure  5  is  a  family  of 
temperature  curves  of  A-T  cut  crystals  used  for  this 
purpose.  Each  curve  represents  a  possible  crystal  at 
incrennental changes  in  the  cut  angle.  The  practical  limit 
for  accuracy  of  the  cut  is  about  + 1  minute  of  angle,  and 
in  any  lot  of  crystals  there  will  be  variations  of  about  ±  1 
minute.  The  designer  will  create  a  box  around  these 
curves  using  the  desired  temperature  limits  as  ttw 
vefticial  sides,  and  the  desired  frequency  tolerance  for 
the  horizorttal  lines,  as  shown  in  Rgura  5.  If  the  curvos 
are  spaced  at  intervals  of  one  minute  of  angle,  then  the 
specification  is  a  practical  one  if  three  of  these  cun^es 
(±  1  minute)  fit  within  the  outlvied  area.  It  is  possible  to 
purchase  crystals  with  a  closer  tolerance,  but  this  is 
mostly  a  matter  of  yields,  rather  tfian  a  better  process. 
The  steeply  increashg  cost  wHt  reflect  the  higher  reject 
rate. 


When  purchasing  a  crystal,  do  not  attempt  to  specify  a 
specific  angle,  rather  specify  a  frequency  deviation 
between  turning  points,  with  tolerances.  The  mathemat- 
ics of  these  curves,  is  represented  by  a  linear  term 
between  two  turnover  points,  whose  inflection  point  is  at 
or  near  27°  C.  The  temperature  above  the  high  turnover 
and  below  the  lower  tumover,  are  characterized  by 
cubed  terms  (very  steep).  This  was  described  by 
Bechman  in  the  late  1950s  as  a  third  order  polynomial. 
This  can  be  seen  in  Appendix  A.  Notice  that  as  the  linear 
portion  of  the  curves  between  the  tumover  points  ap- 
proaches zero  slope,  the  tumover  points  move  closer 
together.  This  tends  to  limit  the  temperature  range  over 
which  very  small  stabilities  can  be  realized.  If  the 
required  operating  temperature  range  is  inside  of  the 
range  of  the  tumover  points,  a  low  angle  is  desirable.  If 
so  specified,  most  manufacturers  will  provide  a  crystal 
with  temperature  profiles  on  the  order  of  ±5  to  +10  PPM 
overmodest  temperature  ranges  for  a  reasonable  cost. 
If  the  desired  operating  temperature  range  is  outside  tit 
the  range  of  the  tumover  points,  a  higher  angle  is 
desiii^e  in  order  to  keep  the  frequency  at  the  extreme 
temperatures  within  the  same  leafcn  as  the  deviatkxi 
between  the  tumover  poinls.  This  nray  approach  ±  60 
PPM  tor  large  tentipeRtaie  HV^oSi  M  b  still  far  less 
than  the  smallest  devteSiOns  achievsbte  wtth  otier  reso^ 
nators  over  the  same  temperature  range 

What  is  not  immediately  obvious,  is  that  if  a  linear 
frequency  shift  with  temperature  is  applied  to  a  fre- 
quency curve,  the  result  is  a  rotation  of  the  curve  which 
will  eventually  match  another  member  of  the  curve 
family.  There  is  no  other  distortion  of  the  temperature 
curve  if  the  frequency  shift  is  linear,  such  as  from  a 


HGURE  5:  FREQUENCY  VS.  TEMPERATUREPURVE  FOR  A-T  CUT  CRYSTAL 
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temperature  compensating  capacitor.  TTiis  fact  also 
gives  a  convenient  graphical  technique  to  estimate  the 
effect  of  temperature  coefficients  of  other  components. 
There  exist  several  flaws  in  this  picture  of  the  A-T  cut 
temperature  profile,  which  may  prevent  the  PIC16/17 
designer  from  completely  realizing  the  Stability  sug» 
gested  by  the  curves  in  Figure  5. 

Hie  first  problem  which  may  arise  when  choosing  a 
crystal  angle  based  upon  these  curves,  is  that  there  may 
occur  some  rotation  of  the  crystal  angle  due  to  external 
circuit  influences.  The  most  common  influences  are  that 
of  reacttvecomponents  (inductors andcapacitors).  Most 
inductors  have  a  slight  positive  temperature  coefficient^ 
while  capacitors  are  available  in  both  positive  and  nepir 
five  temperture  corripensating  types.  Non-compensat- 
ing type  capacitors  vary  greatly  depending  on  the  dielec- 
tric from  which  they  are  manufactured.  The  best  capaci- 
tors for  frequency  determining  elements,  are  ceramic 
types  with  NPO  (flat)  temperature  coefficients.  Avoid  at 
all  cost,  capacitors:  made  from  Z5U  material.  The^, 
have  a  large  temperature  coefficient  and  are  unsuitable 
even  for  supply  line  decoupling  or  D.C.  blocking  capaci- 
tors. This  is  because  a  slight  change  in  the  R.F. 
impedance  which  shunts  the  Vcc  and  Vdd  pins,  will  have 
an  effect  on  the  output  impedance  of  the  amplifier,  and 
so  an  effect  on  frequency.  The  effect  will  be  on  the  order 
of  afew  PPM,  and  may  well  be  of  secondary  importance, 
depending  on  the  stability  requirement.  A  word  about 
D.C.  voltages  and  crystals.  It  is  pemiissible  to  place  a 
D.C.  voltage  across  the  tenninals  of  the  crystal.  This 
does  cause  a  small  change  in  frequency,  but  that  change 
is  not  significant  tor  stabilities  of  ±5  PPM  or  greater. 


The  second  problem  is  one  of  dynamic  temperature 
performance.  When  the  unit  has  stabilized  at  any 
temperature  on  the  curve,  the  frequency  will  agree  with 
the  curve.  While  the  temperature  is  slowing  however, 
the  frequency  may  be  in  error  as  much  as  5  to  15  PPM 
depending  on  the  temperature  change.  This  effect  is 
caused  by  mechanical  stresses  placed  on  the  blank  by 
temperature  gradients.  These  can  be  minimized  by 
thermally  integrating  the  crystal,  and  joining  it  to  a  larger 
thermal  mass.  One  oscillator  engineer  has  been  knovm 
to  attach  a  block  of  alumina  (ceramic)  to  both  of  the 
crystal  pins  in  order  to  join  them  thermally.  Any  other 
mechanical  stresses  placed  upon  the  pins  or  leads  of  an 
A-T  cut  crystal  unit  will  also  result  in  a  dramatic  fre- 
quency shift  (if  the  unit  is  not  damaged  first).  This  is  to 
bo.  avoided. 

The  third  item  which  will  cause  a  deviation  from  the 
curves  of  Figure  5,  is  spurious  response.  This  is  know 
in  the  crystal  industry  as  an  activity  dip.  This  nam» 
originates  from  a  time  when  the  series  resistance  was 
referred  to  as  crystal  activity,  and  the  frequency  change 
is  accompanied  by  a  marked  rise  in  series  resistance. 
This  phenomenon  occurs  when  mechanical  energy  is 
coupled  from  the  nomial  thk;kness  shear  mode  into 
another  undesired  mode  of  vibration.  Several  other 
modes  are  possible  for  finite  plate  resonators,  and  they 
are  usually  resonant  at  frequencies  well  away  from  the 
design  frequency.  These  modes  will  often  have  radi- 
cally different  temperature  profiles,  and  may  intersect 
with  the  profile  of  the  desired  mode  at  only  one  very 
nan'ow  range  of  temperatures  (much  less  than  1°C). 
This  makes  en  activity  dip  diffteult  to  spot  in  noimal 
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testing.  Those  wtiich  are  discovered  are  often  around 
room  temperature  where  temperature  changes  are  more 
gradual.  This  coupling  between  modes  is  greatly  sfrJ 
fected  by  drive  level,  and  the  best  crystal  may  exhibit  at 
dip  if  grossly  overdriven.  Fortunately,  most  manufactur^t 
ers  today  can  produce  a  ciystal  which  is  free  of  signif6» 
cant  dips  If  so  specified.  As  the  accompanying  Jlwta' 
resistance  Is  occasionally  large  enough  to  cause-^j^eM^' 
lation  to  halt,  the  PIC16/17  designer  should  alwE^ 
specify  activity  dips  to  be  less  than  1  PPM,  even  if  the 
overall  stability  requirement  is  much  larger  than  this.  In 
the  interest  of  low  cost  and  flexibility,  the  designer  may 
also  spedfy  aetiii^dip'in  temisiof  aanMknuRi  change 


The  other  important  effect  on  frequency  stability  of  A-T 
cut  crystals,  is  ageing.  This  is  the  long  term  frequency 
shift  caused  by  several  mechanisms,  the  most  notable 
being  mass  loading  of  the  resonator,  causing  the  fre- 
quency to  shift  ever  downward.  Because  this  is  the 
primary  mechanism,  the  cleanliness  of  the  interior  of  the 
unit  is  of  prime  importance.  This  is  in  turn  greatly 
effected  by  the  method  used  to  seal  the  unit,  and  the  type 
of  holder  chosen.  If  the  unit  is  subjected  to  excessive 
drive  levels,  the  frequency  may  age  upwards,  indicating 
electrode  material  is  being  etched  off  of  the  bianlc.  A 
good  general  purpose  high  frequency  crystal  using  a 
solder  seal  holder  may  be  expected  to  age  about  10  to 
20  PPM  /  year  maximum.  Resistance  weld  holders  will 
average-  S  to  10  PPM  /  year,  and  for  high  stability 
applications,  cold  weld  ciystals  ara  avaHalato  at  ageing 
raiasof'ltoZ  PPM /year.  Hie  ageing  ntesoi  most 
eifatak  willdecay  exponentially,  the  mostchange  being 
in  the  first  year.  Ageing  rates  are  clfferent  if  ttie  unS  is 
operated  continuously.but  aging  will  continue  even  If  the 
wilt  is  not  operated. 


%  KHz  Watch  Cr^itids 

llp  j^pk^  32  KHz  vmimt^^  a  tuning  fork  type. 
i|iis  is  a  special  case  of  afto|ainie^«ode(N-T  cut).  The 
unusual  n^ure  of  this  flexure  t^  Is  that  it  is  indeed 
s^ed  Ilka  atuning  fork.  This  shape  gives  the  ciystal 
a  very  small  size  for  its  low  frequency  of  operation  and 
is  almost  always  manufactured  in  the  NC  38  holder. 
This  is  a  tube  3mm  by  8mm.  This  type  is  available  at 
frequencies  from  1 0  to  200  Khz,  although  32.768 KHz  is 
byfarthe  most  popular  frequency.  The  frequency  is  of 
course  2<^ ,  which  is  ideal fortime  keeping  applications, 
and  being  so  tow  is  ideal  for  low-power  applications. 
This  type  is  generally  less  stable  than  higher  frequency 
A-T  types,  but  much  betterthan  ceramic  resonators,  the 
primary  attraction  being  the  possibility  of  very  low  oper- 
ating power  drains.  The  PIC16/17  LP  option  was  de- 
signed with  this  crystal  in  mind.  It  has  a  parabolic 
temperature  profile  of  about  .04  PPM  /  (°C)  2.  The 
tumoverpointofthetemperaturepiofileisnear25°C.  In 
order  to  calculate  the  change  in  frequency  it  is  only 
necessary  to  square  the  difference  in  temperature  from 
25°C  and  multiply  by  .04.  The  temperature  profile  is 
shown  is  in  Figure  7.  The  C,  is  on  the  order  of  .002  pf, 
which  will  mal<e  design  for  frequency  adjustment  pos- 
sible but  not  trivial.  The  make  tolerance  is  usually  about 
20  PPM  at  best,  making  some  adjustment  necessary  for 
most  applications.  The  series  resistance  of  this  type  is 
very  high,  on  the  order  of  30,000  ohms.  It  is  imperative 
that  care  be  tal<en  to  limit  the  drive  to  the  crystal.  Only 
at  raction  of  a  ma.  of  crystal  current  will  damage  this  unit, 
possibly  causing  it  to  cease  oscillation.  This  is  best 
done  with  a  series  resistor  between  the  OSC2  pin  and 
the  junction  of  the  crystal  lead  and  phase  shift  capacitor 
(see  Figure  7).  If  the  frequency  is  moving  upward  in  a 
continuous  manner,  the  drive  level  is  probably  to  high. 
A  portion  of  this  change  will  be  quite  permanent. 


FIGURE  7:  FREQUENCY  VS.  TEIVIPERATURE  FOR  NC38  TIMING  FORK  TYPE  CRYSTAL 
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Ceramic  Resonators 

Ceramic  resonators  are  the  least  stable  type  available 
otherttian  Resistor/capacitor  networks.  The  tempera- 
ture profile  is  a  much  distorted  parabolic  function,  some- 
what resembling  that  of  some  capacitors.  The  tempera- 
ture coefficient  is  on  the  order  of  40  to  80  PPM  /°C.  The 
typical  specified  stability  for  -20°C  to  +  80'C  is  +0.3% 
(3000  PPM).  The  C,  can  be  as  high  as  40  pF,  making 
the  oscillator  extremely  vulnerable  to  circuit  influences 
external  to  the  resonator.  The  Rs  however  is  on  a  par 
with  A-Ttype  crystals,  at  around  40  ohms.  Ttie  positive 
features  of  this  type  are  the  small  size,  low  cost,  and 
relative  simplkiity  of  designing  it  into  a  PIC16/17  part. 
Because  these  have  a  very  low  Q,  the  start-up  time  can 
be  very  good,  although  with  the  large  phase  shift  capaci- 
tors necessary  at  low  frequencies  where  this  would  be 
an  advantage,  the  bias  stabilization  time  will  probably 
dominate  the  steul-up  characteristk;s.  If  the  stability 
requirements  are  veiy  modest,  this  will  be  a  good  choice. 

R/C  oscillators 

The  PIC16/17  parts  can  be  configured  to  operate  with 
only  a  resistor  and  a  capacitor  as  frequency  detennlnlng 
elements.  This  is  a  very  low  cost  method  of  ckickingthe 
PIC1 6/17.  The  stability  achieved  this  way  is  at  best  only 
adequate  if  the  only  thing  required  of  the  oscillator  is  to 
keep  the  PIC16/17  marching  along  to  the  next  instoic- 
tk>n.  The  main  effects  on  stability  are  that  of  the  sw^i 
ing  threshold  of  the  OSC1  input,  and  the  te 
oo€ffficierit  of  the  resistor  and  capacitor. 

HOWTO  CHOOSE  A  fimommm^ 

Type  Tradeoffs 

The  primary  tradeoffs  for  a  designer  when  choosing  a 
resonator  are  frequency,  size,  stability  and  cost.  The 
k>west  cost  oscillator  is  the  RC  type.  This  also  has  the 
worst  stability.  The  components  however  tend  to  be 
reliable  and  small,  where  as  resonators  tare  ire  gmerai 
larger  and  have  limitations  on  the  arooljRt;of!physieal 
punishment  they  can  absorb. 

A-T  cut  crystals  have  the  best  overall  stability  and  are 
available  in  frequencies  from  1  MHz  to  the  upper  limit  of 
the  PIC16C5X  part,  and  in  a  roughly  0.5  'square  pack- 
age*. T-OSs  and  0.3  'square  packages"  are  available  at 
higher  costs,  down  to  a  frequency  of  around  5  MHz  A- 
T  cut  crystals  also  have  a  smaller  overall  temperature 
profile  whk^  the  designer  has  the  best  chance  of  speci- 
fying and  controlling.  Temperature  stabilities  on  the 
order  of  ±  10  PPM  are  possible  over  modest  tempera- 
ture ranges.  The  A-T  cut  can  be  suffk:iently  reluctant  to 
move  off  frequency  in  response  to  parasitk;  reactance 
changes  that  it  can  fully  realize  these  small  deviations 
over  temperature.  Such  Is  not  always  the  case  wit^ 
rtor  types  or  incon'ectly  specified  crystals,' 


Ceramic  resonators  oner«m^^fjj^s^^f0^tomr 
cost,  although  in  large  quatimiS,  mcroproicessor  grade 
crystals  ^  loa  P^)i  can  bff  eonnpetitive.  Carnvnid 
rBsenak>is.ii4Di-hoMfaiiirer,  suffer  fmm  temperBturft  ata- 
bWttes  in«w*0.3%  to  QJm  ragfan.  ^ndsissdgiSiBant 
step  down  from  quartz  eiystatsdf  any  tdnd:  ' 

A  designer  must  choose  a  resonator  which  is  available 
in  the  desired  frequency  range,  has  acceptable  tem- 
perature characteristics,  has  the  lowest  cost  package 
which  is  appropriate  forthat  resonator  and  is  suitable  for 
the  mechanical  packaging  of  the  oscillator  chosen.  A-T 
STRIP  resonators  are  nomnal  A-T  cut  resonators  in 
which  the  resonator  blank  is  cut  in  a  long  strip  ratherthan 
a  disc,  and  the  electrodes  cover  a  much  higher  percent- 
age of  the  quartz  blank.  A  standard  A-T  cut  crystal  is  a 
thickness  mode  resonator,  and  is  usually  cut  in  thefomn 
of  a  disk.  The  electrodes  usually  cover  only  a  small 
portion  of  the  blank.  The  remainder  of  the  blank  not 
covered  by  the  electrodes,  can  be  thought  of  as  support 
structure.  By  removing  this  support  structure,  the  size  of 
an  A-T  cut  resonator  can  be  greatly  reduced.  This  type 
of  construction  violates  several  rules  having  to  do  with 
thickness  to  diameter  rattos  and  greatly  reduces  the 
overall  mass  of  the  blank.  This  results  in  reduced 
perfomwnce  in  the  form  of  slightly  less  predk:table 
temperature  stability,  and  dramatnally  reduced  power 
handling  capEibiinies.  The  A-T  STRIPS  are  generally 
available  up  to  20  MHz,  depending  on  the  manufacturer. 

Tuning  Fork  type  resonators  are  a  type  of  flexure  mode 
resonators.  They  are  made  from  quartz  and  a  very  small 
and  a  cost  which  is  competitive  with  microprocessor 
grade  A-T  cut  crystals.  Tuning  forks  have  a  predictable 
parabolic  temperature  coefficient,  but  any  drive  power  in 
excess  of  their  very  low  specified  level  will  deteriorate 
this  quickly. 

If  stability  requirements  are  beyond  what  Is  achievable 
with  a  good,  A-T  cut  crystal,  the  next  option  is  to  drive  the 
OSC1  pin  with  an  extemal  oscillator.  A  good  Tempera- 
ture Compensated  crystal(X)  Oscillator  (TCXO)  is  ex- 
pensive when  compared  to  crystal  resonators.  Stabili- 
ties of  ±  1 .0  iMr»i/Ar  large  temperature  ranges  are 
common. 

Price  discounts  for  volume  quantities  do  not  al««y8 
occur,  because  each  unit  must  be  indivkjually  compen" 
sated.  This  varies  greatly  with  the  stability  and  tempera^ 
ture  range,  and  so  of  course  does  the  price,  which  in  any 
case  will  be  much  higher  than  any  resonator,  which  the 
PIC16/17  (tesigner  might  consWer.  n.  t  ■<: 
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Size  and  Performance 

It  is  generally  true  that  as  a  designer  considers  resona- 
tors of  smaller  size,  he  or  she  is  faced  with  decreasing 
overall  performance.  Even  the  A-T  cut  crystal,  which 
has  the  best  stability  discussed  here,  will  beconne  less 
stable  as  size  is  reduced,  especially  when  plate  area  is 
reduced  in  relation  to  the  spot  as  in  a  STRIP  A-T.  One 
important  factor  is  the  thenfial  inertia  represented  by  the 
mass  of  the  blank.  The  bigger  the  blank,  the  slower  it  is 
to  follow  the  changes  in  temperature.  When  the  blank 
changes  temperature  to  quickly,  it  will  deviate  from  the 
temperature  profiles.  The  frequency  will  return  to  this 
point  once  the  blank  has  stabilized  at  the  new  tempera- 
ture, but  rnaybe  well  off  the  profile  during  a  temperature 
slew.  This  problem  becomes  greater  as  the  size  of  the 
blank  is  decreased.  Some  stability  issues  are  due  to  the 
unusual  motional  parameters  associated  with  certain 
miniature  resonators.  Some  low  frequency  types  have  a 
C,  which  is  larger  than  the  hokler  capacitance  (C^), 
making  it  extremely  easy  to  tune  and  vulnerable  to 
external  influences.  Most  miniature  types  have  para- 
boik:  temperature  coeff  Kients  whnh  are  large  enough  to 
make  them  inferior  to  A-T  cut  crystals  and  A-T  STRIP 
cuts,  not  only  suffer  from  temperature  transient  prob- 
lems as  mentioned  above,  but  are  it  is  also  diffnult  to 
control  their  cut  angle  and  finish  frequency.  Tuningforks 
have  a  somewhat  more  predkitable  if  largertemperature 
profile.  Almost  all  miniature  types  will  not  perform  well  (or 
sometimes  at  all)  with  excessive  drive  levels.  The  drive 
power  to  the  resonator  must  be  controlled,  and  usually 
one  resistor  is  suffkaent. 

Cost  and  Performance 

The  lowest  cost  timing  system,  of  course,  is  tlie  RC  type. 
This  rugged,  k>w  cost  and  small  timing  systeitn  !^  ife^i 
enly  for  the  most  forgiving  timing  applnatkxts.  If  all  you 
need  is  something  to  keep  the  PIC16/17  moving,  this  is 
a  good  chok;e.  The  next  step  in  cost  is  most  likely  the 
ceramic  resonator.  Its  size  is  smaller  than  most  A-T  cut 
crystals,  but  its  frequency  stability  is  measured  in  per- 
cent, rather  than  PPM.  A  higH  alsitf  WMn$  it  vulner- 
able to  external  influences. 

Tuning  fori<  types,  like  all  others,  vary  in  price.  They  may 
cost  less  ttian  the  esramic  wsonsaar^M  »  ttaH^mi 
frequaneyt^isaeoqitablai  or  may  oostmamttiari  an  A# 
cut^anonstandardliBquency  is  ordered.  Tuning  foitcs 
uaiallyhaveav«iyk>we,oontribiilingtoovMaRslability 
and  this  inayactuallytnalesttdHriiBMil^t^Mm^ 
Tuning  foii<s  have  a  relatively  coiMllltIf 
temperature  curve.  A-T  cuts  ham  Hie  faigt  < 
stability  but  their  cost  varies  greatly.  JWC^  tiMt  m 
additional  advantage  in  that  their  tenpONlilMil^ie  is 
the  most  easily  controlled.  ThisoffarsscsrtwflHdMl^iN 
specifying  the  angle  of  cut.  A  low  angle  may  be  orderflEir 
minimum  deviation  near  room  temperature,  or  a  higfi 
angle  may  be  ordered  to  give  minimum  deviatnn  at 
extreme  temperatures.  Standard  frequencies  and  k>ose 
specilKatkxisformotnnai  parameters  will  yieM  cost  and 
deHvery  competitive  with  ceramic  resonators,  /^non- 


standard parameters  will  raise  the  cost  quickly  and 
almost  certainly  rule  out  any  "off  the  shelf  part.  It  will  be 
necessary  to  specify  a  nonstandard  crystal,  if  the  great- 
est possible  statjiltty.is  to  be  "wrung  ouf  of  an  A-T  c^t 

Packages  '  •'      ■•^■^     ■  -■  * 

Quaitzciystals  havea'lwswHHkiKS(^obsolsteslalil» 
of  resonator  holders  to  ciMtMiKpk  This  istmaui»a/li 
ttM,much  tonger  history  #«pailiMWlal&  iMo^0lAi« 
nomenclature  used  to  dnawftBafteiBt^wd  llW'tyehwak 
0gf.  used  to  devek>p  them;  comes  from  the  MIL-STD: 
system.  These  include  the  HC^^  whtoh  is  about  .750*- 
square,  and  is  only  necessary  to  accommodate  the 
k>westfrBquerK:y  A-Tcut.  The  l-i/C  43  is  only  about  .500" 
square,  and  probably  accouitfs  for  most  of  the  crystal 
productk>nintheworidtoday.  The  1^045  is  still  smaller 
at  about  .350'  square.  There  are  many  other  standard 
part  numbers  which  are  variatkins  of  these,  with  pins  or 
wire  leads,  thin  version  and  short  versions,  and  several 
different  methods  of  sealing  the  package.  Most  manu- 
facturers offertheirown  nonstandard  variatk>ns  of  these, 
as  well  as  clever  ways  to  surface  mount  them.  Most  of 
these  variations  however,  have  their  origins  in  the  stan- 
dard H/C  parts.  The  method  used  to  seal  the  package 
will  have  the  greatest  impact  on  price  and  ageing. 
Solder  sealed  crystals  are  usually  the  least  expensive 
owing  to  the  modest  equipment  requirements,  and  sim- 
plicity. Resistance  weld  is  slightly  more  costly,  and  cold 
weld  is  a  distant  third.  This  may  be  changing  as  more 
large  volume  production  is  implemented  with  resistance 
welded  packages.  Because  more  exotic  (expensive) 
materials  are  involved  in  the  cold  weld  and  resistance 
weld  packages  before  any  crystal  is  mounted  in  it,  is 
doubtful  that  this  order  of  cost  will  change  very  much. 
Both  sokier  sealed  and  resistance  wekis  leave  some 
r^idue,  whteh  over  kmg  periods  of  time  contaminate  the 
blank.  Thtecausesksngtermfrequencyshifts.knownas 
ageing.  Cold  MiaMed  crystals  oost  raore  because  oi 
more  wtpenens  maleiials  .wfhich  milst  be  used,  and 
wq»aasiv»  taellni<|in$i ii#ri^  wam.^ 
CoM  wbM  t*riagaa?»  «BgetHBMa  In  a  elean  mviroNi 
ment,  have  the  potential  for  the  towest  ageing  ratesi 
Glass  crystal  holders  have  in  the  past  held  a  sligt^t 
advantage  in  ageing  over  coM  wekl  types,  but  in  the  last 
several  years,  coM  wekj  techniques  have  matured  to 
were  they  have  surpassed  the  glass  hokier  in  perfor- 
mance. Some  manufacturers,  because  of  theprocesses 
Jp  place,  rqay  offer  glass  at  a  competitive  cost.  There  is 
nothing  wrong  with  glass  holders,  but  no  partteulair 
advantage  over  a  nrKxjem  cold  weld  package,  in  atvf 
case,  the  differences  in  ageing  rates  will  not  be  important 
to  all  but  a  few  PIC16/17  designers.  Most  ceramk: 
resonators  are  only  available  in  two  or  three  packages, 
depending  on  the  manufacturer.  The  most  popular  is  the 
dip  nwkJed,  ranging  from  0.3"  to  04"  square,  with  some 
higher  frequencies  available  in  lower  | 
major  size  advantage  over  crystals','  if  iuiy,' 
height  rather  than  footprint  size. 
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Design  Examples 

A  communications  device  that  is  designed  around  the 
PIC16C5X  part  and  requires  that  the  connecting  units 
have  a  close  timing  relationship.  Size  is  not  a  primary 
factor,  but  cost  and  stability  are.  A  high  clock  frequency 
is  desired  in  order  to  obtain  a  good  sampling  rate  of  the 
input  signal.  The  PIC16C5X-HS  part  is  selected  for  a 
clock  frequency  of  8  MHz.  An  X-T  Cut  crystal  is  chosen 
and  specified  for  a  maximum  frequency  deviation  of  ±  40 
ppm  over  -20°  to  +70°  C.  The  frequency  is  too  high  for 
a  tuning  fork  type,  and  the  stability  is  out  of  the  question 
for  a  ceramic  resonator.  An  examinatk>n  of  the  A-T  cut 
frequency  deviation  /  temperature  curves  show  that  a 
±  1  minute  angle  tolerance  will  give  ±  30  P  PM  frequency 
deviatton  over  temperature.  This  leaves  10  PPM  for 
ageing  over  the  five-year  life  of  the  product.  An  A-T 
STRIP  is  a  choice  but  at  this  quantity,  the  A-T  cut  in  an 
H/C  43  cold  weld  type  holder,  comes  in  at  a  lower  bid. 
Since  there  is  space  in  the  assembly,  it  is  chosen. 

HOW  TO  SPECIFY  A  CRYSTAL 

When  the  PIC16/17  designer  chooses  a  resonator, 
whether  it  is  a  standard  or  a  custom  part,  a  specification 
while  not  essential,  is  an  extremely  good  idea.  A  clear 
specification  covering  all  items  of  form  fit  and  function, 
will  eliminate  any  possibility  of  confusion  on  the  part  of 
the  manufacturer,  and  insure  that  the  part  will  be  sultabli» 
for  the  application.  The  specification  should  communi- 
cate the  requirements  to  the  manufacturer  and  be  an 
instrument  by  which  questbnable  parts  may  be  mea- 
sured. The  time  for  discussion  with  the  manufacturer  of 
the  resonator  is  when  the  specificatron  is  being  written, 
not  after.  The  designer  must  have  or  gain  a  knowledge 
of  what  parameters  will  raise  the  level  of  difficulty  of 
manufacturing  the  resonator,  and  so  the  cost.  Items 
which  effect  cost  and  levels  at  which  these  items  become 
an  issue,  may  vary  between  manufacturers.  A  typical 
crystal  design  sheet  is  shovm  in  Figure  8.  The  A-T  cut 
crystal  is  likely  to  have  the  most  detailed  specification. 
Other  types  of  resonators  will  follow  this  general  form 
with  differences  being  nrostly  that  of  omitting  many 
itei^.  This  data  sheet  is  likely  to  become  a  document  in 
a  drawing  package  for  the  design  of  a  larger  assembly, 
so  the  sheet  begins  and  ends  with  blocks  for  a  drawing 
number,  signoffs,  and  revisnns.  The  title  informs  the 
manufacturer  that  the  crystal  is  intended  for  use  in  an 
oscillator,  as  opposed  to  filters,  or  other  applications^ 

Motional  Parameters 

The  first  item  in  the  crystal  design  is  the  frequency  and 
the  operating  load.  This  might  include  series  resonance 
(no  load ),  but  the  PIC1 6/1 7  designer  will  almost  certainly 
use  a  value  of  about  1/2  of  the  phase  shift  capacitors, 
plus  any  trimmer  capacitors  which  may  be  added.  It  is 
customary  to  use  a  standard  value  here  such  as  20  or32 
pF,  but  a  nonstandard  value  is  not  very  difficult  given 
modem  manufacturing  equipment.  The  frequencies 
possible  with  the  PIC16/17  oscillator  shoukl  not  strain 
fliecapabilU0sino8tinanufacturem<, ' 


The  second  Item  is  the  "Make  Tolerance".  This  the 
accuracy  to  which  the  crystal  is  manufactured  at  room 
temperature.  This  should  be  at  least  as  small  as  the 
temperature  deviation,  and  as  small  as  ±  20  PPM  should 
not  effect  the  cost  significantly.  Avoid  tightly  specifying 
this  value.  Tolerances  of  ±  10  PPM  and  less  are  quite 
practical  but  more  difficult  and  will  impact  cost.  It  the 
stability  budget  does  not  altow this  for  at  least!  20  PPM 
for  tolerance  of  the  crystal  and  associated  components, 
then  an  adjustable  component  may  be  necessary.  The 
added  cost  of  the  parts  and  labor  to  adjust  them  must  be 
weighed  against  the  cost  of  tighter  make  tolerances  on 
the  crystal.  This  decision  must  be  made  on  an  individual 
basis. 

The  third  item  in  the  design  parameters  is  the  mode  of 
vibration.  Ttiis  will  be  the  fundamental  mode  for  almost 
all  PIC16/17  designers.  Other  possibilities  include  the 
ttiird  overtone  operation,  but  many  other  parts  must  be 
added  in  order  to  insure  operation  on  only  the  desired 
overtone.  While  there  are  some  advantages  to  overtone 
operation,  almost  all  PIC1 6/1 7  designers  will  specify  the 
fundamental  mode.  Still,  wrtiat  may  be  obvious  to  the 
PIC16/17  designer  must  be  conveyed  to  the  crystal 
designer,  and  so  this  item  shouM  not  be  omitted,  or 
minimized.  Series  resistance  is  usually  a  "not  to  exceed" 
value.  A  good  fundamental  mode  crystal  in  the 
PIC16/17  operating  frequency  range  will  not  be  above 
10  or  15  ohms,  although  the  oscillator  may  run  with  a 
higher  value.  This  depends  on  the  frequency  and 
excess  gain  available  from  the  particular  model  of  the 
PIC16/17  part,  at  that  frequency.  The  higher  resistance 
will  mean  more  power  dissipated  in  the  crystal,  and  for 
this  reason  a  nominally  lower  value  should  be  adhered 
to.  The  load  capacity  will  have  an  effect  on  this  value. 
The  practically  achievable  series  resistance  will  rise  as 
the  load  moves  the  operating  point  away  from  series 
resonance  and  towards  antiresonance  (see  Figure  7). 

The  motional  capacitance,  or  C,,  may  be  the  most 
troublesome  item  for  the  PIC1 6/1 7  designer  to  specify. 
This  item  will  have  the  single  largest  effect  on  the  tuning 
sensitivity  (intended  or  unintended)  of  the  oscillator. 
Additionally,  if  the  C,  is  specified  to  be  to  small,  the 
crystal  designer,  who  controls  C,  by  adjusting  the  elec- 
trode size,  will  use  a  very  small  electrode.  This  will  result 
in  the  drive  power  being  dissipated  by  a  small  portion  of 
the  crystal  blank,  making  drive  related  areas,  such  as 
activity  dips  and  other  spurious,  more  critical.  If  a  large 
is  specified,  the  unit  may  be  unnecessarily  less 
stable.  The  static  capacitance  or  C„,  is  usually  a  "not  to 
exceed"  value,  and  it  is  not  of  much  interest  the 
PIC1 6/1 7  designer  unless  a  large  and  specific  degree  of 
adjustability  is  required  from  the  oscillator.  This  may  be 
important  if  an  electrically  tunable  oscillator  is  desired. 
In  this  case,  a  specific  ratio  of  C,  to  C„  could  be  specified. 
This  would  not  be  a  low-cost  item.  It  is  customary  to 
leave  this  blank  if  a  specif  k:  value  is  not  desired,  or  the 
words  'as  required"  to  be  placed  in  that  locatnn. 
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Ottiar  altefiwdiiwnMtfwdsof  sp«ci^ngi@,  IVMlG,  tnigM 
jndude  &  fiadienal  frequency  dewistion  betMaen  seiiss 
Wfd  ioad  capac%  operation.  TTw  drtve  level  «tpi|i| 
«fndieste  Ihe  Ngtesi  drim  lemt  which  the  ntWir 
dMigBeraaiiroatiMittw  oyslal  to-Mpenenoe'in'Openi- 
'low/  rendering  it  a  nonissue.  The  BtG16/17  deagoM' 
Mti^  spec%  a  piacUcal  maxinwm  yaiyearidtaiwsleps 
to>insui0>1hatit%not  exceeded.  Operation  at  spurious 
ntSdesf-and  tKtivity  dips  are  just  two  of  the  possible 
consequences  of  excessive  drive,  leyels.'  MHaH^/t^itB 
are  not  to  be  toleiated  if  relialato  opeicllion4»  eacpiiiM. 
To  quantify  this,  a  maximum  altowable  value  is  placed  on 
thefrequencydeviation.  This  should  be  less  than  1  PPM 
eind  must  be  less  than  5  PPM  (at  reasonable  drive  levels, 
i.e.  less  than  1  mW).  The  maximum  pemilssible  drive 
level  is  detemnined  somewhat  by  the  size  of  the  blank, 
the  electrode,  and  therefore  the  size  of  the  holder 
chosen.  The  crystal  manufacturer  should  9ffef;^feg^ 


iu»m«,rx)a«ii»qo 

Qbo  i  l*(!i6iTi8l>nut 
Hw  cr^tal  manu^K^rer  must  loiewHhe  tempcHafiWb 
range  over  which  operation,  is  intended,  and  this  is  the 
fiist  item  underthe  heading  of  temperature  characteris- 
tics. The  twnpsr^ra  profile  of  an  A-T  cut  crystal  is 
controlled  by  the  angle  of  cut.  The  desired  prof  lie  is  also 
chosen  in  temis  of  angle.  When  purchasing  a  crystal 
however,  do  not  attempt  to  specify  an  angle.  These 
angles  are  referenced  to  the  crystal's  atomic  lattice,  and 
are  calibrated  using  an  X-ray  diffraction  technique.  Their 
is  little  direct  correlation  t>etween  manufacturers.  Once 
again  the  measured  results,  in  the  form  of  measured 
temperature  profiles,  are  much  more  accurate,  and  are 
the  final  word  in  any  process  control.  The  PIC16/17 
designer  should  specify  a  fractional  frequency  deviation 
with  tolerances  between  the  tuming  points  of  the  tem- 
perature profile.  This  is  the  accepted  Industry  standard 
forspecitying  temperature  performance,  and  any  crystal 
manufacturer  will  readily  accept  it  if  the  tolerances  are 
realistic.  A  typical  temperature  profile  might  read ',  turn 

to  turn  5.5  PPM + 5.0.  -  3.5". ,    :,  ■ ; 

Packages 

The  type  of  package  and  the  method  of  sealing  it  should 
tie  specified,  although  it  may  be  useful  on  occasion  to 
leave  this  item  blank.  Some  manufacturers  are  equipped 
especially  well  for  a  particular  type  of  holder  or  sealing 
process,  and  may  offer  a  better  package  than  required, 
at  a  competitive  price.  In  general  however,  it  is  best  to 
specify  this  at  the  outset.  Package  types  (holders) 
greatly  effect  the  price  of  a  crystal.  The  primary  perfor- 
mance effect  is  that  of  ageing,  though  otherfactors,  such 
as  themnal  characteristtos  may  also  be  effected. 


Other  Resonators 

Specification  of  the  NC-38  type  crystal  is  limited  to 
motional  parameters,  as  It  is  not  a  "rotated'  cut.  There 
is  little  the  crystal  designer  can  do  to  alter  the  tempera- 
ture profile.  Specifying  a  ceramic  resonator  is  mostly  a 
matter  of  custom  frequencies,  but  some  control  of  nno- 
tional  parameters  and  package  variatk>ns  are  possible, 
though  not  common.  The  large  temperature  profile 
tends  to  dominate  all  other  oonsKleralions. 

Crysstal  Example 

The  following  is  a  specifnatton  for  a  10  MHz  A-T  cut 
crystal  which  the  PIC16/17  designer  is  likely  to  choose 
for  a  high  stability  application.  The  frequency  tolerance 
is  +  20PPM.  A  rather  modest  C,  of  .028pF  +  20%fe 
specified  andthe  C,,  though  not  specified,  will  be  around 
5  to  7  pF.  It  Is  required  to  operate  on  frequency  with  a 
32  pF  toad.  TM  ^  ""W-  ^ 

activity  dips  ^NywnKl'Pralw^r  The 
crystal  will  operate  over  the  temperatune  rangia  tiLyS^ 
to  +  70°C.  The  frequency  deviation  t>#iweet^  tSfrfear 
points,  is  5.3  -i-  4.5,  -  3.2  PPM.  Notice  that  the  tuming 
points  do  not  necessarily  fall  within  the  operating  tem- 
perature range  (see  Figure  5).  These  deviations  be- 
tween tuming  points  correspond  to  1 , 2,  and  3  minutes 
of  angle  relative  to  the  zero  coefficient  angle.  Although 
the  1  minute  curve  displays  a  smaller  deviation  between 
the  turn  points,  if  it  were  the  center  of  the  angle  range  the 
lower  end  of  Ominutes  would  be  unacceptabledue  to  the 
rapid  changes  at  the  ends  of  the  operating  range,  where 
cubed  terms  are  in  effect.  The  exact  deviations  were 
computer  generated  for  of  each  crystal  angles.  These 
offer  more  detail  and  accuracy  than  is  possible  with 
graphical  techniques.  An  alternate  method  of  specifying 
this  Is  to  set  a  total  deviation  over  the  entire  operating 
temperature  range  of  about  ±  8  PPM.  This  is  not  as 
exact,  and  leaves  the  manufacturer  more  freedom  to 
interpret  your  requirements.  If  the  PIC1 6/1 7  designer  is 
not  comfortable  with  these  concepts,  this  may  be  the 
best  approach.  One  may  notice  a  small  dissymmetry 
In  the  tuming  deviations.  This  Is  because  the  chosen 
operating  temperature  range  is  symmetrical  about  25°C, 
and  the  inf  lectton  temperature  of  the  A-T  cut  is  ckjser  to 
27°C  or  28°  C  (see  Figure  5).  In  some  cases  the  center 
of  the  operating  temperature  range  may  be  very  different 
form  the  inflectton  pdtri  of , the  crystal,  and  in  order  to 
M^^fiffjt  boiefltgl^Mi^g  fngla„  a  frequency  offset 
at  2S°C  would  berteiMSato  center  the  temperature 
profile  (this  woukl  not  be  part  ofthe  design  sheet).  The 
package  is  chosen  to  be  an  H/C-49  type  whtoh  has  a 
resistance  wekJ  seal.  A  maximum  ageing  rate  of  2  PPM 
/  year  is  required.  No  unusual  shock  or  vibrotton  is 
expected  for  this  un'rt.  Under  the  area  of  testing,  teni- 
perature  testing  Is  required  only  on  a  sample  of  the  tot. 
All  units  will  be  exposed  to  a  thermal  shock ,  and  10  days 
of  ageing  at  85  C.  Ageing  is  of  concern,  so  gross  leak  is 
specified  to  be  tested  on  all  the  units,  and  a  fine  leak  test 
'is  to  be  performed  on  a  13%  sample.  Any  notes  about 
"ttwii^tMMiorSqMielal  concerns  wouM  bompMelM 


PIC16/17  Oscillator  Design  Guide 


THEPIC16/17  0N  BOARD 
OSCILLATOR(S) 

The  PIC16/17  device  aausl^  ocxmimMm  mm^Us, 
oscillators  which  can  be  selwM  Mt^  tepipMDI' 
ming  process.  The  selected  eMlAP^  i 
the  OSC1  and  OSC2  pins,  ^  M  ehip  clock 

drivers  by  CMOS  switches.  In  the  wiMbwed  parts, 
these  are  all  available  to  the  programmer,  while  the  OTP 
and  OTP  parts  are  pre-configured  at  the  factory,  and 
must  be  order^  a&|i9  d^|Bd  ^ 
•oscimofavaMiintfie  PVSi^^Ne 


RC  (resistor  capacitor) 
LP  (iow  power) 
XT  (crystal  <  4  MHz) 
HS  (Hi^hspeecQi 


•The  four  t^>es  of  o^iilstor  avalbble  in  ttie  PtCt/CXX 
series  are: 

RC  (resistor  capaeitoi)'  — 

LF  (low  power)  ■  ^ 

XT  (crystal  <  4  MHz)  i 

«J  (Extemal-eioclc)  i^'^'"-  "'^j  ^''^  | 

The  four  circuits  are  shown  in  Rgure  3.  This  unique 
arrangement  gives  the  designer  the  .ability  to  optimize 
ttie  performance  of  tf^  to  terms  of  clock 

's>eed,typeof  rraonM|iM  ^Mweonsumption. 


The  RC  Oscillator 

The  RC  oscillator  is  a  relaxation  type  similar  to  the 
popular  55||A|BLa|i»dSC1  piniStolniWtMjiitNi^ 
trigger.      •'■"T*  i 

The  LP  oscillator 

The  LP,  or  iow  power  oscillator,  is  designed  to  trade 
speed  for  low  power  operation.  Although  this  circuit 
shares  the  same  topology  (schematic)  as  the  XT  oscil- 
lator, the  transistors  used  in  the  LP  oscillator  have  a 
higher  Rdss  value  and  draw  considerably  less  curent. 
This  configuration  is  optimum  for  the  low  frequency 
operation ,  because  it  trades  the  away  unnecessary  higfi 
frequency  response  for  dramatically  reduced  operatitig 


hle  XT  oscillator  is  dei|pMl  |o  give  a  compromise 
b^aen  highfrequen^.pMMi^His^Hdfmoetest  power 
corisumption.  The  gain  of  this  oscillator  is  as  much  as  1 5 
times  higher  than  the  LP  oscillator.  This  middle  range 
will  be  used  forfrequencies'up  to  4  MHz. 

The  HS  oscillator 

The  HS  oscillator  is  designed  to  give  the  maximum  gain 
and  frequency  response.  The  current  consumption  is 
accordingly  higher.  The  gain  is  roughly  five  times  higher 
than  that  of  the  XT  oscillator.  This  gives  the  PIC16/17 
the  ability  to  operate  at  frequencies  up  to  20  MHz. 
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FIGURE  8:  CRYSTAL  DESIGN  SHEET 


-J  .  t   ■■  J'^ 


I vi«ANaundi«iMt«i  liq  »ai      yi^2.  INC 

DRAWN    DATE  ■ 


APPROVED 


>;DATi. 


MAKE  TOLERANCE 


MOOEOFVIBRATIOIt. 
SERIES  RESISTANCE 


MOTIONAL,,CAPAQp||^ 


STATIC  CAPACITANCE. 

DRIVE  LEVEI  

RPllRmilR  C 


ACTIVITY  DIPS. 
AGEING  


CRYSTAL  DESIGN  and  TEST: 

'•-         ■■  ■'**»<      'i''^  - 

IVtORil 


Frequency  Deviation  

_  From  Turn  to  Turn 

_  Over  OpaiBiIng  Temperature  range 


PACKAGE . 


TYPE  OF  SEAL. 


EVIRONMENTAL: 
VIBRATION  


SHOCK. 


CRYSTAL  TEST 


TEMPERATURE. 


THERMAL SHOCK , 
AGEING  


GIROSSLEAK. 
FINE  LEAK  


NOTES 
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FIGURE  9:  EXAMPLE  CRYSTAL  O^OM  SHliT 


XYZ  INC. 


tPRYSTAL  DPilON  and  TEST 


DRAWN 


APPROVED 


.  DATE 
DATE 


!..#aai*l-n->'  lie.- 


MAKE  TOLERANCE   +20  PPM 


MODE  OF  VIBRATION  Fundamental 


SERIK  RESISTANCK 

MOTIONAL  CAPACITANCE  .028pF±20% 
STATIC  CAPACITANCE 


DRIVE  LEVEL  1  mWMaA 


SPURIOUS  <-3dB 


ACTIVITY  DIPS  <3PPM 


AGEING  <  2  PPM /Year 


^^ItteTgW^BIIII^RANQE  -20to+70°C 


Frequency  Deviation  

/  From  Turn  to  Turn 

_  Over  Operating  Temperature  range 


PACKAGE    H/C  49 


TYPE  OF  SEAL  Resistance 


EVineNMBfTAL:  NM 


VIBRATION 


SHOCK 


CRYSTAL  TEST 


TSVIPERATURE 


THERMAL  SHOCK 


AGEING  10  Di^8gt  85°C 


GROSS  LEAK  100% 


FINE  LEAK  13%  AOL 
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APPENDIX  A 

The  curves  of  Figure  5  are  calculated  using  a  general 
form  developed  by  Bechmand  in  1 955.  For  any  tem- 
perature T,  a  factional  deviation  from  the  frequency  at 
the  reference  tenqjsrature  T,,  is  j^en  in  the  fomt: 

=  aLT-TJ  *  iKT-TJ'  +  (T-TJ» 


0.39  X 10*  -4.7  X  io-»*  °(e  - 
109.5  XI  -2xio'2*°(e-ej 

the  difference  between  the  intended  angle 
and  the  zero  temperaturei 
In  degrees  of  arc. 


Tg  is  the  reference  temperature  and  Is  usually  taken  as 
25°C.  The  zero  temperature  coefficient  angle  Isapproxi- 
mately  -35.25°  relative  to  the  Y-axis.  The  exact  angle 
which  produces  a  zero  temperature  coefficient  and  the 
exact  inflection  temperature  are  both  strongly  depen- 
dent on  several  factors,  Including  overtone  and  resona- 
tor geometry.  A  degree  as  a  unit  of  angle  is  toQ^ 
for  sufficient  resolution.  The  following  coe 
divided  by  60  for  units  of  minutes  of  arc. 

AMI  .1'  ■ 


I  I 
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PICM  ASTER™  Support  of  Microsoft®  Windows™  DDE 


Tlie  PICMASTER  system  supports  Windows  Dynamic 
Data  Exchange  PDE).  This  feature  allows  the  contents 
of  the  trace  buffer  to  be  transfen'ed  to  other  windows 
applicaUons  such  as  Microsoft  Excel™.  This  featuif,^ 
invaluable  to  control  systems  designers  who  would  W» 
to  plot  raal-iine  data  to  debug«nd  flna  tune  sn  tnipliGah 
tion.  ThisapplicatkmrK>te«iDshowhowto  Mt  ttiisup 
and  graph  s^em  data. 

THE  TRACE  BUFFER 

The  PICMASTER  contains  a  8K  x  40  bit  ttaee  buffer. 
The  fields  within  this  buffer  are  forolcen  up  into'-^i%ie 
categories: 

(1)  Currant  Address  of  instruction     16-Bits  (ADDRESS) 

(2)  DataADpcode  Field  16-Bits  (DATA) 
^)  External  Ijogic  Analyzer  inputs   8-Bits  (EXT) 


40-Bits 

Any  instruction  can  be  optionally  traced  ornottraced;the 
trace  for  each  instruction  is  enabled  by  the  T'  field  on  the 
far  left  column  of  the  program  memory  dump  window.  To 
set  up  the  trace  buffer,  do  the  following: 

1.  Seiect  the  SETUP->TRACE  SETTtNGS  window 
option  to  set  up  a  range  of  addresses  to  be  traced. 
These  ranges  are  selecting  specific  memory  ad- 
dresses that  will  be  traced  if  these  instructions  are 
executed.  Individual  instructions  can  also  be  trace 

button  .  ,. 

2.  Open  the  trace  window  by  selecting  the  WATGHf 
>TRACE  MEMORYmenu  selection. 

3.  Clickthe  RUMbutton  afteropeningthe  Run  box  with 
the  RUN->RUN  BOX  menu  selection. 

4.  Theprocessorwillnowrun.  At  a  later  time  you  may 

MWmuii  from  the  Run  Box. 


S.  YouwillsaethetracebufferfiiiwrithinstrucUonsand 
data  if  those  Ihstructiorlfs  were  Mscuted  and  tniH 
enabled.  If  you  do  niM  see  aity  irfsthictions  in  the 
trace  buffer,  checl<the  Trace  Settings  In  (1 )  and  look 
(or  k>ops  or  deadlock  situations  that  would  prevent 
your  program  from  executing  these  instructions. 

Note:  PICMASTER  must  be  mnning  and  the  trace 
buffer  open  with  data  displaying  in  order  to  use 
DDE  for  other  Windows  applications  (such  as 
Microsoft  Excel  as  described  hi  tha  next  secSon). 

After  starting  Excel  with  a  blank^^||^eet,  select  1 00 
rows  in  the  first  column  by  pressing^^A^  mouse  button 
and  holding  it  down  to  drag  acflf^f^jht^  i>4§l4iiQ{RP 
the  following  string  in  the  box: 

=PICMASTRI'c:\path\test.hex'!'dSI»«,«B' 
and  hit  CNTRL+SHIFT+ENTER 
Itie  foifnat  fGH'Ms  eomttiand  Is  as  folkwvs: 

=  PICM  ASTRI'</7ex_«/«>'!'<«ff';ng> 
<start_address>  <end_address>' 

•  <hex_file>  represents  the  full  path  and  filename  of 
the  object  code  file  that  you  have  downloaded  to 
program  memory.  This  string  must  match  what  is 
displayed  in  the  PICMASTER  window  handle  at  the 

•  <slrltig>  defines  the  group  of  values  tfiat  you  want 
to  look  at  in  the  trace  buffer.  The  following  are  the 
three  groups  of  trace  information: 

•  ADDRESS  tor  opcode  address  (16-blts  Real-time 
data) 

•  DATA  forthe  opcode  coding  itself  (1 6-bits  ReaMime 
data) 

*'  ^1^^  ^  mclwiwU  l^c  I 


EXAMPLE  1 :  TRACE  mimiR  DATA 


Trace 

Program 

InstrucUen 

Addra^ 

n:.  .  iRstnicUon  77 

Buffer 

Memory 

Opcode 

Label 

Address 

Address 

(mi4.16bi9 

0  : 

711 

425 

bcf  porta, 0x1 

.•Toggle  Clock 

1  ! 

712 

525 

BIT3 

bsf  porta, 0x1 

2  : 

713 

305 

rrf  porta, W 

; Clock  In  data 

3  : 

714 

36F 

rlf  OxF 

I  ncnniMiAiiifiTtiin  1 


P|CM ASTER  Suppoft  Sf 


DDE 


•  RAMforthecurrentstateofanyf)leiBgtet8i«(84)tts, 
Not  Real-time) 

•  PROG  TTie  current  state  Of  program  memoty  (16> 

bits,  Not  Real-time) 

•  <start_address>  specifies  starting  address  loca- 
tion in  the  trace  buffer  to  be  transferred 

•  <aneLaddrsss>  specifies  the  ending  address  looi^-' 
tion  in  the  trace  buffer. 

Note:  Generally,  the  <end_aeldress>  must  be  greater 
than  the  <start_address>  and  the  difference 
equal  to  the  number  of  cells  selected  in  Excel. 

Hit  SHIFT-CTL-ENTER  and  the  data/opcode  field  val- 
ues show  up  in  the  excel  cells.  You  can  now  create  hex 
values  or  strip  off  the  literal  encoding  with  formulas 
written  for  Bccel. 

■<noM3»« mar iV nib»dhae«t>-?.i' tu^  -j;>4.>  m'i< 


MOVING  LIVE  DATA  INTO  THE 
TRACE  BUFFER 

Many  applications  would  lil<e  to  show  trends  in  register 
values  over  time  as  the  application  runs  real-time.  For 
example,  if  the  microcontroller  software  is  using  a  file 
register  SPEED  to  show  the  cunent  shaft  speed  of  a 
motor  that  the  controller  was  controlling,  the  designer 
may  want  to  capture  the  motor  speed  VS  time  when  the 
controller  is  mnning  in  real-time.  This  can  be  accom- 
plished with  three  different  methods,  two  of  which  work 
with  the  PIC1 6CXX  and  PIC1 6C5X  family,  and  all  three 
work  with  the  PIC17CM2. 


^0,AfrT3rHT 


Method  1 :  Lookup  Table  (PIC1 6C5X,  PIC1 6CXX,  PIC1 7C42) 

At  the  end  of  your  code,  add  a  look-up  table  that  returns  the  literal  value  that  is  passed  to  it.  This  value  can  then  be  traced 
mHwtraee  biuffer through  the  DATA  field  and  the  data  value  stripped  from  the  opcode.  The  lookup  table  that  is  added 
«iaa&16i*fl8iftte'lonbwing:  "-.-  ^       s  .     ^--xjC-nVJ  iSj 

,;  Here  is  your  code  that  calculates  SPEED 


MOVF     SPEED, W  ;   Place  the  current  value  of  the  SPEED  register  into  W 

CALL    TRACE_REG  ;  Call  TRACE_REG  so  the  opcode  is  stored  in  trace  buffet; 


.CO'Voaoj  <><1J  ui>  -uDud  »;;•)•  (Mttqu  MS 


TRACE_REG 


ORB  (6Sfl^3>. 


This  address  must  have  bit  9  as  a  zero  in  16C5X 
and  must  always  have  the  ADDWF  PC  on  address  XXOOh 


Iti'.-'  ' 

"  g#Attfi',?t^ 

-T.  . 

RETLW 

0 

if  zero,    return  zero 

DECF 

SPEED, W  ; 

Compensate  for  table  offs^-'-''"  '  ' 

ADDWF 

PC  ; 

Jump  thto  lookup  table  and  return  same  value  as  W-1 

RETLW 

1 

RETLW 
SBIIM 

2 

Return  2^              ,  ,v  >  ii;-v  6  f-  t,r  '  t  ;r  ,             i      <,;?«;•-.■•  »ffr 

Retstgi  3'                             ■••  •■  't_KH»eaft»1 

-f .  ... 

? 

There  are  250  RETURN  instructions  here  - 

.T.  . 

RETLW  4  through  RETLW  OFOh 

•T.  . 

RETLW 

OFEh 

Return  FE 

.1.  . 

OFPh        '  ji'mtum  MBil*-'^         i-ar.ir  -  .. 

ItMe.-  Since  flie  RETLW  instru<dion  fakes  two  cycles  and  the  next  Instruction  is  prefetched,  the  trace  buffer  will 
,  ->  •  contain  two  sequential  valuesfor  overy  value  that  is  traced  with  this  method.  The  user  can  strip  this  intervening 
value  out  with  the  spread  sheet 


5432 


M9llp^^^4lai||9#^4e|gie<An^!l^  PIC16CXX,  PIC17C42). 

Opnnect  the  eight  logic  analyzer  inputs  TRC<7:0>  to  a  currently  unused  digital  output  port  of  the  PIC16/17.  Set  the  port 
"^^ection  of  this  port  to  OUTPUT  and  when  you  want  to  look  at  a  value,  simply  move  the  value  to  the  fwrt  and  sat  the  tnee 
bit  on  the  second  instruction  following  the  move  instnjctlon.  The  following  example  shows  this: 


OPTION  Port_B 


MOVF 


SPEED,  W 


j  Code  Initialization 

;  Place  0  into  W  register 

;  Make  all  Port  B  pins  outputs  to  feed  variable  state  data  to  logic  inputs 
MCMt.  a^8>.it98ti»K!tion  in  place  of  OPTION  for  17C42 

;  Place  where  Speed  variable  is  modified  and  needs  to  be  traced 

;  Place  Speed  value  into  W  register 

;  Place  value  into  Port  B 

;  Execute  normal  instruction  ' 

'  ;  Sraee  seecaid  l^astr^ieti&tj  ^t^'Petf^'B  move  to  VAptiiM  tsWiMfc  wine 


FIGURE  1:  EXCEL  SPREADSHEET  EXAMPLE  OF  REAL-TIME  PSEUOO-SINE  WAVE  GENERATOR 


■  Seriesi 


1     11     21     31     41     51     61     71     81  91 


1 


0 1 994  Microcl^  Jgf^^jSlS^lns. 


Method  3:  Using  TBLWRT  instruction  to 
modify  program  memory  (PIC17C42  only) 

'fM  PIC17G42  suppiMis  table  lookup  andlniM^Htott- 
tures  that  are  not  sivported  on  tM#l9MQMKMliM|Ui> 
The  emulator  supports  write  operafioitt  ta  pepwi 
memoiy  using  the  TBLWRT  instnicHai,  t&  m0H» 
real-time  RAM  data,  the  user  simply  «^t4)  flia  Irili&l 
poMeistoanunusedportionofprogNMiMm^iifgiia " 
andleads«e  current  tegistef  wJiwIWa  ftaiaWB  Wttiu^ 
Next  the  user  issues  the  TBy 


Mithod  1  requires  an  additional  259  words  of  code 
space  at  the  end  of  memory  but  does  not  require  any 
external  port  pin  connections.  Method  2  requires  an 
8-bit  port  connection  to  the  extemal  logic  input  pins  but 
does  not  require  any  additional  code  space.  Addition- 
ally, Method  2  does  not  have  an  Intervening  sequential 
address  that  occurs  from  the  two  cycle  RET^^g^^MMC- 
tion  used  in  Method  1  and  Method  3. 


data  Wo  the  least  signifk»m'iP9  0f1Me'U«li[\isii  W  MelhodSdoes  not  require  the  additional  code  of  Method 
trace.  A^mplecantothisk)c«llariw«t«ieimE»bilset  1  orthe  port  connections  of  Method  2,  but  this  is  only 

wfflcaptunlh9(^.T1)efo»wii«i0aiiii^^  «8|8^^,*»f  ?<P17C42. 

■  o.ifii  ^vlt.:-  soBi'-. 
MOVLW  TRACE_HIC»        ;  VlAceTigAC^LOGAS'ICar:  ilSBl;ij|t:«iW^i^/ 
mal*     IfOVHF    TBLPTRH    •  i.  j,.„icM^TBACS_UX:m;IOS  ll^-ifyami  pointer  HiaH 

MOVLW    TRACE_LOW  ;   Place  TRft.CT_LOCATION  LSB  into  W 

MOVWF    TBLPTRL  ;  Move  TRACE_LOCATION  LSB  into  Table  pointer  LOW 

TLWT      l,0B6h  ;  Place  RETLW  opcode  MSB  into  Table  .^J^h  High  ^  .  ^ 

TABLWT  0,0,  SPEED  ;   Place  SPEED  value  into  Table  i>atch  low.  and  .W:i.te-liav.jaa(.^ 

CALL      TRACE_LOCATION;  Now  Call  to  trace  the  value 


TRACE_LOCATION 
•  .T.  .     RETLW  XX 


The  data  in  XX  with  reflect  current  SPEED  value 


001 
Gi 


CONCLUSION 

>  Although  there  is  no  straight  foiward  metf^  to  do  this, 
I  it  is  practical  to  trace  real-time  |Hto  register  date  witti 
ICIOMASTER  tracahuCfer.  


r  r 


Author:  John  Day,  Field  Applications  Engineer, 
NotVwaSt  Region  (North  Ameriaa) 
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Calibrating  the  MTA11200  System 


INTRODUCTION 

This  application  note  analyzes  the  calibration  algorithm 
from  theoretical  and  numerical  approaches.  It  includes 
two  calibration  procedures,  including  information  on 
setting  up  lab  equipment,  board  modifications  and  addi- 
tional hardware forthe TrueGauge  calibration.  Lastly,  it 
includes  the  methodology  for  re-biasing  the  compara- 
torsfordifterent  voltage,  current  and  temperature  ranges. 

This  calibration  procedure  can  be  modified  to  perform 
caiibration  in  an  automated  manufacturing/lest  erwiron- 
ment. 

This  procedure  assumes  the  user  is  familiar  with  the 
TrueGauge  demo  kit  P/N  DV114001,  documentation, 
hardware,  and  TrueGauge  assemblies.  Also  that  the 
TrueGauge  demo  software  programs  TQ  Demo"  and 
'Calibration"  have  been  installed  in  Windows™  and  the 
hardware  has  been  functionally  tested. 

Required  Equipment: 

1.  TrueGauge  demo  software  2.0  or 
TG  Demo  and  Calibration  programs 

2.  TmeGauge  demo  kit  P/N 
assemblies 

3.  DMM  4  1/2  digit  (a  second  DMM  Is  prefen-ed)  li' 

4.  Power  Supply  14V.  1 A  minimum 

5.  Precise  resistance  source  such  as  a  Decade  Resis- 
tance Box,  Temperature  Calibration  Bkx^k  (described 
in  this  procedure)  or  user  designed  resistance  net- 

W0l1( 

°l>.  ftfii'iiffnfriitaf Tiu^LijiMiiiftn  i>ifi  i  iti'iiiniin'. 

References: 

1 .  MTA1 1 200  Intelligent  Battery  Management  IC  Data 
Sheet  DS401 04 

2.  TrueGauge  MTA1 1 200  Introductwn  Kit  Usei's  Gukte 
DS40108  ,  anT  •-. 


The  TrueGauge  name  and  logo  am  tradeiT»iks  d  Mleroehlp 
Technokigy,  Inc. 

Windows  is  a  registered  trademark  of  Microsoft  Corporation. 


Notes  and  Precautions: 

1 .  This  calibration  procedure  requires  slight  modifica- 
tion of  the  TrueGauge  and  Charger/Discharger  board 
assemblies  to  simulate  ideal  battery  and  thermistor 
operation.  The  modifications  should  only  be  made 
by  qualified  personnel.  Individual  assemblies  shoukl 
not  be  interconnected  during  modification  or  prior  to 
beginning  the  calibration  procedure. 

2.  When  a  power  supply  is  used  in  place  of  a 
battery,  the  charger/discharger  board  must  be 
kept  in  the  discharge  mode.  If  not,  damage  may 
occur  to  the  power  supplies  and/or  the  charger/ 
discharger  Isoard. 

3.  The  calibration  accuracy  is  determined  by  toler- 
ances determined  by  the  users  allowable  limits  with 
consideration  of  the  test  equipment  tolerances,  and 
deviatnh  from  the  optimum  values  given.  ' 

4.  The  Temperature  Calibratnn  Bkx:k  shown  in  thp 
Appendix,  is  used  in  this  desciiiMkx)  when  perforrq- 
Ing  thermistor  calibratnn. 

5.  To  enhance  familiarization  with  the  Tru^3aug4  sys- 
tem it  is  reoofnmonctfdltiiatthein^raMd  caliM^ti^ 
done  before  attempting  the  automated  caHmiion. 

6.  Please  read  this  application  note  entirely,  from  be- 
ginning to  end,  iietere  attempting  td  caHirate  a 
TrueGauge. 

THE  CALIBRATION  SOFTWARE 

The  calibration  source  code  is  provided  on  the  diskette 
in  the  TrueGauge  demo  kit  P/N  DV1 14001  and  is  also 
available  on  the  M  Icrochip  BBS.  Instructions  for  k>gging 
on  to  the  BBS  can  be  found  In  the  Microchip  [^SaBook, 
or  the  Embedded  Control  Handbook. 

The  TrueGauge  installation  procedure  installs  the  Wiri- 
dows  software  and  the  calit>ratk>n  program  whKh  pro- 
vides a  more  automated  method  of  calibrating  the  mod- 
ules. The  calibration  source  code  is  written  in  QBASIC. 

The  manual  caUbratkm  is  performed  using  the  TrueGauge 
demo  Windows  software.  For  purposes  of  explanation 
of  the  calibratnn  process,  the  TmeGauge  demo  soft- 
ware is  used  to  record  the  voltage,  current  and  tempera- 
ture readings  corresponding  to  the  known  values.  These 
Itnown  values  were  taken  from  th»s«|libiBtion  source 
code,  and  represent  optimum  values. 

The  calibration  program  software  is  invoked  by  double- 
clicking  on  the  "Calibration"  icon  in  the  TrueGauge 
program  group.  Upon  doing  so,  a  full  DOS  screen  will 
appear.  The  user  works  in  the  bottom  half  of  the  screen 

to  set  up  the  appropriate  calibration  parameters. 
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Calibrating  the  Iifll11200  System 


THEORY  OF  OPERATION 

TrupGauge  digitally  integrates  batteiy  charge  and  dis- 
ctiarge  curredit  to  provide  an  accurate  state  of  charge 
indication.'  TRift'stata  of  charge  indicator  depends  on 
relative  accuracy  from  one  discharge  cycle  to  the  next. 
However,  there  are  several  parameters  such  as  End  of 
Discharge  Voltage  (EODV),  and  Maximum  Fast  Charge 
Temperature  (MAXTFC)  that  are  referenced  to  absolute 
voltage  artd  temperature  limits.  TrueGauge's  at)solute 
accuracy  is  achieved  via  ciEaii>ration  of  the  cdmpW^abis 
md'tfieir  respective  external  componenfe>'^     '  ' 

Each  of  the  four  comparators  on  the  TrueGauge  module 
uses  a  timed  ramp  for  A/D  conversion.  Ideally,  the 
ramps  would  have  a  slope  of  one  and  an  offset,  or  y- 
intercept,  of  zero.  However,  because  of  component 
tolerances  and  drift,  the  ramp  is  not  ideal.  The  calibra- 
tion software  uses  the  fundamental  slope  equation  to 
calculate  the  calibration  f aetdrs  (or  each'  A/D. 

y  =  roS;t-b 

^Slope  'W  is  first  calculated  by  finding  the  difference 
between  two  points  on  the  y-axis  and  dividing  that  value 
by  the  difference  of  two  points  on  the  x-axis. 

m  =  (y2-yi)/(X2-Xi) 

Offset  "b"  is  then  calculated  by  rearranging  the  funda- 
mental slope  equation,  where  y  is  the  known  upper 
value  and  V  is,  the  con-esponding  value  read  and 
reporW^<*n<iS^(^. 

b  = 


FIGURE  1  -  SLOPE  DIAGRAMS 


Rise 

Before 

Calibration 

'CdHismifQH.;  .  11  rioQltWiBv 

■1  -J8«nlcror. 

Run 


The  fundamental  slope  equation  is  expanded  for  volt- 
age, current  and  temperature  in  the  next  section.  Notice 
that  the  slope  and  y-intercept  values  are  all  scaled  by 
256,0  °''  0'""'i6  °''  ®n  implied  decimal  point.  This 
decimal  point  makes  256  equal  to  a  slope  of  one.  The 
hex  values  are  stored  in  the  EEPROIW  and  used  by  the 
TrueGauge.  However,  the  values  are  scaled  by  256  In 
4he  demo  software  that  runs  in  the  Windows  «wiion- 
ment  ' i.  :  luir-'r  „  .yq^-ji,^       ^-.i-,  .;; 

-  -I     ••)a**teO'  3«  no  gfWalh 


THE  CALIBRATION  HARDWARE 

CtarpMriMsilwier  Board 

ForadragramofmodificeitionstotfieChargei/Dischaigsr 
Board,  refer  to  drawing,  'Chargei/Discharger  Board 
Calibration  Modifications,"  in  the  Appendix  section.  To 
measure  current,  remove  the  resistor  R7,  0.1  ohm 
from  the  chargei/discharger  board.  R7  is  physically 
located  between  the  red  and  black  banana  jad(  connec- 
tors provided  for  ammeter  connection.  Retain  the  resis- 
tor for  reinstallation  after  caiibratnn. 

Temperature  Calibration  Block 

To  perfonn  thermistor  calibratnn,  it  is  recommended 
that  the  Temperature  Calibration  Block  be  constructed. 
Refer  to  the  drawing,  "Charger/Discharger  Board  Cali- 
bration Modifications".  Before  connecting  the  calibra- 
tion block  to  the  TrueGauge  module  the  calibration 
resistance  values  must  be  set.  The  accuracy  of  the 
thermistor  calibration  Is  detennlned  by  the  deviation 
from  optimum  values  when  adjusting  the  calibration 
bk>ck  resistance's. 

Adjusting  the  Calibration  Resistance  Values 

Set  the  DMM  to  measure  resistance  and  connect  the  test 
leads  to  the  Temperature  Calibration  Block,  at  the  TG 
T2  and  the  TG  LD-/T1  connections.  Select  the  resis- 
tance value  to  be  adjusted  using  81 ,  and  adjust  R2  or  R4 
the  10  tum  rheostat  for  207807  ohms  or  51058  ohms 


TrueGauge  Module 

For  a  diagram  of  modifications  to  the  TrueGauge  Mod- 
ule for  calibration,  refer  to  drawing,  'Diagram  for 
TrueGauge  Calibration,"  in  the  Appendix  section.  If  the 
TrueGauge  module  has  a  battery  attached,  it  must  be 
disconnected  and  the  power  supply  ( VI )  connected  in  its 
place.  The  power  supply  should  initially  be  set  to 
O.OVDC,  and  connected  to  TrueGauge  module.  Con- 
nect the  Positive  lead  to  terminal  LD+  and  the  negative 
lead  to  temiinal  LD-/T1 ,  at  the  TrueGauge  module  orthe 
'ibtodfe.         '       '  """" 


MANUAL  CALIBRATION  OF  THE 
TRUEGAUGE  MODULE 

This  calibration  procedure  is  performed  using  the 
TrueGauge  demo  software  and  is  intended  for  familiar- 
ization of  the  concepts  involved  in  calibrating  a 
TrueGauge.  This  procedure  does  not  calibrate  the 
REFVAL  parameter.  As  a  precaution  retain  all  Initial 
calibration  factors  by  updating  them  from  the  TrueGauge 
module  and  storing  them  to  a  hard  disk  in  an  JtiBm  file. 


6-2 


Calj|)rating  the  l\ATA1120Q  iVL^XeO) 


Calibration  Setup 

Review  the  manual  calibration  procedure  and  refer  to 
the  diagram  for  TrueGauge  calibration  setup  drawing  in 
the  Appendix. 

Connect  the  charger/discharger  board  to  the  +6.0VDC 
powersupply  and  the  RS232 cable  between  thechargor/ 
discharger  board  and  the  host  computer. 

Connect  the  TtueGauge  module  IDC  connector  and 
modular  plug  to  the  chaiger/dtscharger  board,  and  verify 
that  the  mode  switch  on  the  charger/discharger  board  Is 

in  the  discharge  position. 

Set  the  power  supply  to  O.OVDC,  and  connect  the 
TrueGauge  Module  LD+  and  LD-/T1  to  power  supply 
(V1)  +  and  -  then  LD-/T1  and  T2  to  the  Temperature 
Calibration  Block. 

Conneetthe  ammeter  to  thebanana  jacks  on  the  charger/ 
flJhBlWBpF.  ■board.  Ntote  that  because  R7  has  been 
itmipmA  V^smrni  rimlttig  in  th«  WRHViiwI^  will  be 
:OiiiA.iffie«gp(!i«tar  ^.nobeonne^ii^-<ii(»  n-n 

Set  the  power  supply  VI  voltage  to  -t^.CfVDC  and  start 
the  TrueGauge  derno  program.  Usesatupandselectthe 
appropriate  COM  port,  upload  the  EEPROM  data  from 
ttie  TrueGauge  rnodule  then  select  parameters 
nv>ve  to  the  advanced  factors  screen  (refer  to  the  Usc^s 


a.  ,1 


t>r*ioe 


Mr  I 


Consider  the  following  manual  calibration  as  an  ex- 
ample, which  was  performed  on  an  uncalibrated 
TrueGauge  module.  The  values  uploaded  or  these 
example  values  may  be  used.  When  the  values  in  the 
demo  program  advanced  factors  screen  are  changed, 
the  EEPROM  data  will  need  to  be  unlocked  and  the  new 
values  downloaded  to  the  TrueGauge  module  before 
they  effect  the  displayed  readings  in  the  mn  mode 
window. 

The  uncalibrated  slope  and  offset  values  displayed  in 
the  advanced  factors  screen  of  the  demonstration  soft- 
ware were  as  fpltows:  (r4ote:^^pes  =  1  ancioffsets =0)^ 

VOC:  Voltage  Offset      =      0  (0.0) 

VSC:  Voltage  Slope 

TOC:  Temp.  Offset 

TSC:  Temp.  Slope 

REFVAL:  A/D  Refer. 

The  data  table  which  corresponds  to  the  Windows 
values  is  shown  below.  From  the  TrueGauge  data 
sheet,  the  calibration  value  addresses  are  shown  in 
Table  2. 

As  explained  above,  a  slope  value  of  256  in  this.vyindpw 
is  equivalent  to  a  slope  of  one.  This  siop^cl^SB  and  y- 
intercept  of  zero  are  ideal  values. 

Uslng.^wse  ^^i^resses  and  the  data  in  Jable  1,  the 

•seww»(Ni>tyyi»iyw»#fep^  the 

VWndows  values  can  be  vsmbd.  This  table  im^  .bo 
viewed  by  using  Windows  Notepad.  Invoke  Notepad 
and  open  Fllenawe.hBm. 


TABLE  1  -  BREAK-OUT  OF  .H8M  FILE  CALIBRATION  DATA 


byte 
count 

address 

record 
type 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

OA 

OB 

oc 

OD 

OE 

OF 

check 
sum 

10 

0030 

00 

FF 

7F 

00 

01 

00 

00 

00 

01 

00 

01 

00 

00 

00 

00 

EO 

2E 

71 

REFVAL 

VSC 

VOC 

ISC 

TSC 

TOC 

^Ol.-.  SB  6;. 


TABLE  2  -  CALIBRATION  PARAMETER  ADDRE^I^ 


ISChh  37,6 
ISCih  36,6 

VOC,,  35,6 
VOCiH  34„ 

TOChb  3B,6 
T«%|MU3A|g>'.i 

TSC,,  39,  g 

REFVAL,,  31,e 
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TABLE  3  -  .H8M  FILE  PIIIORWSiiyftmtliN 


byte 
count 

address 

record 

type 

00 

01 

02 

03 

04 

05 

06 

07 

08 

- 

09 

OA 

OB 

OC 

OD 

OE 

OF 

check 
sum 

10 

0000 

GO 

01 

10 

DB 

AA 

25 

00 

00 

00 

28 

OA 

28 

OA 

00 

2F 

00 

00 

B2 

10 

0010 

00 

5F 

00 

00 

00 

•00 

00 

1A 

10 

OE 

16 

05 

05 

03 

01 

00 

00 

45 

10 

0020 

00 

04 

00 

01 

01 

00 

00 

00 

00 

00 

10 

80 

00 

49 

A5 

04 

00 

78 

10 

0030 

00 

FF 

7F 

00 

01 

00 

00 

00 

01 

00 

01 

00 

00 

00 

00 

EO 

2E 

71 

10 

0040 

00 

9A 

DA 

F3 

FB 

FD 

FD 

FD 

FD 

FD 

FD 

FD 

FD 

F1 

CA 

80 

43 

38 

10 

0050 

00 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F5 

EB 

El 

D7 

CC 

C2 

B8 

AE 

A3 

D8 

10 

0060 

00 

06 

00 

OB 

00 

13 

00 

21 

00 

3B 

00 

68 

00 

B9 

00 

48 

01 

16 

10 

0070 

00 

42 

02 

03 

04 

IB 

07 

95 

OC 

48 

16 

74 

27 

DE 

45 

B8 

76 

A6 

00 

0000 

01 

FF 

G  ''1  ■■, 

• 

Once  the  advanced  factors  values  are  selected,  enter 
the  Run  mode,  after  each  seXSng  rsid  and  mooMfVIe 
resulting  values  that  the  TaieQIH^e  Moaiife  npoDSfVtt 
the  Windows  demo  software. 

Disconnect  the  ammeter  from  the  charger/discharger 
board.  Note  that  because  R7  has  been  removed,  the 
Current  reading  in  the  Run  window  will  be  0mA  if  the 
imnMiartenM'oeniietsfsrf.  ammo  mmmmaMC 

•Volts.      "  ,  -       r     ,  . 

Set  the  power  supply  to  +6 .0  VDC  and  record  the  voltage 
reported  by  the  TmeGauge  as  ' .  Ret er  to  the  flowchart 
intheiaiipenate. 

Next  set  the  power  supply  to  -1-14.0700  and  record  ttie 
voltage  reported  by  the  TrueGauge  as  Vj .  Return  lha 
power  supply  VI  voltage  to  -fS.OVDO,  and  disconnaet 
the  DMM. 

Reset  the  DMM  to  read  cun-ent  and  reconnect  the 
ammeter  to  the  banana  jacks  on  the  charger/discharger 
board.  Note  that  the  current  reading  In  the  Run  window 
win  indicate  some  value  when  the  ammeter  Is  con- 
nected. 

Adjust  the  discharge  potentiometer  on  the  charger/ 
discharger  board,  set  the  current  to  0mA  and  -900mA 
reading  on  the  ammeter  and  record  the  values  for 
current  reported  by  the  TrueGauge  as  ij'  and  i,',  respec- 
tively. (Note:  a  typical  current  reading  in  the  discharge 
mode  with  current  set  for  minimum  is  -15mA,  if  this 
occurs  set  both  charger/discharger  potentiometers  to 
minimum  then  switch  the  mode  switch  to  charge  and 
adjust  for  0mA  reading  on  the  ammeter.  Return  to  the 
discharge  mode  as  sqm  m:  m  aocuntfe  reading  Is 
recorded). 

Simulate  the  thermistorbyselectingtheresistornetwork 
using  the  Temperature  Calibration  Block  S1 ,  to  known 
values  of  51058  ohms  and  207807  ohms  for  40''C  and 
10°C  respectively.  Read  the  resulting  values  that  the 

TrueGauge  reports  via  the  Wflndkaiindim  L 
record  as  t,'  and  t^. 

The  values  from  the  readings  ne»e6  are  applied  to 
mathematical  formulas.  These  formulas  are  axbadsd 
directly  from  the  calibration  source  code.  These  calcula- 
tions become  the  new  slope  and  offset  values. 


VOLTAGE:  VSC  AND  VOC 

Note:  The  known  upper  and  lower  ramp  voltage  values 
were  found  in  the  'Calibrate  Voltage"  function  of 
the  calibratton  source  code.  The  con^sponding 
voltage  values  as  reported  by  the,  Tr^f  Qauife 
module  were  read  from  the  displtyscraciiii  of  the 
Windows  demo  software. 

Vj  =  Applied  known  upper  ramp  voltage  =14.00  volte 

=  Applied  known  lower  ramp  voltage  =  6.00  volts 

y,'  =  Rctppited  voK^  reading  wtien  14.00  volts  is 


V.,'  =  Repotted  vottage  reading  wtnn  6sflO 
applied 

m  =((14000mV-6000mV)/(1497am^lJIl! 
m  ={(8000mV)/(8581mV))*256 
VSe-»li^s  jBM?  m  239 

b  =  V2-(m*V2')/256 

b   =  14000mV-(238.67*14972mV)/256 
b  =  14000mV-13958.28mV 
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CURRENT :  ISC 

Note:  The  known  upper  and  lower  ramp  current  values 
were  found  in  the  'Calibrate  Current"  function  of 
the  calibration  source  code.  The  corresponding 

:  current  values  were  readfronnthedisplayscreen 
of  the  Windows  demo  software. 

L,  =  Applied  known  upper  ramp  current  =  -900mA 

ff  =  Applied  known  tower  ramp  current  =  0mA 

=  Reported  current  reading  corresponding  to  = 
-1088mA 

//  =  Reported  current  reading  corresponding  to  i,  = 
0mA 

'     m  =  ((V/iy(/2-V))*256 

m  =  ((-9OOmA-OmA)/(-1O88mA-O!j0:^^  • 
m  =  ((-900mA)/(-1088mA))*256 
ISC  SRI,  =  211 .76  a  212 

IEMEERATURE;ISfiMDJOC  

Note:  The  known  upper  andlbWsr  tamp  temperature/ 
resistance  values  were  found  in  the  "Calibrate 
Temperature'  f unctton  of  the  calbrsdnn  source 
code.  The  two  resistance  values  were  used  in 
place  of  the  thermistor  to  simulate  the  thennistor 
ai10°Cand40°C.  The  corresponding  tempera- 
ture values  were  reeKi  from  the  di^iley  screen  o< 
the  Windows  demo  software. 


^  =  Applied  known  upper  ramp  temperature  =  tO'C 
=  Applied  known  lower  ramp  temperature  =  40°C 

^'  =  Reported  temperature  reading  corresponding  to 

^=  182°C-256°C  =  -74°C 

t,'  =  Reported  temperature  reading  corresponding  to 
t,  =  218°C-256°C  =  -38°C 

m=((V'iV{W-fi'))*256 
"^trf£t(''0PC-4O°C)/(-74''C-(-38°C)))*256  '  " 

m  =  ((-30''C)/(-36''C))*256 

TSC  =  m,=  213.33  =  213 

b  =  ((^-((m/256)*^'))*256 

b  =  (10°C-((.833)*(-74°C)))*256 
'  b=(10''C-(-61.6°C))*256 

TOO  =  b.  =  18329.6  =  183319  .  . 

The  newly  calibrated  stope  and  offiMt  values  should  then 
be  input  in  the  advanced  factors  screen  (refer  to  the 
User's  Guide)  of  the  demonstration  software  running  in 

Windows. 

ISC:  Current  Slope      =  212 

VSC:  Voltage  Slope  =  '239  . 
TOG:         Temp.  Offset       =  tfeSO 

REFVAL:     A/D  Refer.  =  32589 

Upon  performing  a  download  with  these  new  calibration 
factors  to  the  EEPROM,  the  tfafues  wouki  be  reflected  in 
the  data  table  CTable  2). 


TABLE  4  -  .H8M  FILE  AFTER  CALIBRATIOM  AND  DOWNLOADING  TO  CtFH^ 


byte 
count 

address 

record 
type 

00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

OA 

OB 

OC 

OD 

OE 

OF 

check 
sum 

10 

0000 

00 

01 

10 

DB 

AA 

25 

00 

00 

00 

28 

OA 

28 

OA 

00 

2F 

00 

00 

B2 

10 

0010 

00 

5F 

00 

00 

00 

00 

00 

1A 

10 

OE 

16 

05 

05 

03 

01 

00 

00 

45 

10 

0020 

00 

04 

00 

01 

01 

00 

00 

00 

00 

00 

10 

80 

00 

49 

AS 

04 

00 

78 

10 

0030 

00 

4D 

7F 

EF 

00 

2A 

00 

D4 

00 

D5 

00 

9A 

47 

00 

00 

EO 

2E 

71 

10 

0040 

00 

9A 

DA 

F3 

FB 

FD 

FD 

FD 

FD 

FD 

FD 

FD 

FD 

F1 

CA 

80 

43 

38 

10 

0050 

00 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

F5 

EB 

E1 

D7 

CC 

C2 

B8 

AE 

A3 

D8 

10 

0060 

00 

06 

00 

OB 

00 

13 

00 

21 

00 

3B 

00 

68 

00 

B9 

00 

48 

01 

16 

10 

0070 

00 

42 

02 

03 

04 

IB 

07 

95 

OC 

48 

16 

74 

27 

DE 

45 

B8 

76 

A6 

00 

0000 

01 

FF 

1 

When  calibration  is  complete,  use  the  Lock  EEPROli^ 
ooinmandtopiotaetthevaluas,'4hena»teiilafth8'dennb 
program.  The  test  equipinf^iiLTnieG^^  inQ^u) 
charger/discharger  board  may  b6  de-«iergiz<Bd  arid 
disconnected.  Reconnect  the  battery  and  a  thennistor 
to  the  TrueGauge  module,  reinstall  R7  into  the  charger/ 
^llmlaai^tJBamA^ - —  ~  -  ■  — 


Verify  the  TmeGauge  readings  In  the  run  mode  using 
the  method  described  earlier.  Confirm  that  the  voltage, 
cunwrt,  and  temperature  raadngs  ins  wKhin  the  users 
tolerances.  If  needed,  the  skipAWidcAsetcatouiatnns 
may  be  catoulated. 


^itflfttMliiiifli^iTm'JMUiiinni  lUL- 
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^fibrating  the  MTAil200  Sy^teiti 


THE  AUTOMATED  CALIBRATION 

The  calibration  exercise  in  the  prevbus  section  was 
perfonnecl  manually  using  ttie  TrueGauge  demo  Win- 
dows software.  However,  the  installation  procedure 
also  installs  acalibration  program  which  providesamore 
automated  method  of  calibrating  the  modules. 

Calibration  Setup  „ 

Review  this  procedure  andieferto  the  diagrarm  in  the 

AppefKlix. 

Connect  the  charger/discharger  board  to  the  wall  power 
supply,  and  the  RS232  cable  between  the  chargai/ 
discharger  board  and  the  host  computer. 

Connect  the  TrueGauge  module  IDC  connector  and 
modular  plug  to  the  charger/dischargertx>ard,  andygiU^ 
that  the  mode  switch  on  the  charger/djschanjier  board  b 
in  the  dischama  position. 


Set  the  power  supply  to  O.OVDC,  and  connect  the 
TrueGauge  module  LD+  and  LD-/T1  to  power  supply 
(VI)  +  and  -  then  LD-/T1  and  T2  to  the  Temperature 

Calibration  Block. 

Connect  the  ammeterto  the  t>anana  jacks  on  thecharger/ 
discharger  board.  Note  that  because  R7  has  been 
removed,  the  current  reading  in  the  run  window  Will  be 
0mA  if  the  ammeter  is  not  connected. 

Set  the  power  supply  V1  voltage  to  -f^.oVbC  and  start 
the  calibratkxi  program. 

The  calibration  software  is  invoked  by  double-clicking  on 
the  "Calibration"  Icon  in  the  TrueGauge  program  group. 
Upon  doing  so,  a  full  DOS  screen  will  appear.  A  repro- 
duction of  the  bottom  halves  of  the  screens  appear 
below.  The  user  woti<s  in  the  bottom  half  of  the  screen 
to  sot  up'ffM^propriate  calibration  parameters. 


Setup    Begin      Set  NP  Voltage 
Initialize  Caibratlon  Options        ^  j.;, 

1 .  Open  callbratien  rssMMagflle  (ofMMMit 

2.  Select  comm  port.  rct^n 

3.  Open  EEPROM  data  file  (optional}.  .OCT 

4.  Specify  k>adfe»Mi8ai0«iti«Bte 
<EnteMnitlaHze> 


Qmm  Temp ,,,, ^„,mm.r^  m 

j.j,  •HcicSlaO'  B<1i    b-H.  ji  '.-aw  toulev  eorwlaiavi 

•OKoe  miffindltb-]  m  lo  iviKir  :l '  srtlits!«q»(teT 

WtatiTIMMlIedtoMiiumi^  f.t  fi.VirT-;r'!I-^|H' :  p'.r.iii 

-Bieqiwtf^fltefKxjaeYKio^  .-un  :-  (r!u 

u         .     ■•  ■..  iWerIt 


<Tat>=sklpto  l^xt> 


<Bad(  TalMMp  to  Previous 


f^^^ig       Initialization  is  started  when  the  user  presses  the  <ENTER>  Iny. 

Upon  pressing  <ENTER>,  the  screen  will  read: 


Setup    Begin      Set  NP     Voltage    Cunent    Temp      End  Restore  Quit 


Open  a  cailbfation  rMuK  log  f ii*. 


»^  ac  ,  TO  j  80  ;  3D  I   iKi  I  CD  I  W  I  r  j 


<EnterBOpen>  <Tab=sl(lptoNext> 


<Bacl<  Tabasldp  to  Prevlous> 


Eusa  the  <EI4TER>  key  again,  the  screen  will  read: 


Srtup    Begin      Set  UP 


to 


Jl 


Quit 


J         0"  I'         .Vf  >  (If.  ,v 

OpMiaeanbnflannMiil:1egfil»  ..q  'nr^  t.^  . 
lUftalbgfnenanM:  'wt 

<11tt>=d(lptb  l«leia>  '  ^  ^Badc  Tab-sidp  to  Prevlous> 


.•^iScv  «1I bait  •  ."  .«.<. -.t-fc  ■(,-3n*.-«iD  - 
gnultaKli.*-B t»eWo bnc »f p  ■■:  'n    yitoe^T'  -.tj 
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In  this  screen,  the  software  is  prompting  the  user  to  set 
up  a  file  to  store  the  results  of  calibration.  This  file  stores 
the  part  serial  number  and  the  calibration  values  in  a 
single  file  which  is  appended  with  new  values  from  each 


ilfit  ""%tlt#    Volti^e    CuifiHit   '"rimp     "EM  Ftsstore  Quit 


Bit«r  COM  port 


i(1i2,3or^ 


<1 ,  2,  3  or  4=Port  Number>        <Tab=skip  to  Next> 


Hit  t'*-!?  t|. 


<Back  Ta 


In  this  screen,  the  calibration  software  is  asldng  to  be 
referred  to  the  COM|>qrt  wtiic^^Lfiiaigwif^K^ 
board  is  attached  to:'  tKts  is  so  V^a»nnHitil»nm  may 
be  established  with  the  TrueGauge  module. 

TYPE :  The  COI»4  port  number  to  which  the  TrueGauge 
tlMaiMM  y0aR  deiii9,m  the  screen  wWthsa^iK^,.^  ^ 


,4g«G  «|Uto8 


S«tup    Begin      Set  NP     Voltage     Current     Temp  End 


Open  an  EEPROM  initialization  data  file. 


Restore  Quit 


<Enter=Open>       <Tab=sl<ip  to  Next> 


<Baci<  Tat>ssldp  to  Previous> 


Press  the  <ENTEFt>  Icey  again,  the  screen  will  read: 


SoMp    m^to      #M|i8>     Voltage     Current     Temp  End 


Open  an  EEPROM  initialization  data  file.  . {      ><,  ,.  .v. 

Enter  EEPROM  DATA  filename: 

<EntefteOpon>      <taBisl^'fe  ^irt>'''    '  ■^&l6TsaNi»|lfe^»8vtous> 


Restore  Quil 


In  this  screen,  the  software  is  prompting  Ih^  tier  to 
specify  a  default  file  for  TrueGauge  nrK>dule(s)  to  be 
calibrated. 

TYPE:  Filename  (this  is  ein  optional  filename)  If  filename 
is  not  specified  the  screen  will  display  an  atenm  mes- 
sage. 

Press  the  <ENTER>  l<ey  the  screen  wHI  raacl: 

(If  the  eUami  message  occurs  ( 

time) 


This  default  file  will  initialize  the  entire  EEPROM  with  the 
data  contained  in  the  file.  The  A/D  calibration  factors 
contained  in  this  file  will  set  all  of  the  A/D  gain  values  to 
one  and  offsets  to  zero,  thus  facilitating  the  simple 
mathematical  fonnulas  sho«im<tothe'M(BMnli@alRM>Mio4l 
section  in  this  document.  i 


<UaM  of  vf  *3  "• 


.*if^lillnaish|»MMMt«^lEfe 
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^rtlbritllfcf  theMTA11200  System 


TYPE  :  Filename. hSm 

Press  the  <ENTER>  key. 

tf  the  file  does  not  exist  the  screen  wilt  display  an 
alami  message. 

Press  the  <ENTER>  key  again,  the  screen  will  read: 


Setup    Begin  ^SetNP     Voltage     Current     Temp  End 


Opm  an  EEPROM  inMaUntion  data  file. 


<Entei^Open>       <Tab=skip  to  Next>        <Back  Tab=8kip  ^  Previpus> 


Restore 


Quit 


Press  the  <TAB>  key,  the  screen  will  read: 


Setup    Begin  SetNP 


Current    Temp  ■ 


Change  rafarance  joad  (1000  milliainpa)  for  Currant  <UMaHsU6n. 


<Enter=Change> 


<Tab=skip  to  Next> 


<Back  Tab=skip  to  Prevk)us> 


the  <ENTER>  key  again,  the  screen  wiU  read: 


Setup    Begin      Set  NP     VHiKaga    Current  Temp 


End 


Restore  Quit 


CNnga  rafaranca  load  (1000  mUllampa)  fm  eiMVaHt  Calibration. 
Enter  naw  load  In  tpiiWiii;  _  _ 

Lx.r 

<Enter=Change>         <Tab=skip  to  Next> 


<Back  Tab=skip  to  Previous> 


If  the  power  supply  used  In  the  lab  setup  is  incapable  of 
outputting  -1000  mA  of  current,  the  rrtarenca  toad 
shouM  be  changed. 


If  <TAB>  is  pressed,  the  reference  load  will  default  to 
-1000  mA,  and  the  software  will  jump  ahead  to  the  "start 
calibration"  screen.  Otherwise,  the  user  can  lower  this 
value  to  one  that  the  power  supply  can  deliver.  i 


Satup    Begin      SetNP     Voltage    Current     Temp  End 


Restore 


Quit 


Oriir  iMiw>lea*l-|n  mlHIain^:  otiaMfim«MKs<n 


<BiteM)pen>      <Tal»::«kip  to  Nei(t>  <Bacfc 


.1  '.:''f'  'l-Jt-i 


-ill 
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Cattbrattrtfthe  MTA11200  System 


TYPE:the  new  value  asa  positive  number,  the  program 
will  change  tills  to  a  negative  value,  to  indicate  discharge 
current. 

Press :  <ENTER>.  The  software  will  then  proceed  to  the 
next  screen. 


Setup    Begin     SetNP     Voltes    Curratrt    Ten^     End  Re^re  Quit 

Start  Calibration  Sequence 

1 .  Specify  part  number. 

2.  Verify  broadcast  mode  is  off. 

3.  Verify  comm  link  to  TrueGauge  Is  opeiatlmaL 

4.  Load  current  calibration  factors. 

<Entei^Stat1>       <Tab=sldp  to  Next>        <Bacl(  Tab=skip  to  PrBVious> 


Inlhis  screen,  the  software  is  waiting forthe  userto.bMin 
calibration,  which  starts  when  the  wet  pimii^'ro 
<ENTER>l(ey.  tJpen  preaelriatlw  ■«i8NFMft»i  twy,  Bw- 
screen  reads:  ■ '  - '  r 


Setup    ilgll     iM^     Voltage    Currant  Temp^ 
Enter pMlfeMMlllHMW:  t..*>..^0  >'M»*Uo)- 


The  user  must  enter  a  number  to  identify  ttie  module 
being  calibrated. 

The  length  may  vary  from  one  to  eight  characters. 

After  entering  the  number,  i:m>-:  O  i  i; itgaQ  ^JWS 

Press:  <ENTER>.  The  screen  will  begin  a  routine  which 
win  disptay  this  information: 


Setup     Begin     SetNP     Voltage  Cuirent 

Temp  tnd 

Restore  QBie*«9v*r*i 

t 

Checking  for  broadcast  enabled.  Broadcasting 

Is  disabled. 

\ 

Unlocking  EEPROM.  EEPROM  Unfocked. 

Reading  battery  data. 

Upfoading  original  calibration  factors:  [•••»•»« 

In  this  screen,  the  software  is  informing  the  user  of  the  written  to  the  EEPROM.  Finally,  the  software  reads  and 
status  for  different  operations  which  are  being  per-  uploads  the  original  calibration  values  which  are  cur- 
formed  in  preparation  for  calibration.  The  software  will  rently  in  the  EEPROM.  Upon  completed  uploading  of 
always  disable  broadcast.  If  It  Is  not  disabled,  the  these callbrationfactors,thesoft«rarawillproceedtothe 
software  will  proceed  to  disable  it.  EEPROM  untocking  next  screen.  '  '  '•  -  '  : 
tiMHealfctationfaeloiscanbe                .yaji  \v!«  n«>  '^•««  es^^  -    <i  ^:  Dp»tM  M 
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mmmm^  the  mtaii  aoo  sy^ri^ 


Satup    Begin      Set  NP    VoHss*    CurMnl    Temp  End 


Se*  NoHnallaatlon  Polnt^  


Restore  Quit 


<Enter=Set  NP> 


<Tab=skip  to  Next> 


<Back  Tab=skip  to  Previous> 


In  this  screen,  the  software  is  prompting  the  user  to  set 
the  notmaiization  point.  This  is  an  A/D  reference  point, 
and  is  typically  set  once,  at  the  beginning  of  acalibratlon. 
It  is  reflected  as  the  numerical  value  stored  in  REFVAL 
of  the  Windows  demo  software,  and  is  a  representation 
of  the  time  value  for  REFC  input  to  TrueGauge.  Once 
set,  the  normalizatkxi  point  compensates  for  any  changes 


in  TrueGauge  module  components  over  time  and  tem- 
perature. During  nonnal  operation,  the  present  mea- 
sured value  for  REFC  is  compared  with  the  stored  value 
in  the  EEPROM,  and  the  ISENC,  BATVC  and  TEMPC 
TrueGauge  Inputs  are  each  compensated  by  the  differ- 
ence in  the  measured  versus  stored  REFC  values. 
Press  :  The  <ENTER>  key,  the  screen  reads: 


Setup     Begin      SetNP     Voltage     Current     Temp  End 

Restore  Quit 

Stung  nonrnrflaiBen  periifc  ii^iiiaiiWw|?^M«>.  ^ '  ' 

Resetting  TrueGauge.  One  moment,  pleaea. 

1 

Reset  successful. 

Unlocking  EEPROM.  EB^iKMi  IMlB^tail. 

1 

The  nomialization  point  should  be  set  immediately  be- 
fore calibrating.  Calibration  should  not  be  done  without 
first  setting  the  normalization  point.  This  is  because  the 
REFC  input  is  used  to  compensate  for  changes  in 
components  overtime  and  temperature.  If  new  calibra- 


tion values  are  being  offsatiiy  aHS^delta  which 
established  at  a  differenttlme  In  thelifeof  the  TrueGaugis 
module,  optimal  accuracy  will  not  be  achieved.  The 
software  will  then  proceed  to  the  next  screen. 


Setup    Begm.     ictMP     V^lage    Cunent    Temp  End 


Restore  -'^iSuit 


'T      1  '.11. 


<Ente^=Callbrate> 


<Tab=sl<ip  to  NmS> 


<6ack  Tab^sMp  to.Fieyjlpi^>, 


.1, 


In  this  screen,  the  software  is  prompting  the  uliir  ts 
begin  calibiating  the  voltage  paiameteis.  Upon  press- 
ing the  <ENTER>  l«ey,  the  screen  reads: 


.  r"-'i  K>:!H,r.         ■  :lO|^iK««^U 


Setup     Begin      SetNP     Voltage    Cunent  Temp 


End 


Restore 


Quit 


Initializing  correction  factors.  One  moment,  please:  ["**]  >     -  ji^ 


■m 


(Mfbrating  th«KMMt^%siliil} 


In  this  screen,  the  software  is  prompting  the  user  to 

adjust  the  power  supply  to  +6.0VDC,  which  is  the  lower 

end  of  the  voltage  slope  defined  by  the  formulas  in  the 

program.  Upon  setting  the  power  supply  to  six  volts  and  ^ 

pressing  any  Iny.flie  screen  rasds:  .{•tt^8(4icQr«a«i«rti    ^  o;  ' 


{/.SMt  .i,r>4)e6loie 

^  „Quit  .  ignfl  qmiEiP 

S«l  volti^  to  14^  volls  then  hR  aqr  hty. 

A/n       -  CI  f.i  j->-,i. 

Upon  setting  the  power  supply  to  +14.0VDC,  which  is 
the  upper  end  of  the  voltage  slope  defined  by  the 
formulas  in  the  program,  and  pressing  any  key.  The 

software  takes  the  inputs  and  their  corresponding  read- 
ing applies  slope  and  intercept  fomiulas  to  the  numbers , 
deriving  new  calibration  factors.  The  screen  then  reads: 

Setyp     Begin      Set  NP     Voltage  Current 

Temp 

End  Restore 

Quit 

storing  new  correction  factors.  One  moment,  piease:  [***^ 

IImkI  iMttefy  tfflta. 

-1  ;«M 

In  this  screen,  ttie  software  is  informing  the  user  that  the 
new  voltage  calibration  parameters  are  being  loaded  to 
theEEPROM.  Thesoftwarewiiithenproceedtothenext 
screen. 

Setup    Begin      Set  MP     Voltage  CurMII 

TMp 

Qutt 

<  •■:■»  :•      ■■  ieHvy 

Callbralo  Cumnt. 

<Enter^Callbrate>       <Tab=skip  to  Next>       <Bactc  Tabssldp  to  Previous> 

in  ttiis  screen,  the  software  Is  prompting  the  user  to 

:  fo»1>        cfMtM  rt  <ifjte=--  ■ 

-.ejai        *ii3>  j 

begin  calibrating  the  current  parameters.'  UpoK^iwsani^ 
the  <ENTER>  i<ey,  the  screen  reads: 

Setup     Begin      SetNP     Voltage     Current    Temp      End  Restore  Quit 


Calibrate  Current. 

Initializing  correction  taetoni.  One  inonMnt,  pluw; 
Set  ouifii#l»«iiilkiiHi  htt  any  toy  (HR  Esc  to  Quit). 


e  ««MMiPi«ehl||.ljaiiii0lpgit  ^ 
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In  this  screen,  the  software  is  prompting  the  user  to 
move  the  slide  switch  on  the  charger/discharger  board 
to  the  "sleep"  position  for  a  moment  to  achieve  a  zero 
current  reading.  This  switch  must  be  returned  to  the 
discharge  pin  very  quickly  (before  the  next  polling  cycle) . 


If  not,  the  software  will  report  that  it  is  unable  to  commu- 
nicate with  the  TrueQauge,  and  calibration  will  have  to 
be  restarted.  Upon  doing  so  and  pressing  any  Icey,  the 
screen  reads: 


Setup    Begin  >       NP '   ipitage    CMntMit    M%>   '' Sid^ 


Set  oHrrant  to  -  nxx  mA  thM  hH  aiqr 


"mkiar»''  Dull 


NtAo:  (xxxx  =  value  entered  eailiei)       . ,  .'^  < 

Upi^  settingthedischargepotetttiometeron  the  charger/ 
^IS&wrgar  board  to  obtain  the  specified  current  (ob- 
seivedonthe  DMM)  and  pressing  anylcey,  the  software 


takes  the  inputs  and  their  oorrKponding  reading  and 
applies  slope  and  intercept  fomiulas  to  the  numbers; 
deriving  new  calibration  factors.  Tliescreen  then  reads: 


^eHap    Be^      ietNP     Vbltage    Currant  Temp 

Bnd  (Restore 

Quit 

Storing  BwycorweBoniaeteffe.  One  moment,  plo«no:F*] 

Fteniflng  bfltioiy-iAillb 

In  this  screen,  the  software  is  informing  the  user  that  the 
new  current  calibration  parameters  are  being  loaded  to 
the  EEPROM.  The  software  will  then  proceed  to  the  next 

screen. 

Setups    Biiftt     MNP     Vbttage    Currant  Temp 

End  Restore 

Quit 

.'•sdmWed 

CaHbrato  Trniponrtuvo* 

-.1!.  f>ivi»"^  'M  n  ■^i^-'*<sf 

'  "Vrteff*?*- 

<Enter=Calibrate>        <Tab=skip  to  Next>        <Back  Tab=8kip  to  Previous> 

13,,  n-. 


4M' 


Hftri-iS.'". 


I>\<  4V<  ;■■)',  r.r\  I  ■■r       if^' ..'WITOleS 


m. 
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eaiJbrating  the  MMft^tayStsm 


In  lato  screen,  the  software  is  prompting  the  user  to 
bsgbi  ealibrating  the  temperature  parameters. 

Prei 

S.  the  <ENTER>  key ,  the  screen  reads: 

SsMp    iH^      SetNP     Voltage  Current 

Temp 

End           Restore  Quit 

Initializing  correction  factors.  One  moment,  plMN 
Set  thermistor  to  51058  Qthen  hit  any  key. 

.r,'.->. .■;  ^^f-^J^:.■  '•.■!!-. 

In  this  screen,  the  software  is  prompting  the  user  to 
move  the  toggle  switch  shown  on  the  Temperature 
Calibration  Block  to  the  position  which  selects  the  51 058 
ohm  resistor.  Upon  doing  so  and  pressing  any  key,  the 
screen  reads: 

'-- 

Setup  -mm  *%n0^''^^i»m  (^i»nt 

Bit'    "^^'^  iistow''"  buit  «'*»^ 

InMallzing  correction  favors.  On»  memaitt,  piMia 
Set  thermistor  to  51058  Qthen  hit  any  key. 
Set  thermistor  to  207807  Q  then  hit  any  key. 

jloltBivi.:--.-  ■  ni 
.M0*»a«80i.  -o: 

The  software  is  now  prompting  the  user  to  nrrave  the 
toggle  switch  to  the  position  which  selects  the  207807 
ohm  resistor.  Upon  doing  so  the  software  takes  the 
inputs  and  their  corresponding  readings  and  applies 
slope  and  intercept  formulas  to  the  numbers,  deriving 
new  calibration  factors.  These  two  resistance  measure- 
ments were  taken  from  the  specification  for  the  ther- 


mistor which  is  included  with  the  TrueGauge  module  in 
the  development  kit.  207807  ohms  corresponds  to  a 
temperature  of  1 0°C  and  51058  ohms  to  a  temperature 
of  40°C.  Upon  doing  so  the  software  takes  the  inputs 
and  their  corresponding  readings  and  applies  sk>pe  and 
intercept  formulas  to  the  numtwrs,  der1y3iM|MWflj||teitt 
tk>n  factors.  The  screen  then  reads: 


Setup     Begin      SetNP     Voltage     Current  Temp 


Storing  naw  OBtraclksn  factors.  On*  moment,  please:  [****] 


End 

TO  - 


Restore 


Quit 


RMding  battery  cMa. 


.b*Mu3lK9  eo  ^isin 


ei9CMMiciDehif>TeBtmokigy  Ina 
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Cfrtibrating  the  Nliillt2J^6^tiitt 


In  this  screen,  the  software  is  informing  the  user  that  the 
newtemperature  calibration  parameters  are  being  loaded 
totheEEPROM.  me  sottWSl«30myiBiilEiJ9Jift.. 
next  screen. 


qt>w£. 


Setup     Begh      SetNP     Voltage  Current 

Temp      End  Restore 

Quit 

f      :enmo'.i^ , 

EndCtObntam 

<Bitei!=End  (^ribfaaOQ^^     <Tab=skip  to  Next> 

<Back  T£d>=skip  to  Prevlous> 

In  this  screen,  the  software  is  prompting  the  user  to  end 
cedibratlon.  Pressing  the  <Enter>  key  will  end  calibra- 
tion, The  screen  then  changes  to: 


Setup    Begin  ^^Bf^^%ti^i^    GMBPit  ,^^,^^|»^ ,,^Quit  „^ 


End  Calibration. 
LAcldng  EEPROM. 

<Enter=End  Calibration> 


<Tab=sl<ip  to  Next> 


<Bacl<  Tab=skip  to  Prevk)us> 


Ttiis  screen  completes  storage  of  the  new  calibratkxi 
peuameters  to  the  Tru^Q^ijge  EEPROM.  The  screeM 
thmcliari£|es(otlw^^^<;^i^^ 


Setup     Begin     SetNP     VoU^ge    Cumnt  ^  Temp  End 

1 .  Specify  part  number. 

2.  Verify  broadcast  mode  is  off. 

3.  Verify  oommflnlc  to  TiueGauge  is  opecBtional. 

4.  Load  current  calibtation  factors. 

<Enter=Start>       <Tab=d^to  Next>        <Back  Tab=skip  to  Previous> 


Restore 


Quit 


Press  the  <TAB>  key  until  the  Quit  option  is  highlighted 
and  appears  in  the  window  then  press  the  <ENTER> 
Icoy.  Thiyendythigproeedutwr"  ""  ■ 

Verify  tfie  TrueGauge  readings  in  the  run  mode  u^ng  the 
method  described  eariier.  Confimi  ttial  the  voltage, 
current,  and  temperature  readings  are  wflhin  the  users 
tolerances.  If  needed,  the  slope  and  offset  calculaHens 
mey  be  calculatesi. 


When  the  actual  readings  are  within  tolerance,  use  the 
Lock  EEPROM  commandto  protect  the  values, then  exit 
outofthedemoprogram.  Thetest  equipment,  TrueGauge 
Module  and  charger/discharger  tx>ard  may  be  de-ener- 
gized and  disconnected.  Reconnect  the  battery  and  a 
themnlstor  to  the  TrueGauge  module,  reinstall  R7  into 
the  ehatgeiydisdiarger  board. 
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COMPARATOR  BIASINCmSP;  '  MOr 
UNIQUE  A/D  RANGING 

Minimum  and  maximum  voltage  biases  configured  in  the 
present  design  at  the  comparator  inputs  are  provided  trt 
Tablis  5.  Individual  explanations  of  these  bias  voltages 
wttlbHoW.'  Input  common-mode  voltage  for  the  com- 
ptuator  used  on  the  TrueGauge  module  is: 

VbD-1 .5volts=3.5volts 

This  common  mode  voltage  infomiation  was  used  to 
detemiine  the  bias  voltage  ranges  for  the  comparators 
as  shown  in  Jelaie  5. 

The  TrueGauge  module  schemsHc  InetiiiicKf  In  QwdeHa 
sheet  has  been  biased  for  a  mMn  pmmiim  mt@6. 
Individual  comparatw  biasing  can  be  adjusted  to 
commodate  special  cases. 

FIGURE  2  -  VOLTAGE  COMPARATOR 
SCHEMATIC 


BT1 


R1= 
IMohm 


R2= 


BATVC 


In  Figure  2,  the  voltage  divid»)d<1*M  and  R2  was 
selected  for  a  highest  allowable  battery  voltage  of  64 
volts. 


Voltage^  =  (61.9Kii/(1MQ+61.9Kii))*64  volts  =  3.7 
volts 

^=  (ei.9KQ/(fMQ+61.9KQ)r2.7  volts  =  J6 

:3.7  volts  is  on  the  high  end  of  the  linear  comparator  input 
cun/e.  If  a  higher  battery  voltage  is  desired,  this  voltage 
divider  must  be  recalGMlated  p  MMW^iopwi  vmH 
parator  biasing.  .  "^W'M'b  I 

In  Figure  3,  the  bias  wttoga^  cafcaiMad-as  ^towtj 

below:  | 

'  Vbte^^e^ = (572KQ/(1  Ma4-572Kn))*S  voKs  =  1 .8  voHs 

The  .1ohm  cun'ent  sense  resistor  and  battery  ban  be 
modeled  as  a  voltage  source,  such  as  the  one  shown  in 
Figure  3.  As  current  flows  into  the  positivetemiinalof  the 
battery  during  charge,  a  "c  (charging)"  voltage  is  devel- 
oped across  R6.  Alternately,  as  current  flows  out  of  the 
battery  during  discharge,  a  "d  (discharging)"  voltage  is 
ctoMMoped.  To  fnak«I^Mriirnatpower<oss,fhe  voltage 
drop  across  R6  wa^dbsigned  to  equal  plus^inus  '.S 
volts.  By  applying  the[.same  voltage  divider  to  this 
voltage  as  was  applied  to  the  SWVCC  voltage,  and 
applying  KIrchoff 's  Voltage  Law,  R  is  shown  that  the  Input 
pin  to  the  comparator  is  ka^iMiween  j.62to  1.M  volts. 
This  configuration  facilitatMMRf^illiMShlHoiv    .  ,i 

By  applying  Ohm's  law:  ''■  ' 


l  =  .Svotts/.ia=SA 


TABLE  5  •  BIAS  LIMITS  FOR  COMPARATORS  Hi  DEVELOPMENT  KIT  CONFIGURATION 


Voltage  Comparator 

Current  dbn^rator 

tiemperature  Comparator 

Voltage 

3.7  Volts 

1.98  Volts 

1 .5  Volts 

Voltage 

.16  Volts 

1.62  Volts 

.022  Volts 

FIGURE  3  -  CURRENT  COMPARATOR  SCHEMATIC 


v:.fi 


D  C< 


)  SWVCC=5V 

.  R9= 
•  IMohm 


R8= 
■562Kohm 

•  R7= 

lOKohm 

■  R6= 
.lohm 


ISENC 


>  SWVCC=5V 

>R9b 
•  IMohm 


>R8= 
>S62Kbhm 

•H7= 
'  lOKohm 


ISEIiig 
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Calibrating  the  l\/ITA11200  System 


Ther^tB,  to  boost thecuirent  range  fortheTrueGauge, 
ttie  current  sense  resistance  must  be  reduced.  For 
example,  a  current  range  of  10  amps  could  be  achieved' 
by  setting  R6  =  .OSohm.  However,  this  will  only  allow 
2mA  A/D  resolution. 

FIGURE  4  -  TEMPERATURE  tOUIPAmtO^ 
SCHEMATIC 


Calibration  of  the  TrueGauge  is  very  versatile.  The 
ojaeration  is  simple  enough  that  it  can  be  performed  with 
a  minimum  amount  of  equipment  in  a  lab  environment. 
^M>»n$^A^  £^  itexible  sno^uj^teiMjow  fully  ^u^>- 


ment. 


i  SWVCC=5V 


Bij?= 

3<30Kbhm 


THERMC 


>RT1-100Kotim 
■  ®25C,  -4.7%rC 


•  R11= 
■  130Kohm 


.3i        r  :  s;^' 


.TAM3H. 


Refer  to  Figure  4  for  the  following  explanation. 

Per  the  thermistor  specification,  the  highest  calculated 
temperature/resistance  values  are: 

-SS^C  12,162,871Q 

150°C  1358Q 

Calculating  the  equivalent  parallel  resistance  of  RT1 
and  R1 1  at  these4eni|MWIttire  limits,  the  following  val- 
ues were  found: 


no 


R4 

R„ 


128.6^ 

1,344n 


Finally,  using  these  equivalent  resistances,  the  upper 
and  lower  points  on  the  input  voltage  curve  can  be 

calculated.  ^   

l/o/fage^  =  (128,6KQ/(300KO+128,62Sa))*5volEi»  |  . 

1.5 volts  .  J.  ,  ^.'.r 

Voltage^  =  (1 ,344£2/(300Kn+1 ,344a))*5~ 


aTaV  T  r. 


-4 


■OJ 
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Reading  From 
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Software 
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Apply   14V  to 
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Terminals  on 
TrueGauge 
Module 
(VI) 


Take  Voltage 
Reading  From 

TrueOauge 
Windows  Demo 
Software 
(VI ' ) 


AppXy  Slope 
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i^ply  Of feet 

Equation  to 
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Values  in 
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Demo  Software 


O 
» 

Q) 

5" 

r-t- 

(D 


Nleroclilp  TachnoS^W^  &ae. 
3355  H.  cluuidlar  Blvd. 


Tru«Oaug«  Calibration  Flowchart 


size 
A 


Doatiraant:  Nunbar 


March  30.  ia94:iShaet 


ro 
o 
o 

(0 
(D 

3 


NOTES: 


>  fwflfiw  ei  ftivrt  rtwB  wis  r 


'        :  ,V-r.-r..!-"i!i-ocii^<VAn.«.  /V  IVl  K^T  1 

Microchip  ^vti^.-^^  t  I 

Communicating  With  EEPROM  In  MTA85XXX 


1.0  INTRODUCTION 

The  Microchip  MTA85XXX  family  of  microcontrollers  are 
multjchip  modules  which  contain  a  PIC16C54A  or 
PIC1 6C58A  microcontroller  and  a  Microchip  Technology 
24i.C01Bor24LC02BEe>ROM.  This  application  note 
is  intended  to  provide  users  with  the  most  efficient  code 
for  l%™-lii<e  communication  between  the  EEPROM  and 
the  microcontroller  in  a  PICSEE™  configuration,  which 
will  leave  the  user  a  maximum  eimount  of  code  space 
and  data  RAM  for  the  core  application.  The  code 
contained  in  this  application  note  will  allow  the 
PIC16C5XA  microcontroller  to  act  as  the  PC  master. 
The  24LC0XB  EEPROM  devices  have  I^C  slave  proto- 
col implemented  on-chip.  Please  refer  to  the  Microchip 
Databoolc  for  further  details  on  the  24LC0XB  EEPROM. 
Note  that  this  application  note  is  optimized  for  use  fri 
either  the  PICSEE,  or  PIC16C5X  plus  EEPROM  from 
Microchip.  If  a  discrete  PIC16C5X  and  generic  serial 
EEPROM  are  to  be  used,  refer  to  application  note 
AN554  which  details  a  complete  I^C  implementation. 

The  files  which  compose  this  application  note  (and  their 
epcapsulateid  post  script  print  files)  can  be  found  on  the 
Microchip  BBS.  The  EEPROM  animunication  code 
contained  witMn  this  iqjplieaHon  hole  can  be  easily 
mserted  into  the  users  application  code. 


The  frequency  of  operation  is  assumed  to  be  4MI-lz  and 
the  code  has  been  verified  over  the  entire  operating 
voltage  range  of  the  MTA85XXX.  This  code  was  tested 
with  the  fuse  settings: 

CSC  =  XT,  WDT  =  ON,  CP  =  OFF,  CKSUM  =  6715 

2.0  OPERATION 

2.1  General  Operation 

This  application  note  will  function  with  both  bonding 
options  of  tiie  MTA85XXX.  Please  refer  to  the 
MTA85XXX  datasheet  for  further  details.  This  applica- 
tion note  will  light  LEDs  on  port  B  to  indicate  that  tiie  data 
is  being  written  to  the  EEI'ROM  or  to  output  data  read 
from  the  EEPROM. 

The  SDA  and  SCL  bits  of  the  EEPROM  must  be  initial- 
ized to  '1  s  before  calling  any  of  the  EEPROM  subrou- 
tines. This  is  done  in  the  beginning  of  the  MAIN  routine. 
The  start  bit  will  not  be  initiated  properly  if  these  bits  are 
not  initialized  prior  to  calling  the  EEPROM  routines. 

TheregistersEEAOOandEEOATA  are  usaclto  commu- 
nicate EEPROM  address  and  data  Informtrtion  to  and 
from  the  EEPROM,  as  described  below. 


vcc 


5K 


Vcc 


.  J1  ^  J2 


I  |4KWz 


MTA85XXX 


Vcc 


— 
10K 


Voc 


NeTE:J1 


J2 


1-  2  = 

2-  3  = 


Read  EEPROM 
Write  EEPROM 


1  SDA 

2  SCL 

3  0SC2 

4  0SC1 


-W^ —  5  RAO 
10K 


6  RA1 

7  RA2 

8  RA3 
9RTCC 


SVDD/RB7  19 
Ofl  RB7  " 
RB6  18 
RB5  17 
RB4  16 
RB3  15 


^!vaHionmclr 

10K 


-AAA- 
RB2  14  l-AAA 
RBI  13 


RBO  12  PSAA- 
VSS  11 


1-  2  =1K  EEPROM  (MTA85XX1) 

2-  3 = 2K  EEPROM  (MTA8SXX2) 
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2.2  Hardware  Configuration 

The  schematic  for  this  application  note  is  located  in 
figure  2-1 .  For  the  user's  application,  the  pins  used  for 
SDA  and  SCL  can  be  easily  redefined  and  the  switches 
will  not  be  necessary.  This  application  example  shows 
the  MTA85XXX  driving  an  array  of  LEQs  |l<|t9i||*l,, 
writing  to  the  EEPROM  is  in  progress.   

2.3  Switches  for  array  size  and  to  determine 
read/write 

Bits  RAO  and  RA1  are  used  to  determine  if  the  user 
would  like  to  read  or  write  the  array  and  to  select  the 
airay  (1K  of  2K).  Bits  RA2  and  RA3  are  used  for 
SCLawlSDA.  '  " 

RAO  =  '0' for  1K  EEPROM  TA-'t^; 

RA1  =  '0'  for  read  EEPROM 

RAO  =  '1'  for  2K  EEPftdili"^ 

RA1  =  '1'  for  write  EEPROM 

2.4  EEPROiyA  Subroutines 


address  is  incremented  by  1  and  the  data  decremented 
by  1  after  each  byte  is  written,  until  the  EE  array  is  full. 
An  AAH  is  output  to  port  B  after  the  write  has  completed 
(actually  as  the  last  byte  is  writing). 

2.6  Read_Current  and  Read.Random  ^ 


A  .'  it  IS 


ts 


The  code  in  this  application  note  is  capable  of  perfomi- 
ing  byte  writes,  current  address  reads,  and  random 
address  reads.  The  names  of  the  subroutines  are: 

Write_Byte      Writedatasupplied  in  register  EEDATA 
at  address  supplied  in  register  EE/^g 

Read_Random  Read  data  into  register  EEDATA'troitt' 

address  supplied  in  register  EEADD 

Read_Current  Read  data  into  register  EEDATA  from 
current  address  in  EEPROM  memoiy;' 

Note  that  the  EEPROMs  used  in  the  MTA85XXX  de- 
vices are  also  capable  of  page  writes,  however,  page 
writes  are  not  detailed  by  this  application  note.  Refer  to 
AN567  for  details  on  page  \Nrite. 

2sS  Wrlte_Byte^}penriien^ 

'During  a  Write_^e  operation  tne  masiar  wM  #8l  ad- 
jdressanddatainfornmtkm  into  the  EElClpandMi^TA 
registers.  After  receiving  the  ackni^*tedp  fNMl  ttM 
EEPROM  that  the  current  EEADD  and  E^MUTA  ham 
been  received,  new  values  will  be  loaded  into  the  EEADD 
and  EEDATA  registers.  The  EEPROM  initiates  a  self 
timed  write  after  the  acknowledge,  during  whk:h  time  it 
will  not  accept  or  acknowledge  other  input.  The  master 
falls  into  a  loop  trying  to  input  the  new  address  and  data 
into  the  EEPROM.  This  k>op  will  continue  until  the 
EEPROM  finishes  the  self  timed  wnle  and  adoiowli 

This  application  note  uses  the  8-bit  port  B  to  provide  an 
LED  display.  During  a  write,  the  LEDs  should  initialize 
to  all  '1'  and  then  set  to  "0*,  1  bK  at  a  time,  with  each  bit 
indicating  that  anotfter  1/Bth  of  the  EEPROM  array  has 
been  written.  The  entire  opeiaUon  takes  less  than  1 
second  after  applying  power  or  resetting  the  part.  The 
|dMlBiK|Ml^l9l^4nd^^^^  The 


)inUIiU*  J; 

rA  read  opantion  will  attempt  to  read  the  data  at  the 
supplied  or  current  address  until  an  acknowledge  is 
received.  If  an  acknowledge  is  not  received,  the  part  will 
time  out  after  a  WDT  period.  If  a  Read_Random  is  being 
performed,  the  address  is  supplied  in  EEADD.  If  a 
Read_Current  is  being  performed,  the  current  address 
pointer  inside  the  EEPROM  is  used.  In  both 
Read_Random  and  Read_Cun'ent  the  data  is  read  into 
the  EEDATA  register. 

In  this  applKatkxi  note,  the  port  B  LEDs  are  used  to 
display  the  array  content  during  a  read  operatk>n.  A 1  - 
second  timer  is  called  between  each  byte  so  the  data 
cen  be  read  on  the  LEDs.  Note  that  with  the  MTA85X1 X 
version  (RB7  =  SEEVdd),  RB7  must  always  =  '1'  when 
the  EEPROM  is  being  accessed.  The  EEPROM  ad- 
dress pointer  (used  for  a  read  current  address)  will  be 
reset  to  the  last  EEPROM  address  if  RB7  is  set  to  a  "O* 
at  any  time.  Due  to  this,  the  RB7  pin  is  always  set  to  a 
'1'  during  a  Read_Current  operation  (even  if  the  data 
read  is  a  '0'  in  the  high  order  bit,  a  one  will  be  output  on 
RB7  to  keep  from  resetting  the  EEPROM's  internal 
address).  MTA85X0X  users  may  want  to  comment  out 
the  line  which  sets  the  RB7  to  a  '1 '  during  a  Read.Cun-ent 
operation,  so  that  they  will  receive  the  data  read  from  the 
EEPROM  on  the  LEDs  without  the  data  appearing  on 
RB7  altered. 


'PieMliamiwSelfiagram  memory  space  required  is 
1 48  IsyfiMt .  the  rne^or  sectk>ns  are  as  foltows: 


EEPROM  Subroutines 
EEPROM  Initializatnn 

Read/Write  S^jp 
Read  Array 
Write  Array 
1  second  timer 
End  of  p^pm  loop 


71  byte»— — 
4  bytes 
inltlaiize  SDA 

13  bytes 
27  bytes 
15  bytes 

14  bytes 
4  bytes 


and  SCL 

Jl4 


PS(»S71A-pia»,8 


C>  1 994  MlPrachlp  Techtjplpw  Ins. 
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Communicating  Witli  EEPROM  In  MTA85XXX 


3.0  TIMINGS  (ASSUME  4MHZ) 

Detailed  timing  diagrams  are  given  in  Section  8. 

Write  operation  will  take  approximately  350|is  +  stan- 
dard write  time  (Figure  8-1 ). 

Read  random  address  operation  will  take  e4>proximately 
i«iilf^ure8-2).  « 

Ftead  current  address  wM  fake  appMlfiUcRy  ZSB0  '  '^ 
(Figure  8-3).  '   '  ■  *  •  ' 


4.0  PC  COMPATIBILITY 

NOTE:  Code  is  not  strictly  I^C  compatible  on  all  timing 
parameters,  but  is  designed  to  work  with  a  Mlcroctiip 
24LC01B  or  24LC02B  EEPROM  from  3  to  6.25  volts. 
Commented  NOPs  have  been  included  whk:h  can  be 
put  in  place  to  gain  I^C  timing  compatibility.  Also  note 
that  '1's  are  driven  onto  the  bus  (not  floated)  by  the 
master  in  most  write  circumstances,  except  where  bus 
eBttt^ion4iiom  the  EEPR0M  slav»eauM  rMtlK 


5.0  ASSEMBLY  CODE  LISTING 

TITLE  "APP-NOTE  PER  I2C-BUS" 
LIST  P=16C54   ,  C=132 
.-LIST       P=PIC16C58  C=132 

I  PIC16C5X  to  24I£01B  or  2fiiC02B  moim  ceBWMIieal 
;  Based  on  Freuico  code. 

;  BUSS  SETriHGS: 

;  osc  s      'img.  •  m,  CP  =  off,  cksdm  = 


INTRODaCTION: 

The  Microchip  HTA85XXX  family  of  microcontrollers  are  multichip  modules 
which  contain  a  PICiecSXA  microcontroller  and  a  24LC01B  or  24LC02B  EEPROM. 
This  application  note  is  intended  to  provide  users  wit^  highly  conpressed  .  j 
assembly  code  for  conn^unication  between  the  EEPROM  and  the  Microcoijtroller, 
which  will  leave  tSI*  <ie«r  a  maxianim  amount  of  ,  ^oHe  epit^  Se^  l^a>„.^gp^^),q,^ . 
application. 

For  use  in  a  users  application,  the  file  EEPROM.  asm  has  been  generated. 
This  file  contains  the  EEPROM  subroutines  and  assembler  constants  used  in 
these  subrourines,  stripp^  f^^om  this  application. note.    Although  the  file 
ew^^_«!^«d.  it  Jftji|ffi}«blft^f8Si9a«f  iwPiieP3iS&°a&a  V«§»5iJt<»iv««u.. 

EEPROM  SUBROOTlNESi 

Write_Byte      -  Write  data  supplied  in  EEDATA  at  address  supplied  in  EEADD 
Read^Random    -  Read  data  into  EEDATA  from  address  supplied  in  EEADD  .... 

Read_Current  -  Reeid  data  into  EEDATA  from  address  currently  in  EEPROM 

1  -   -  -      ■  .  Jr  ■  .,.^.1  .     n  : 


1  iiK-bas^^.b 


-  UT 


OPERATION: 

For  detailed  operating  information  and  other  iiti>ortant  information  about 
this  application  note,  read  file  AN571.dOe 


********************************************** 

*»*».*.»..»».«»♦«*«»*»««.*.  Variable  Listing 
********************************************** 


********* 


************* 


**************** 


OK 

EQU 

OIH 

HO 

EQU 

OOH 

XQU 

OOH 

EQU 

OIH 

PC 

EQU 

02H 

STATDS 

EQU 

03H 

;PD 

EQU 

03H 

PORTA 

EQU 

05H 

PORTB 

EQU 

06H 

laSsLPORT 

EQU 

OSR 

iQ^ii^ect  Address  Register 
Real  time  counter  clock 
Program  counter 
Status  register 
Power  down  bit  in  STATUS 
Port  A  control  register  ■"z-^- 
Port  B  control  register 


so. 

EQU 

02H 

EBPRMI  Clock,  SCL  (I/O  bit  2)            f  ,     '  i:_ 

SDK 

EQU 

03H 

EEPROM  Data,     mXk  (I/O  bit  3) 

EE_OK 

EQU 

07H 

Bit  7  in  ep_OFWaet  used  as  OK  flag  for  EE 

PC_OFFSET 

EQU 

07H 

PC  offset  register  (low  order  4  bits) , 
value  b.issd  on  c^gOTMna-  aoila  ot  isntQii. 
Also,  bit  7  used  fs*  HBL^^  flag  ' 

EEADDR 

EQU 

08H 

EEPROM  Address 

EEDATA 

EQU 

09H 

EEPROM  Data 

EEBYTE 

EQU 

OAH 

Byte  sent  to  or  received  from 

<>•, 

;  I^EROK  (oontrol,  add^e«s<<  <||^||^^ir.          '  i 

COUNTER 

OBB :             ;  .Bit  coTmber  for  serial  tiaraRfi^ 

am 


'i:AiJ  0.1- 


othwbntb 


■■■9it»3ar 


.*«**********«**************    EEPROM  Subroutines  ************************** 
J  ************************>*******«.******************************************* 
Cianoonlcation  for  EEPROR  based  on  I2C  protocol,  with  Acknowledge. 

Byte_Write:  Byte  write  routine 

Inputs:     EEPROM  Address  EEADDR 
EEPROM  Data  EEDATA 
Outputs:  Return  01  in  W  if  OK,   else  return  00  in  W 

Rea4_Curreat:  Read  EEPROM  at  address  currently  held  by  EE  device. 
II9Uts :  NONE 

Outputs:   EEPROM  Data  EEDATA 

Return  01  in  W  if  OK,  else  return  00  in  W  ' 

Read^Randcan:  Read  EEPROM  byte  at  supplied  address        '    "  -a 
Iiqmts:    ^niOM  Address  EEADDR 
Outputs:  EEPROM  Data  EEDATA 

Return  01  in  W  if  OK,  else  return  00  in  W 

Mote:  EEPROM  subroutines  will  set  bit  7  in  PC_OFFSET  register  if  the 

EEPROM  acknowledged  OK,  else  that  bit  will  be  cleared.     This  bit  ^ 
can  be  checked  instead  of  referring  to  the  value  returned  in  W 
i^.*^**i^**^ie*0*******  ********************************************  ************* 


i  ft  (to  I 


.  *********:**r*0M^^**************i*^4t*m^^i^ilt^'*^^^^^^^i^ni^******************  ' 
RBAD_CURRENT  .  :        i    -Ir^?      ■         -.  ■ ■     :  . 

MOVLW     B'lOOOCiiae-      j  PC  offset  for  read  ourrait  addr.    BB_OK  bit7='l" 

MOVWF     SCjm^m         ;  l«ad  PC  offset 

(SOTO 


MIITE_PYTE  -  -     a  ' 

HOVLW  B' 10000000-  ;  PC  offset  for  %«rite  byte.  EB_OKi  bit?  =  "l" 
GOTO  INIT_ViRITE_C(Wma. 


b«I ;  tat  t 


READ_RianX»f 

MOVLH  B'lOOOOOli' 


;  PC  offset  for  read  raniSGin.    i^oict'bit?  =  'i' 


IHITJ«RlTE_CONTROL 

MOVWP  PC_OPFSET 
MOVLW      B' 10100000* 


I  IiOitd  PC  offset  register,  value  preset  in  W 
;  Control  byte  with  write  bit,  bit  0  =  *0' 


START_BIT 


I2C_P0RT,SI]»    ;  Start  bit,  iie*>  «wl  •^'MMutfe  «»  '1' 


.*******  up  output  data  (control,  address,  or  data)  and  counter  ******** 
.  ******* *****************************************^*%wf^fr*m^mm**************** 

MOVWF  EEBYTE 
mVLW      B' 00000011' 
TRIS  I2C_P0BT 


;  Byte  to  traaaf  ar  to  WtPIWW'  «lrea^  in  W 
;  SDA  and  SCL  set  to  out^t 


Communicating  With  EEPROIVI  In  MTA85XXX 


MSVLW     .8  '      V  Coittiter  to  tlraUsfer  -8  bibs 


Clock  out  data   (control,  address,  or  data)  byte  •*****•••*** 
. ************************ ***********************«#***^***** ***************** 

ODTPDT_BYTE 

Set  clock  low  during  data  set-up 
Rotate  left,  high  order  bit  into  carry  bit 
Set  data  low,  if  rotated  carry  bit  is 

a  '1',  then: 
reset  data  pin  to  a  one,  otherwise  leave  low 
clock  data  into  EEPROH 

Repeat  until  entire  byte  is  sent  ^  -I 

.*************** **********iw-"^^lQ|jl^'^lf^^Hg^0^  #0111*  gir*'^«^ftii»''t{tgiift#.t#'jfei»»*****^*  - ' 
_*************************************************************************** 


BCP 

SKPNC 

BSF 

BSF 

DBCFSZ 

GOTO 


I2C_P0RT,SCL 

I2C_P0RT,SDA 

I2C_P0RT,SDA 
I2C_P0RT,SCL 
COUNTER 
0DTPOT_BOTS 


_3SI 


MOVLW 
SKPNC 
TRIS 


BCF 
TSI3 


BSF 
BTFSC 
BCP 
BCF 


B'OOOOlOll' 


;   SDA  =  input,   SCL  =  output 

;  if  SDA  =  1  then  tristate  port  to  allow 

pullup  to  hold  avoiding  bus  content£dzl 


if  EEPROM  acks  in  <  lus  after  clock  goes 


12C_P0RT,SCL 
I2C_P0RT,SD* 
PC_0FFSET , EE_0K 
I2C_P0RT,SCI, 


low 

!  If  SDA  =  "0'  wait  until  SCIi  is  low  to  set  SDA 
input.  If  done  above,  could  have  sent  STOP  bit 

;  May  be  necessary  for  SCL  Tlow    at  low  voltage, 
also  give  resistor  time  to  pull  up  bus  if  last 
bit  written  =  '0'  and  there  is  no  ack  from  slave 
;  Bsiae  8Cb,  msntm  acdmowladpvoPki^^UTalid 
;  Check  SDIi  f oSfi'  a^mowledge  Hai^        - ' 
If  SDA  not  low  (no  ack) ,  set  error  flag 
Lower  SCL,  EEPROM  release  bus 


E5*T 


BTFSS     WC_OFg&se,SBJ3fi  !  If  no  error  Continue,  else  stop  bit 


.*****  Set  up  program  counter 
.******************* **********4 

MOVF  PC_OFFSET,W 

ANDLW  B' 00001111' 

ADDWF  PC 

GOTO  INITJDDRESS 

GOTO  INIT_WRITE_nATA 

GOTO  STOP_BIT 

GOTO  INIT_ADDRESS 

GOTO  INITJIEAD_CONTROL 

GOTO  RB»D_BlT_COl»lTER 

(SOTO  STOPJMT 


IS 


offset,  based  on  EBPRCai  operating  mode  *<•*•••' 
r  *************  *********%^^^l^*^*^4|4||r***********p 


PC  offset=0,  write  control  done,  send  address 

PC  offset=l,  write  address  done,  send  data 

PC  offset-2,  write  done,  send  stop  bit 

PC  offset«3<  mrite  control  done,  send  ad^etsip  T H'!- . d'^ 

PC  offsUNMMHS  e|Mi#  OOn^rol'  -.■>  .'V.tO'^  piT 

PC  of f set=S ,  set  ooonter  and  read  byte  ':<<'■      " . 

PC  offsete6,  randcm  read  done,  said  atop 


.**********  Initialize  EEPROM  data  (address,  data,  or  control)  bytes  ****** 
«*******************#**«**************************************************** 


WIX1_fiDCS>BSS 

INCP  PC_OFPSET 
MOVF  EEADDR.W 


Increment  PC  offset  to  2 
Put  EEPROH  address  In  W, 


(write)  or  to  i  (r^m 
ready  to  send  to 


GOTO 


PREP_TRANSFER_BYTE 


iSn  Sk.UIA'MAV 


INIT_WRITE_nATA  J.     .  .. 

mcF      pc_OFFSET  ;  BicramWffNg  wemmvtB  go  to  stop_bit  next  i" 

MOVF        EBDATA,W  ;  Put  tSPlim  OU*  In  V,  xeaOy  to  said  to  EEW)SM[  \ 

goto      prep_transfer_byte  '  .  aoi, 

■    .  M-*! 

IllIT_READ_CONTROL 

BSF  I2C_P0RT,SCL         ;  Raise  SCL 

INCP        PC_OPFSET  ;  Increment  PC  offset  to  go  to  READ_BIT_CODNTER  next 

WCmsn      B' 10100001'  ,■  set  m  »>Wt  mi^ol  byte,  ready  to  send  to  BMSt)»C 

SOTO        START_BIT  ;  bit  0  «  '1'  is«  read  operation 


mmmmm- 


]|^liSiflu^lSMatii1§GMMHM 


Head  SSeREai  date  ■*'9'*^*f^H^f^*******i\ff*f ****** 
, *************************************************************************** 


fumooo 


ItB»D_BlT_CO0IITKR 
MOVIM  .8 
MOVHF 


CODMTBR 


eaaatac  ■«  S  MMf  will  bis  ««ad  late  tSfSiSh 


REM>_BYTB 

BSP  I2C_P0RT,SCL  ;  Raise  SCL,  SDA  valid.     SD&  still  input  from  aek 

BTF3S  I2C_F0RT,SSA;  ;  ebac^  if  SDIk  =  1  .-i'  • 

miF  EEDATA  ;  irotate  cariy  bit  (»aaa3»  igfeet  aBHaaternr-  .      fn.rv^  '- 

I2C_P0RT,SCL  ;  Lower  SCL 

DB^SZ  COUNTER  ;  Decrement  counter 

GOTO  READ_ByTE  ;  'Read  next  bit  if  not  finished  reading  byte 


t—: 


ST0P_B1T 

BCF  I2C_P0RT,SDA 

MOVLW  B' 00000011 •  : 

TRIS  I2C_P0RT 

BSF  I2C_P0RT,SCL 

NOP  'Duai-'T 

BSF  I2C_PORT,Sia  i«,  S 

B^SS  PC_OFPSBT, 

RETLW  NO 

RETLW  OK 


SDA=0,  on  TRIS,   to  prepare  for  transition  to  '1' 
SDA  and  SCL  set  to  outputs,   BitO  and  Bitl   '  input 

SCL  =  1  to  prepare  for  STOP  bit 

4uNOPs  neceaamir  *m  itMu.ll|W»lii*Wl8#teB  ?  4.7iu> 

Stop  bit,  StUk  tsanaition- te;Mf 

Check  for  error  .»{■»,-• 

if  error,  send  back  NO 

if  no  error,   send  back  OK 


■.-■1 
•  -T 


;      Note:  SDA  and  SCL  still  being  driven  by  master,  both  set  to  outputs. 

. Bnd  BEPROtt  Svi>routines    *******■-******************-  ^  loTB  wyr> 


.t************************************************************************** 
.***«*************************-  ig^xif  routine  ****************************** 
. *************************************************************************** 
START  .  '"O'B 

■39 

.************************•**    Initialize  EBntCW  „t^jf0»i»^*«*********«**«******  ■  j- 

.  ******************************************«*ifc#*n***,^*********************** 

MOVLW       B' 00000011'  ;  SDA.  and  SCL  =  output,   BitO  and  Bitl  =  input 

TRIS  I2C_P0RT 

BSF  I2C_P0RT,SCL        ;  Initieaize  SCL  and  SDA  to  -1' 

BSF  l^jeStSirfeill^  kl^M  »>B»   --"i  ■        .      .=!J-',.  I. 


,***  VARIABLE  FOR  MAIN  ROUTINE  THAT  ARE  NOT  USED  IN  EEPROM  SUBROUTINES  **** 

.*******************************************************************ikit****** 


COUNT 

EQU 

OCH 

;   REGISTBK  FOR  #  OF  BYTES  IN  ARRAY  WRITTEN  OR  READ 

LEDS 

EQU 

ODH 

;  REGISTER  TO  HOLD  DATA  TO  OUTPUT  TO  PORT 

T1MHI_0L 

EQU 

OEH 

;  REOISI^  FOR  OUTER    LOOP  VARIABLE  FOR  TIH^ 

TIMESJC 

BQU 

OFH 

;  REoisirait  mm  vmms  loop  variable  for  nmm/:,  u 

TnjER_IL 

BQO 

lOR 

;  REGISTER  Qimt    LOOP  VARIABLE  FOR  TIMER 

EEIKPARTIAL 

EQU 

lOH 

;   1/8TH  OF  IK  ARRAY   (128  BYTES  TOTAL) 

EE2KPARTIAL 

EQU 

20H 

;   1/8TH  OF  2K  ARRAY   (256  BYTES  TOTAL) 

EEIKFULL 

EQU 

8  OH 

;  128 

EE2KFULL 

EQU 

OOH 

;   WILL  =  FFH  AFTER  DECREMENT,    EFFECTIVELY  =  256 

SIZE 

EQU 

OOH 

;  BITO  ON  PORT  WILL  BE  READ  TO  DETERMINE  ARRAY  SIZE 

RB2UD0BimiTB 

EQU 

OIH 

;  BITl  W  I<9BT  HILL  BE  READ  TO  DETERMINE  IF  USER 

t  (OlirV  TO  BEAD  OR  HRITE  THE  AISKY  JO£  T^'.il    'T  T  139 

mme>         ma  j    emtMMiac  9iiiL4tt9nt<»(  vix)  on  htabsxix  devices      .  r-  ,  . 


IMOKK 


Communicating  With  EEPROI\/l  In  l\/ITA85XXX 


RMid  /  WEi.t0    Set-Up  *****************************. 


HOVLW 
TSIS 
MOVHP 
MDVLW 

MDVWF 
MOVWF 
MOVWF 


OOOH 
PORTS 
EBADDR 
OPFH 

LEDS 

PORTS 

EEDATA 


as 


PORfB  =  OUTPUT 
1^  XDDRBSS  =  OOH 
nUTIALIZE  DATA  TO  'FF' 

INITIALIZE  PORTS  OUTPUT  FOR 
SET  PORT  B  TO  ALL  'I's 
INITIALIZE  DATA  TO  ALL  "1' 


%  TXXfB  INDICATOR 


BTFSS       PORTA,  READORWRITE  ;   IF  RAl 


•1'  THEN  WRITE,  RAl 


THEN  READ 


-SIZE  ,cis,v         SLaAGMrfl  SI 

MOVLW  EElKPAR1IKL:,^,v^.stWX>0Vt^  OF  ARRAY  SIZE,  IK 

BTFSC  PORTA,  SIZE  ..nt  ^-rVifi  ^  •O'  .^l^  Ig^HKIJaj.  ^II  '1'  THEN  2K  njo^ 

MOVLW  EE2KPARTISfc       •,    _*  IHIf  S^DK^,,;$|  M  ,10  *WWf  ^ZB.  .2lts-  .T,v,-:  li  JJ,"," 

MDVWF  COUNT 


otee 


CMii_WRITB 


CALL  WRIT?_BWE 
CLRWDT 

BTFSS  PC_OFFSET,EE_OK 
GOTO  CALL_WRITE 
mCF  EBADiai 
EEDATA 

COOMT  '0-  _ 


DON'T  TIME  OUT  DURING  EE  OPERATIONS 
TEST  EE_OK  BIT  DETERMINED  DURING  ACK  CHECK 
IF  NO  ACKNOWLEDGE,  ASSUME  PART  IS  STILL 
inilTING  AND  KEEP  TRYma  CNTU.  GET  TH^O^. 
IF  EMIT  DOES  ACK,  CBMiGB  mVTAsfiliP  ADERESS  - 


******* 


BTFSS 
GOTO 


BCF 

RLF 

MOVE 

IB>VHF 

GOTO 


UPDATE  LED  OUTPUTS  TO  INDICATE  ARRAY  BEING  WRITTEN  ******* 
LESS.OeH  ;   IF  BIT6  IS  CLEAR  BEFORE  SHIFT  THEN  ARRAY  IS 

INPINITELOOP  ;   FINISHED  WRITING   {EXCEPT  LAST  gXTE  STILL  NOT 

;;ii.t  y  ibtDONE)  00  NOT  CLEAR  BIT?  (miH^^a^lUJtif^aSmmyf 
t,-  !tmLL  LOSE  THEIR  VDD  Sim  m^WftKSS'-mSK  WeSB;r 
STATUS,  0  ;   SET  CARRY  BIT  TO  '0' 

LEDS  ;   INCREMENT  %  DONE  INDICATOR 

LEDS.W 
PORTB 
SET_SIZE 


.*************************    Tiine^  1-second 

.******************************************* 

TIMER 

MOVLW  .107 
MOVHF 
OUTTERJiOOP 
CLRHDT 
MOVLH 
MOVWF 
MIDDLE_LOOP 
MOVLW 
MOVWF 
INNER_LOOP 


r *********************** ********* 
r******************************** 


GOTO 

DECFSZ 

GOTO 

DECFSZ 

GOTO 

RETLW 


.25 

TIMERJBi. 
.123 

TIMML.II' 

TIMER^IL 
IN1JER_L00P 

TIMER_ML 

MIDDLE_LOOP 

TIMER_OL 

OUTTEBJUMP 

OOH 


.**^.«;*«^«*#**«i^A.1lr #.###«**********  ***************************************** 


.****************************    Read  Array  ******'#**a*-********************** 


&27 


SETSIZE_READ   

MOVLW  EBlKFtlU. 
BXFSC      PORTA,  SIZB 

MOVMP  COONT 


laitv  emamm  to  array  size,  ik 

IF  SM  "  *«'  THEN  IK  EEI>RCai,  IF 
INIT  CODHTBR  TO  ARRAY  SIZE;  2K 


1'  2K 


CMatJ(EAD_RANDOM 


CALL 

READ_RANDOM 

t' .  ■  .■  - 

BTFSS 

PC_OFFSET, EE_OK 

;   TEST  EE_OK  BYTE  DETERMINED  DDRINQ  ACK  CBBeK 

GOTO 

CALL_READ_RftNDOM 

;   IF  NO  ACKNOWLEDGE,  TRY  AGAIN  UNTIL  RESET. 

mcF 

BEADDR 

-■  ■-  :,;ci 

yet';  t 

MOVP 

EEDATA.W 

MOVWF 

PORTS 

CALL 

TIMER 

;   SLOW  DOWN  OUTPUT  SO  IT  IS  READABLE  ON  LEDs 

BSF 

PORTS,  EEVDD 

;  Always  set  RB7  to  '1'   for  MTA85X1X  devices 

DECFSZ 

COUNT 

;       May  see  flash  on  LED.     If  rise  time  is 

■•.T»K« 

GOTO 

CALL_READ_RANDOM 

to  slow,  EEPROM  may  not  be  powered-up  yet 

;  RESET  SIZE.JIEAD 

MOVLW  EEIKFULL 
BTFSC       PORTA,  SIZE 
MOVLN  EE2KFDLL 


INIT  COUNTER  TO  ARRAY  SIZE,  IK 
IF  RAO  =  "0'  THEN  IK  EEPROM,  IF 
mlT  COtlNTER  TO  ARRAY  SIZE,  2K 


THEN  2K 


CALL_RZAD_CaRRENT 


CALL 

read_cdrren¥*'^ 

BT7SS 

PC_OFFSET,  EB_0K 

GOTO 

CALL_READ_a3RRENT 

BSF 

EEDATA,  EEVDD 

MOVF 

EEDATA.W 

HOVHF 

PORTS 

CALL 

TIMER 

DECFSZ 

COONT 

GOTO 

CALL_REM>_CaRRE391' 

•£>J  1 

:  '  •,  Sa ,  TJI 

TEST  EE_OK  BYTE  DETERMINED  DaRIIte  ACK  CfflS^^'''-' 
IF  NO  ACKNOWLEDGE,   TRY  AGAIN  IQNTIL  RESET. 
Always  set  RB7  to  '1'  for  MTA85X1X  devices 
During  READ_CURRENT  RS7  CANNOT  go  to  a  "0' 
or  EEPROM  internal  address  will  be  reset 

mm:  mrnav  m  vt  xs  mmmm  m  usoa 


NOTE:  Data  observed  oh  port  B  will  always  show  a  ^1'  regardless  of  what 

was  read.     MTA85X1X  pinout  devices   (RB7=SVDD)  will  reset  the  EEPR^ 
internal  address  pointer  if  RB7  =  0.      If   the  user  has  the  MTA85X0X 
pinout,  the  BSF  EEDATA, EEVDD  line  above  can  be  ccmroented  out. 

'     Lilt    /tutKl    Its     :  '• 

End  of  Progrtmi  Loop  **#****SMa»«SS»*«******»»* 


**************  ********* 


■  ********************************************************** 


************** 


mrauixLooF 

MSVLH  OAAH 
MOVWF  FORTB 


NOTE I  Bit? 


*1'  to  l«t  XeeBSm  finish  writing,  HTA85X1X 


CITK, 


«3C 


.**************************************************************************** 
,*******************************  main    ********************************!i- ' 


•um 


WRITE_BYTE 


8CL 


8DA 


Bill 


Strobe  SDA 


InttalzaSCL  , 
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Hardware  and  Software  Resolution  For  a  Pointing  Device 


INTRODUCTION 


Thfl  rated  sJiNerencesti  pointing  cto^iee  tssokitlon  csn 
^confusing  to  the  ustn  this  application  note  describes 
tt)e  m^ttiQci  for  cateulaUng  hardware  ra^iabitian'  of  a 
point|nfl<tew(»thatlncofpprelesMlorod'^^>tii^ 
Mouse  Controller.  It  also  Ineludesan  oii|llitltl>Wtlil 
software  controlled  resolution  tetillipft  mna  <iwrio»at 
Mice  and  trackball  resolution  is  WllgtMtgm»  <3t'^ 
(Dots  Per  Irtch)^  im  nsism»  tWwlWldBOBBlWtlil 
hardware  «!r  software.  buttfrnm^M^mmmmiaSM 
tsehcase.  1  ,(U)>..  •■ ,- 

THEORY  OF  OPERATION 

The  basic  hardware  resolution  or  DPI  of  a  mouse  can  be 
found  using  the  following  formula: 

DPI  =  Rdif  per  iichj^<Logic  states  per  rev 
FIGURE  1  -TYPTCALELECTSO  MHCh 


Refer  to  Figure  1  for  a  visual  representation  of  the 
fMiwMirltlttarttil.  A  ataisdeMI  mbtipn  translator  fijir 
■mim  IV  ffie  tm  of  two  ibttad  whS^is,  one  e^ich  w 
hotte^  and  vertical  direction.  Also,  there  are  two 
opttial  receivers  per  slotted  wheel.  As  the  slotted  wheel 
turns,  btfiared  beams  aM^jhtttBaNematelytransmitted 
and  'blodced,  thar^«iniiinf  et  seitos  of  ones  and 
zavoatotheoptiealtansistorreceivers.  Thetwoopticai 
rM»hwrs^are  uffsat  from  each  other  such  that  the 
leetiWng  signals  are  90°  out  of  phase.  Tbis  phase 
aWerence  results  in  two  distinctly  separate  signals.  The 
controller  Interprets  what  direction  the  mouse  is  moving 
along  either  axis  by  the  order  in  which  It  receives  these 
two  signals.  It  should  be  noted  here  that  the  number  of 
closed  slots  or  bars  on  the  wheel  Is  equal  to  the  number 
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Before  we  can  calculate  the  number  of  roller  revolutions 
per  inch  of  mouse  travel,  the  number  of  ball  revolutions 
per  inch  of  mouse  travel  must  first  be  calculated.  This  is 
eiccompllshed  below  by  dividing  the  ball  circumference, 
or  pi  times  the  ball  diameter,  into  the  unit  of  interest. 

Revolution  perinch^=  MncWCircumfarencei^^ 

At  this  point,  we  can  see  that  the  number  of  roller 
revolutions  per  inch  of  mouse  travel  can  be  found  by 
multiplying  the  number  of  ball  revolutions  per  Inch  times 
the  ratio  derived  from  dividing  ball  circumference  by 
roller  circumference. 

Revolution  per  inch^=  Revolution  per  inch^' 
{Circumference^Circumference^^^^J 

Refer  to  Appendix  A  for  an  example  of  the  above 
calculations  using  typical  mouse  specifications.  Table  1 
iiKludes  actual  specifications  and  resulting  DPI  calcula- 
tions using  the  information  in  this  note. 

SOFTWARE  MODIFICATION  OF 
DEVICE  RESOLUTION 

Now  that  the  foundation  for  the  basic  physical  (true) 
resolution  of  the  mouse  or  trackball  has  been  estab- 
lished, let's  explore  how  this  can  be  modified  with 
software  running  on  the  host  computer  (device  driver) ,  or 
by  the  mouse  controller.  It  should  be  noted  here  that 
most  graphical  user  software  is  designed  to  opSiBte 
most  efficiently  within  the  200-400  DPI  range. 

Since  the  basic  resolution  of  the  device  is  set  by  the 
tracking  system,  it  cannot  be  increased  by  software. 
However,  software  can  provide  true  tower  resolutions  by 
applying  fractional  gain  factors  (e.g.  1/4,  1/2)  to  the 
actual  count  reported  by  the  encoders.  Software  can 
also  provide  variable  orfixed  scaling  factors  that  multiply 
the  actual  count  (e.g.  2, 4, 8).  Refer  to  Table  2  for  some 
examples  of  software  fractional  gain  and  scaling  effects 
on  the  hardware  resolution  of  different  pointing  devices. 
These  scaling  factors  are  sometimes  mistakenlv  inter- 
preted as  having  the  abilitv  to  increase  the  true  (hard- 
ware>  resolution.  In  general,  software  scaling  factors 

I  I 

TABLE  1 


that  increased  the  number  of  counts  reported  per  inch  of 
mouse  movement  contribute  to  a  loss  of  granularity, 
especially  if  a  fixed  scalar  is  applied.  Variable  scalers 
(often  referred  to  as  ballistic  gain)  that  apply  a  multiplier 
based  on  the  number  of  incoming  counts  can  supply 
increased  or  decreased  counts  per  inch  without  a  deg- 
radation in  granularity  at  low  mouse  velocities.  The 
primary  purpose  of  these  scaling  and  resolution  modes 
is  to  alter  the  mouse's  motion  sensitivity  to  suit  the 
individual  user. 

If  given  a  command  from  the  host  or  some  other  means 
(e.g.  hardware  switch  on  the  mouse),  the  mouse  control- 
ler  can  also  perform  these  tasks.  The 
MTA41 1 1 0  supports  the  command  method,  which  is  the 
most  efficient  in  terms  of  hardware  cost.  When  the 
MTA41 300  is  configured  for  the  RS232  interface  option , 
it  is  a  transmit-only  device,  thereby  not  supporting  the 
host-command  mode.  In  the  PS/2*  interface  mode  the 
MTA41300  controller  will  respond  to  the  PS/2  'Set 
Resolutiorf  command.  However,  this  response  is  only 
for  software  compatibility  purposes,  anMBWHWiNi^ 
tion  remains  fixed. 

The  MTA41110  implements  the  complete  IBM  PS/2 
specification,  including  the  software  fractional  gain  and 
variable  scaling  modes.  The  host  driver  software  must 
be  capable  of  issuing  commands  (e.g.  'Set  Resolutiorf, 
'Set  Scaling,  etc.)  to  the  MTA41 1 10  controller  in  order 
for  the  user  to  benefit  from  these  built-in  fimiware 
functions.  The  MTA41300  is  a  fixed-resolution  device 
and  any  desired  software  resolutton  and  scaling  modes 
must  be  performed  by  the  driver  software. 

Software  gain  and  seMngNnodM  can  also  be  impi*| 
mented  by  the  devieatlHtwr  software  that  runs  on  iM 
host  computer.  This  method  is  very  efficient  since  it  only 
requires  a  smaP  amount  of  addittonal  code,  which  ex- 
ecutes on  the  host  system.  Users  also  gain  access  to  a 
wider  variety  of  f  racttonal  gain  and  scaling  factors  than 
can  be  cost-effectively  implemented  in  the  nrause  con- 
troller. The  mouse  control  panel  under  Microsoft*  Win- 
dows^" is  a  good  example  of  such  host  software- 
oorrtroliwf  gain  and  scaling  factors. 


IBM  PS/2  Mouse 

Microsoft  Mouse 

Apple*  Mouse 

Trackball 

Ball  Diameter 

0.86  in 

0.87  in 

0.86  in 

2.25  in 

Ball  Circumference 

2.702  in 

2.73  in 

2.702  in 

7.07  in 

Roller  Diameter 

0.25  in 

0.1 96  in 

0.155  in 

0.30  n 

Roller  Circumference 

0.7^  in 

0.62  in 

0.487  in 

0.94  in 

Ball  Revolutions  Per  Inch 

0^ 

0.3Z- 

0.14 

Roller  Revolutions  Per  Inch 

1.273 

1.63 

2.054 

1.05 

Wirtdows  Per  Wheel 

40 

64 

24 

24 

Bare  Per  Wheel 

40 

34 

24 

Logic  States  Per  Revolution 

160 

m 

96 

96 

Dots  Per  Inch 

203.718 

417.07 

197.147 

101.09 
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At%generalm)le,aifteSii(«Miin*tfi9nfn^b»sonw>>' 
what  confusing  regarding  devloe  iMolution.  It  speidRM;' 
software-implemented  resolution  modes  for  a  PS/2  sys- 
tem, Including  Mooelarfiardware.  Aliso;  ftd^es 
software  commands,  sent  to  the  controllerf  rom  the  host. 
In  temis  of  this  absolute  resolution.  For  example,  the 
options  for  the  'Set  Resoluthrf  commands  are  1 ,  2,  4 
ai^  S^unts  per  millimeter  (25, 50, 100  and  200  DPI). 
These  options  actually  instruct  the  mouse  controller  to 
divide  the  incoming  count  by  8,  4,  2,  or  1  respectively, 
then  report  the  divided  count  to  the  host.  The  actual 
hardware  resolution  of  the  IBM  PS/2  mouse  is  200  DPI. 
Therefore,  for  mice  whose  hardware  resolutions  are  not 
200  DPI,  the  "Sef  Resolutiori'  command  will  not  be  the 
actual  available  resolution,^pt!iarth.%^;^^jg^plu- 
tlons  will  be  ratioed  relaii««  to  -fb  2Qg^lj||^|ii^||re) 
mouse. 

DYNAMIC  RESPONSE 

There  is  a  maximum  linear  velocity  at  which  the  mouse 
can  be  moved  and  be  100  percent  effective.  Operating 
the  mouse  faster  than  this  will  result  In  n)i§^dc|.liatfi'^-^ 
ture  infomiation.  This  section  WitrSI^'lll%^H|HE 
that  maximum  velocity. 

According  to  the  MTM1 110  data  sfteet,  WOf^  and 
VERToutMliS  9lW  «tiWlBd  at  -8700  samples  per  sec- 
ond. 

Sample  Rate  =  Frequency 

Period  =  1 /Frequency  =  1/8700  Hz  =  114.94^sec 

The  hardware  Interface  of  the  Microsoft  mouse  which 
was  referred  to  earlier  will  be  used  as  the  example  for 
this  discussion.  It  has  64  slots  per  wheel,  which  results 
in  256  togic  states  per  wheel  revolution.  The  equation 
below  displays  the  method  for  calculating  ttw  whsaFs 
maximum  rotation  rate. 

Ponod^,=  (256M  14.94  usee)  =  29.42  msec 

Fivquancy^=  '"P"''^*'****''  rev/sec 
Since  ttte  roller  and  wheel  are  erttached  on  the  same 
siiaft  in  a  one-to-one  relationship,  the  frequency  of  the 
RilE  IMM  4lt»aipilllia3i98  revolutions  per  second. 


The  velocity  of  the  roller  can  then  be  found  with  the 
following  equation.  Remember,  the  loHer  radius  is  .098 
MmwajRflMliMta  AAsrasoft  mouse  section  in  Table  1 
M'iiaMsaMHBitoftar..  IV 

Because  there  Is  a  cRrect  oorreto^  between  mousa 
travel  and  travel  alongthesurface  of  the  tracking  baH, 
the  velocity  aS,  the  mouse  can  alto  nottiocpaed  20.9 
Inches  per  second.  , 

CONCLUSION  ■  ,  ■ 

f%imito(alcuiati(^ifflAlf8S|rinh^n6te,ii 
#wHl!ieinouse  eotttroleMiaaiKMMecienihe  rasohitian 
of  the  nwuse  ortracldMdl>n0ilii9«9inpMe^a!faii#9n 
#if!echanical^A»8R>  i  .h-  , .  :wf      «ti»  \ 

APPENDIX  A 

These  detailed  calculations  show  how  the  resolution  of 
a  typical  mouse  is  determined.  They  show  how  the 
physical  design  of  the  motion  tracking  system  (encoder 
wheels  and  tracking  rollers)  determine  the  basic  (hard- 
ware) resolutkjn  of  the  mouse.  This  analysis  assumes 
that  the  mouse  controller  can  report  one  count  to  the 
system  for  each  logic  transition  at  the  motion  encoders. 
This  applies  directly  to  the  MTA41300  and  MTA41 110 
Mouse  and  Trackball  controllers  since  they  both  contain 
modes  that  report  one  count  for  each  motion  encoder 
state.  The  MTA41 110  also  contains  software  resolution 
modes  wht@b  mm  mseamti  later  in  tMs  aiMiysis. 

First,  let's  begin  by  sizing  a  typicai  tracking  bell  and 
roller.  The  roller  Is  a  small  diameter  wheel  plaeed  in 
contact  with  the  main  ball. 

Dlaweter^=  0.86  In 

Caincini<brwic«{^>ic*OiairMter^s  2.702  hi 

13iBme«9r^„=  0.159  in 
GrBuniterence^=iCDIam0ter^=  0.5  in 

Now  let's  see  how  meny  revolutions  the  tracking  roller 
makes  in  one  inch  of  mouse  movement. 

Revolution  per  inch^„=  ^  \r]cWCircumfergnce^„=  0.37 
Revolution  per  inch^=  Revolution  per  inch^  • 


TABLE  2 


Tim  DPI 

X2 

X« 

HOM 

XO.26 

IBM  PS/2  Mouse 

200 

400 

800 

100 

50 

Microsoft  Mouse 

400 

800 

1600 

200 

100 

Apple  Mouse 

200 

400 

800 

100 

50 

Trackball 

100 

200 

400 

so 

NOTES:    The  examples  given  in  this  application  note  are: 

1 .  Hardware  examples  for  illustration  purposes  only. 

2.  Do  not  imply  the  use  of  MTA41 XXX  devices  by  ttie  respective  manufacturers. 


A<i#%UMisafih|i'.'{M)nE)lQairlas. 
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Notice  that  the  size  of  the  tracking  t>all  has  no  Meet  on 
the  number  of  revolutions  the  tracking  roller  makes  In 
on«lnch.  This  is  because  one  inch  of  mouse  movement 
corresponds  directly  to  one  Inch  of  movement  alonj|  Itie 
clicumference  of  the  taD;  Ho««eve^,.,ipller 
affect  base  resolution'.    '  ~      >  < 

ISfe  examine  the  physical  design  of  some  nomial  and 
high  resolution  encoders,  and  see  why  they  are  a  key 
component  in  determining  basic  resolution.  The  roller 
and  an  encoder  wheel  are  usually  mounted  axialiy  on  a 
single  shaft,  resulting  in  a  one-to-one  relationship  be- 
tween the  roller  asvi  encoder  wheel. 

Opttoal  receivers  per  wheel «  2 

To  detemnine  the  direction  of  movement,  quadrature 
output  is  needed  from  the  encoders.  Standard  industry 
practice  is  to  use  two  optical  flkMnelMBi^eig.  phele- 
transistors)  for  this  purpose. 

Windows  per  wheel  =  25  J  j"^  -  '  ". 

Bars  per  wheel  =  25 

TbeniimNNrcfvirindcMSindtersilntheeiioodir]^^ 
tdBfairaiBeathewiinitagetpiiliiMi  |Wiiwqiil>tthii»t<lie 


..n  Si: 
=1.:-'" 


'-.ait  -iQ^^  iloee     ir«i^ .« 

M 


...1'6!'  >j 


"■.'1 


Now  leTs  calculate  the  tasiepiaairHwohitten  In  DH/' 
(DotsPerlnch)     -  J-  .^v«- j.  iflubp-    ■    .  c 
■    .i! eecHiW  o'jUI jae\ Ofrlr .-  jih... 
Logic  slaiK  [Mr iWs'(9)i^^ 

The  basic  resolutnn  in  DPI  can  now  be  calculated  as: 

DPI = /7ei/per/nc/i^*Logic  states  per  rev = 200. 1 95 

Now  let's  analyze  a  tyiKB^  tii^-  rasohition  mouse^ 
Typically,  "^ligff il»seh|fflBlBle»  W(ites»d*alls  confaii%  \  ■ 
more  witKlows  in  ttwtalpimraiieete.  .Ih»j9siuas  fet. 


Windows  per  wheel  =  50 
Bars  per  wheel  =  50 


n'^e-ertriwoo;; 
Ltr,  «kiBiie«,t  teitae 

LogK  states  per  rev  =  Optical 'fcw^^^* 
( WMows^,+Bars^^  =  29i  at  H  ' 

DPI  =  Re\/per«f7c/j^„*Logk:  states  per  rev = 400.39 

Doubling  the  number  of  windows  in  the  encoder  wheelfs> 
converts  a.|a^^MOgp|  mty^  Wp  a  true  400  DPI 

mouse. 
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Communicating  with  the  PC™  gfts  Msmg  tlie  PIC16C5^ 


INTRODUCTION 


The  Microchip  Technology  Inc.'s  24C)OCi  _  ^ 
Serial  EEPROMsfeahireaiiteviit  iiiiiilMf^^ 
The  bus  protocol  is  PC  camptMMs:  I 
port  with  PC  bus  protocol  in  a  microcontioiler  is  trivial. 
This  eq>plication  note  is  intended  for  design  engineers 
who  want  to  develop  theirsoftware  programs  toconimu- 
nicate  a  micrDcontroller  with  a  2-wlre  bus  Serial  EEPROM 
through  a  general  purpose  I/O  port. 

Unlike  the  3-wire  bus  Serial  EEPROI^s,  the  24CXX/ 
85CXX  communicate  with  any  microcontroller  only  by  a 
serial  data  I/O  line  (SDA)  and  a  serial  clock  (SCL).  Chip 
select  is  not  required.  Data  transfer  may  be  initiated  only 
when  the  bus  is  not  busy.  During  such  transfer,  the  data 


line  (SOA)  must  remain  9WW0  whenever  the  ckx*1ir^ 

^»im  is  Mi^^  mmm»i^  ««»  da^  Hne  while  the  dock 
iihe  high  ap&  imSfpt«e<f  asa  START  or  STOP  condi- 
tion. A  typical  transfer  format  is  shown  in  Figure  1 . 

After  the  START  condition ,  a  slave  address  is  sent .  This 
address  is  7-bits  long,  the  eighth  bit  is  a  data  direction  bit. 
(R/W  -  a  logical  '0'  indicates  a  transmission  WRITE,  a 
logical  '1'  represents  a  request  for  data  READ.  A  data 
transfer  is  always  temiinated  by  a  STOP  condition 
generated  by  the  master  controller.  However,  if  amaster 
still  wishes  to  communicate  on  the  bus,  it  can  generate 
another  START  condition  and  address  another  slave 
without  first  generating  a  STOP  condition.  Various  com- 
binations of  read/Wilta  fomute  w^ttmif 
such  transfer.  ® 


FIGURE  1  -  TRANSFER  FORMAT 


,  ACKSIQNAL  .  r 

M6B-L8B  Mse-ue 


MSB-tSB 


"iV"u\::)ciA":)(iiyi' 


START  AODRiSS  RK  MSt. 
C0NDITK3N 


— I — 

DATA 


m.  STOP 
OQNDinaN 


PIGtme  2  •  A  SIMPLE-I* 


^  _  .  


-+5V 


tKlTE  2 


NOTE  2: 


AO 

Vk 

A1 

A2 

SCL 

Vss 

SOA 

8J 

—  NOTE  1 
6 


NCPINFOR86G)sc  ' 
NF  PIN  FOR  24001 A  AND 
WP  PIN  FOR  2- 
CHIP  ADDRESS  INPUTS, 
TIED  TO  Voc  OR  Vss. 


JiX 


OSC1 


RB6 
RW 


06C2 


PIC16CS4-Xr 

V9S 


X 


I  XTAL 
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Communicating  with  the  i^C^  Bus  Using  the  PiC16C5X 


An  example  program  has  been  provided  in  Appendix  A 
containing  ali  PIC16C54  routines  needed  to  exercise  s 
,24CXX  or  85CXX  device.  Asimple  hardware  connection 
is  iilustrated  in  Figure  2."  A  maximum  of  eight  24C01  A/ 
24C02A/8SC72/85C82's.  orfour24C04A/85C92's  can 
be  addressed  by  a  microcontroiier  on  the  same  two  wire 
bus  without  additional  intaifeoes.!Each  device  is  idalitf- 


Figure  3  as  shown  below  SlHrait^  how  the  bit  ^reara 
is  set  up  for  READ  and  WHifi  modiilixttje  microcom- 
puter programming  software  pifbr  to  ^dingtt  on  the 
two  wire  serial  bus.         -»  »-*-^M^^^"»".^H<  ; 

The  stop  condition,  after  the  write  sequence,  starts  the 
internal  self-timed  write  cycle  which  may  last  <jp  to  6 


.Hefd  by  its  Chip  Addnsaw-ancr  wffl  only  respond  to  WgrsgB  tniHiseconds  (.7  ms  per  byte).  Acknowl«lQ»:  sigml 
correct  slave  address.  A  detailed  bus  flow  is  shown  ki          ^"l^    monitored  during  this  period. 
Figures.   


Au^wr.      Bruce  Negley 

  -    -■  Ji*,uTi  t  t-""Sf'ifi'i.lC-  '.  ^itlhA  . 


FIGURE  3A  -  SETTING  THE  INTERNAL  WORD  ADDRESS  OF  THE  24C}0(/85CXX 


SCL 


njiTLnxLTiJiJiJiJiJiruTjm^ 


1 

0 

1 

0 

A2 

A1 

AO 

W  fl  Ack 

A7 

A6 

AS 

A4 

A3 

A2 

A1 

AO 

Ack  1 

1 

1  1 

J" 


1.  START  CONDITION 

2.  4  BIT  DEVICE  CODE  1010  FOR  2'  

3.  DEVICE  ADDRESS  AO=PA,  HIGH  ORI 
BIT  AS  FOR  24C04A/S5C92 

4.  0=WRITE  TO  ADDRESS  REGISTER 


5.  EEPROM  DRIVES  BUS  LOW  WITH  ACKNOWLEDGEMENT 
(TIMEOUT  IF  NO  RESPONSE)  _    _ 

6.  ADDRESS  FOR  DATA,  A7-A0  (MSB-LSB) 

7.  BUS  LOW  FOR  ACKNOWLEDGEMENT 


!  FIGURE  3B  -  BYTE  WRITE  SEQUiN6En 


A 


vnJiJTJTimjirLJiimJxri^^ 

I  d7  II  d.  II « II  d4  lu  II  d»  II  di  II  do  II  >^  II  ^  II  d6  II  ds  II  d4  II  II  d»  li  di  II  dTii  AC.  iRn  ^  r 


FUST  DATA  BYTE 


i  


SECONO  DATA  BYTE 
KM      •»!  ■t<-^ 


THIRD  DATA  - 
BYTE.  ETC. 
STOP 
CONDITION 


!  FIGURE  ae  -  ReftErMGDEseotfatsi- 


^  IF ^  i  m  i  m iWll  * ill^ft *  II ^ fjlTTj  r 


JTLFl 


6 


t 


1.  START  CONDmON 

2. 4  BIT  DEVICE  CODE  1010  FOR  24CXX/85CSO( 
3.  DEVICE  ADDRESS  A2,  A1.  AO.  AO  -  PA,  HIQH 
ADDRESS  BIT  A8  FOR  24C04A/aSCK 
4. 1  =  READ  MODE 

READ  UP  TO  128  BYTES  (24C01A.  86C72) 
READ  UP  TO  256  BYTES  (24C02A/MA,  85C82/92) 


5.  ACKNOWLEDGE  FROM  EB>ROM 

6.  FIRST  DATA  BYTE 

'►aswjcA^ic 
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MPASM  01.01.05  Int  12CBUS.ASM  8-17-t»4  lSil*?iO 
TWO  WIRE/I2C  BUS  INTERFACE  WITH  PIC16C5X 


FAQE  1 


LPC    OBJECT  CCffiB 


LINE  SOURCE  TEXT 


00'-') 


0001 
0002 
0003 
0004. 

coos' 

.  *****  *  ****  *********  *****  II 
0006 
0007 
0008 
0009 

mm 

0011 

0012 
0013 
0014 
0015 
0016 

. ************************4 
0017 
0018 
0019 

0020 
0021 


TITLE  •  TWO  WIRE/I2C  BUS  INTERFACE  WITH  PIC16C5X  * 


LIST  P=16C54 


ruse 


*************** 


******** 


************* 


COOv 


Two  wire/I2C  Bus  READ/WRITE  Sample  Routines  of  Mior' 
24CXX  /  85CXX  serial  CMOS  EEPROM  interfacing  to  a 
PIC16C54  8-bit  CMOS  single  chip  inicrpQWSWt^ 
Revised  Version  2.1  (8/16/94). 

Part  use  =  PIC16C54--XT/JW 
KQt^  1)  ^1  timings  are  based  on  a  reference  crystal  frequency  of 
,       -  ,     *dij.ch  is  equivalent  to  an  instruction  cycle  time  of  2  usee. 
'  Z  )  hS^m^  and  Utecal  vsIjkisljum  ire^  in  octal  unless  otherwise 
.f!SM«iC|.ed.,  ,  -  -i-5i-t  .! 

********************#,#*il**^*4fe»***#*********^.***** 


Files  Ass: 


0002  „ 

0022 

PC 

EQU 

2 

Program  counter 

ofloa. 

rar*OW  MssBnei 

jap??,  STAT 

EQU 

3 

PIC  status  byte 

O0O4 

0024 

FSR 

EQP 

4 

File  Select  Register 

0005 

0025 

RA 

sm 

5 

1 

Worn.  A  use^  t^^^oc't  devl^se  ■mS^mmM 

m.fi  .  .  -. 

0026 

RB 

BSfO 

i 

tan  «^  am,  isC  =  scl 

0027 

ii»  ae«a>i>M>*«  w 

0008 

0028 

STATUS 

EQU 

08 

status  register 

0009 

0029 

FLAG 

EQU 

09 

Common  flag  bits  register 

OOOA 

0030 

EEPROM 

EQU 

OA 

Bit  buffer 

OOOB 

0031 

ERCODE 

EQU 

OB 

Error  code  (to  indicate  bus  status) 

OOlO" 

0032 

ADDR 

EQU 

10 

? 

0011 

0033 

DATAI 

EQU 

11 

Stored  data  ^gwt  register      , . 

0012 

0034 

DATAO 

EQU 

12 

Stored  data  output  register 

Q013 

0035 

SLAVE 

EQU 

13 

Device  address  (lOlOx^ocO) 

0014 

0036 

TXBUF 

EQU 

14 

TX  buffer 

0015 

0037 

RXBUF 

EQU 

15 

RX  buffer 

0016 

0038 

COUNT 

EQU 

16 

Bit  counter 

0039 

eols 

0040 

TIMERO 

EQU 

18 

f 

Delay  tinerO  .„ 

0041 

TlMKRl 

^mi 

19 

—A. 

■  BBlfiy  tiiawfit ant, 

0042 

■  '"IX" 

.aottiwtmxj  ^nl  r 

0043 

J  • 

•MM 


0044 
0045  ; 

0047  ! 

0048  ;  Status  bits 

0049  ; 

0050  Z  EQU 

0051  C  BOO 

0052  ; 

0053  ;  FUB  Bits 


Bit  Assignments 


1  ."(Jn*»( 
6S 


MIC  aou 
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MFASK  01.01.05  Int  I2CBUS.ASM  8-17-1994 
TWO  HIRE/I2C  BUS  INTERFACE  WITH  PIClfiCSx 


15ll7!0 


PAOi  2 


LINE  SOURCE  TEXT 


Mt9 


0007 
0006 


0000  0709 

0001  002B 

0002  0509 


0004  0C3F 

0005  0006 

0006  OSSE 


0054 
0055 
0056 
««S7 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
W!«S- 

oe«7 

0063 
0069 
0070 
0071 
0072 
0073 

oWf 

0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 

mm 


ERSORF 


01 
DO 


BQO 


sex. 

END  FILES/BITS  EQUATE 


I2C  Device  Bits 


•BQtr 
Ego 


9f 


RB7,  data  in/out 
RB6,  serial  clock 


Two  wire/I2c  -  CPU  ccmmunication  error  status  table  and  subroutine 


input     :  W-reg 

outi^t  i  ^E0iim_ 


error  code 
_         9XXOX  code 

lyi^MaAtVi  i  "  ■  *" 

error  status" 


SOL  locked  low  by  device   {bus  is  still  busy) 

SDA  locked  low  by  device  (bus  is  still  busy) 

Ne  tti^eim^mSge  from  device  (no  h«nd|id»j>tw) 

SDA  bus  iK>t  released  for  master  to  g^erate  STOP  bit 


Subroutine  to  identify  the  status  of  the  serud.  clock  (Sd.)  and  serial  data 
(SDA)  condition  according  to  the  error^ S^;,^^ ^JaSilie .  Codes  geaaeigbitd  ise^,^ 
useful  for  bus/device  diagnosis. 


BTFSS 
MOVWF 


FLAG.ERRORF 
ERCODE 

FLAS.ERROI^- 


Remain  as  first  error  encouneared' 

CI''  . 

IIOO 


;  Save  error  code 


>9 


STil^  bas  oemminlcation  routine 


input      !  none 

oatEmt    1  Initlallzfe'  bus  ceninunlotifei)» 

;  i»00 


sxoo 


«i»fi 
»l»i' 


Generate  START  bit  (SOL  is  high  while  SDA  goes  ^qKBi^  to  lev  transitlen) 
emd  cKeck  status  of  the  serial  clock. 
BST2AT   •  -  ^^^••iiii-  -  '  ^-  i't.00 

TRis      m  •  y* 

bsf        iffi.SSA  liht^'ii&ii  sda  is '  hi^ 


lies' 


KOOC 
OOOO 


©eoBnafrtciilnf      Ihe      ii^  llslji§  mift  i!tQl005)l 


HPASM  01.01.05  Int  I2CBUS.AfflI  8-17-li94  .:,1$:!^?>0 
TWO  WIRE/I2C  BUS  INTERFACE  WITH  PIC16C53C 


Vi-t  MBA. 

5-1  OW  HTJi'  r:r- 


LOG     OBJECT  CODE 


LINE  SOURCE  TEXT 


0007  05C6 

0008  OCOl 

0009  07C6 
OOOA  0900 
OOOB  04E6 
OOOC  0000 
OOOD  0000 
OOOE  0000 
OOOF  04C6 

0010  0800 


0011  0C3F 

0012  0006 

0013  04E6 

0014  05C6 

0015  0000 

0016  0000 

0017  0000 

0018  OCOl 

0019  07C6 
OOIA  0900 
OOIB  OSES 
OCIC  0C04 
OOID  07E6 
OOIE  0900 

mm  me9 


ft020  9ew 
0021  0006 
S023  OSES 


0107 

0169 
0110 
0111 
0112 
0113 
0114 
0115 

one 

,8ilT 

Oils 

0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 
0135 
0136 
0137 

m 

0140 
0141 
0142 
0143 
0144 
0145 
0146 

■mm 

0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 


BTFSS 

CALL 

BCP 

NOP 

NOP 

NOP 

BCF 

RSTLW 


RB.SCL 
1 

IS<SCL 

RB/  aSlk  rr~ll- 

RB.SCL 
0 


;  Set  clock  high 

;  Ready  error  status  @xdM  1 

;  Locked? 

;  pSn  locked  log^  ^  mtiem 

t        goes  low^^as  Stti  M0i 

•  Tii^ag  adjus^aaMt 


Start  elisc^  ^ain 


STOP  bus  coimnunication  routine 


Input 
Output 


None  -.1 

Bus  comnunicafiiiSIKt.  JEI!@9? 'O^osdltion 


Generate  STOP 
and  check  bus 


HOVLW 

TRfS 

BCV 

Bsr 

nop 
nop 
nop 

BT7SS 

CAW 

BSF 

MOVLW 


bit  (SDA  goes  frcn,)^iff  to  M0i  ijhtyteg  SGL  hig^  state) 
conations.  .11 


B'OOllllll' 
RB 


1 

RB.SCL 

RB.SBk  «|H1«IJ 


;  Put  S^^n  ^S^-jiit^e  in  output  state 


;  Reac^  error  code  1 
;  High? 

i^^g^  SCL  locked  low  fey  dlftee 

;>  saSft'gtsMB  f rem  low  to  hi^  firing  SCL  high 

;  Ready  error  code  4 


BTFSS 

RB.SDA 

High? 

CALL 

ERR 

No,  SDA  bus  not  release  for 

RETLW 

0 

CI.  :6 

;BND  SIM  2, 

ten  vou 

!0W  •:■:(: 

;  Serial 

data  send  from  PIC 

to  serial  BEFROM,  bit-b^blt 

;  Input 

None 

;  Output 

To  (DI)  of  serial  EEPROM  device 

MOVLW 

TRIS 

BSF 


B'lOllUJV. 
RB 

SB.SDk 


.•;  «OSC 

if«^ne  san  ii|f  imm^ 
as*  SUA  for  ^K«»t 


aBBMMnMHHMBl 
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mo  HIItB/I2C  BOS  IHMiitei  WITH  PIC16G5X 


15:17:0 


PAGE  4 


ItOC    OBJECT  CCM 


0023 

04EA 

OlBO  ■ 

BCP 

EBPROM,  DI 

05C€ 

ST  oifil 

BSF 

RB  SCL  * 

0025 

OCOl 

0162 

MOVLW 

1 

0026 

06C6 

0163 

BTFSC 

RB.SCL 

Sklt>  If  SCL    is  'hls^ 

0027 

0A2B 

0164 

GOTO 

BITl 

Remain  as  first:  ^exxax 

0028 

0709 

016S"'-' 

FLAG.ERRORF  ; 

0029 

002B 

0166 

MDVHP 

ERCODE  ; 

Save  error  code 

002A 

0509 

Set  error  flag 

002B 

06E6 

0169 

BTFSC 

RB,SOA  ; 

Read  SDA  pin 

002C 

05EA 

0170 

BSF 

EBPROH.DI 

DI  =  1 

002D 

0000 

0171 

NOP 

Delay 

002E 

04C6 

0172 

BCF 

RB , SCL  J 

itotum  SCL  to  lew 

002F 

0800 

0173 

RETLW 

0              --  —  . 

UM  ; 

0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
003A 
003B 


003C 
003D 
003E 
p03F 

0040 
0041 
0042 
0043 
0044 
0045 
0046 


0C3F 
0006 
07CA 
0A3C 
05E6 
0C02 
06E6 
0A40 
0709 
002B 
0509 
0A40 


04E6 
0000 
0000 
0000 


0506 
OCOl 
06C6 
0A47 
0709 
002B 
0509 


0175 

0176 
nOJ  0177 
0178 
0179 

0180  ;  Input 

OlSH  1  Output 
0182 
0183 

0184  BITOUT 

0185  MOVLW 

0186  TRIS 

0187  BTFSS 
03»tft  SOTO 

0189  BSF 

0190  MOVLH 

0191  BTFSC 

0192  GOTO 

0193  BTFSS 

0194  MOVHF 

0195  BSf*  = 

0196  6K}<ft)  ' 

0198  BITO 

0199  BCF 

0200  NOP 

0201  NOP 

0202  nOP'^ 

0203  CLKl  ■'  " 

0204  BSF 

0205  MOVLW 

0206  BTFSC 

0207  GOTO 

0208  BTFSS 

0209  MOVWF 

0210  BSF 

0211  BIT2 


Serial  data  receive  from  serial  EEEROU  to  PIC«  bit-ty-bit  subroutins 


EEPROM  file  *»•''* 

FroM  1iMir%#'^fl||B.al  BEPROH  ^Ice  to  PIC 


B'OOllllll' 

RB 

EEPROM,  DO 

mm 

2 

RB.SDA 
CLKl 

FLAO.ERRORF 
ERCODE  ' 

mm 


9^  SDA,  SO,  as  W^rata 


.1  n .  r, 


ma 

« 


;  Output  bit  0'*'   '-  ■'  ^ 

;  Check  for  error  code  2 

;  Remain  as  first  error  encountered' 
;  Save  error  code  ' 
;  Set  error  flag 
;  '  SDA  locked  low  by  devieM 
,uIAD 


H-t'i 


RB,SOA 


RB.SCt  — 
1 

RB.SCL 
BIT2 

PLAG.ERRORF 

ERCODE 

FLAS,EBRORF 


0047  0000 


;  Outsat  bit  0  ~ 


Error  code  1 
set  locked  low*'' 

No;  ' 

Yes. 

Save  error  code 
Set  error  flag 


MOO  ieao 
M3a  ssau 


Cornmunicating  with  the       &iis  Using  ft%@  l?IG«ftC^ 


M..,ai.»5  lilt  lacBUS.ASM  8-17 -'1994  15 il7:0 
t^Mt/lie  llDS  ISTBIFACB  MITB  FIClSCSx 


i&R  ea0iH3v  -SMI. 

0048  0000 

0049  04C6 


LINS  SOOKCE  T^T 


004B  0C08 
004C  0036 
004D  0075 


•d  n. 


004E 
004F 
0050 
0051 
0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 


0375 
0703 
0415 
0603 
0515 
0920 
06EA 
0515 
02F6 
0A4E 
05CA 
0930 

mm 


-  3  Ti  ■ 


005B  0C08 
005C  0036 


005D  04CA 
005E  06F4 
005F  05CA 

0060  0930 

0061  0374 


'  0215 
0216 
0217 
0218 
0219 
0220 
0221 

"■■"liissi. 

0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
023«' 
"0231 
0238 
0239 
0240 
0241 
0242 
0243; 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 


(S  1 


RBKH 


0 


Return  SCL  to  low 


subroutine 


Output 


ooao 


MOVLW 
MOVWP 
CLRF 


RLF 

SKPC 

BCF 


BS9 
CALL 
BTFSC 
BSF 

DECFSZ 

GOTO 

BSF 

C$SA. 

KBfWtl 


.8 

CODIIT 
RXBDF 


RXBUF.O  . 

SZBOF, 0 

BITIJJ 

RXBUF,  0'  ' 
COUNT 
RXLP  ^ 

seprok.so 
bitoot' 

0 


8  bits  of 


Shift  data  to  buffar 
carry  — >  f (0) 


8  bits? 


Set  acknowledge  bit  =  1 
to  STOP  further  ii^nlt 


.i9  , 


Input 
Output 


TXBUP 

Data  X'mitted  to  EBPROH  device 


MOVLW 
MOVWF 


-  i  <■  '■  ' 

1  irtc 

I 


BCF 

BTFSC 

BSF 

CALL 

RLF 


EEFROH.DO 

TXBUF,7 

EEFROH.DO 

BITOUT 

TXBUF 


Shift  data  bit  out. 

If  shifted  bit  =  0,  data 

Otherwise  data  bit  =  1 

Serial  data  out 

Rotate  TXBUF  left 


bit  « 


!ei9«SMiei9l4iipiT««iinole|WlnQ.  DSOOSISD-pageT 


€di««rMifnicatmg  with^  1^0"*^  Biis  Uyii||1toi^l016GSM 


I2CBUS.ASH 

8-17-1994  15:17 

iS  WITH 

LIKB 

SODSCB 

0266 

0267 

BCF 

0064  0603 

0268 

SKFNC 

0065  0514 

0269 

BSF 

TXBUP,0  ' 

0066  02F6 

0270 

DECFSZ 

COUNT 

0067  QA5D 

0271 

aero 

0068  0920 

0272 

CAtt 

BtttS 

0069  0C03 

0273 

MOVLW 

3 

ooeA  oeEA 

0274 

BTFSC 

EEFROM.bl 

006B  0900 

0275 

CALL 

ERR 

mtC  0800 

0276 

P 

0080  0213 

0081  0034 

0082  0904 

0083  09SB 

0084  0210 

0085  0034 

0086  095B 

0087  0212 

0088  0034 

0089  095B 
008A  0911 


.•£i  a«iw  fTv 

•J!'  .'.j  irc 


write  one  byte  to  SSfrCAI  device 

DATAO= 

data  to  be  written 

> 

ADDR 

=  destination  address 

SLAVE 

=  device  address  (lOlOxxxO) 

■             Output  : 

Data  written  to  EEFROM  device 

0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 

0290  ; 

0291  WRBYTE 
0292 

0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 
0304 
0305 
0306 
0307 

«soa 
mio 

0311 
0312 
0313 
0314 
0315 

0316  ; 

0317  RDBXTB 
0318 


f(6)  ->  f(7) 
f ( 7 )  ->  carry 
carry  — >  f ( 0 ) 

8  bits  done? 
HO.  _ 

Read  acknowledge  bit 


Check  for  acknowledgement 
_No  acknowledge  from  device 


fr.t  -•HI' 


080 

!1  ■ 


MOVF 
MOVHF 
CALL 
CALL 

MOVF 

MOVWF 

CALL 

MOVF 

MOVWF 

CALL 

CALL 

|WtO  . 


SLAVE,  W 
TXBOF 
BSTART 
TX 

ADDR.Wi 
TXBUF 
TX 
DAT  AO,  W 
TXBUF 
TX 

BSTOP 
wrt_end 


!  Get  SIAVE  address 

;  to  TX  buffer 

;  Generate  START  bit 

.;  Output  SLAVE  address 

,-  Get  WORD  address 

;  into  buffer 

;  Output  WORD  address 

;  Move  DATA 

;  into  buffer 

;  Output  DiVTA  and  detect  adcBotOedgamest 

;  Generate  SSpF  bit 


SXIS-4«liP,  z«a4  mm  ^yeia  Irem  serial  E^tOK  device 


Input 


Output 


ADDR        "  source  address 

SLAVE      =  device  address  (lOlOxxxO) 

DATAI     =  data  read  frcm  serial  EBPRCH 


OCO 


The  location  fme  ISra-READ  routine  can  be 
assigned  anywhere  hetwotiu  (377-777)  octal. 


Move  SIAV^  address 


7-8 
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JiINE 

SODRCE  I'KX!! 

OOCl 

0034 

93),9 

nmm 

;  itm  tmftm  mV"'  0) 

00C2 

0904 

S320 

CkLL 

BS17ART 

00C3 

095B 

0321 

CALL 

TX 

•  Out^iat  SLAVE  a(3^c»a.  CSheck  AGS. 

00C4 

0210 

0322 

MOVF 

ADDR.W 

;  Get  M(»tD  address 

00C5 

0034 

0323 

MOVWF 

TXBUF 

O0C6 

095B 

0324 

CALL 

TX 

;  Output  WORD  address.  Check  ACK. 

00C7 

0904 

0325 

CALL 

BSTART 

;  START  READ  (if  only  one  device  is 

oocs 

0213 

mm 

;  oomiacted  to  the  I2C  bus) 

00C9 

0034 

0327 

navsg 

OOCA 

0514 

0328 

BSP 

itJSWfO 

;  Specify  READ  mode  (R/W  =  1) 

OOCB 

095B 

0329 

CALL 

Ht 

;  Output  SLAVE  address 

OOCC 

094B 

0330 

CALL 

RX 

;  KBKD  in  data  and  acknowledge 

OOCD 

0911 

0331 

CALL 

ESTOP 

;  Generate  STOP  bit 

OOCE 

0215 

0332 

MOVF 

RXBUF.W 

;  Save  data  from  buffer 

OOCF 

0031 

0333 

MOVMF 

DATAI 

;  to  QASAI  file. 

OODO 

OAIA 

0334 

goto 

r^^rad 

0335 

; 

0336 

;Test  progrcun 

to  raa«l  tm 

■  MSite  ramdem 

0337 

start 

OODl 

OCAE 

0338 

movlw 

OAE 

;set  A2-A1=A0=1 

aOD2 

0033 

0339 

movwf 

SLAVE 

/ 

00O3 

OC02 

0340 

movlw 

2 

;set  r/w  loo.  "  2 

00D4 

0030 

0341 

movwf 

ADDR 

;  / 

00O5 

0C55 

e342 

movlw 

55 

jWite  55  te  SXBFROK 

00O6 

0032 

0343 

movwf 

DATAO 

;  / 

00D7 

OASO 

0344 

goto 

WRBYTB 

; write  a  byte 

0345 

wrt_end 

00D8 

09DF 

0346 

call 

delay 

;wait  for  write 

0347 

(•operation  (internal) 

00D9 

OACO 

0348 

goto 

RDBYTE 

;read  back  data 

0349 

OOEA 

0C55 

0350 

mwlw 

55 

;ttMt  if  read 

0351 

xoxwf 

; correct? 

m*» 

0352 

btfss 

STAT.Z 

;  ves  t^un  skip 

0353 

wrong 

om 

0354 

goto 

wrong 

0355 

correct 

mm 

03iS>» 

gO'tO' 

03  S7 

0358 

;At  2.0Hhz,  delay  =  appxoK.  ^nS. 

0359 

delay 

OODF 

007F 

0360 

clrf 

IF 

;cleeu:  last  location 

0361 

dlyl 

OOEO 

0000 

0362 

nop 

OOEl 

0000 

03«3 

nop 

00B2 

0000 

0364 

nop 

00E3 

02FF 

0365 

decfsz 

IP 

;rai3iiee  count 

O0E4 

OAEO 

0366 

goto 

dlyl 

;loap 

00E5 

0800 

0367 

retlw 

0 

0368 

0369 

org 

OxlFF 

mm. 

0370 

goto 

start 

0371 
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Interfacing  93CX6  Seri^  EEPROMs  to  PIC16C5X  MicrocontroUers 


INTRODUCTION 

Microchip  Technology  Inc.'s  popular  93C46/56/66  and 
93LC46/56/66  Serial  EEPROMs  feature  a  three/four 
wire  serial  interface  bus.  The  attractive  price  and  simple 
interface  make  it  the  ideal  device  for  additional  memory 
ispace.  This  application  note  is  intended  for  design 
'engineers  who  wish  to  incorporate  a  pre-packaged 
serial  EEPROM  Interface  driver  into  their  application. 

THE  HARDWARE  CONNECTION 

A  typical  4-wir6  hardware  connection  Is  illustrated  in 
Figure  1 A  and  a  typical  3-wlre  connection  Is  illustrated  in 
Figure  1B.  Since  all  I/O  ports  on  the  PIC16C5X  are 
configurable  as  input  and/or  output,  a  3-wire  interface 
makes  optimum  utilization  of  the  I/O  pins  by  having  a 
common  connection  for  the  Dl  and  DO  lines  of  the  Serial 
EEPROM.  The  port  pin  on  the  PIC16C5X  connected  to 
these  pins,  has  a  default  setting  as  an  output  and  is 
configured,  when  needed,  as  an  input  during  program 
executton. 

THE  SOFTWARE  CONNECTION 

An  example  Interface  driver  is  listed  in  Appendix  A.  A 
flow  diagram  Is  given  in  Figure  2.  The  interface  driver  is 
written  to  minimize  both  overtiead  to  the  calling  pe^gmm  j 
as  well  as  the  program  space  necessary  for  its  tftS^ibh 
into  ttie  user's  code.  The  driver  has  been  written  as  a 
generic  driver  to  service  all  93  Series  Serial  EEPROMs 
made  by  Microchip.  Processor  resources  which  must  be 
made  available  to  the  driver  prior  to  being  called  are:  1 ) 
Two  levels  of  processor  stack.  2)  Six  register  locations 
(four  for  command/data  passing  and  two  for  softwavt- 
counters).  3)  The  RIe  Select  Rgflister  (FSFtt^  wMi^  Is  > 
used  to  pass  a  commaniVettEt  sM^g  pimr  - 
driver.  ^ 

Note:  The  four  command/data  passing  registers  have 
to  be  defined  consecutively  in  order  for  the  FSR  to 
access  them  successfully  in  the  program  execution. 

The  user  should  take  the  following  steps  wflien  using  the 
routines  provided  in  Appendix  A. 

A)  Specify  and  define  a  3V4-wire  interface  by  deTining 
the  common  connectnn  to  the  Dl/D^  lines  anttv^ui 
setlktg  the  equate  'wire3'  TRUE  or  FAL^  (4 

automatically  assumed  if  3-wire  is  false). 

B)  Specify  and  define  if  16-bit  or  8-bit  data  organization 
is  used,  by  setting  equate  'org8'  TRUE  or  FALSE. 

C)  The  user  should  assemble  the  source  file  by  speci- 
fying which  type  of  serial  EEPROM  is  being  used. 


FIGURE  t  A  |4  WIRE  a)NNECTiON 


P1C16C5X 


93CXX 


RBO 

RAO 

RBI 

RA1 

RB2 

RA2 

RB3 

RA3 

RB4 

RB5 

MCLR 

RB6 

RB7 

OSC1 

RTCC 

OSC2 

18 

2 

1  3 

2 

4 

17  1 


cs 

NC 

>CLK 

01 

ORG 

DO 

t^te.l 


Vcc 
16 


20pF 


17 


□ 


4.0 

MHz 


20pF 

rtote  1:  FOR93LCXX: 

For  16  bit  data  word  connect  to  Vcc 
For  8  bit  data  word  connect  to  GND 


h 


FIGURE  1 B  -  3  WIRE  CONNECTION 


PIC16C5X 


93CXX 


RBO 

RAO 

RBI 

RA1 

RB2 

RA2 

RB3 

RA3 

RB4 

MCLR 

RBS 

RB6 

RB7 

OSC1 

RTCC 

OSC2 

17  1 


18  2 


3 

III 


CS 
>CLK 
Dl 
DO 


NC 


ORG 


■^Vcc 
Note  1 


Vcc 


20pF 


17 


a 


4.0 
MHz 


£OpF 

Note  1:  FOR  93LCXX: 

For  16  bit  data  word  connect  to  Vcc 
For  8  bit  data  word  connect  to  GND 


This  is  done  by  defining  the  equate  S93C46i 
S93LC46,  etc.,  as  TRUE.  Only  one  device  can  be 
TRUE,  the  rest  have  to  be  defined  FALSE. 

D)  The  user  would  invoke  the  driver  as  foltows: 

1 .  Load  the  register  defined  as  'cmd'  with  the  93CX6 
Command  Opcode  (only  the  four  upper  bits  are 
used  In  tMs  iw«  figure  3). 

If  necessaf,  kMlW  master  defined 'addf 
tfie  lower  WiHSm  ttKlrass  of  the  kx»lk>n. 

If  necessary,  load  the  9th  bit  of  the  address  as  bit 
3  of  the  register  defined  as  'cmd'  (see  Figure  3). 

Note:  READ,  WRITE  and  ERASE  commands 
need  to  have  an  address  associated  with  ttie 
command  and  the  9th  bit  of  the  address  is  only 
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FIGURE  2  -  FLOW  CHART 


start 


Transfer  location  of 
register 'cmd' to  FSR 


Select  device,  dock 
out  start  bit 


Call  doutxx,  clock  out 
XX  bits  of  cmd/addr 


Inc.  FSR  to  Register 
Containing  1st  write  byte 


1 


PPM***' 


Call  doutS,  output 
1st  byte 


Inc.  FSR  to  Register 
Receiving  1  st  by1e 


1 


Call  dln8,  input 
1st  byte 


.li".  if 


\  SB  ivvnr.  eill  ?>,     I    ui  V  w- 


id  c 
4«H 


,i-oi;';iv:v  •  ■  I  'Vi  -  r««:J  --fit 

•8<:v.i.:'  ji  •-  .V  1  :  v-tcvuienQ  X. 
«*3  n  >  n  -I  -I-  liriirt^  „  -.irt-  -!  orit  tc  Jjj  


Compute  completion  status 
(erroi/no.error)  and  return 


o'.i  pi  '.icN'i'i  -rianc..'  UonAiaty  so 
•.y.'-'ij  i    Ti        s'  '.le  nwrii  mtcyM: 


Retum  with 
no  error 


I  iiiiiaaillii^^aigiteMa^«M»«Kiif^'  — 
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required  when  using  Vne  93CS(IA56  orS3LC98^ 

devices  in  thie  8  bit  mode  (ORG  tied  to  GND). 

4.  If  necessary,  load  ttie  register  defined  as  'highb' 
and  'lowb'  witti  the  16  bits  of  data,  the  most 
significant  byte  loaded  in  'liighb'.  In  8  bit  mode, 
'liighb'  should  be  loaded  with  the  8  bit  data. 

Note:  Only  the  WRITE  and  WRAL  commands 
require  data  to  be  loaded  In  ^^^0^^^, 
locations. 

5.  Call  the  driver  sub-routine  'see'. 

6.  Upon  completion,  the  driver  will  return  a  comple- 
tion status  in  the  W  register  (eror/no  error).  Only 
commands  requiring  a  status  check  are  capable 
of  returning  a  valid  error/no  error  status,  in  all 
other  cases  a  no  error  isi  KBimwd. 

7.  If  the  READ  command  is  executed,  the  16/8  bit 
data  will  be  loaded  in  the  'highb'  and  'lowb' 
registeis,  where  "highb' contains  the  MSB  in  the 
16  bit  mode  and  8  btt  data  in  the  8-bit  mode. 

The  Example  hterface  assumes  a  4  Ml-lz  oscilla- 
tor clocl<  which  gives  us  a  1  instruction  cycle. 
K  a  higher  clock  speed  is  used,  additional  NOPs 
have  toi  inciaded  W  tTreiiOdefroiRtarlo  riM«t 
the  minimum  clock  speed  requiremei^  of  ttie  93 
Series  Seiial  EEPROMs  (see  dsia  sheM  foi' 


FIGURE  3  -  'CMD',  ADDR',  DATA  BYTE  DEFINITION 


Listing  in  ^pindbcBls  fiorai  intaif a(»^  9^^#iSe^ 
EEPROM  only. 

SIIMMARY 

The  93  Series  Serial  EEPROMs  are  a  simple  and 
versatile  method  of  increasing  read/write  memory  capa- 
bility in  a  PIC16C5X  applicatnn.  The  'generic'  code  in, 
Appendix  Amakes  it  easyto  incorporate  in  any  PIC16C5X 
appHcatton.  Any  of  the  93  Series  Serial  EEPROM&can 
be  applied,  while  at  the  same  time:using  a  minUMrt 
amount  of  I/O,  code  and  RAM  resources.  •  ' 

Code  size:  6  bytes  of  RAM. 


Appendix  A  Nsting: 


Appendix  B  listing: 


127  bytes  pixigram  code  (inax) 

100  bytes  program  code  (nftinj) ' 
86  bytes  program  code  I 


Authors:     Stan  D'Souza 

Logic  Products  Division 

Bob  Ward 

Field  Applications/Sales  Organization 


-wr- 


..  „  n 


»L90 

■  .  or 


Bit  7  Bit  6  Bit  5  Bit  4  Bit  3 


Command 

MSB  of  address  in  8  tlitniode  for  93C56/66  (if  necessary) 
of  4  bit  opcode 

3rd  bit  of  opcode        ,    ».,.,tu  toeo 
2nd  bit  of  opcode 


A7 

A6 

A5 

A4 

A3 

A2 

A1 

AO 

i 

JO  jtii  Jx*a  ^ 

Mglib 


k)wb 


16  Bit  Mode 


TT-  MSB  of  4  bit  opcode 

Lower  6  bit  address  for  93C46/56/66  93LC46/ 
MSB  of  address  in  8  bit  mode  for  93LC46 
MSB  of  adifrass  m  1«  bR  mode  for  93CS6^ 

highb  ^sms^ 


D15 

D8 

D7 

DO 

D7 

DO 
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Microchip  TechniMMIr  IfieSX  AMMibler  3 . 03A 
R/W  EEPROM 


Wed  Feb -^^  .Ui  09  : 07  1992  Page 


Line  PC 

0001 
0002 
0003 
00O4 


10052 
0053 
0054 
0055 
0056 
!p0S7 
0058 
0059 
0060 


Opcode 


LIST    P  =  16C54 


M05  :.'  1 

OlFF 

PIC54 

BQU 

IFFH 

'mil  omil.K.  '  '     i.-^r'-  3(ttlla0 

0006 

- 

0007 

iM:VfMa  B  muiai  Wv*  -mmti  h<ii ,  rv>tofqmca  noqU 

0008 

0000 

0009 

START 

0010 

0000 

0A7B 

goto 

nain 

0011  . 

0012 

0013 

0001 

TRUE 

EQU 

1 

0014 

0000 

FALSE 

EQU 

0 

0015 

0000 

S93C46 

EQU 

FALSE 

WIS  

0000 

S93LC4e 

ECU 

falS®""I 

6  01 7 

0000 

S93C56 

EQU 

FALSE 

0018 

0000 

S93LC56 

EQU 

FALSE 

0019 

0001 

S93C66 

EQU 

TRUE 

0020 

0000 

S93LC66 

EQU 

FALSE 

0021 

0001 

wire3 

equ 

TRUE  1 

;Cox  four-wire  setup  equate  to  FALSE 

0022 

0000 

orgs 

EQU 

FALSE  ^ 

0023 
0024 

0001 

HI  6 

EQU 

TRUE 

1c'  •••1."-  'ffi"!  1*5/  ^^'Of'";; 

0000 

H8 

EQU 

FALSE 

0026 

0000 

LC468 

EQU 

FALSE 

0027 

0000 

xc4e 

EQU 

FALSE 

, ******************* 


0000 

0002 

0003 
0004 
0005 


mm. 


indir 
pc 

status 
fsr 

serial 


eq^«'*«r">* 

Abe 


equ 

equ 
equ 
equ 


equ 


la 


OdIS         adl&  equ 


Register  Assignments 
************************************************ 

;nse  this  register  as  source/destination 
;for  indirect  addressing. 
;PIC16/17  Program  Counter. 
;PIC16/17  Status  Register. 
' ,        ;File  Select  Register.  _  _ 

.-Port  used  for  93CX6  control. 
'O  J  ;The  following  four  registers  must 

/located  consecutively  in  memory. 
.•This  register  contains  the  4  bit 
;coniaanid  op  code  for  93CX6  as  follows: 
;bit  7  iftsb  of  command  op  coda  - 
;bit  6  ni^t  bit  of  op  code 
;bit  5  next  bit  of  op  code 
.■^4     ;bit  4  Isb  of  op  code 

;bit  3  AS  of  address  in  case  of 


lb 


OOlC  highb      equ  Ic 

OOID  lo«d3'-'     equ  Id 

OOIE         eiltill     e^u  le 


;laeai6ry  aOScamB  at  lower  7/8  bits 

;Used  in  read/write  routines  to  store  tE^ 

;upper  byte  of  a  16  bit  data  word, 

;or  the  data  in  a  8  bit  data  word 

;Used  in  read/write  routines  to  store  the 

;  lower  byte  of  a  16  bit  data  word,       (t  tMt( 

;or  not  used  in  8  bit  data  word.  ^ 

I  oo       ,  i     1  ^ 

;lMed  as-  tfa«L.i9p<ir-  b^ttt  e£  a-atxteea  bit 

;lo<^  coxmter  in  RDYCHK  routine. 
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cut  1£ 

;Iltaed  as        3bfiwer  ijQitfitt  of  a  sixteen  bit 

0062 

;loop  cous^^  la  RDYCHK  routine,  and         '  . 

0063 

;elswher»^Ha^«SP«ight  bit  counter. 

Uu04 

00  IS 

tenp_cind    equ  le 

;  doubles  as  a  temp  register  for  cnid 

0065 

OOIF 

tenp_addr  equ  If 

;  doubles  as  a  tes^  register  £s^ 

0066 

0067 

.  *************************** 

0068 

•  * 

Bit  Assignments 

;*  The  toHcm^^^»0^0pmacita 

are  for  3-wire.    For  4-*rire  please  seatiftA  t 

0069 

;  *  din  ima  cime  <^  ^mm 

MSwrate  pin*.  i 

0070 

0071 

0000 

carry    eqa  6 

r    ,  1  - 

; Carry  Flag  of  Status  Register. 

0072 

0002 

zflag     equ  2 

;Zero  Flag  of  Status  Register. 

0073 

0074 

0002 

cs           equ  2 

.-Port  pin  tied  to  CS  on  93CX6. 

0075 

0001 

din        equ  1 

.Port  pin  tied  to  DI  on  93CXe.     3-wire  setup 

0076 

Y.  0001 

dout      equ  1 

.-Port  pin  tied  to  DO  on  93CXS.     3-wire  setup 

OOT? 

;  Port  pto  ^imA  to  CaUC  0a,  93CICS.. 

00TB 

007!? 

00310. 

.  * 

0081 

.  ********;**.>^***)fc*i)l^**.1^^ki^J)^*l 

fe*  *  ik*^»Adk  d^**^^*  *^«k  *            ****************  * 

0082 

0083 

oooo 

tm^eKX  e9»  0 

SUv-.t 

0084 

0001 

0085 

0920 

;A£ter  issuing  a  WRITE,   ERASE,   ERAL,  or  HRAL 

0086 

;coiiiniand,  the  approximate  nimiber  of  machine 

0087 

;cycles  X  256  to  wait  for  the  RDY  status. 

0088 

.-  •  -1 

;This  value  must  be  adjusted  for  operating 

0089 

/frequencies  other  than  4  MHz.  ^ 

0090 

■      ■  * 

an 

OOSli 

0080 

read       eqit.       b' 10000000' 

;read  cosmand  dp  code            2>S0    SUB     9<  ' 

00d2 

0040 

write     eqpi  b'OlOOOOOO' 

.-write  cammand  code 

0093 

OOCO 

erase- — -       b' 11000000' 

;erase  ccoanand       code            -'0<^    VOOO  L> 

0094 

0030 

ewen       equ         b' 00110000" 

;  erase  enable  coiranand  opcode  ' 

0095 

0000 

ewds        equ  b'OOCOOOOO' 

; erase  disable  command  opcode  f> 

0S96 

. „09S0 

,  eral       equ         b' 00100000' 

;  erase  all  commcuid  op  code  ( 

0097 

;  wlee  all  eeimma  qp 

0098 

»r 

0099 

0100 

.  * 

.  * 

Ifiicro  Definitions           $  ..<:c 

0101 

2  «^*****4***A*.*Af^.***  **************************  *********************** 

0102 

0103 

.-Elects  the  93CXS  Ognriee               ai>¥9  i^i 

0104 

;Chip  Select:  (CS)  »  >!'  to  sei«ts6  ;r. 

0105 

;«be  Smiea                -  ' 

0106 

0107 

dsel  teiCRO 

;  De-select  the  93CX6  Anrlce. 

0108 

bcf        serial, cs 

,chip  Select  (CS)  =  'fl>?  fee  de-select 

0109 

;  the  device.  n 

0110 

BNCH 

rt 

0111 

1. 

0112 

jlmmm        start  Bit       the  93CXf .  a. 

0113 

■  State  sit  = 

0114 

elkit 

; Clock  it  out. 

0115 

0116 

0117 

clkit  M&CRO 

; Clocks  a  serial  data  bit  into  or  out 

0118 

;of  the  930X6  device. 

0119 

bs£        serial , clock 

0120 

0121 

nop    i  9  xi  jmlij  wu'i  • 

;Adjust  the  nanber  of  nop  instructions 

0122 

/between  the  assertion  and  de-assertion  of 

0123 

; CLK  in  proportion  to  the  PIC16/17  operating 

0124 

/frequency.    Refer  to  the  93CX6  data  for  the 

0125 

svSsalimm  clk  period. 

0126 
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0127 

bcf        serial ,  clock 

;Clock  (CUE)  =  '0'. 

0128 

ENDM 

0129 

0130 

. ***************************** 

*************************************** 

0131 

•  * 

DOUTx 

0132 

Si  <i; 

0133 

. . ... 

■  •  ja»eaef/t*!St*&b  up  to  ii  Mta 

of  'dp  code'/'data,  dt$5i>M#inCT  t^bfftSkegr 

0134 

;a  4e/56/ir6  a«ft^al"  #^rdm  is  being  used.  HhB  ttanbei?      hi-tm  evsc  i  mem 

0135 

;  saved  in  the- 

eiad'ifecfittteir  fmd 

-.,t}W'«e(lt^'^ register.  Ite-fenra 

013« 

;calling  this 

«ia        «d(fe  «egi;»£era  should  be  loaded 

0137 

;as  follows: 

'■ 

0138 

;omd  reg.bits  7|6i|S'<«l3|2|l|0 

0139 

-l-l-l-l-l-l-l-l 

0140 

X|X|X|X|X|X|X|Y 

— >  not  used 

0141 

X|X|X|X|X|X|Y|X 

— >  mot  used' "  ■ 

OMa 

X|X|X|X|X|Y|X|X 

— >  not  used  ~ 

0U3 

X|X|X|X|Y|X|X|X 

— >  9th  bit  of  address  if  necessary 

0144 

X|X|X| Y|X|X|X|X 

— >  Isb  of  command  op  code 

0145 

X|X|Y|X|X|X|X|X 

— >  3rd  bit  of  command  opcode 

0146 

X|Y|X|X|X|X|X|X 

— >  2nd  bit  of  command  opcode 

c\  1 

0147 

— >        of  ccmnand  op  code 

w-v- 

0148 

0149 

ti  . 

0150 

\  ■  1  ■ 

OlSl 

doutlO 

J:  I                  .    J'-  C 

0153 

0001 

0360 

rlf 

indir 

; rotate  thru  carry                   f  jOC 

0153 

0002 

0425 

bcf 

serial, din 

;set  output  to  0                          ■  ''^ 

0154 

0003 

0603 

btfsc 

status , carry 

;  set? 

0155 

0004 

0525 

r ,      :  ,  .  bsf 

serial ,  din 

;else  set  output  to  1 

-lU't'---  -elklt 

0157 

0158 

m 

;of  the  93CX6  device. 

0159 

0005 

0565 

m  bsf 

serial , clock 

;  Clock   (CLK)  «  >1'. 

OlSO 

m 

0161 

OO06 

0000 

m  nop 

;Adjust  the  number  of  nop  instructions 

0162 

a  ^ 

;  between  the  assertion  and  de-assertion  of 

0163 

;CLK  in  px«B«Mi(»  <«a>'*«he  PielC/17  ofwrabli^ 

0164 

f  H    <>  '■  • 

;  frequency.  '"^Stefer  W  tjM  93eSC<:data  for  ^ 

0165 

TO  ■■ 

;minimmn  CLK  period.                 '  ' 'iC 

0166 

m 

0167 

0007 

0465 

bcf 

serial, Clock 

.-Clock  (CLK)   =  '0'. 

0168 

mats 

■0  ■  ■  fi" 

0169 

0008 

0360 

rlf 

indir 

; rotate  thru  carry 

0170 

0009 

0425 

*  >ft66^ESS*rf1S^  *  '  *  * 

IWO 

0171 

OOOA 

0603 

bisfsc 

statue,  eaonsy 

j'Seb? 

0172 

S$35' 

secisltdin 

;elae  set             to  1- 

0173 

««  'f  =  olkit 

;clk  data        t  *-  'J 

0174 

m 

0175 

m 

;of  the  93CX6  device. 

0176 

oooc 

0565 

m  bsf 

serial, clock 

; Clock  (CLK)  =  -1'. 

0177 

0178 

0000 

Ift                TlOp  ■ 

;jtdjust  the  nuiiber  of  nop  instructions 

0179 

m 

;betwe«i  the  assertion  and  de-assertion  of  > 

0180 

m 

;CUC  in  proportion  to  the  FIC16/17  operating- 

0181 

1  f regency.    Mfeie^tD  the  93CX6  data  for 

the'' 

0183 

m 

■iiilnilliaMi'£LiC  #*riod.:t 

0183 

a 

J 

0184 

OOOB 

0465 

scorial,  clock 

/Clock  (CLK)  =  'O'v. 

- 1 . 

0185 

OOOF 

02A4 

taef 

far 

; inc  pointer 

0186 

0187 

0010 

0C08 

8 

; Initialize  loop  eounter. 

0188 

0011 

003F 

movwf 

cnt 

0189 

f 

0190 

0012 

0425 

d_o_8  bcf 

serial,  din 

;Assujne  that  the  bit  to  be  transfered  is 

a 

0191 

;'0'.     Hence,  de-assert  DI. 

0192 

0013 

0360 

3  rlf 

indir 

; Rotate  the  actual  bit  to  be  transferred 

into 

0193 

0194 

0014 

0603 

iMMMitsearxy 

}fMe        oamr-  it  cor  assnnptioD  Mn 

0195 

/correct,  skip  the  next  instruction. 
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0197=^ 

0198 

0199 

0200 

0201 

0202 

0203 

0204 
0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 


0016  0565 


0017  0000 


0018  0465 

0019  D2FF 
OOIA  0A12 
OOIB  0360 
OOlC  0425 

ooiif''^»aS' 


0217 

ozif" 

0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
02i43 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 

0259 
0260 
0361 
0262 


OOIE  0C02 

OOIF  0005 

0020  000,8 

0021  003P 


0022  0360 

0023  0400 


0024  0565 

0025  0000 


0026  0465 

0027  0625 

0028  0500 

0029  02PF 
002A  0A22 

002B  OCOO 

002C  0005 

002D  0800' 


clkit 


nop 


bcf 

decf sz 

goto 

rlf 

Iscf 

retlw 


Sttrial.din 


serial, clock 


serial , clock 

cnt 

d_o_8 

indir 

serial ,  din 
no_err 


;Nb,  iKstiul  bit  was  a  '1'.  Asseft  DI. 
;  Clock  the  93CX6. 

;of  the  93CX6  device.  i" 

;Clock    (CLK)    =  '1'. 

; Adjust  the  number  of  nop  instructions 
;latlBwm  «iu»r<(au>«iEtol«B  and  ds>assertion  of 

■r-  ■  -  ;. 

;CLK  in  proportion  to  the  Pielft/17>isill6ratl^ 
;  frequency.    Refer  to  the  93CX6  data  foe 

;ininiinuin  CLK  period. 


■CI 


.-Clock   (CLK)   =  '0'. 
;Repeat  until  cnt  =  0. 
;Cnt  still  >  0. 
;Restore  register  to  its  original  condition 
.-ntake  sure  din  is  low 
;Exit  with  good  status. 


.**************************** 
I*  DIN8 
1* 


**************************** 


********* 


movlw  b' 00000010' 
tris  .  serial 


d_i_8 


rlf    ,.,  indir 


bcf 


bsf 
nop 


indir ,  0 
clkit 

serial , clock 


bcf  serial, clock 

btfsc     serial , dout 

bsf  1  'KMUi'O 

decfsz  cnt 

goto  d_i_8 

movlw  0 
-tris  --jlMEfett  ' 


*************************************** 

;Din8  will  input  8  bits  of  data  frem  the 
;93CX6.     Before  callii«g  tibis.,  routine,  the 
;must  point  to  the  register  tteing  used  to 

;hold  the  incomming  data. 

;set  up  the  RAl  as  a  input  before  proceeding 
;set  ^  P9#«« 

;II|jt%l%Lize,  lii^W  counter.         .i^  ^ 


Make  room  for  the  incomming  bit  in  the 
destination  register. 

Assume  that  the  inccmiming  bit  is  a  *0'  and 
aiame  -tlbm  14%  of  the  dastiaatisD  E«!9ister. 
Clodfc'a  Mt  in  the  93CX6.       ■'O  r»»*C 

of  the  93CX6  device. 
Clock   (CLK)   =  '1'. 

Adjust  the  number  of  nop  instructions 
betWBOB  tbe  4»aeEtlen  aitd  de^«s«ertlon  of 
f<i^'^,fm^mm'$&  ■Vtm  PXC1S/17  operating 
£»a$pMt>W-    KiiaK  to  the  93CX6  data  for  the 

Clock   (CLK)    =  '0'. 

Test  the  incomming  bit,   if  our  assumption 
Govreet,  skip  the  next  instructlcm. 
iSo,  actual  bit  is  a  '1' .    Set  the  LSB  of  the 
destination  register. 
R^eat  until  cnt  =  0. 
Cnt  still  >  0. 
setup  RAl  back  to  output 
set  RAl  as  output 
/ 

Exit  with  good  status. 


****************** 


t*** *********** 

RDYCHK 


********^4r********* 


■#**********irt************ 


****************************************** 

;Rdychk  will  read  the  93CX6  READY/BUSY  status 
;and  wait  for  RDY  status  within  the  alloted 
/number  of  processor  cycles.     If  RDY  status 
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0263 

■-■3 

.3 

0264 

0265 

0266 

0267 

0268 

002E 

0C02 

0269 

002F 

0005 

0270 

0030 

0C20 

0271 

0031 

003E 

0272 

0032 

007F 

0273 

0274 

027S 

0276 

0277 

0278 

0279 

0280 

0281 

0282 

0283 

0284 

0285 

0286 

0034 

0545 

0287 

00?.S 

0625 

0288 

0289 

ojS^ 

IK 

0290' 

our 

0291 

0292 

0038 

0A35 

0293 

0039 

02FE 

0294 

0295 

003A 

0A3  5 

0296 

0297 

003B 

OCOO 

0298 

003C 

0005 

0299 

003D 

0801 

0300 

0301 

0303 

003E 

OCOO 

0304 

003F 

0005 

0305 

0040 

0800 

0306 

0307 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0041 

021A 

0327 

0042 

003E 

0328 

0043 

021B 

0329 

0044 

003F 

0330 

0045 

OCIA 

0331 

;is  present:  after  this  eet<  period,  the 
.-routine  will  return  with  an  error  status. 


atavlw 

movXw 
movwf 
clrf 
<3sel 

bcf 


aw 


b' 00000010' 

tries 
cnthi 
cnt 


;set  up  RAl  as 
;set  up  porta 


ix^ut  before  proceeding 


•no 


Ml. 


;  Initialize  time-out  eotmter 


; De-select  the  93qX6. 

-ii."        .n  ■ 

saciai].»ca  Select  (CS)  =  'C 


-V        f  aft 


CO-. 


sel 

at 

bsf 
notrdy  btfsc 


serial , cs 
serial ,  dout 


goto  rdynoerr 
decfsz  cnt 


goto  notrdy 

'*--  %bto  notr^ 

movlw  0 

tris  serial 

retlw  errfflf' ' 

«%PSe«^-   ■■ 

.•Bti  swit 

.  KM*  "•au  Kovlw  0 

txis  serial 

^  -  i  •.  ><ie*£lw  no_err 


Check  the  93CX6  data  sheet  for 
;mini2aum  CS  low  time.    Depending  upon 
; processor  frequency,  a  nop(s}  may  be 
; between  the  assertion  and  de-assertion  of 
fChip  $«>leie%. 

; Re-select  the  93CX6. 

;Chip  Select  (CS)  =  '1'   to  select 

;If  DO  is  a  <0',  93CX6  has  yiat:  to  «#|{>leted 

;  the  last  operation  (still  iamxi  ■ 

;skip  to  no  error 
;llo,  not  yet  ready.    Decrement  the  ^SS  of 


; 16  bit  timer  and  check  for  expiration. 
;Still  some  time  left.     Try  again. 
"iOllllkst  signif  icsBe  l^jrte  «^il:ed  -  decrement 
laSA  check  for  expiracloa  of  the  MSB. 
;  Still  some  time  left.    Try  again. 
;  setup  RAl  back  to  output  ' 
; set  RAl  as  output 
/ 

;RDy  status  was  not  present  in  the  alloted 

;tiae>  xafeozn  «fith  amor  status, 
n  .•>»••  ■         *'Ki  11  .  ' 

;  setup  RAl  back  to  output 
;set  porta  as  output 


*********** 


************** 


******************** ********^****** *********** 

;See  will  control  tbemnatiare  operation  of  a'  > 
;93CX6  device.  Prior  to  calling  the  routine, 
;load  a  valid  command/ memory  address  into 
; location  cmd,  and  for  WRITE  or  WRAL 
;conimands,   load  registers  highb  and  lowb  with 
,-16  bits  of  write  data.     Upon  exit,   the  W 
; register  will  contain  the  completion  status. 
;Only  93CX6  iftetructions  which  require  a 
; status  check  can  return  with  an  error  as  the 
;coaBpletloa  status.     The  values  that  denojt^. , 
; the  ompXi^t.^on  status  are  defined  as 
S^^ta^lw  .terror'  and  'no_err'  in  the 
T'^i^e^^'  fi^ij^ents  section'.  ■ 


novwf  ten^_cind 
movf       addr ,  w 


;Load  W  with  the  location  of  ■ 

; register. 
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0332 

0046 

0024 

('Transfer  that  InfoxoA&lon  Into  the  File 

0333 

; Select  Register.           jlH^  now  points  to 

0334 

;  location  cmd.  ■ 

0335 

sel 

;  select  ^Qqt  > 

0336 

zn 

0337 

0047 

0545 

bsf 

serial « cs 

;Cnip  Seleet  [CS)  »  *i'  select 

0338 

; sCTia  a  scaxc  civ* 

0339 

0340 

0048 

0525 

m 

bsf 

serial  #  dizx 

J  scare  Bit  =  '  1'  II 

0341 

clkit 

; Clock  it  out . 

0342 

m 

0343 

in 

; or  cue  ? jcao  aevxce ■ 

0344 

004j> 

0565 

m 

bsf 

serial , clock 

;ClociC  (ujK)  = 

0345 

m 

0346 

004A 

0000 

m 

nop 

;Adju8t  the  number  of  nop  instructions 

0347 

m 

;between  the  asserticm  and  de-assertion  of 

0348 

m 

;diK.  m  proporcion  co  cne  Fido/x/  ^pera]t|L^9 

0349 

n 

ifrec[uency.    Refer  to  the  93CX6  dsta.^  fox.*  thie 

0350 

;ininiinutn  CLK  period. 

0351 

m 

0352 

004B 

0465 

bcf 

serial , clock 

;  LIOCK    IuXjK)    =      U  . 

0353 

'■ 

0354 

ao4c 

06FA 

btfsc 

and, 7 

;bit  7=0? 

0355 

004D 

0A73 

geto 

scalO 

;xfer  10  bit  and/ ads: 

0356 

-  -  S 

0357 

■■ 

goto 

;no  then  set  cmd/addr  ^^ 

0358 

004E 

a7DA 

btf  ss 

and, 6  . 

;bit  6  =  0  ?                               ,  ,■  ^ 

0359 

004F 

0A75 

goto 

sclO 

;xfer  10  bit  cmd/adr 

0360 

>■ 

goto 

set_cind 

;yes  then  set  cmd 

0361 

0050 

0A73 

goto 

scalO 

;xfer  10  bit  cmd/adr 

0362 

0363 

! 

sa%_cBi4_addr 

;else  set  cnid/a<Ur 

0364 

seal 

0365 

0051 

021E 

movf 

ten^_ciBdrW 

; re tore  cmd 

0366 

0052 

003A 

movwf 

cmd 

;  / 

0367 

0053 

021F 

movf 

teinp_addr,w 

; restore  addr 

0368 

0054 

003B 

movwf 

addr 

/ 

0369 

0055 

06DA 

btfsc 

end,  6 

;Check  for  a  URITE  or  BRASS  ccQoaa^. 

0370 

0056 

0A5F 

goto 

see2 

;yes,  parse  the  ccannand  further. 

0371 

0057 

06FA 

btfsc 

cmd, 7 

;  Check  for  a  READ  ccanmand. 

0372 

0058 

OAS  9 

goto 

rea4_ 

;Yes,  process  READ  command. 

0373 

0059 

06BA 

btfsc 

cmd,  5 

;  Check  for  a  EWEN  or  ERAL  command. 

0374 

005A 

OAS  6 

goto 

see3 

;Yes,  parse  the  command  further. 

0375 

005B 

069A 

btfsc 

cmd,  4 

;  Check  for  a  WRAL  cocomand. 

0376 

005C 

0A6E 

goto 

WEllait, 

;Yes,  process  tmiO^/M^  e^ssf;^^!!^. 

0377 

0378 

exit_ 

dsel 

;No  further  processing  required;  93CX6 

0379 

m 

0380 

005D 

0445 

m 

bcf 

serial , cs 

;Chip  Select   (CS)   =  '0'   to  de-select 

0381 

; the  device . 

0382 

; command  conpleted. 

0383 

-  1- 

-  ,;■  .  .'- 

0384 

0385 

005E 

0800 

retlw 

no_err 

;Retum  with  good  con^letion  status. 

0386 

005F 

07FA 

Bee2 

btfss 

aai,l 

;  Check  for  a  ERASE  comnand. 

0387 

0060 

0A6E; 

goto 

;No,  process  WRITE  command.  r.r_ 

0388 

0061 

092E 

«a6it2_ 

call 

;EKASE  command  requires  a  status  i^^^^a^. 

0389 

dsel 

; De-select  the  93CX6 . 

0390 

m 

0391 

0062 

0445 

ni 

bcf 

serial, cs 

;Chip  Select  (CS)  =  '0'  to  de-select 

0392 

;the  device.  ^ 

0393 

0063 

01B2 

addwf 

PO 

;  Compute  coonpletlCTi  stattis  frGsn  results  of 

0394 

- 

; s  ta  tus  check . 

0800 

retlw 

no_err 

; Return  wi  th  good  completion  status . 

0396 

0065 

0801 

retlw 

error 

/Return  with  bad  conpletion  status. 

0397 

0398 

0066 

069A 

.  see3 

btfsc 

C3nd,  4 

;  Check  for  a  EWEN  ccnmand 

0399 

0067 

0A5D 

goto 

exlt_ 

;Yes,  no  further  processing  required,  exit  > 

0400 

;now. 

0401 

0068 

0A61 

goto 

exit2_ 

;No,  ERAL  comnand  which  requires  a  status 

0«02 

0403 

0404 

0069 

02A4 

0405 

0406 

0407 

006A 

091E 

0408 

ooes 

02A4 

0409 

0410 

006C 

091E 

0411 

006O 

OASD 

0412 

0413 

006B 

e2A4 

0414 

0415 

0416 

006F 

0417 

0070 

02ft4 

0418 

0-419' 

0071 

0910 

0420 

0421 

0072 

0A61 

0422 

0423 

0424 

0425 

0426 

0427 

0073 

0901 

0428 

0074 

0A51 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0075 

037A 

0436 

0076 

035A 

0437 

0077 

003B 

0438 

0078 

007A 

0439 

0079 

0901 

0440 

007A 

0A51 

0441 

0442 

0443 

( 

i  ■ 

0444 

0445 

0446 

0447 

0448 

0449 

0450 

0451 

007B 

0065 

0452 

007C 

OCPO 

0453 

007D 

0005 

0454 

0455 

007E 

0C30 

0456 

007P 

003A 

0457 

0089 

0941 

0458 

0459 

0081 

0C20 

0460 

0082 

003A 

0461 

0083 

0941 

0462 

0084 

OFOl 

0463 

0085 

0643 

0464 

0086 

0AA6 

0465 

0466 

0467 

OOAA 

t 

04«8 

0469 

0087 

0C40 

0470 

0088 

003A 

call 
incf 


call 
goto 


dinS 
£sr 


dlll8 
exit 


wr  itoj;  ■  ififef  -  •    -'.fte  - '  ■  ■ 


sclO 


call 
incf 


call 
goto 


call 
goto 


rl£ 

rlf 

movwf 

clrf 

call 

goto 


doutS 
fsr 


deutS 
exit2_ 


dbutlO 
seel 


end 

cmd,w 

addr 

cind 

doutlO 

seel 


.■chede. 

; Increment  the  File  Select  Register  to  point 
;  to  the  register  receiving  the  upper  byte  of 

;  the  incomming  93CX6  data  word. 
; Input  the  upper  byte . 

.•Increment  the  File  Select  Register  to  point 
;to  the  register  rec^vii^  the  loweo:  byte.' 
;Ixq^t  8  more  bits.  '"' '  '''^ 

;No  further  processing  required,  exit  now. 

;  Increment  the  File  Select  Ragister  to  point 
;  to  the  upper  byte  of  the  16  feit  ^3CX6  data 
;word  to  be  transmitted. 
.•Output  that  byte. 

.•Increment  the  File  Select  Register  to  point 
;to  the  lower  byte- 

;  Output  the  lower  byte  of  the  16  bit  93CX6 
;data  word.  *^ 
;Exit  with  a  staMes  fiisck. 


;  output  cind  reg 
; return 


;  rotate  cmd 

; left  twice 
; save  in  addr 
.•clear  command 
;xfer  10  bits 
; return 


**************** 


t***** ****** ******** 

Test  Program 


r****** ************************* 


**************** 


t************************* 


clrf 

movlw 

tris 

movlw 
movwf 
call 

movlw 

movwf 

call 

xorlw 

btfsc 

goto 


serial 

b'  imoooo ' 

serial 

e^ 

czncl 

see 

eral 
cmd 
see 
ertor 

status,  zflag 
errloop 


tstptm 


movlw  write 

movwf  cmd 


;We've  include  a  sample  program  to  exercise 
;  the  PIC16/17  to  93C66  interface  using  a  sirrple 
; erase,  write  and  verify  routine. 
;8  bit  organization  has  been  used 

;with  a  3  wire  interface. 

; Clear  the  port  tied  to  the  93C66  device. 
;Intialize  the  ^"EectioB_ register  f&t 

; that  port. 

;i:ioad  W  with  the  Braiae/Write  Enable  ccmnand. 
fTt^zu^fer  W'into  asA  ts^i^1^e^\ 
;S^ti«£>le  the  93C66  dSia^.     '  ' 

;Load  W  with  the  Erase  All  command. 

;Transfer  W  into  cmd  register. 

;Era8e  the  93C66. 

; Check  completion  status. 

;Test  for  error  ccaidition. 

;Yes,  bad  cctipletion  status,  error-out. 

(•Write  loop: 

(•Define  the  test  pattern  to  be  written. 

;  Load  W  with  the  Write  command. 
; Transfer  W  into  cmd  register. 


Interfacing  93  Series  Seriai  EEPROI\/ls 


0489 
0490 
0491 
0492 
0493 
0494 
0495 
0496 
0497 
0498 
0499 
0500 
0501 
0502 
0503 
0504 
0505 
0506 
0507 
0508 
0509 
0510 
0511 
0512 
0513 
0514 
0515 
0516 
0517 
0518 
0519 
0520 
0521 
0522 
0523, . 

0524 


0471 

0089 

OCAA 

movlw 

tstptrn 

rintialize  the  93C66  data  registers  with 

0472 

; write  data. 

0473 

008A 

movwE 

1  load  In  hlgli  b^te  oixl^ 

0475 

008B 

007B 

clrf 

0476 

008C 

0941 

fltE^.it^  ^ft^jjt  wsi^d  i^iibo  93G6^  ctsvicd* 

008D 

UcUl 

008E 

0643 

0479 

008F 

0AA.6 

err loop 

;Yes,  bad  conpletion  st^^us*  error-out. 

0480 

0090 

03FB 

incf sz 

addr 

;No,  increment  the  8  bit.  memory  &didresA 

0481 

; field. 

0482 

0091 

0A8C 

goto 

testl 

.-write  another  location 

0483 

0092 

077A 

btfss 

cmd,  3 

; see  if  all  done 

0484 

0093 

0A95 

goto 

wrt_nxt_pg 

;no  then  write  next  page 

0485 

0094 

0A97 

goto 

rea4_tst 

;read  writtai  data 

0486 

wrt_nxt_pg 

0487 

0095 

057A 

bsf 

cmd, 3 

;set  page  bit 

0488 

0096 

0A8C 

goto 

testl 

;No,  write  another  location. 

0097  0C80 

0098  003A'  ■  ; 
0OS9  0941' 

009& 
0091> 


009C  0743 
009D  0AA6 
009E  03FB 


009F  0A99 

OOAO  077A 

OOAl  0AA3 

00A3  057A 

00A4  0A99 


movlw  read 


btfss     status, zflag 
goto  errloop 
incfsz  addr 


rd_nxt_pg 


goto 
btfss 
goto 
goto 

bsf 
goto 


test2 
cmd,  3 
rd_nxt_pg 
allok 

cmd,  3 
test2 


OOAS    0AA5  allok 


errloop 


aims  dtia 


0000 


OlFF  OAOO 


goto  aii^' 


goto  errloop 


KEY  DEFINITIONS 
ORG 
GOTO 


PIC54 


SCUtT 


0000 


;Read  loop: 


•CO  . 

iocr 


MO" 


/Load  W  with  tba  Read  coonand- 

iftatM  adteeaa^  wo»&  £^m  ^C66  dev|^.. 
;Load  w  with  the  pattara  writteB.  '  '  j 

.'Verify  the  data  read  against  «&at  «ias 
;written. 
;Sazne? 

;Ilo,  error-out. 
;?[••#, 
;» 

;  do  next  byte 
; check  page  bit 
;no  then  chk  next  page 
.aU*^lll  ..J, 


:  feyte  correct,  incramnt  tba 
immi  field.- ' 


I  no 


;Hana  aafal 


location. 


SI. 
01  < 


:»0C 


.•iraoa  yon  {uu 
BnlJata«a  aol  t?*J 
xBll 


■riuO 
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0001 
0002 

0003 
0004 

00<!S 
S006 
0007 

0008 
0009 
0010 
0011 
0012 
0013 
0014 
OOlS 
0016 
0017 

mw 

0020 
0021 
0022 
0023 
0024„ 
0025" 
0026 
0027 
0028 
0029 
0030 
0031 
0033 
0033 
0034 
003S 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
004S 
0046 
0047 
0049 
0049 

aoso 

0051 
0052 
0053 
0054 
OOSS 
0856 
0057 
0058 
0059 
0060 

msi 


-        Zj'Ti  £J*'J  9Jlt>l\ 


**********  ****************flr****^0^f^it1Hi^lt^tjff^ 

MPALC  Directives  Section 


************** 


********** 


********************** 


ooeo 

0040 

ooco 


LIST  P=16C54 ,N=4G , C=132 


**************** 


****************************** 

Register  Assignments 


******  *** 


*  *  *  *  **  *  * 


0000 

indir  equ 

0x00 

0002 

pc  etju 

0x02 

0003 

status  equ 

0x03 

0004 

f  sr  equ 

0x04 

0005 

0x05 

-■    .t  ':. 

0010 

G9nd  'S^^ 

oxij^ 

.      i  ;  - 

Soil 

Mis 

lowb  equ 

0x12 

;Use  this  register  as  source/destination  for 

;Piei6/I7  Prosraai  diounter. 
;P1C16/17  Status  Register. 
;File  Select  Register. 

;Fort  used  for  93C46  control.     Since  Port  A 
;  ts  4  bits  vf§s,  «t4'^£l  use  3  qr  4  Vfixm  o£  Port 


;loeafcea'B^&Seuef-e®fy  in  memory. 
;This  register  contains  the  2  bit 
;coiranand  is  the  upper  2  bit  positl^^^l^C 
;  memory  address  in  the  lower  6. 
;Used  in  read/write  routines  to  store  the 
;  upper  byte  of  a  16  bit  93C46  data  word. 
;Used  in  read/vnrite  routines  to  stojrilt  the 
;  lower  byte  of  a  16  bit  93C46  d&ta 


Bit 
For 


;Used  as  the  upper  byte  of  a  sixte^  Bit  lodp 
; counter  in  RDYCHK  routine. 
'         ;Used  as  the  lower  byte  of  a  sixteen  bit  loop 
; counter  in  RDYCHK  routine,  and  elsevdiere  as 
ima  e4(A>bii$l(  !<jouat««r.  .    ,  ... 

*************************  ******************'-***************^^Mfr'^ 

Assignments;     The  following  assignment  is  for  3-wire  setoff., 
four  wire  setup,  assign  dout  equ  2. 


0000 
0002 

0000 
0001 
0001 
Mf3 


carry 


equ 


cs  equ 

din  equ 

dout  equ 
<Kl«^ 


; Carry  Flag  of  Status  Register. 
l^M&Br  FliiiF  of  Status  Register. 

;Port  pin  tied  to  cs  on  93C46. 
;Port  pin  tied  to  Dl  on  93C46. 
;Port  pin  tied  to  DO  on  93C46. 
;Port  pia  tied  to  CLK  oS'''9Se!4*. 


3-wire  setup. 
3-wire  setup. 


.•ESO 

************** 

General  Assignments  *  - 

******************************************************* 


,  *********************************** 


.************! 


0000  no_err  equ 

0001  error  equ 
0004    tries  equ 


0 
1 

0x04 


read  equ 

write  equ 

erase  equ 
0030 


0x80 
0x40 


eqa 


After  issuing  a  WRITE,  ERASE,  ERAL,  or  IQUUCi 
comnand,  the  as^3sesfim»!*m  rnnnbm^  9t  iimgMimk 
cycles  X  256  to  waiit  ficac        jmS[  stmtm^ 
Ibis  iKliHi  must  iHt  ^Justed  for  opecaeliig 
frag^ieiM  6^er  4  MHz. 

93C46  Read  command. 
93C46  Write  command. 
93C4$  Beaae  eonnaaA. 
0x30  ;  93e4i  SrMHi/ltei  te  Baable 
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0064 
0065 
09  66 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 

om.., 

0077 

0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 
0103 
0104 
0105 
0106 
0107 
0108 
0109 
Olio 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
0131 
0132 
0133 
0134 


0000 
0020 


ewds 
eral 
wral 


equ 
equ 
egu 


0x00 
0x20 
0x10 


;93C46  Erase/Write  Disable  ci 
;92CXX  Erase  All  command. 
;92CXX  Write  All  comnand. 


.***********#**«********•#**************»«************************  ^<t* 

4  «***«r«-***'**4W#*«Jr**********«*«****«****Ait*-**********«^ 


MACRO 

bs£         serial «cs 


searisl.cs. 


strtbt  MACRO 


bsf 
clkit 


serial , din 


; Selects  the  93C46  device. 

;Chip  Select  (CS)  =  "1'  to  select  the  device. 
■  .  "•)«. 

.....< iMF«lta^<ltt«>ft3«:46  device.  i 

jCk^p  asieet  =  '0'  to  da<>«i]«^ 

, .  .  s^t^riee,  


Issue  the  Start  Bit  to  the  93C46. 
Start  Bit  =  "1' . 
Clock  it  out. 


Glkit  MACRO 

bsf         serial, clock 


;  clocks  a  serial  data  bit  into  or  out  of  ;a*e 
;93C46  device. 


.•'ji-.  •t 

bef  serial ,  clock 
ENDM 


;  Adjust  taie  ittaSee  of  nop  i^ii^etloiis 
;betweeh  the  atise^tioii  and  titl^sertton  of 

;CLK  in  proportion  to  the  PIC$S/17  aerating 
; frequency.  Refer  to  ty»  'mmM  Sam  Cor  the 
(•minimum  CLK  period.  • 

;Clock  (CLK)  =  '^O^. 


0000 


********************************** ******************* A ************* * 

*  toMUT-On/Reset  m^my  foint  * 

***#****,*«**.i^********«****»***********************M***** 

UdO  •ttwi-;- 
org  OxlW 

goto  main 

, ******************************************************************** 


0000 


•  a  nragraa  H'lihi  igy  Page. 


**************************************************  *  * 

D0UT8  * 
.******************************************************************** 


0000  0C08  .do^tS 

0001  0034 

0002  0425  d_o_8 

0003,  aaeo.   

0004  'tff03    '  . 

0005  0525 


movlw  0x08 
jnovwf  cnt 


serial ,  din 


S'  1 1  ?  ■ 

,  fjF^-f  .... 


bcf 

btfsc    '  s'^l^,  cfirry ; 

ser^;;^ 


bsf 
clkit 


^1  JJv 


m 

0006  056S  m 

m 

0007  0000  m 


bsf 
nop 


;Dout8  will  output  8  bits  of  data  to  the 
;93C46.    BtKCore  callisg  thie  soMcimlt  Vbt^f^ 
,mm  ^^m^»W^i^^^in 

;  lBitiaiU#i>  lesfi*  counter . 


; Assume  that  the  bit  to  be  trans fered  is  a 
;'0'.    Hence,  der«esei;t  WX. 

.■Rotate  the  aetuili  bit  to  be  transferred  into 
;  the  carry  bit. 

Test  the  carry,  if  our  assumption  was 
;correct,  skip  the  next  instruction.  ^ 
;No,  actual  bit  was  a  itniWffe.  .M. 

;  Clock  the  93C46.  r 

;93C46  device. 

;Clock   (CLK)   =  -l"  .  •( 
.-Adjust  the  number  of  nop  instructions 
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7^ 


0135 
013£ 
0137 
0138 
0139 
0140 
0141 
0142 
0143 
0144 
0145 
0146 

mm 

0149 
0150 
0151 
0152 
0153 

0155 


; between  the  assertion  and  de-assertion  of 
;CLK  in  proportion  to  the  PIC16/17  operating 
.•frequency.    Refer  to  the  93C46  data  for  Hie 
^l^l^mwm  CLK  period.  '  '| 


0008 
0009 

OOOA 
OOOB 

oooc 
oooo 


0465 
02P4 

0A02 
0360 
0425 
0800 


goto  d_o_8 

rlf  indir 

bcf  serial , din 

setlw  BO_eEr 


;Cloek  (CLK)  =_  ''0' . 
';  Repeat  Tihtil  cnt  =  0. 

;Cnt  still  >  0. 

;Restore  register  to  its  origi^il 
;inake  din  low  before  return 


?<tu» 
iroo 

t 


Wb  39al«*-«b  «j  '0  ,g^,X«i»«         J  -j  <ryv 

iDUa  v±%t  ia^S%  bit»  e£  data  frcm  the 
;93C46.    Before  calling  this  wmtiam,  tbt^^p 


4MI- 


imust  point  to  the  register  ht^s^ 
;liold  tbe  iTKTjajipjgg  data. 


«t3>a 


0156 

IM^Ip.  «#i«r  4i^ut  before  proceedisg 

0157 

OOOE 

"ocb2  ■ 

movlw 

b'OOOOOOlO' 

•  set  v#  t>SlSSh                                            ■  n  .i  . 

0158 

OOOF 

0005 

tris 

serial 

■•■4  ^  i-a  :/                                                      •  > ' 

0159 

0160 

opio 

0C08 

movlw 

0x08 

;liiitialize  loG^.^ounter. 

0161 

0011 

0034 

JQOVWf 

cnt 

01£2 

(;  . 

ii.63 

clkit 

iClclsk  a  bit  out  of  the  93C46.  e«(i:i 

0164 

m 

0165 

B 

0166 

0012 

0565  m 

bef  . 

'  a«rlaJ»elf>ck 

0167 

m 

0168 

0013 

0000  m 

nop 

/Adjust  the  number  of  nop  instructions 

0169 

m 

;between  the  asserticd  and  de-assertion  of 

0170 

;CLK  in  proportion  to         PIClS/17  operating 

0171 

.•frequency.    Refer  to  Oje  99C46  data  for  eh» 

0172 

m 

/minimum  CLK  period. 

0173 

m 

0174 

0014 

0465 

bcf 

serial  >  clock 

,- Clock   (CLK)   =   >0'.  'J 

0175 

0015 

0360 

rlf 

;Make  room  for  the  incomming  bit  in  the 

0176 

/destination  register. 

0177 

0016 

0400 

bet 

/Assume  that  the  inccmning  bit  is  a  ^0'  and 

0178 

.-clear  the  tiSB  of  the  destination  register. 

0179 

■0017 

0625  oJSWHetei 

serial , dout 

.•Test  "the'  inconHlos  bit.  if  oiir  assunptlOQ 

0180 

;was  correct,  skip  the  next  instruction. 

0018  0500 


0019 
OOIA 


ooliB  ' 

OOlC 


OOID  0800 


0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 
0190 
0191  . 
01ft  at  fc*t»* 

0193 
'0i9'4  ■ 
0195 
0196 
0197 

0198  ■  ■ 
0199 
0200 
0201 
0202 
0203 
0204 


indir. 0 


02F4 
0JU.2 


oeoo 

0005 


decfsz 
goto 


cnt 


;No,  actual  bit  is  a  '1' 
;dftstination  register. 
,  ^^S^at  until  cnt  -  0. 


Set  the  LSB  of  tile 


)  » ifc^*<iljjhgil*»« ********************* 

;5mie®ige  lU^l  hstis'k  as  output 
;set  RAi  as  output 


tris        seriai_    ^  ; 


I 


no_«* 


**************** 
;Exxt  with  good  status.  \, 


retlw 


'  ;Rdychk  will  read  the  93C46  READY/BUSY  status 

;and  wait  for  RDY  status  within  the  alloted 
;number  of  processor  cycles.     If  RDY  status 
;is  not  present  after  this  set  period,  the 
;routine  will  return  with  eui  error  status. 


3id  tniijc»»  .cJf'. 


rdychk 


OOIB  ^e02 


movlw  b'OOOOOOlO 


;8et  up  RAl  as  a  input  before  proceeding 

;sat  up  PORTA 


jjylnMflipwaMM 


Higtfacing  dairies  iferlalfSlM^Ms 


0205  OOIF    0005  tris       serial  ;  / 

0206  *  *******  *******************************  ****************************** 

0207  0020    0C04  movlw      tries  ;Iiiitialize  time-out  counter. 

0208  0021     0033  movwf       cnthi  ; 

0209  0022     0074  clrf         cnt  ; 

0210  Steel      ,  .  a>a  f.^i6.  5„ 

0211  m 

0212  0023    0405  m  bet         serial, cs  ;Chip  Select  (C^J  =  '0'  t<j  ^p;tff0l^i^ .Xbe 

0213  ;^vlee.  ' 

0214  ,. 

0215  '  ;   '      .'  j  '      "'^'^J^','     \.,  ]  ;NOTE:     Check  the  93C46  data  sheet  for 

0216  ■  ■  e.  -  -^i^  -       .     -V-  .  -■r'.  .-minimum  cs  low  time.    Depending  upon 

0217  ;processor  frequency,  a  nop(s)  may  be 

0218  ^  ;t>et\«eeii  the  asse^tioo  and  de-assertion  of 

itfl  xi«  toi  tattmrx!  .'in     -it)  ;x«o  •  ^  • 

0221  sel  ;Re-select  the  93C46.  ' 

0222  m 

0223  0024    0505  bsf         serial, cs   ;Chip  Select  (CS)  =  '1'  to  select  the  device. 

0224  0025    0625   .i^&H^'- pttst  '  m^tkl.^nt  ; If  DO  is  a  '0',   93C46  has  yet  to  completed 

0225  ....[.'T<- -    .....  _  ;the  last  operation  (still  busy). 

0226  002S'  <9t@ll  goto       rdynoerr  ;skii>  to  ne  exxtor 

0227  0027    OiSfS^'     -  deofsz    cnt  ;Mb,  nbt°^t  re&^.    Deerement  the  LSB  of  our 

0228  '■  ;16  bit  timer  and  check  for  expiration. 

0229  0028     0A2S  *  "W^W'^-goto        notrdy  ;Still  some  time  left.     Try  again. 

0230  0029     02F3  decfsz    cnthi  ;Least  significant  byte  expired  -  decrement 

0231  '■'  ;and  check  for  expiration  of  the  MSB. 

0232  002A    0A25  goto        notrdy  ;Still  some  time  left.     Try  again. 

0233  ^  ^*    "  ■  jfe<K>Mr*ai3Mfc)iwii*1>^J*ifeib»*********#.*^fa|iyiiil.«W.* 

0234  -  ;iieete>re  tm  back  as  output 

0235  002B    Ocee  -^S^^^gf*^  .-set  RAl  as  output 

0236  0O^J»««S»i»A*»-i<»»>^ •<^«erial  ;  / 

0237  ^*#***i(rjfe*****************  ***     *  ************************************* 

0238  0020    0801  >  t  :.->»-..  Hetgegi,  ^  «^,eV"  '  ;ROY  status  was  not  present  in  the  )>llot«a 

0239  jrwo  S-VOJ  ie-:.r-:T<i  .oM  .-time,  return  with  error  states. 

0240  *uam3»  wS(iBa^»'       .-i-n".  ^^■^*         i*r  J-'. 

0241  '^m********m^K%i^vi^*****^*******i^i^M**'************i****************** 

0242  ;Restore  RAl  baok  as  outp^lK 

0243  002E     OCOO    o>     Cl       movlw       0  ,-set  RAl  as  outsat  "'  '•   '  ' 

0244  002F    0005  tris       serial  ;  / 

0245  ,*************,**r***********«*****««***j(^^;#***********#:*s##**«"f##*****i  . 

0246  0030    0800  retlw  no_err 

0247  ..  >  r  ;  

0248  tf  n  -o  I.  ;.«-•» 

0249  .******************************************************************** 

0250  ,-*  SEE  * 

0251  ,******************************************************************** 

0252  >nx:  ■- 

0253  .„  r  7»,i.iic<rr  VJ»a    r»-  ;See  will  controljtto  entire  operation  o£  a 

0254  j!      .. -  }93e46  dsariep..    Vik&e  to  calling  the  routine, 

0255  ;load  a  VallS  eaimnwd/lnemory  address  into 

0256  ;  location  cmd,5««»8  SMf  WRITE  or  WRAL 

0257  ;  commands,   load  jS8||i»ters  highb  and  lowb  with 

0258  ;16  bits  of  write  data.     Upon  exit,   the  W 

0259  .-register  will  contain  the  conpletion  statua. 

0260  ,  ,                                      ,  ;Only  93C46  instructions  i&icb  re<iuire  a 

0261  rawaf  «as  uciv-tsov^  i     i  i -.  ;status  check  &>Xt  retuMi  with  <m  error  aa  J^ 

0262  I  ;coi)pletlon  st««tt».    ^»  valiUWS' that  dendSai  ' 

0263  ;the  completion  status  are  defined  as 

0264  .-variables   'error'  and  'no_err'   in  the 

0265  ; general  assignments  section. 
02S6 

0267  0031    OCIO    see  movlw     cmd  ;Load  W  with  the  location  of  the  end 

0268  .  ^.  iu,;....>-  ;*egi#t*r.  ..  . 
^L&$ti  0032                      -  =.-^u3<nt^  4iSmic».i  I               ;¥rans£er  that  i^eoeaafeieB           tlMdrlle  . 
0270  -w.,0.'  »rtS  c.f;               .-Select  Register.    The  far  now  SoiW^  to 
02'^:,r.!  .-iff  ,, ,  .  rt,.-  _  -  _           -.irfuo.               .-location  cmd.                        ooen  ijic, 

0272  sel  ,.  .-Select  the  93046. 

0273  H^jtufc  .„.-t.i.  » 

0274  0033    0505  bsf         serial, cs  ;Chip  Select  (CS)  =  '1'  to  select  the  device. 

0275  ,  strtbt                     •       '       ;  Send  a.  stact  bit.  j 


ftiiafl»Mten^iT)«rtinolmy  Ineoipocattti 


iOS00S3(K>pap  ^ 


0276 
0277 
0278 
0279 
0280 
0281 
0282 
0283 
0284 
0285 
0286 
0287 
0288 
0289 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0296 
0299 
0300 
0301 
0302 
0303 
0304 
030S 
0306 
0307 
0308 
0309 
0310 
0311 
0312 
0313 
0314 
0315 
0316 
0317 
0318 
0319 
0320 
0321 
0322 
0523 
0324 
0325 
0326 
0327 
0328' 
0329 
0330 
0331 
0332 
0333 
0334 
0335 
0336 
0337 
0338 
0339 
0340 
0341 
0342 
0343 
034^ 
0345 


6034    0525  m 


0035    0565  m 


0037  0465 

0038  0900 


0039 
003A 
003B 
003C 
003D 
003E 
003F 
0040 


0053 
0054 


06D0 
0A43 
06F0 
0A4D 

06B0 
0A4A 
0590 
0AS2 


bsf 
clkit 


bcf 
call 

btfsc 
goto 

btfsc 

goto 

btfsc 

goto 

btfsc 

goto 


serial , din 


serial ,  clock 
doutS 

cmd,6 
see2 

cmd,  7 
read_ 
cmd,  5 
see3 
cmd,  4 
write_ 


.-Start  Bit  =  '1' . 

;Clock  it  out. 

;93C46  device. 
;Clpek  (CMC)  =  n* . 


exit_dsel 


0041    0405  la 


0042  0800 

0043  07F0  see2 

0044  0A52 

0045  091E  exit2 


btfss 

goto 

call 


m 


0046  0405 

0047  01E2 


0048  0800 

0049  0801 


004A  0690  see3 
004B  0A41 


g04C  0A45 


retlw 
retlw 


btfsc 
goto 


'1  goto 


;betwiQeo  the  eussertlen  sb4  de-aseertlon  of  . 
iCXJH  in  proportion  to  the  PICK/ 17  opggratj^, 
jtregixistiicy-     Refer  to  the  93C4li  Sstm.-.  Set 
(•minimum  CLK  period.  ^ 

.-Clock  (CLK)  =  '0'.  ,  [ 

,-Transmit  the  2  bit  canmand  and  six  bit  . 
; address . 

,- Check  for  a  WRITE  or  1311^  ccmnand. 
;Yes,  parse  the  coinnand  further. 

; Check  for  a  READ  command. 

;Yes,  process  READ  command. 

;  Check  for  a  EWEN  or  ERAL  cdmnand.     ,  ;  - 

;Yes,   parse  the  command  furthei^.    V'C.'I  ' 

;  Check  for  a  WRAL  ccmmand. 

;Yes,.  process  WRlTE/t^AL  coavaand. 

;No  further  processing  required;  93C46 


serial, cs  •    ;Chip  Select  (CS)   =  '0'  to  de-select  the 

(•device. 

1  1  .  j^s  ;coitinand  con^leted. 

t^_«a^  cearpletioa  stetw;.  j 

-.•>*.«*--.*-.«   '-I  *c 

cmd, 7     :•  ;Check  for  a  ERASE  ccamnand.  .  j<!0    'iSIM)  t>>C 

writ^  .  '  ■  ;NO,  process  WRITE  COTsnand.  f££0 

rdychk  ;^ASB  oonraand  re^itae*  ft  status  dha^.   -jt,  : 

dsel  •  '  •   iBtMaaimat'  tt»  93C46. 

. 

ajMlM-bii*'.  ;Chip  Select  (CS)  =  '0'  to  ^mm^iSlt.  the 

V  •  /device.  -'n  ^ 

■'PS  •    ;esi|$«i^  eeacan^«n  status  fras  results  of: 

;  statns.  «jtiac3»>. ' « 
no_err  ; Return  with  good  ccaxpletion  status, 

error  ; Return  with  bad  conpletlon  status.  t>»'.0 

cmd, 4  ;Check  for  a  EWEN  ccoanand. 

exi't_     .     •   -     .   ;¥es,'no  further  processing  required,  exit 

fwmm.  < 
■  ^t$^^'>:  ftki,  g^ll,  comnand  which  requires  a  status'  "' 

;  check . 


004D    02  A4    read^  incf 


fsr 


004K  090B 
004F  02A4 


0050  090E 

0051  0A41 


call 
goto 


0052    02A4    write_  incf 


dinS 
exit_ 


fsr 


^"3  ■. 


; Increment  the  File  Select  Register  to  point 
;  to  the  register  receiving  the  upper  byte 
;  the  incomming  93C46  data  word. 
;naswt        ^^nE  byte, 

;  Increment  t<be  File  9eleefe  Register  to  pelttt 
;  to  the  register  receiving  the  lower  byte. 
; Input  8  more  bits. 

;No  further  processing  required,  exit  now. 


0900 
02A4 


0O55  0900 


0056  0M5 


;  Increment  the  File  Select  Register  to  poinfe 
;to  the  upper  byte  of  the  16  Mb  33i@M  djiW)'' 
"".-word  to  be  tranamittea.       ^  "  "S" 

dout8  ;  Output  that  byte.  ' 

fsr  ;  Increment  the'  File  select:  iM^fikMte  iio  pdiiai 

;to  the  lower  byte.  -' 
doutS  ;  Output  the  lower  byte  of  the  16  bit  93C4^-^ 

<^  ;data  word. 

ae%0       eicil^^  sl^t  t^OSh  «  M&ms  check.  - ' 


call 
incf 


call 


SHAM 
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0^346 

.  * 

Test  Program  * 

0347 

********************************************************************* 

0348 

laaln 

;We've  include  a  sait^le  program  to  exercise 

0349 

;  the  PIC15/17  to  93C46  interface  usin^i ft>i^B||^^ 

0350 

;erase,  write  and  varify  routine. 

03S1 

03S2 

0057 

0065 

clrf 

aerial. 

- 

;  Clear  the  port  tied  to  l^e  93^DfeG  <device. 

0353 

movlw 

D'  llllOlOw ' 

;  Zntialize  the  data  directl^i  z^giist^^c  3lo^ 

0354 

06S9 

d045 

tris 

serial 

;tfaat  port. 

0355 

0356 

005A 

0C30 

rrovlw 

ewen 

;Load  W  with  the  Erase/Write  RtMlfla^^jB  ddnnaEnd. 

0357 

005B 

0030 

movwf 

cmd 

(•Transfer  W  into  cmd  register. 

0358 

iWS^ 

call 

see 

;Baai£*le  the  93C46  device. 

0359 

0360 

005D 

0C20 

novlw 

^al 

;XiP4ii9  II  ifll^  tlw.  Srase  ecnBuoui* 

0361 

005E 

0030 

IDOVMf 

csnd 

rTranftf^  W  into  end  register. 

0362 

005F 

0931 

call 

see 

; Erase  the  93C46. 

0363 

0060 

OFOl 

xorlw 

error 

;  Checlc  con^letion  status . 

0364 

0061 

0643 

btfec 

status,  zflag 

; Test  for  error  conditirai. 

0365 

00^ 

goto 

errlo^ 

;Yes,  bad  conpletion  status,  error-^oilt. 

0366 

; Write  loop: 

0368 

lieej^esRt  ega 

OxlF 

;  Define  an  unused  lo^tlcn  f ^  -emm  $1^^ 

0369 

fprogrflOBt  loidp  ep^taf . 

0370 

00A& 

tsftptra  equ 

OxAA 

;  Define  l^m-  t#e't  ^ttAtn  to  be  vrtW^t!i&., 

0371 

0372 

0063 

0C4C 

movlw 

.64 

; Initialize  that  counter. 

0373 

0064 

003F 

movwf 

loopcnt 

; 

0374 

0065 

0C40 

movlw 

write 

;Load  W  with  the  Write  command. 

0375 

0066 

0030 

movwf 

cmd 

; Transfer  W  into  and  register. 

0376 

0067 

OCAA 

movlw 

tstptrn 

; Zntialize  the  93C46  data  registers  with 

0377 

; write  data. 

0378 

0068 

0031 

xaovwf 

; 

0379 

0069 

0032 

movwf 

; 

0380 

006A 

0931 

testl 

call 

see 

;Write  data  word  into  93C46  aaN^o*^ 

0381 

006B 

OFOl 

xorlw 

error 

; Check  cCTnpletion  status. 

0382 

006C 

0643 

btfso 

status, zflag 

;Test  for  error  condition. 

0383 

006D 

0A82 

goto 

err loop 

;Yes,  bad  ccnpletion  status,  error-out. 

0384 

006B 

02B0 

iaet 

«aB4 

;.Ho>  imsm-mf^fm^        6  la&'t  mmox^  ■9Mmm 

0385 

0386 

006F 

dacfaz 

loopcnt 

;BBKve  we  written  all  64  loeatloBS? 

0387 

0070 

goto 

testl 

;No,  write  anotber  location. 

0388 

0389 

;Read  loop: 

0390 

0391 

0071 

0C40 

wenrXw 

.64 

jZxiiti^liKe  loop  counter. 

0392 

0072 

003F 

novwf 

loopcasit 

0393 

0073 

0C80 

movlw 

read 

;Load  W  with  the  Read  command. 

0394 

0074 

0030 

movwf 

cmd. 

/Transfer  W  into  and  register. 

0395 

0075 

0931 

test2 

call 

see 

;Read  addressed  data  word  from  93C46  device. 

0396 

0076 

OCAA 

movlw 

tstptm 

;Load  W  with  the  pattern  written. 

0397 

0077 

0091 

subwf 

highb,  0 

;Veri£y  the  data  read  against  what  was 

0398 

;writt«i. 

0399 

0078 

0743 

httaa 

status, zflag 

;Saine7 

0400 

0079 

0A82 

goto 

err loop 

;lio,  mross-^t. 

0401 

007A 

OCAA 

movlw 

tstptrn 

titit0mt  m^Wi        tmme  t^tm  £e«t>' 

0402 

007B 

0092 

subwf 

lowb, 0 

; 

0403 

007C 

0743 

btfss 

status, zflag 

iSataes? 

0404 

007D 

0A82 

goto 

err loop 

;No,  error-out. 

0405 

007B 

asm 

incf 

cmd 

;Yes,  both  hyte  correct,  incresMQt  ^la  6 H^it 

0406 

;memory  address  field. 

0407 

007P 

Oier 

decfsz 

loopcnt 

;Have  vm  xead  ^11  64  locations? 

0408 

0080 

goto 

te8t2 

;2Vo,  r^MiS  snothMT  location. 

0409 

0410 

0081 

'OiM, 

goto 

allc^ 

;Boiae  safei 

0411 

0412 

'i^Mi^oip  goto 

erxlo^ 

;Bad  netml 

0413 

emk 

mo 

;fniat8  all  folks! 
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Embedded  applications  increasingly  want  more  integra- 
tion and  power,  in  less  space  for  less  cost.  Using  low 
power  Serial  EEPROMs  (SEE)  for  application  firmware, 
lookup  tables,  and  microcode  coupled  with  small  foot- 
prints mal<es  for  permanent  storage  at  respectable 
savings.  One  additional  method  of  saving  on  the  power 
budget  is  selectively  powering  off  components  when  not 
needed,  a  basic  for  embedded  power  management. 
The  low-power  SEEs  offered  by  Microchip  Technology 
Inc.,  offer  an  additional  benefit,  powering  the  SEE  from 
a  microcontroller  port.  This  allows  the  host  controller  to 
not  only  manipulate  the  Serial  EEPROM  Reads  and 
Write,  but  also  the  periods  when  it  is  powered  off  or  on. 
Satellite  communications  use  this  technique  to  save 
power  and  total  dose  accumulation.  We  call  this  tech- 
nique POWER  PORT^".  The  microcontroller  port  must 
have  sufficient  loh  (source  current)  to  sustain  the  volt- 
age and  currentforallmemoryfunctions,  READ,  ERASE, 
and  WRITE.  Obviously,  not  all  memory  or  peripheral 
devices  could  be  powered  thusly,  but  Microchip's  SEE 
devices  will  function  in  this  environment. 

The  microcontroller,  using  its  internal  software  and 
hardware  decision  functions,  determines  when  it  needs 
to  communicate  with  the  memory  device,  then  acts 
accordingly.  Any  standard  wake-up  sequence  will  ac- 
complish this  task.  The  wake-up  code  needs  only  power 
up  the  memory  and  wait  for  the  power  to  become  stable 
before  doing  a  read  or  write  by  driving  the  POWER 
PORT  high.  Then  all  serial  communication  executes 
normally.  The  SEEs  are  powered  off  for  additional 
power  savings  and  the  data  or  code  is  utilized  from  RAM . 
Obviously,  the  port  output  must  be  allowed  to  settle,  but 
normal  operation  of  the  output  structures  would  guaran- 
tee that  this  would  be  met.  The  I/O  port  Tpd  for  the 
Microchip  PIC16C5X,  is  specified  at  40ns  maximum. 

The  24LCXXand  93LCXX  CMOS  SEE  series  partsf  rem 
Microchip  were  designed  to  achieve  low  current  con- 
sumption across  all  ranges  of  operation. 

The  four  primary  Ice  parameters  for  these  products  «tre: 


Parameter 
Ice  STANDBY 


QOPdHiopj 

Not  in  an  active  operation 
while  Vcc  is  supplied. 


Ice  PEAK  WRITE 


«.« 


loo  AVG  WRITE 


The  BYTE  /  PAGE  WRITE  and 
ERASE  operations  have  self 
timed  cycles  of  10  ms.  A 
typical  of  4  ms  is  the  actual 
time  of  the  operation.  This  is 
the  amount  of  time  when  the 
Ice  requires  the  most  current 
(PEAK  WRITE).  The  part  is 
drawing  STANDBY  Ice  during 
the  remaining  6ms  of  the  cycle. 

The  avg  of  the  PEAK  WRITE 
lee  and  STANDBY  Ice  during 
the  self-timed  10ms  write  cycle. 


The  attached  characteristic  curves  (Figures  A  and  B) 
indicate  that  lee  PEAK  WRITE  current  consumes  the 
most  cun-ent.  The  worst  case  condition  is  at  6.0V  and 
-40''C.  The  24LCXX  series  parts  draw  a  typical  3.2  mA 
and  the  93LCXX  series  parts  draw  a  typical  of  2.0  mA. 
These  low  Ice  cftaracteristk:s  offer  a  unique  current 
saving  benefit  for  battery  applicatk>ns.  Figure  C  and  D 
illustrate  the  sink  and  source  current  capabilities  of  the 
PIC16C5X  family  of  microcontrollers.  It  is  clear  from 
these  charEUterizatnn  curves  that  the  mk:rocontroller 
can  deliver  sufficient  currant  across  all  temperature 
ranges  to  power  a  SEE  using  the  POWER  PORT  tech- 
nk^ue. 

Figure  E  shows  the  connectkin  scheme  for  the  Microchip 
PIC16C54.  It  shoukf  be  noted  that  not  all  versions  of 
competitive  microcontrollers  are  capable  of  powering  a 
device  in  this  manner  and  the  specific  data  sheets  for  the 
mrcrocontroller  being  considered  must  be  consulted  for 
maximum  source  current.  The  microcontroller  port  must 
be  capable  of  sourcing  sufficient  current  for  the  duration 
of  the  write  cycle  or  10ms,  worse  case.  The  peak  write 
requirement  for  the  24LCXX  product  family  is  3.2  mA  at 
5.5  Vdc  (-40''C). 

Listing  A  demonstrates  the  appropriate  code  sequences 
when  using  the  PIC16C54  microcontroller.  The  se- 
quences included  are  power  control,  start  bit,  stop  bit, 
send  and  receive  bit,  Tx  and  Rx,  and  a  general  address- 
ing routine. 


lee  READ 


The  part  is  in  a  READ  operatton. 
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FIGURE  A  -  TYPICAL  Icc  FOR  24LCXX 


FIGURE  B  -  TYPICAL  Icc  FOR  93CXX 


24LCXX  Typical  Icc  PEAK  WRITE  (mA) 


-4C 

c 

25° 

1 

85' 

c 

1 

0 

2 

5 

3 

0 

3 

s 

4 

0 

4 

5 

«. 

Vcc 


24LCXX  Typical  Icc  AVG  WRITE  (uA) 

800 


700 
600 
500 
400 
300 
200 
100 
0 


2.0  2.5 


3.0     3.5     4.0     4.5     5.0    5.5  6.0 

Voc 


24LCXX  Typical  Icc  READ  (uA) 


700  ■ 
600  ' 
500' 
400 

300' 

200  ■ 
100  ■ 
0  ■ 


-« 

•C 

25 

c 

12 

,'C 

2.0     2.5     3.0     3.5     4.0     4.5     5.0      5.5  6.0 

Vcc 

24LCXX  Typical  Icc  STANDBY  (uA) 


■  m 

'5°C 


4.0 

Vee 


93LCXX  Typical  Icc  PEAK  WRrTE  (mA) 


40" 

5"C 

25- 

2.0     -ZlE      3.0     3.5      4.0     '4.S      5.D      6.5  t.O 
Vcc 

93LCXX  Typical  Icc  AVG  WRITE  (uA) 


800  ■ 

^0 

C 

700  • 

25° 

600  - 

125 

•c 

600  ■ 

400' 

300- 

200  - 

100' 
0- 

2.0      2.5      3.0      3.5      4.0      4.5      5.0      5.5  6.0 

Vcc 

93LCXX  Typical  Icc  READ  (uA) 


2.0       2.5       3.0       3.5      4.0       4.S       S.O       5.5  6.0 

Vcc 

93LCXX  Typical  Icc  STANDBY  (uA) 


-i-i-4 


2.0     2.5     3.0  3;6 


4.0 
Vbc 


4.S      5.0      5.5  6.0 


mm 
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FKSURl  C  -  PIC16CSX  lOL  AT  5V 


FIGURE  D  -  PIC16C5X  lOH  ATSW 


36 


30 


W~ — ■ 

Max  ® 

-40'C 

Typ® 

25-C 

Min  @ 

+65  C 

.«       m      :  1        1J5         2       2$  .  3 
ifx-.b.   V0L(V0lt^         V   It.  i  ■ 


.-20 


-40 


Min  ®  B5'C 


VeiM(VbHs) 


FIGURE  E  -  24LC16mC16C5X  INTERFACE  SCHEMATIC 


U2 


Vcc 


Dl 

DIODE 


AOWP 

Vcc 

A1 

Test 

A2 

SCL 

Vss 

SDA 

24LC16 


R3 
20K 


R2 
100K 


C2 

1SPF 

C2 
15PF 


K1 

4MHzXtal 


17 


1B 


15 


16 


U1 

RAO 

RBO 

RA1 

RBI 

RA2 

RB2 

RA3 

RB3 

RTCC 

RB4 

MCLR 

RBS 

RB6 

RB7 

►OSC2/CLKOUT 
►OSC1 


10 


11 


12 


13 


Wat 
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The  primary  benefits  of  this  application  are:      .  'icjl  - 

•  The  SEE  is  completely  powered  down  to  save  power 
when  the  SEE  is  not  executing  an  operation.  This  will 
directly  effect  the  total  system  power  consumption. 
This  means  that  the  SEE  is  In  a  total  quiescent  state 
and  even  the  standby  current  savings  are  realized, 
greatly  increasing  usable  battery  life,  and  conse- 
quently allowing  for  a  more  sophisticated  design  on 
the  same  power  budget. 

•  The  very  fast  5  )is  power-up  time  miniinizsfs  pomr-  , 

up  delay. 

•  Since  the  serial  operation  is  gated  by  a  stable  micro- 
controller VOH,  risk  of  data  being  coraipted  by  a  glitch 
is  minimized.  This,  In  effect,  Is  a  regulated  Vcc 
supply  and  provides  a  reliable  power  source^  to 
ensure  data  Integrity.  | 

Several  cautnns  need  to  be  noted: 

1.  Gar^poweringmultipledevicesmustnotexcaedtha 
I/O  port  Ion  or  capacitive  load  spec  'riications. 

2.  ihB  total  power  requirements  vs.  power  budget  must 
be  considered,  incMmg  Uie  extra  drain  on  Vie  micro- 
controller. 

3.  The  microcontroller  Ice  max  must  not  tie  exceeded.  1 

4.  Normal  decoupling  methods  must  t>e  emiHoyed.  ' 
^.  Themk^ocontrollerloHfbrOiefmiUl^gUlklstnotbe 

exceeded. 

Figure  F  shows  a  typical  power  on  to  start  bit  se- 
quence. Notice  that  the  device  is  available  to  receive 
a  clock  at  5  MS  after  Vcc  has  become  stable. 


FIGURE  F 


Vcc  • 
SCL- 
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Many  applications,  especially  remote  or  handheld  data 
acquisition  applications,  where  power  consumption  is  at 
a  premium  or  battery  life  is  critical  can  use  the  POWER 
PORT  technique  with  the  PIC16/17  mlcroconttollers 
and  possibly  other  microcontrollers.  Remote  metering 
applications  where  the  microcontroller  must  wake  up 
and  report  previously  stored  data  or  periodically  sample 
inputs,  such  as  gas,  electrical,  or  water  monitoring 
systems  are  good  examples  where  POWER  PORT 
would  be  beneficial.  Underground  monitoring  equip- 
ment for  fuel  storage  and  environmental  nrtonttoiing 
systems  are  also  suitable  applications. 
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PRjQMs: 


Sa]i^>le  test  program  to  power  up  serial  EEPROM 
using  PICie/17  port  A,  then  virite  one  l::yte  and  read 


byte,  then  rcgp«at  forever. 


********************  *it**ii***********ii*****1t1i1iiiii*1i* 

m 

port  5  used  for  daviee 

address  select                            .It,  'j; 

•qu 

%         !  port  6  seed  for  data  and 

Clock  lines 

eeprcHTi 

equ 

Oah 

bit  buffer 

1-111 

addr 

egu 

Och 

address  register 

data! 

equ 

Odh 

stored  data  input  reg. 

datao 

egu 

Oeh 

stored  data  output  reg. 

i;-->  1 

slave 

equ 

Ofh 

device  address 

(lOlQgaoce) 

txbuf 

equ 

lOh 

•t3t"B%l?ter''     ■■-         ■■'       -     '  -■" 

count 

equ 

llh 

bit  counter 

bcount 

equ 

12h 

byte  coimter 

rxbuf 

equ 

13h 

receive  buffer 

loops 

equ 

15h 

delay  loop  counter 

loops2 

equ 

16h 

delay  loop  counter  2 

■I'  ,;- 

t 

Bit  Aseignmsnts 

-*  .                 fsi.-  -  -\ 

di 

do 

sdata 
sclk 


ii^t 

eeprom  output 
data  line  (port_b) 
clock  line  (port_b) 
vcc  for  dut  (port^) 


equ  7  ;  uupicm  inwt 

equ  6 

equ  7 

equ  6 

.#s<bo  CM!lli> 

org        OOOU  ' 
-goto      FMROr   —  —        -  _  ^    _ 

*****************************************  *  #Wf..tfilS*li!im:.* 
DELAY  ROUTINE  .  .•.■'.j  •      '    --^iiii  )ir<»it>  *»' Ma  j  i  alzS 

this  routine  ttHm*  tha  ia  'iMs*'«iii'i«Ai^^KWK^If^tteatf^:'b»«ey  ' 

increase  in  ■loc#B'  ylelda  tg^tOK  1  meto  ailllMtieoiid.  ' 
i.e.,  if  'loops'  is  10  then  the  wait  period  is  approx  10  milliseconds. 


WAIT 

I 


top 


novlw 

movwf 

nop 

nop 

nop 

nop 

nop 

nop 

decf sz 

goto 

decf sz 

goto 

retlw 


.110 
loe)ps2 


loops2 

top 

loops 

top2 

0 


sit  and  wait 


inner  loop  done? 
no,  go  again 
outer  loop  done? 
no,  go  again 
yes,  return  from  sub 


lad 

7 

y.-.n 

ir4 


Logic  PoiAi^Sit'Sel'ial'gEnRO  Ms 

aiiiiiiyj,iijll,iiim'iii,wii^ 


Start  Bit  Subroutine 

this  routine  generates  a  start  bit 


BSTART 


movlw 

tris  ■ 

bsf 

nop 

nop 

bsf 

ncp 

nap 

nop 
nop 
nop 

nop 
nop 
nop 
nop 
bcf 
nop 
nop 
nop 
fetlw 


b'OOllllll'  ICilcU  J«'rM    .  .  --..t  .v;  •  "•■ 

portj3,sdaea      ;  wtH.  eslet^  li£sji> 

port_b,scllc        ;  set  clock  high 


>i»0  iipw 


port_b,  sdata      ;  data  line  goes  low  during  high  clock  for  start  bl%^ 

•vi«;:»x  i 


port_b,sclk        ;  start  clock  train 


Ml  .  • 

.it  I 


End  of  Sulnre^ioie 


************ 


lc_.  t  ioj  Jab        !>»v  ; 
**********************************«^**«**«******«-»*****'**************  ********* 


•TP* 


St<9  Bit  Sidsroutine 

this  rottMoB  9Mwr*tas  a  stop  bit 


BSTOP 


movlw 

tris 

b^ 

ni^ 

nop 

nop 

nop 

nop 

nop 

BlOl), 
OOP 

nop 
nop 
nop 


nop 
nop 
nop 
bcf 
nop 
nop 
nop 
ratlw 


b'OOllllll'  ; 

port_b  ;  set  data/clock  lines  as  outputs 

pi^£jS^y{l^ta.it  .•^  j.^n^e  sure  data  line  is  low 


Bai%JN>s^lc       ;  set  clock  high 


portJj.sGlk 


^t*  tfiMig  Mtfl  \^le  clock  his^ 
tex  0t0p  bit 


,1Qn 


xs)»it) 

-.  ■•si 


set  clock  low  again 


End  of  Subroutine 

**************************************************************************** 
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Serial  am^  i  hkt  from  PIC16/17  to  iMt 


BITS 

'®X1 


movlw     b'OOllllll'  ;  set  data, clock  as  oa^^Ge 

tris  port_b 
btf  ss     eeprom,  do 
BITO 

port_^>sdata  ;  eiMpat  bit  0 

CLXl  ;  4t>ta  line  cloc]ce<a.  Ipw  liyi  ^k9\^ee  ^ 

•.•fr.'  ,   im   tl  i^nJ 

p«ijfiyb««data  ;  output  M6'#  -;  .^•■j 


goto 

bsf 

goto 


bcf 


nop 
nop 
bsf 


J 


port_b,scl)c 


set  clock  line  high 


nap 
nop 

1ae£  pect^rScUe —  ;  return  clodfc  line -low 
retlw  0 


0     i  i« 


Hi 


■I  J  I  • 


■MiJi-oi  E|t  •stn^-H 


;  End  of  Siibroutine  .  . 

Bit  in  routine 

Ukls  routine  gets  a  bit  of  data  from  the  part 
into  the  'eeprom'  register,  bit  'di'  q^n 


BITIN 


movlw 

tris 

bcf 

bsf 

nop 

roup 


b'lOllllll" 
port_b 
eeprom,  di 
port_b, solk 


sdata  aiL  input  14jaef  ■ 

assume  input  bit  lew 

set  clock  line  high 

just  sit  here  a  sec  - 


.ttc.x%g3 


nop 

nop 

nop 

nop 

btfsc 

bsf 


port_b, sdata 
eeprom,  di 


read  data  line 

set  ii^ut  bit  if  needed 

set  dock  line  low 

bit  Ois  road      -  i,t  :i;>--i.3 


I  .13 


Trtmanit  Data  Sctooutlne 


movlw  .8 

mo9«(£  em0k 


set  the  tfalts  to 


If*  '.* 


JU1* 

bar. 


3wf«» 


bcf 

btfsc 

bsf 

call 

rlf 

decfsz 


eeprom,  do 
txbuf ,  7 
e^rom,do 
BITODT 

txbuf 
count 


o(%MEWiw>  data  bit  =1 
siHriMi  out 
mM^'  ^tef  left 


goto  TXIiP  ;  no  -  ^  again 
•<Cid.l,'»««4l(lill|««  f  ■  read-  ack?  ^t 


retlw  0 

End  of  Subroutine 


k  *  ir*  ***** 
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Receive  data  Routine 

this  routine  gets  a  tyte  of  data  from  the  part  into  'rxbuf 


inovlw 

.  8 

set  #  bits  to  8 

movwf 

A. 

clrf 

rscbuf 

clear  receive  buffer 

rlf 

rxbuf 

rotate  buffer  left  1  bit 

bcf 

rxbuf ,  0 

assume  bit  is  zero 

call 

BITIN 

read  a  bit 

btfsc 

eeprom*  di 

input  bit  high? 

bsf 

yet,  amt  taoCfev  bit  hls^'--'-' 

decfsz 

count 

8  biCis  deaM? 

goto 

RXLP 

no,  do  another 

bcf 

eeproin,do 

set  ack  bit  =  0 

call 

BITOOT 

to  finish  transmission 

retlw 

0 

lot 


ta.:: 


I*** ******** 
Power  up  routine 
this  routine  blinks  the  ll^ts 

 cmO*   ( ■  '  ■  i — ^  ^  1  ■-  .     ■   *  .  ^  .  


1.  n 


FIStUP 


movlw  b' 00000001' 

tris  port_a 

bsf  port_a,voc 

nop  ■  ■ "  ■ ■ ■ 
nop 
nop 


;  set  RAO  as  input,  rest  output 

;  turn  on  power  to  dut 

;  wait  for  diit'  %o'  ^AsMQ:'  " 


!i  n  ^  :i  !i  ^  h  fi  n  It  *  k  n  k  n  h  t  n  k  »  t  h  n  n  t  t  *  t  t  kk  »  k  »»  n  »  n  »»  11*11%  *  »**  nt'f  *  liw  IHW  Hii  mm^  iinn*»li>»>'n  >  '  *  WtflHH*  ' 

Byte  Write  Routine  -  «1»> 


this  writes  the  data  in  *S5h'  to  the  ftyit  byte 
in  the  serial  SBBteSK.  <  ' 


'.ad 


movlw 

b' 10100000' 

;  set  slave  address  and  write  mode 

movwf 

slave 

inovlw 

b'OlOlOlOi' 

;  set  data  to  S5h 

movwf 

datao 

clrf 

addr 

;  set  address  to  OOh                    -  - 

JS. 

call 

BSTJIRT 

;  generate  start  bit            ■  w'^'' 

movf 

slave.w 

SievWf' 

•'*r'iMm  'CKa^fflr  «arfe¥  •  •   

call 

TX 

;  and  send  it 

movf 

addr , w 

;  get  word  address 

movwf 

txbuf 

;   into  transmit  buffer 

call 

TX 

;   and  send  it 

movf 

datao.w 

;  move  data 

movwf 

txbuf 

1  te  tr«aiii«  feniiA  ' "  «    - '           '  *• 

call 

TX 

•  aad  traittaiit  It 

call 

;  geoerate  step  bit 

movlw 

'.10 

movwf 

loops      ;  set 

delay  time  to  give 

call 

WAIT 

10  ms  wait  after  every  byte 

qo«5 

.ay 


now  drop  through  and  do  the  read     •J;^  8 


;  --11         .-111    -  rJO« 

^*^*****  *****************************************************.*  #i«^jE«*!Mlf*«*****w^**?****#>.«^** 
READ  (read  routine) 

this  routine  leads  the  first  address 

of  the  dut 
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mo 


inovlw 

b'  10100000 ' 

;  sat.  slave  addsress  and  warite  mode 

movwf 

clrf 

addr 

■  sdt  addxess  OOtl 

call 

}  Sfen^xat^a  start 

no^ 

movf 

slavxi^fW' 

;  get  slave  addresB 

movwf 

txb^ 

;   into  transmit  buffer 

call 

TX 

;  and  send  it 

movf 

addxj w 

;  get  word  address 

txlsuf 

call 

7  ffiod  send  it 

fe'lOlOOOOl' 

;  get  slave  address  and  read  mode 

;  into  ^asMEmi-t  buffer 

o&ll 

;  taai^  i^anmlt  it 

nop 

call 

;  ^et  8  bits  of  data 

bsf 

eepjrom ,  do 

call 

B I TOUT 

;  send,  hlgn  acK  bit  and  tnen  a 

call 

;  st^>  bit  to  end  transmission  fr^iti 

nop 

bcf 

port_a,vcc 

;  turn  power  to  dnt  off 

movlw 

.100 

movwf 

loops 

call 

;  wait  aH&ile 

;  go  do  the  i^le  thing  ovezr  again 
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BASIC  SERIAL  EEPROM  OPERATION 

Looking  for  the  optimum  non-volatile  memory  product 
for  your  system  that  requires  a  small  footprint,  byte  level 
flexibility,  low  power,  and  is  highly  cost  effective?  Serial 
EEPROM  technology  is  one  of  the  non-volatile  memory 
technologies  that  has  emerged  as  a  leading  embedded 
control  solution.  Unfortunately,  most  system  designers 
are  not  aware  of  the  serial  EEPROM  benefits.  Also,  the 
supporting  documentation  in  databoolcs  is  most  often 
not  adequate  due  to  incomplete  or  ambiguous  informa- 
tion. As  a  result,  the  system  designer  often  selects  a 
non-volatile  solution  that  does  not  meet  his  require- 
ments, or,  the  designer  must  face  a  more  complicated 
design-in  with  a  serial  EEPROM. 

This  article  addresses  two  issues  that  exist  today  for 
designers  considering  serieU  EEPROM  products: 

First,  to  provide  awareness  of  the  a^ticein@n  benefits. 

Secondly,  to  provide  a  primer  on  the  operating  prin- 
ciples and  instructions.  These  items  are  often  burled  in 
datatxx>k  text  or  not  adequately  addressed.  Also  in- 
cluded are  common  default  conditions  to  signiNcanUy 
reduce  the  system  designer's  learning  cm;y^.  

CONTENTS 

Serial  EEPROM  Applications  .     .  -  ' 

Overview  of  the  Prfmary  i=>r8t«(edl  SenefBs  --^^OfW 
3-Wlre  Bus  Operation  Primer 
2-Wlre  Bus  Operation  Primer 
Microchip  2-Wire  Default  Conditions 
mihg^iagnun  Attachments 

SERIAL  EEPROM  APPLICATION^ 

Serial  EEPROMS  are  Ideal  non-volatile  cost  effective 
memory  solutions  In  applications  that  require: 

•  Small  footprint  and  board  space  as  in  cellular  phone 
applications 

•  BYTE  level  ERASE,  WRITE,  and  READ  of  data  as  in 
a  TV  tuner 

•  Low  voltage  and  current  for  handheld  battery  applica- 
tions as  in  a  keyless  entry  transmitter 

•  Mumptenon-volaUletutKatonsiitth»ijpiBi<iptia^^ 
such  as  a  VCR 

•  Low  availability  of  microcontroller  I/O  lines 


Thist  cdrnmon  applications  for  Serial  EEPROMS  are 
shown  below: 

Harfcst  Common  Applications 

Consumer  tVtuners,VCRs,  CD  players,  cam- 

eras, radios,  and  remote  controls 

Automotive  Alrbags,  anti-lock  brakes,  odom- 

eters, radios,  and  keyless  entry 

Office  Automaton  Printers,  copiers,  PCs,  andportable 
PCs 

Ttie@isei  Cellular,  cordless  and  full  feature 

phones,  faxes,  modems,  pagers, 

and  satellite  receivers 

Industrial  Bar  code  readers,  point-of-sale  ter- 

minals, smart  cards,  lock  boxes, 
garage  door  openers,  and  test  mea- 
fi^jfMinTOnlequipmfsitv  ^r.. 


The  typk^ai  f  unctbns  that  serial  EEPROMs  are  utilized 
for  are: 

•  Memory  Mcir^gjit^lsBspilaeiaietals  or  analogcon- 
trois  (volume,  Ml,  Mt.)  in  eonsumer  electrontes 
products 

•  Power  down  storage  and  retrieval  of  events  such  as 
fault  detectnn  or  error  diagnosttes  in  autonnotive  prod- 
ucts 

•  Electronic  real  time  event  or  maintenance  logs  such 
as  page  counting  In  otfk:e  automatk>n  products.  Also, 
oonfiguratbn  or  DIP  switch  storage  in  office  automa- 
tion products 

•  Last  number  redial  storage  and  speed  dial  number 
storage  in  telecom  products 

•  Userin<ircuit  reprogrammable  kx>k  up  tables  such  as 
tor  code  readers,  point-of-sale  terminals,  environ- 
mental controls  and  otfrar  industrial  products 

Other  applicatton  examples  Include: 

•  Data  stoF^ia  from  a  lasniKinction  as  in  a  remote 
conbDi  transnrinar 

•  ID  nutnber  storage  for  security  OF  ram^  access  for 
electronic  keys  and  entry  databases 

•  Reprogrammable  calibration  data  for  test  equipment 
or  analog  inteilaiie  products 
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As  a  result  of  density  and  architectural  evolution,  Serial 
EEPROMs  offer  significant  benefits  in  some  applica- 
tions that  previously  could  only  utilize  Parallel  EEPROM 

products. Thedlagrambelowillustratesthefootprintand  >  ^ 

bnoKtspasai'diRBnnns:''--^'-  •   


The  Serial  EEPROM  requires  only  10%  of  the  board 
spacethat  a  Parallel  EEPROM  requires.  Also,  the  Serial 
EEPROM  requires  fewer  I/O  lines  from  the  microcon- 
troller which  significantly  reduces  the  overall,  j^ftom 
cost  and  t3oard  space. 

A  very  fast  READ  speed  is  the  only  significant  llnMalion 
of  a  Serial  EEPROM  for  a  decision  between  a  serial  and 
a  Parallel  EEPROM.  It  Is  very  Interesting  to  note  that  the 
Serial  EEPROM  READ  speed  is  restricted  more  by  the 
protocol  than  the  process  technology.  The  2-wire  PC 
(Inter-Integrated  Circuit)  products  must  add  large  inter- 
nal delays  to  slow  down  the  part  to  meet  the  lOOKHz 
protocol  requirements,  which  will  be  reviewed  later. 
Characterization  of  3-wire  bus  Serial  EEPROMs  have 
indio^  clock  f  rec^uencies  jn  excess  of  6MHz. 


OVERVIEW  OF  THE  PRIMARY 
PROTOCOL  BENEFITS 

After  a  designer  decides  to  use  a  seilal  EEPROM 
soliition,  the  next  step  is  to  select  one  of  the  two  primary 
serial  EEPROM  protocols.  Unfortunately,  most  system 
designers  select  the  type  of  serial  EEPROM  (2-  or  3- 
wire)  that  they  are  most  familiar  with,  ragaitiraB.of  tfis 
benefits  associated  with  each  type. 


iH-.m:  .150)  Y**  tae'vj-.'  c 
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The  benaflts  of  each  protocol  are  alHMn  bMcw: 


O'VVIIO  DUS  OOl  lal  CCrrlWiVIO 

?-Wira  Bus  Serial  EEPROMS 

Sinnlfl  Vnn  sumh/  of       to  5  5V 

Single  Vdd  supply  of  <2V  to  5.5V 

Very  low  current  consumption 

Very  low  current  consumption 

Reduced  overall  component  cost 

Reduced  overall  component  cost 

Four  pins  (other  than  Vcc  &  GNO)  are  required 
or  operation 

Two  pins  (other  than  Vcc  &  GND)  are  raqudrad  for  operation 

x16  bit  and  x8  bit  data  widths 

x8  data  bit  width 

Software  WRITE  Protection 

Hardware  WRITE  Protection 

Edge  triggered  clocks  and  signals 

Level  triggered  clocks  and  signals  and  input  glitch  filters  for 
high  noise  immunity 

2MHZ+  operation 

I^C  standard100KH2:an#400l#ic  preloeols  with  a  1MHz 
option        >'             •             '  • 

Ready/Busy  data  polling 

Page  WRttl^i^d^  fo  l^.l^tae 

Security  options  available 

Software  ami  hardware  cornpatibia  from  2K  to  16K  densities 

Less  complex  protocol 

A  2-  wire  product  Is  utilized  in  applications  that  require  an 
I^C  bus,  noise  immunity,  limited  microcontroller  I/O  pin 
availability,  or  a  WRITE  buffer  for  multiple  bytes  to  be 
stored  with  one  instruction.  A  3-wlre  product  is  utilized  in 
applications  that  have  limited  protocol  requirements,  an 
SPI  protocol,  higher  cloci<  frequency  requirements,  or 
x16  data  width  applications. 

The  next  two  sections  describe  the  basic  operation  and 
Microchip's  default  conditions  for  the  3-wire  and  2-wire 
Serial  EEPROMs  to  allow  the  system  designer  to  utilize 
the  ben^its  of  SerU  EEFROMs. 

3-WIRE  BUS  OPERATION  PRIMER 

Many  serial  EEPROM  data  sheets  are  written  in  a 
conventional  memory  data  sheet  format  which  empha- 
sizes the  features  of  the  part  more  than  the  tjasic 
operating  principles.  The  operating  principles  are  unfor- 
tunately either  vaguely  embedded  in  the  data  sheet  text 
or  not  included.  Serial  EEPROMs  are  not  conventional 
memories  due  to  the  Serial  communication  protocols 
involved.  This  section  is  a  PRIMER  forthe  data  sheet  to 
familiarize  the  system  designerwittithebasksprindples 
of  the  3-wire  bus  operation. 

Baaic  Principlag 

Common  device  nomenclature  is  99S0&Sti 
TTie  93XX06  is  a  256  bit  product. 
The  93XX46  is  a  1 K  bit  product. 
Tlie  93XX56  is  a  2K  bit  produet 
TTm  g3XX66  is  a  4K  bit  pRXftict. 


Four  pins  are  reqidred: 

CS  (Chip  Select)  Dl  (data  in) 

CLK  (Clocl<)  DO  (data  out) 

All  gSXXXX  parts  are  hardware  compatible  for  these 
fourpins.l-lowever,  there  may  be  compatibility  issuesfor 
the  otiwr  pins. 

Even  though  there  is  hardware  con^iatibnity  on  the  four 
pins,  there  can  be  differences  from  a  software  stand- 
point. Subtle  differences  between  each  manufacturer's 
products,  refen'ed  to  as  default  conditions,  can  prevent 
plug  compaUbiiity.  These  issues  are  addressed  later  in 
the  attached  3-Wire  Timing  Diagram.  There  is  no  indus- 
try stemdardized  upgrade  path  for  density  migr^ion. 
Please  review  density  upgrades  for  Microchip's  prod- 
ucts on  a  case-by-case  basis. 

Data  is  available  in  xB  or  x16  organizations.  This  selec- 
tion is  detennined  eNtwr  by  the  ORG  pin  or  by  purchas- 
ing a  standard  x16  organization. 

Units  will  power-up  in  a  EWDS  (ERASE/WRITE  Disable 
State).  All  ERASE  and  WRITE  functions  are  disabled 
until  the  EWEN  (ERASEA/VRITE  Enable)  instruction  is 
performed.  This  is  to  prevent  accidental  data  corruption. 

An  Auto-ERASE  (logical  "1")  cycle  is  perfonned  during 

each  WRITE  Cycle. 

The  7  instructions  are  shown  in  the  attached  instruction 
settable.  These  instruotl9iiiai»lerMicfochip's93LCXX 

family  products. 

After  an  instruction  is  loaded,  the  CLK  and  Dl  pins  are  in 
a  DON'T  CARE  state  until  the  next  START  bit. 
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The  following  is  required  for  each  instruction  sat  (all 
input  bits  are  triggered  by  the  positive  clocic  edges): 

Start  Bit       The  first  t)atei-in  high  signal  clocked  in 

after  CS  Is  high. 

Opcode       Two  Bits  to  identify  the  Instruction 

Addi<es»       Refer  to  the  Instruction  Set  table  for  the 
number  of  bits  required. 

Data        '  SeparajtSeiaM-lh  and  data^ul  pins.  How- 

l   ever,  these  two  pins  may  be  tied  together 

for  true  3-wire  operation.  Please  refer  to 
the  attached  3-wlra  Bus  ,  READ  ttrjipg 
  diagram  example. .  ' 

The  €MMitacl  93LC66  timing  diagrams  illustrate  the  l<ey 
concepts  and  timing  parameters  for  each  of  these  op- 
erations. Please  refer  to  the  instruction  set  tables  and 
the  AC  parameters  in  the  databook  for  supplemental 


it>n  t  . 


ERASE  ALU  (ERI>U   o  , 

An  ERASE  ALL  (ERAL)  operation  is  identified  by  a  "00" 
opcode.  The  ERAL  lnstructk>n  requires  the  next  two  bits 
to  be  ckxdced  in  as  "lO"  in  the  address  bk>ck  of  ttie 
instoictnn  set.  All  bits  in  the  array  will  be  set  to  a  togk: 
'1"  state  by  one  command  in  typically  less  than  10ms. 

WRITE  ALL  (WRAL) 

A  WRITE  ALL  (WRAL)  operation  Is  also  identified  by  a 
"GO"  opcode.  The  WRAL  requires  the  next  two  bits  to  be 
clocked  in  as  "01 "  in  the  address  block  of  the  instruction 
set.  The  data-in  block  will  contain  the  datafora  SINGLE 
BYTE  which  is  to  be  repeated  throughout  the  entire 
array.  For  example,  if  a  4F5A  Is  loaded  in  the  1 6  data-in 
bits  of  the  instaictk>n  set,  a4F5A  will  be  written  into  every 
word  in  the  array.  n  -"  i;: 

EWEN  and  EWDS 

As  stated  before,  all  units  will  power  up  In  to  an  ERASE/ 
WRITE  DISABLE  (EWDS)  state  to  prevent  data  corrup- 
tion. All  future  ERASE/WRITE  operations  must  execute 
an  ERASE/WRITE  ENABLE  (EWEN)  opcode  until  the 
next  power  down  is  detected  or  until  other  EWDS 
opcodesjBnij^QQIited.  i^|^9s«;re(erto  the  iQstpQtiap  SiH 
table.      '     .  ■  - 


.afjolliu^li?;  !E  > 


t  'ML  ,    .  •r- 
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INSTRUCTION  SET  FOR  93LC46:  ORG  =  1  (x  16  organization) 


Instruction 

SB 

Opcode 

Address 

Data  In 

Data  Out 

Req.  CLK  Cycles 

READ 

10 

A5  A4  A3  A2  A1  AO 

D15-D0 

25 

EWEN 

00 

1   1   X  X  X  X 

HIgh-Z 

9 

ERASE 

11 

A5  A4  A3  A2  A1  AO 

(RDY/§§V) 

9 

ERAL 

00 

1  0  X  X  X  X 

(RDY/BSY) 

9 

WRITE 

01 

AS  A4  A3  A2  A1  AO 

D15-D0 

(RDY/BSY) 

25 

WRAL 

00 

0  1   X  X  X  X 

D15-D0 

(RDY/BSY) 

25 

EWDS 

00 

0  0  X  X  X  X 

High-2 

9 

INSTRUCTION  SET  FOR  93LC46:  ORG  =  0  (x  8  organization) 


Instruction 

SB 

Opcode 

Address 

Data  In 

Data  Out 

Req.  CLK  Cycles 

READ 

10 

A6  A5  A4  A3  A2  A1  AO 

D7-D0 

18 

EWEN 

00 

1    1    X  X  X  X  X 

High-Z 

10 

ERASE 

11 

A6  A5  A4  A3  A2  A1  AO 

(RDY/BSY) 

10 

ERAL 

00 

1   0  X  X  X  X  X 

(RDY/BSY) 

10 

WRITE 

01 

A6  A5  A4  A3  A2  A1  AO 

D7-D0 

(RDY/BSY) 

18 

WRAL 

00 

0  1   X  X  X  X  X 

D7-D0 

(RDY/BSY) 

18 

EWDS 

00 

0  0  X  X  X  X  X 

High-Z 

10 

INSTRUCTION  SET  FOR  93LC56:  ORG  =  1  (x  16  organization) 


Instruction 

SB 

Opcode 

Address 

Data  In 

Data  Out 

Req.  CLK  Cycles 

READ 

10 

X  A6  AS  A4  A3  A2  A1  AO 

D15-D0 

27 

EWEN 

00 

1    1    X   X  X   X  X  X 

Hlqh-Z 

11 

ERASE 

11 

X  A6  A5  A4  A3  A2  A1  AO 

(RDY/BSY) 

11 

ERAL 

00 

1   0  X  X  X   X  X  X 

(RDY/BSY) 

11 

WRITE 

01 

X  A6  A5  A4  A3  A2  A1  AO 

D15-D0 

(RDY/BSY) 

27 

WRAL 

00 

0  1   X  X  X  X  X  X 

D15  -  DO 

(RDY/BSY) 

27 

EWDS 

00 

OOXXXXXX 

HJ^h-Z 

11 

INSTRUCTION  SET  FOR  93LC56:  ORG  =  0  (x  8  organization) 


Instruction 

SB 

Opcode 

Address 

Data  In 

Data  Out 

Req.  CLK  Cycles 

READ 

10 

X  A7  A6  A5  A4  A3  A2  A1  AO 

D7-D0 

20 

EWEN 

00 

1    1    X  X  X  X  X   X  X 

High-Z 

12 

ERASE 

11 

X  A7  A6  A5  A4  A3  A2  A1  AO 

(RDY/BSY) 

12 

ERAL 

00 

10XXXXXXX 

(RDY/BSY) 

12 

WRITE 

01 

X  A7  A6  AS  A4  A3  A2  A1  AO 

D7-D0 

(RDY/BSY) 

20 

WRAL 

00 

01XXXXXXX 

07 -DO 

(RDY/BSY) 

20 

EWDS 

00 

OOXXXXXXX 

High-Z 

12 

INSTRUCTION  SET  FOR  93LC66:  ORG  =  1  (x  16  organization) 


liwtnicHon 

SB 

Data  In 

Data  Out 

Req.  CLK  Cycles 

..READ    J  • 

to 

A7-A0 

D15-D0 

27 

EWEN 

00 

tlXXXXXX 

High-Z 

11 

ERASE 

11 

A7-AD 

(RDY/BSY) 

11 

ERAL 

00 

(RDY/BSY) 

11 

WRITE 

01 

A7-A0 

D15-D0 

(RDY/BSY) 

27 

WRAL 

00 

01XXXXXX 

D15-D0 

(RDY/BSY) 

27 

EWDS 

00 

OOXXXXXX 

 —  « 

...^^  

INSTRUCTION  SET  FOR  93LC66:  ORG  =  0  (x  8  or 

ganization) 

Instruction 

SB 

Opcode 

Address 

Data  In 

'-'Req.  CLK  Cycles 

1 

10 

A8-A0 

D7-D0 

20 

1 

00 

11XXXXXXX 

High-Z 

12 

ERASE 

11 

A8  -  AO 

(RDY/BSY) 

12 

ERAL 

00 

10XXXXXXX 

(RDY/BSY) 

12 

WRITE 

1 

01 

A8-A0 

D7-D0 

(RDY/BSY) 

20 

WRAL 

1 

00 

01XXXXXXX 

D7-D0 

(RDY/BSY) 

20 

EWDS 

1 

00 

OOXXXXXXX 

High-Z 

12 
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2-WIRE  BUS  OPERATION  PRIMER 

As  indicated  in  tlie  3-wire  bus  section,  many  serial 
EEPROM  data  sheets  are  written  in  a  conventionai 
memory  data  sheet  fomiat  which  emphasizes  the  fea- 
tures of  the  part  more  than  the  basic  operating  prin- 
ciples. The  operating  principles  are,  unfortunately,  ei- 
ther vaguely  embedded  in  the  data  sheet  text  or  not 
included.  This  section  is  a  PRIMER  forthe  data  sheet  to 
familiadze  the  syst«n  desic^  with  the  basic  2-wire 
serial  EEPROM  opeiation  princples. 

Basic  Prini^lea 

The  common  device  nomenclature  is  2iE00W(and 
85XXXX. 

Only  the  SCL  and  SDA  pins  are  essential  for  bus 
operation.  The  other  pins  are  supplementary: 

SCL  (Serial  clock)  "     i  T 

•  -       SDA  (Serial  Data) 

WP  (Active  High  WRITE  Protection)   

'  AO,  V  A1,  and  A2  (Chip  or  block  sstse^  X  . 

SDA's  open-drain  requires  a  pull-up  resistor  to  Vdo. 

The  data  is  organized  as  x8. 

Signals  are  level  triggered,  not  edge  triggered.  Also, 
there  are  Wters  on  the  InpiilstiatwUI  f  itternoiseglilches 
<100ns  wide.  '  " 

An  Auto-ERASE  ( logicat'T)tiycle'is  tMtfonned  during 
each  WRITE  cycle. 

The  I^C  protocol  utilizes  master/slave  bi-directional 
communication.  A  device  that  sends  data  onto  the  bus 
is  defined  as  the  transmitter,  and  a  device  that  is  receiv- 
ing data  is  the  receiver.  Both  the  master  and  the  slave 
can  operate  as  the  transmitter  or  receiver.  The  bus  must 
be  controlled  by  a  master  device  (most  often  a 
microcontroller),  which  generates  the  serial  clock  (SCL), 
controls  the  bus  direction,  and  generates  the  START 
and  the  STOP  conditions.    -  '  -  ^   ■ 

The  serial  EEPROM  is  the  slave.  The  serial  EEPROM 
will  be  the  bus  transmitter  during  READ  operations  and 
when  the  seriaj  EEPROM  must  acknowlecjge  datatians- 
itnRted  by  the  master. 

START  and  STOP  bits  control  the  bus  activity.  Opera- 
tions must  begin  with  a  START  bit  and  end  with  a  STOP 
bit. 

A  START  bit  is  when  SDA  transitions  LOW  while  SCL  is 
HIGH  while  obsenrfng^he^jitfeNyt-up  antf <wld  time 
specifications. 

A  STOP  bit  is  when  SDA  transitions  HIGH  while  SOL  is 
HIGH  while  g^seMntt  tfti'  STOP  setrup  and  hold  time 
spwjIHmUuiy  '  " 


Data  is  reco^iized  as  valid  while  SCL  is  high.  The  daSa 
on  SDA  must  obsen/e  data  in  set-u^  and  hold  specifica- 
tions before  and  after  SCL  is  pulawdi-Tl^e  is  orriy  one 

bit  of  data  for  each  SCL  pulse.  | 

Control  Byte  Requirements 

After  a  START  bit,  each  command  begins  with  an  8  bit ' 
control  byte  sent  by  the  master.  This  control  byte  has  the 
following  three  primary  functions  before  the  data  and/or 

word  address  infomnafion  is  ioaded  for  all  commands: 

Identify  the  serial  EEPROM  as  the  slave  addressed  on 
the  bus.  ■  "^^    i  ■ 

Selectthe  specific  seriatlFW'WPifltaheinlernaliTiemoty  ■ 
block  on  the  bus.  There  Niaytai  upfe  8  serial  EEPROMs 

on  the  bus) 

Select  the  READ  or  WRITE  function  forthe  next  com- 
mand trensmitted  by  the  master. 

The  diagram  of  a  control  byte  (not  including  the  START 
bit)  is  shown  below: 

10    10       A2    A1    AO  X 

PC  Slave  Address       Chip  or  Blod(  Select       Read  or  W  rite  bit 


Control  Bits  1-4  are  the  Slave  Address  Bits 
(Must  be  1010  for  l\/lemorv) 

Since  there  is  not  a  chip  select  pin,  the  part  is  selected 
by  a  four  bit  code  in  the  control  byte  to  Mentify  the  type  i 
of  product.  The  four  bit  code  was  estat>lished  by  Philips 
forthe  PC  protocol.  A  lOtO-oode  klentifies  the  slave 
de\^  as  a  Serial  EEPROM.  The  Serial  EEPROM  wUI 
remain  in  steuid-by  until  the  1 01 0  code  is  transmitted  on 
the  bus.  Other  non  Serial  EEPROM  slave  devices  will 
not  respond  to  the  1010  code  on  the  bus. 

Control  Bits  5-7  are  the  1  of  8  Chip  or  Blocit 
Address  Select  Bits 

The  next  three  control  bits  are  utilized  for  the  chip 
selection  or  internal  btocl<  selection.  The  standard  I^C 
protocol  was  developed  to  allow  up  to  16K  bits  of 
memory  to  be  selected.  This  could  be  accomplished  by 
accessing  a  combinatkxi  of  devices  or  bloclcs  within  a 
device,  as  shown  in  the  table  on  the  following  page: 
I  f  I 
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Dovico 

Lyons  iiy 

Blocks 

An 

A  1 

DUS  Access  uevicos 

24LC01B,  24C01,85C72 

1 

1 

HorL 

HorL 

HorL 

Up  to  8  devices 

24LC02B,  24C02,85C82 

2 

1 

HorL 

HorL 

HorL 

Up  to  8  devices 

4  . 

2 

X 

HorL 

HorL 

Up  to  4  devices 

24LC08B 

8 

4 

X 

X 

HorL 

Up  to  2  devices 

24LC16B 

16 

8 

X 

X 

X 

Only  1  device 

X=  NOT  USED.  Tliis  pin  must  Im isal  to  Vss  or  Vdd  It  is  not  recoq 
modes  accessed  to  these  pins  via  a  high  voltage  signal. 


These  three  bits  for  this  select  must  match  the  hardware 
conditions  (IF  ANY  ARE  USED)  of  the  external  AO,  AI, 
and  A2  pins  or  the  internal  block  selects. 

With  this  selection  scheme,  devices  from  2K  to  16K  are 
software  compatible.  For  example,  four  2K  devices  or 
one  8K  device  could  be  connected  to  the  bus  with  the 
same  software. 

The  AO,  AI  .mt  A2  .sigt»|9)«i»«ie  sanuMMiMI^IKlMt^ 
2K  products.  The  A7l>ltforthe  1Kprod(iet&a#OI4^ 

CARE. 

The  AO,  A1 ,  and  A2  pins  are  not  commonly  used  today 
in  the  industry  with  the  advent  of  the  density  evolution  up 
to  the  1%  protocol  limit  of  16K  bits. 

cArttfer  B»  B  OBiaratioh  Cade 

If  this  bit  is  a  "I"  then  the  operation  will  be  a  READ 

If  this  bit  is  a  "0"  then  the  operation  will  be  a  WRITE 

After  the  control  byte  acknowledge  bit  is  generated  by 
the  serial  EEPROM, the  masterwill  send  the  appropriate 
word  CKklress  and  data  infomiation. 

iAcknowledqe  Raquirements 

The  serial  EEPROM  must  generate  an  acknowledge  bit 
after  receiving  each  byte  segment  in  a  command.  The 
serial  EEPROM  will  generate  the  acknowledge  bit  auto- 
matically after  the  master  has  transmitted  all  of  the  data 
for  the  segment. 

To  acknowledge  the  master,  the  serial  EEPROM  must 
pull  the  SDA  line  LOW  during  the  entire  HIGH  period  of 
the  next  clock  generated  by  the  master.  During  the 
READ  operations,  the  master  must  acknowledge  each 
data  byte  or  the  serial  EEPROM  will  abort  the  READ 
operation  and  return  to  aMMKt#y  mode  waiHngforthe 
next  START  bit. 

The  sOtached  24LC16  timing  diEQ^tuns  ta)8li8lD  ffio 


MICROCHIP  2-WIRE  DEFAULT 
CONDITIONS 

As  Stated  before,  data  sheets  do  not  provide  adequate 
information  on  basic  operation.  This  lack  of  information 
forces  each  reader  of  the  datatraok  to  make  interpreta- 
tions about  the  operating  conditions.  These  readers 
have  included  other  semiconductor  circuit  designers, 
which  unfortunately  leads  to  subtle  compatibility  prob- 
lems. The  part  is  designed  to  operate  to  the  default  of  the 
circuit  designer's  interpretation.  This  next  section  details 
Mk:rochip's  default  conditions  to  help  the  system  engi- 
neer minimize  "Trial  and  Error"  prototyping  and  to  in- 
crease the  awareness  of  these  default  conditions. 

Also,  to  improve  corporate-wide  compatibility,  Mtetochip 
is  standardizing  their  circuits  on  various  product  ver- 
sions. Unless  indicated  otherwise,  all  references  to 
default  conditk)ns  are  for  the  24LOXX  products,  not  the 
products. 

BaperUp 

MEAD,  WRITE,  and  ERASE  opetaUons  are  valid  5  uS 
aftn*  \ta  has  ramped  to  the  specified  operating  range. 

PAGE  WRITE  bv  Product  far  Multiote  BYTE 
lEBHEjQOWHUS 

The  24C01  and  mBm.tmm  a  2  M»«il|l|ai. 
The  24G04  has  an  8  buffer. 

Hw-Miil:  mM^U^'tmnmSHmm  page. 
The2«jC04, 24LC0B,  and24LC16hawea  16b|Mi«ipi, 

The  buffer  will  toad  bytes  IttMiieidly  as  the  page  loads 
bytes.  The  difference  in  the  hwo  modes  is  that  the  buffer 
wM  SKaeute  a  WRITE  of  one  byte  per  VmiTE  cycle  in 
sequane*^  Triage  mode  wW  exacutaii  bptplBiiiM) 

in  one\Mti«|i>de  to  paraH^. 


»it(iftitMmpNiivlnlin«an>.ftiie 
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There  are  pages  within  blocks.  For  a  16  byte  page 
product,  the  most  significant  4  bits  of  the  word  address 
point  to  the  page  address  and  the  least  significant  4  bits 
point  to  the  byte  address  within  a  page.  For  an  8  byte 
page  product,  the  most  significant  5  bits  of  the  word 
address  poirrt  to  the  page  address  and  the  least  signifi- 
cant 3  bttsppln  to  ^  byte  address  within  a  page. 

The  number  of  bytes  loaded  in  to  the  page  is  .from  one 
byte  up  to  the  page  size.  For  example,  three  bytes  can 
be  loaded  into  ttia  16  byte  page  of  the  24LC16.  If  during 
die  loading  of  the  fourth  byte  a  STOP  bttis  racdhradi,  vie 
p«^  V^ill  WRITE  three  bytes.  Thai 
wittin       b^ii  the  fourth  t 


NOTE:   New  versions  released  in  March  1993  will 
default  to  ABORTING  the  entire  operation  if  a 

wniie  loading  a  page. 

If  more  than  1 6  bytes  are  loaded  in  the  page  of  a  1 6  byte 
page  product,  then  the  17th  byte  will  override  the  data 
loaded  into  the  original  first  byte  (the  page  data  will  wrap 
around  WITHIN  a  page).  Therefore,  the  system  de- 
signer must  take  precautions  to  not  WRITE  over  a  page 
ttoundary  during  a  multiple  byte  WRITE  operation. 

Bytes  not  changed  in  the  page  will  NOT  result  in  data 
corruption  in  the  array.  For  example.  If  two  bytes  are 
baded  in  to  the  24LC16  page  with  the  least  significant 
word  address  bits  of  0000  and  then  a  STOP  bit  is 
transmitted.  Bytes  1  and  Uro^a^^^^^^^^^^ 

'  b#»  jT»flvif  .OAafl 
.1 . b«(jrre.i  *3rf€aV  istva 


'iiq.ji'JiV:  lot  j-iiilo 


WRITE  operation  wWifoilie  McieffiKl  iaitfai^TQiP: 
bit  IS  transmitted. 

At  this  point,  the  serial  EEPROM  is  free  from  the  bus 
since  the  actual  WRITE  function  is  self-timed.  There- 
fore, the  microcontioilerintaifacing  to  the  serial  EEPROM 
may  perform  other  functions  not  associated  to  commu- 
nicatkxi  with  ttie  serial  EEPROM  during  the  self-timed 
WRITE  operations. 

Once  the  part  is  in  the  auto-ERASE  mode,  it  will  com- 
plete the  ERASE/WRITE  operation  unless  power  it> 
removed.  STOP  and  START  bits  will  be  ignored. 

READ 

Once  the  Serial  EEPROM  is  in  a  RANDOM  READ 
operation,  it  can  be  placed  into  the  sequential  READ 
operatkin.  If  the  master  issues  an  acknowledge  bit 
instead  of  a  STOP  bit ,  the  Serial  EEPROMwillREADthe 
next  sequential  8  bits.  The  Serial  will  wait  for  the  next  bit 
command  from  the  master  The  sequential  READ  will 
continue  as  long  as  the  master  issues  an  acknowledge 
bit  on  the  next  clock  cycle  after  the  last  bit  is  READ.  The 
READ  will  continue  from  block  to  block  and  will  wrap 
around  if  the  last  bit  in  the  array  is  addressed.  Again,  this 
will  continue  until  the  master  issues  a  STOP  bit  instead 
of  an  acknowledge  bit. 

While  reading  zeroes  the  master  cannot  pull  SDA  high 
to  generate  a  STOP  bit,  since  the  serial  EEPROM  SDA 
pin  is  outputting  a  low.  To  recover  from  a  fault  during  a 
READ,  repeat  9  clocks  with  data  ftoating  high.  There- 
fore, the  acknowledge  btt  will  not  occur  and  the  part  will 
reset  and  return  to  stand-by. 

A  START  bR  during  an  operatton  will  cease  the  current 
operation  and  begin  the  next  operation. 


.Author.       Steve  DrehobI 

Memory  Products  Division 
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3  WIRE  BUS  EXAMPLE 

MICROCHIP  93LC66  READ  CYCLE  TIMING  DIAGRAM 
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NOTE:  THIS  EXAMPLE  IS  FOR  X8  OPERATION  OF  MICROCHIP'S  93LC66. 
INSTRUCTION  LENQHTS  MAY  VARY  WtTH  ARRAY  SIZE  AND  DATA  WIDTHS 


AMM««pMng«i!biiMMlMW«W  M  0  *e(M)od«  (Mewing  ttwatart  M. 


Next,  ttie  address  lotation  bits  are  loaded. 


Then  the  address  contents  are  cioclted  out  on  the  rising  clocic  pulse  edge.  Data  will  become  valid  on  the  DOUT  pin  per  the  specified  Tpd  time  (typically  400ns)  relative  to  the  rising 
edge  of  the  clock  on  the  DOUT  pin;  Note,  the  first  bit  output  will  be  a  'dummy  bit*  with  a  logical  zero  state.  This  event  is  triggered  by  the  clock  nsing  edge  of  the  last  address  bit  tot  a 
duration  of  one  clock  pulse.  ' 

If  the  data  from  the  current  address  is  complete  and  the  clock  pulses  continue,  the  data  from  the  next  address  will  be  READ  autainalically  as  long  as  CS  remains  Ngh.  This  Is  the 
SEQUENTIAL  READ  FUNCTION.  READ  operations  will  continue  while  clock  pulses  continue  or  until  CS  is  brought  low. 


It  is  possible  to  tie  the  DOUT  pin  and  the  Dl  pin  together  to  save  on  I/O  requirements  from  the  microcontroller.  Caution  must  be  exercised  to  avoid  bus  contention  foran  AO  t)tgt), 
^nal|wi|^^||^  «|fM|dM|M!^W^il  iieo(ywiwn(;|^  ttiat  a  resistpr  between  the  microcontroHer^e^rt  c(»n<»isted  U;  jh»p|jpjn^p(|JjlOt|tfja^^^||de|ja^.iso^^  T)^  j^iWW^ 
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3  WIRE  BUS  EXAMPLE 

MICROCHIP'S  93LC66  WRITE  CYCLE  TIMING  DIAGRAM 
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Data  SET-UP  to  dock  riling  cdga  Hnw  (Tds)  >100n«  min 


Data  must  confom  to  specific  sst-up  and  hold  times  (Tdis  and  Tdih)  relative  to  the  cto 

A  WRITE  operation  is  Identilied  by  a  the  '0  1  'op  code  following  the  start  bit 
Next,  the  address  locatian  bits  are  loaded  on  the  Dl  pin. 

Then,  the  data  bits  to  be  written  are  loaded  on  the  Dl  pin. 


k  parameter  is  typically  100ns. 


I 


CS  must  be 
imtiuclisat 


brought  low  after  the  last  Dl  bit  is  loaded.  When  CS  is  brought  low. for  the  Tcsl  period,  a  self  timed  WRITE  is  executed.  If  too  many  bits  are  loaded  during  ERASE  and  WRITE 


The  DOUT  pins  only  function  during  a  WRITE  is  to  indicate  the  status  of  the  write  with  the  HEAOY/BDST  function, 
complete  (the  part  is  BUSY).  When  DOUT  is  high, the  Serial  EEPROM  is  indicating  that  piig^iffinShg  is  complete 
completing  the  Tcsl  time  is  complete  to  initiate  me  READY/  BUSY  function.  Microchip's  83LC)0(  products  can  be 
poiM  mraplB  ti'"^  'or     'Bme  cycle. 

■       -  -        -  .  - 

f  Ihftinttiuetion  Is  baing  LOADED.  When  the  CS  goes  low,  the  instruction  is  being  EXECUTED.  If  there  are  not  smugh  bits  joaded  during  ERASE  and 

  ■■■   -     -EEPR- ■• 


|!6i^iltlow,  than  the  operation  WILL  NOT  BE  EXECUTED  and  the  Serial  EEPROM.will  return  to  stand^. 

■  TCft  ^>:^; 


3  WIRE  BUS  EXAMPLE 

MICROCHIP  93LC66  ERASE  CYCLE  TIMING  DIAGRAM 


#1  «2  13 


H 

U 

R 

U 

U 

R 

U 

R 

U 

R 

U 

R 

U 

u 

s 

C8  b  dock  rWng  adg*  Mtup  Hms  (Tcm)- sons  min 


 |Dit>8Er-UI>l> 


dodc  iMig  M)g«  lm«  CTdb)  -1  OOtm  mm 


\r~~~^Yixi)(zxzxzxz)Cix:D(:ii 

nuuf'iD  on  laawMB  mw  i  tan  laiuw*  iqn 

rait  — 


CS  mull  b«  lo«     fi«  Tc^  mMnMlrivi^ti|ki%  fOMt  ' 


M  HOiO  to  de«k  iWn0id0»  taw  (T«4 -imra  irjn 


NOTE:  This  example  Is  for  X8  operation  of  the  Mlcro^'8  ^LC66.  Instruction 
lengths  may  vaw  with  array  size  and  data  widths.      u.^.-        ^^v...  . 


AN  ERASE  epwHHwiteldtlilM  ^  a  *1 1 '  two  btt  code  lt«t  follovm  the  etart  bR 


biMlPWwnetertSilwpically  100ns. 


THERE  ARE  NO  l>ArA  IffiS  TO  LOAD.  tWE  ADtJfffiSS  LOCATtOM  LOABED  V*1LL  BE  SETTO  AN  ERASE  STATE  OF  "1". 

CS  must  be  brought  low  after  the  last  Dl  bit  is  loaded.  When  CS  is  brought  low  for  the  Tcsl  period,  a  self  timed  EFWSE  is  executed.  If  ta)  many  bits  are  loaded  during  the 
ERASE  and  WRITE  Instructions  prior  to  CS  being  brought  low  at  the  end  of  an  instruction  set,  then  the  extra  bits  will  be  ignored.  OnteinAffnt  bits  loaded  will  be  executed. 

I  '    I    '    I    V  A  A  /        .  A  /■      A  A         ■    ■,,  \  I 


The  DOUT  pin's  only  function  during  a  ERASE  is  to  indicate  the  status  of  the  write  with  the  READY/HOST  function.  While  DOUT  islow,  the  Serial  EEPROH<  Is  IndioatinQ 
that  programming  Is  not  complete  (the  part  Is  BUSY).  When  Do  Is  high,  the  Serial  EEPROM  Is  indicating  that  programming  is  complete  and  It  is  READY  for  another 


I  U  M  U  U  h 


U 


Up  through  clock  pulse  12,  the  address  for  the  InstrucUon  ls  being  LOADED^  When  CS  goes  low,  the  Inatniction  Is  being 
EXECUTED.II  there  are^npt  enough  bits  loaded  dUilhg  MJ^^E  and  WRTTE  IntfnicSons  prior  to  CS  betng  btougHt  tow,  thisn 
ECin'EDandttieserwIiiBnWlwHI  Nti^l^alai^bbyr-  .  —n^  ,  .•- 


the  opaiallon  WILL  NOT  BE  EXECUTED  and  »» i 
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2  W[RE  BUS  EXAMPLE 

MICROCHIP  24LC16  BYTE  WRITE  CYCLE  TIMING  DIAGRAM 
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PLEASE  REFER  TO  THE  NOTES 


NOTE  THE  SDA  (>OS[TION  OF  THE  START  AND  STOP  BfTS.  THE  SDA  TRANSITION  IS  DURING  A  HK3H  SCL  PULSE 


THE  SEQUENCE  OF  EACH  WRITE  COMMAND  AND  THE  MASTEMBERUU. 
DinECTION  OF  THE  COMMUNICATION  IS  SHOWN  BELOW : 


ALL  OTHER  BITS  TRANSMITTED  MUST  COMPLY  WITH  THE  lOOKHZ  CLOCK  IC  PROTOCOL  DATA  SET  -UP  TIME 
250NS  (TSU:  DAT)  FOR  DATA  TO  BE  ESTABLISHED  PRIOR  TO  THE  RISINS  CLOCK  EDGE  AND  THE  HOLD  TIME  C 
ONS  (THDiDAT)  FOR  THE  FAaiNQ  CLOCK  EDGE. 

THESTOPBrrONCL0CKPULSE«2SWiaiNmATEASELFTIMEDWRITE.THE  SERIAL  EEPROM 

CAN  NOT  EXECUTE  ADDITIONAL  INSTRUCTIONS  UNTIL  THE 
CYCLE  IS  COMPLETE. 

TO  EXECUTE  A  PAGE  WRITE,  CONTINUE  TO  LOAD  8  BITS  OF  DATA  AT  CYCLE  29  INSTEAD  OF  ISBUING  «  STOP 
BIT  (FROM  THE  MASTER).  REMEMBER .  A  CLOCK  PULSE  MUST  BE  AaoCATED  AFTER  EACH  SUBSEOtraiT  8 
BITS  FOR  THE  SERIAL  EEPROM  TO  ISSUE  AN  ACKNOWUOGE  SIGNAL  (LOm.  AFTER  THE  DESIRED  NUMBER  C 
BYTES  HAVE  BEEN  UMDEO,  UPTO  THEIR  PAGE  SEE,  THE  MASTER  MUST  l&UE  A  STOP  BIT  TO  EXECUTE  THI 
INSTRUprUN. 


BYTE  WRITE 

START  BIT  FROM  THE  MASTER 
COMTROL  BYTE  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
WORD  ADDRESS  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
DATA  BYTE  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
81W  Or  N«3W7HE  MA8TBI ' 


I  :  J  1} 


PAGE  WRITE  lEXAMPLE  VMTH  4  BYTESl 
STARfT  BIT  FROM  THE  MASTER 
CONTROL  BYTE  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
WORD  ADDRESS  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
DATA  BYTE  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
DATA  BYTE  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
DATA  BYTE  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
DATA  BYTE  FROM  THE  MASTER 
ACKNOWLEDGE  BIT  FROM  THE  SERIAL 
STOP  err  FROM  TVEMimER 


2  WIRE  BUS  EXAMPLE 

MICROCHIP  24LCie  READ  CYCLE  TIMING  DIAGRAM 
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NOTE  :  THE  FIRST  19  CLOCK  PULSES  OF  THE  WHITE  COMMAND  AHE  IDENTICAL  TO  THE  FIRST  19  CLOCK  PULSES  IN  THE  HEAD 
COMMAND.  EVEN  THE  9TH  CLOCK  PULSE  IS  A  WHITE  BIT  "O"  TO  TRANSMIT  TO  THE  SERIAL  EEPROM  THE  BEStREO  WOWtaBfliBS. 

THE  HEAD  COMMAND  HAS  TWO  START  BITS.  THIS  IS  FOR  THE  RANDOM  HEAD  COMMAND. 

AS  SHOWN  ON  THE  PREVIOUS  PAGES.  IF  A  READ  18  DESIRED  FROM  A  OURHBUT  ADDRESS  THEN  THE  FIRST  19  CLOCK 
PULSES  AHE  NOT  REQUIRED.  THEREFORE,  THE  RR8T  START  BIT  18  AT  aOCSK  PULSE  920.  THIS  IS  ONLY  FOR  THE 

CURRENT  ADDRESS  READ  COMMAND 

ANOTHER  USEFUL  READ  COMMAND  IS  THE  SEQUENTIAL  HEAD  COMMAND.  THE  SEQUENTIAL  READ  COMMAND  IS  THE  SAME 
AS  THE  RANDOM  READ  COMMAND;  HOWEVER,  THE  MASTER  MUST  ISSUE  AN  ACKNOWLEDQE  BIT  INSTEAD  OF  THE  STOP  BIT 
AS  SHOim  FOR  CLOCK  HJUBE  «9a  THS  SIGNALS  T1«  SERIAL  TO  EeM>  THE  DATA  FROM  THE  NEXT  SEQUENT 
THE  MASTER  MUST  CONTNUE  TO  ACKNOWLEOOE  EACH  BYTE  RECEIVED  UNTIL  THE  MASTER  ISSUK  A  STOP  BIT. 


NOTE  THE  SOA  POSITION  OF  THE  START  AND  STOP  BITS.  THE  SDA  TRANSITION  IS  DURING  A  HIGH  SCL  PULSE 


ALL  OTHER  BTTS  TRANSMITTED  MUST  COMPLY  WITH  THE  100KHZ  CLOCK  IIC  PROTOCOL  DATA  SET  -UP  TIME  OF  »)NS  (TSlfc  DAT)  FOR 
DATA  TO  BE  ESTABUSHB}  PRKM  TO  THE  RISINQ  CLOCK  EOQE  AND  THE  HOLD  TIME  OF  ONS  rrHD:DAT)  FOR  THE  FALUNQ  CLOCK  EDQE. 


READ  IF 

START HT  moMnCIMSTER 

COMTfUL  BYTE  FfWM  TME  Wrm  (R  '  W  -  < 


REAP  fFROM  THE  CURRENT  ADDRESSl 
eoHinOl  IVTI  mOH  IHEIMBim  ( R/ W  - 1) 


•nun-MT  moMTM  Mwrat 


READ  iS 
•TAnr  HT  moMTHB  Mum 

CONTKX 1X18  FROM  T>CIM«ranip/W*l| 


START  HT  moM  THE  HUraR 

CONTna  BYTE  mOMTW  iMsm  <R/ W  - 1> 

ACKNCMUOQEen-FnOMnCWVAL 

MTA  moM  Tw  asiu. 


NOTES: 
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Microchip  AN537 

J^v«rytliing  a  System  Engineer  Needs  to  Know  About  Serial  EEPROM  Endurance 


The  term  'endurance"  has  become  a  confusing  param- 
eter for  both  users  and  manufacturers  of  EEPROM 
products.  This  is  largely  because  mtmy  semiconductor 
vendors  treat  this  important  application-dependent  reii- 
abillty  parameter  as  a  vague  specmanship  topic.  As  a 
result,  the  system  engineer  often  designs  without  proper 
reliability  Information  or  under-utilizes  the  EEPROM  as 
an  effective  solution. 

Endurance  (the  numberof  times  an  EEPROM  cell  can  be 
eiBsed  and  rewritten  without  comipting  data)  is  a  mea- 
sure o(  the  device's  reriabiW|r,;C!!^tJls  paiametric  perfor- 
mance. As  such,  endurance  is  riot  achieved  by  some- 
how making  EEPROM  devices  more  durable  or  robust  to 
extend  the  life  of  the  intrinsic  erEse/write  cycle,  but  rather 
by  reducing  their  defect-density  failure  rates.  This  has  a 
direct  impact  on  ttie  design  engineer  charaeteilzing 
EEPROM  memory  needs  for  an  application  and  evaluat- 
ing components  from  various  manufacturers.  The  sys- 
tem design  engineer  needs  to  understand  not  only  the 
relationship  between  thie  application,  expected  use  and 
failure  mechanisms,  but  also  how  the  manufacturer  has 
anived  at  published  endurance  data  for  its  components. 

This  tutorial  volume  is  intended  to  clarify  some  of  the 
issues  in  the  industiy  and  provide  a  tool  for  the  system 
design  engMer,  the^i^i^aip  i»liabi1ity!(ipgnMfr^«ral,the 
compbnerit  engineer  fi>  (AWstmihe  EE^C^  miabftffy 
and  understanding  Iww  to  apply  it  to  actual  application 
requirements.  It  will  nomine  four  main  areas: 

•  CMOS  floating  gate  nwnwiyceaepewtion'iwaelllg- 

acteristics 

•  Signilicant  process  and  design  interactions  and  en- 
durance characterization  variables 

•  Common  misinterpretations  of  endurance 

'  •  DetemtNng  some  real  world  application  reliability 
requirements 


EEPROM  MEMORY  CELL 
OPERATION  AND 
CHARACTERISTICS 

in  discussing  endurance  characteristics  of  EEPROMs, 
if  s  important  to  review  how  these  components  operate, 
and  why  and  how  they  fail.  Figure  1  illustrates  a  CMOS 
floating  gate  EEPROM  cell,  including  voltage  conditions 
for  READ,  ERASE,  and  WRITE  operations.  To  erase  or 
write,  the  row  select  transistor  must  have  the  relatively 
high  potential  of  20V.  This  voltage  is  internally  gener- 
ated on  chip  by  a  charge  pump,  with  the  only  external 
voltage  required  being  Vdo.  The  only  difference  be- 
tween an  EFMSE  and  a  WRITE  is  the  direction  of  the 
applied  rieid  potential  n^fg^mMpat^mm  floating 

When  20V  Is  applied  to  the  polysilicon  memory  cell  gate 
and  OV  Is  applied  to  the  bit  line  drain  (column),  electrons 
tunnel  from  the  substrate  through  the  90-angstrom  Tun- 
nel Dielectric  (TD)  oxide  to  the  polysilicon  floating  gate 
untilthe  polysilicon  floating  gate  is  saturated  with  charge. 
The  cell  is  now  at  an  ERASE  state  of  "1".  When  OV  is 
applied  to  the  polysilicon  memory  cell  gate  and  20V  is 
applied  to  the  bit  line  drain  (column),  electrons  tunnel 
kam  tfie  polysilicon  floating  gate  throu^  the  TDoidde  to 
the  substrate.  The  cell  then  Is  at  a  WFtlTE  stale  of  *0". 
This  sequence  of  the  transfer  of  chafga  onto  the  floating 
gate  (ERASE)  and  the  electrical  removal  of  that  charge 
from  the  f ioatii^  QitB  pnVI^  is  one  ERASE/  WRITE 
cycle,  or  "E/Wcy^." 

the  field  (applied  voltage  to  an  oxide  thickness)  across 
the  tunneling  path  created  by  the  20V  potential  is  ex- 
tremely high  in  order  to  transfer  the  electrons.  Over  the 
cell's  "application  time,"  as  measured  by  E/W  cycles,  the 
EEPROM  cell  begins  to  wear  out  due  to  the  field  stress. 
The  EEPROM  cell  wears  out  as  the  number  of  cycles 
Increase  resulting  in  the  voltage  margin  t>etween  the 
ERASE  and  WRITE  states  decreasing  until  finally  there 
is  not  enough  margin  for  the  EEPROM  sense  amp  to 
detect  a  difference  in  ttie  two  states  during  a  READ. 
Failure  is  defined  as  when  the  sense  amp  can  no  lor^ier 
reliably  differentiate  logk;  state  changes. 

Figure  2  (single  cell  EEPROM  endurance  characteris- 
tics) illustrates  that  the  intrinsic  wear  out  point  for  a 
normal  cell  with  specified  dimensions  and  electrical 
characteristics  is  very  acceptable,  in  excess  of  2  million 
EA/V  cycles.  Failures  at  lower  cycles  are  due  mostly  to 
very  small  defects  or  Impetfectnns  in  the  oxide  or 
silioon-to-QiSda  MeHam 
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A  key  point  to  remember  is  that  most  failures  occurring 
at  less  than  2  million  EA/V  cycles  are  due  to  the  number 
of  defects  per  a  given  area  (defect  density  dependent.) 
TTius  high  EEPROM  endurance  reliability  is  achieved  by 
reducing  the  defect  density  failure  rates,  not  by  increas- 
ing the  number  of  Intrinsic  cycles  in  the  cell's  operational 
design. 


Error  coffectlon  circuits  are  design  techniques  com- 
monly used  by  EEPROM  manufacturers  to  increase 
endurance  by  reducing  the  failure  rate  caused  by  single 
bit  failures.  These  circuits  are  transparent  to  the  user. 
One  typical  scheme  Is  using  4  bits  of  error  correction  for 
every  8  "real"  bits  (one  byte).  In  this  scheme,  one  bit 
failure  in  the  byte  Is  correctable,  while  if  tvra  wittiin 
the  byte  fail,  the  byte  is  not  correctable. 

Another  error  correction  scheme  is  to  use  one  'parity"  bit 
for  every  "cell."  Here  both  EEPROM  cells  must  fail  to 
'result  in  a  bit  fail. 


FIGURE  1  -  CMOS  FLOATING  GATE  EEPROM  CELL 
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)w.  :      iPaOure  will  occur  When  either  the  ERASE  or  V 
margin  crosses  the  sense  amp  level 

Sense  Amp  Level 


I  Erase 


Cell  Margin 
(Volts) 


Write 


1,000,000 


Erase/Write  Cycles 


PROCESS  AND  DESIGN  VARIABLES 
AFFECTING  ENDURANCE 

There  are  many  subtle  process  and  design  variables 
that  have  a  strong  impact  on  endu  ranee .  These  interact- 
ing variables  will  play  very  different  roles  depending  on 
the  different  process  technok^les  of  various,  semicon- 
ductor manufacturers. 


The  primary  interaction  is  the  amount  of  TIME  at  the 
HIGH  VOLTAGES  that  is  ultimately  applied  to  the  cell.  A 
finite  amount  of  time  at  finite  voltages  are  required  to 
achieve  "optimal"  ERASE  and  WRITE  thresholds.  If  the 
time  is  too  short  and  the  voltage  is  too  low,  the  EEPROM 
will  not  program  to  the  proper  threshold.  Also,  H  the 
programming  ramp  time  is  too  fast  and  the  voltage  is  too 
high,  the  EEPROM's  endurance  will  be  reduced.  Unfor- 
tunately, there  is  most  often  a  trade-off  between  fast 
reliable  programming  perlomnance  or  high  endurance 
reliability.  Some  of  the  significant  process  and  design 
variableus  are  shown  below  and  their  impact  on  program- 
ming perfomiance  and  endurance  performanoaik  i 


PARAMETER 

PROGRAMMING 

ENDURANCE 

internal  High  Voltages 

HIGHER  =  Faster  Programming 

LOWER     =  Increased  Endurance 

Internal  High  Voltage  Ramp  Rate 

FASTER  =  Faster  Pnigiainming 

SLOWER   =  Increased  Endurance  . 

Programming  Tima 

10NQ^  =  Improved  Voltage 
Margin  on  the  Cell 

SHORTER  =  Less  Oxide  Stress  for 
Increased  Reliability 

TD  CMda  thldcness 

Hi^t^S  a  ®ower  Programming 

THINNER  =  Reduced  Endurance 

LjOWER  =  Faster  Programming 

LOWER     =  Increased  Endurance 
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Ser^jiEFROM  Endurance 


COMMON  MISINTERPRETATIONS  evcleVDgY 


In  examining  industry  EEPROM  literature  on  the  topic  of 
endurance,  it's  easy  to  misunderstand  or  misinterpret 
endurance  concepts  due  to  incomplete  databook  state- 
ments. Thefolloymgare  claiiticatipns  tosonie  ofttie 
CMimion  mfeintei^rotadofis:      >  t'  ^'k  Jc?. 

Endurance  and  Ri 


READ  operations  am  tOTlimiteitalB»lhiylJ|)u|iiiitir 
alV  no  stress  on  A^IT  StapPepaS^iPPIihnirG* 

E/W  cycles. 

Erase/Write  Ratings 

E/W  ratings  are  based  on  each  byte  in  the  application, 
not  on  the  number  of  opcodes  or  control  byte  commands 
utilized.  For  example,  if  a  part  is  rated  to  100K  E/W 
I  cycles,  then  each  individual  byte  can  be  erased  and 
'  written  100K times.  TbepartisNOTIimitedtoonlyatotal 
of  100K  E/W  opcodes  or  control  bytes.  This  is  probably 
the  most  common  misinterpretation  made  by  system 
designers.  Endurance  is  thus  an  interactive  applicatiorK| 
specific  reliability  parameter.  It  is  not  a  typical  data  she«a 
^iecHication,  subh  as  apummiEWEmiSS^mamm 
wit)  betRhmatk  stamtaids  for  msrawniwnt 
-i-  _3. .'.(  •  .  '.  <  rK'riio''- 'Wnhq  6*rT 
V  -  a.-:.  5--.  aTJOVHOIH 

^;  -      „  ■  r;         ,  il  %  fUfH  \0  MUOTM  OSlVl 

t.  ■■  ;:       ■         ■    ■-,''»r^r?")*  .il:|C«' 

i-      '      a.  ■  .  -  ,    ■  *m  ' 


In  many  cases,  a  serial  EEPROM  Is  used  for  widely 
varying  functions  in  an  application.  These  functions 
have  different  E/W  usage  requirements  (cycles/day), 
resulting  in  different  endurance  requirements  and,  usu- 
ally, different  reliability  results  for  each  function. 

For  example,  assume  a  given  end-product  application 
will  have  a  10-year  life.  For  each  function  within  that 
/,  application,  an  assumptton  must  be  made  for  the  ex- 
-  pected  E/W  cycles  per  day  for  a  given  segment  of  bytes. 
If  a  function  has  a  segment  of  bytes  cycled  1  time  per 
day,  then  this  segment  of  bytes  will  have  3,650  cycles  in 
its  lifetime  (365  days  per  year  for  1 0  yesirs  at  1  cycle  per 
day  and  7  days  per  week  operatton).  Any  given  segment 
of  bytes  would  have  to  cycle  274  times  per  day  everyday 
to  reach  1 ,000,000  E/W  cycles  In  its  10-year  application 
lifetime.  Such  a  frequency  is,  of  course,  very  rare  ifi 

-^rrsference|)arpoM8,-Pigtir«  3  indicatas  typical  cycles 
per  day  for  some  common  applteatwns.  Although  many 
.  ...^jga^ufacturers  routinely  discuss  very  high  numbers  of  B/ 
^  ^^^^W  cycles,  the  amount  of  applteations  actually  utilizing  1 
million  cycles  is  very  small. 

A  further  and  very  important  Incorrect  assumption  often 
made  is  that  ALL  bits  in  an  application  need  the  same 
number  of  cycles  and  endurance  ratings.  In  most 
applicatk>ns,  however,  functnns  that  require  a  high 


FIGURE  3  •  TYPICAL  SERIAL  EEPROM  EADT  GmM0^0WiW^tMii^tKM 
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number  of  EAW  cycles  per  day  require  only  a  small 
number  of  bits.  Last  number  redial  In  a  telephone,  for 
example,  consumes  many  E/W  cycles  per  day,  but 
utilizes  only  a  few  bytes  for  this  function.  By  contrast, 
speed  dial  storage  in  that  same  telephone  consumes 
only  a  fraction  of  E/W  cycles  per  day,  but  requires  a 
relatively  large  segment  of  bits  to  accommodate  the 
many  speed  dial  options.  In  such  an  application,  the 
same  serial  EEPROM  normally  performs  both  functions 
at  different  address  locations. 

ENDURANCE  DATA  FROM  THE 
CUSTOMER'S  PERSPECTIVE 

Unfortunately,  an  industry  standard  for  an  endurance 
test  method  has  yet  to  be  adopted.  Since  endurance 
data  is  not  baselined,  the  process  of  evaluating  endur- 
ance becomes  that  much  more  complicated  for  ttie 
system  designer  and  reliability  engineer. 

R  id  Mot  liihtebitdnonforcustonrwtsto  request  enduiance 
data  from  many  semiconductor  vendors.  All  vendors 
would  b#  «(pe<^ed  to  comment  that  they  experiencea 
towfailureratethroughlOOKE/Wcycles.  Whilethlscan 
be  a  tnie  statement,  it  can  also  be  a  very  incomplefe 
statement.  It  is  extremely  doubtful  that  all  vendors  test 
their  components  to  the  same  conditions.  Yet  the 
variables  within  endurarK:e  testing  are  extremely  signifi- 
cant. Small  differences  in  text  protocol  can  haye  enor- 
mous differences.  Pattern,  cycling  mode,  t^^l^^n 
and  array  size,  for  e)^pi^^,.Sui|  Ili^'^^^Bl 
testing  variables^^^^^;-  . 


First,  memory  cell  failure  rates  are  defect  density  driven 
up  to  the  intrinsic  wear  out  point.  Existing  defects  in  a 
cell,  while  not  causing  failure  initially,  are  stressed 
during  every  transfer  of  electrons  through  the  TD  oxide 
until  they  eventually  cause  cell  failure.  Worst  case 
testing  would  be  to  erase  and  write  each  bit,  which  is 
what  a  wrrte  all  "0"s  pattem  with  an  auto-erase  of  "1" 
routine  will  perform.  Indeed,  this  write  all  °0"s  test 
pattem  will  produce  very  different  results  than  a  check- 
ertioard  test  pattem  of  alternating  '1  "s  and  "0"s  within  a 
byte,  since  cells  are  changed  more  often  writing  all  "O's 
than  in  an  alternating  "1"  and  "0"  write  pattem.  The 
resultant  failure  rate  differences  are  indicated  on  the 
pattem  effect  graph  In  Figure  4. 

In  actual  use,  however,  a  system  will  experience  a 
random  pattem  much  more  like  the  altemating  '1"s  and 
"0"s  pattem  than  the  more  stressful  all  "0"s  pattem.  The 
key  |)Olnt  for  system  designers  is  to  determine  how 
accurate  a  test  routine  has  been  used  to  determine  a 
partKular  manufacturer's  endurance  data,  and  make 
ttie  atyij^g^^^^^^ffl  that  paifs  eKpeded  an- 

■"  '  J*3S  <>  Tltf!^  .If93  ©ifl  no 
'Aiit'l.'' ■  ■  '1^  "TTl.vl  =r'- T.- .-. 

>  ;  'M}  ,  '1^  '  ■ .  . 


FIGURE  4  -  PATTBW  ePfi^  ON  ENDURANCE  TESTING 
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Second,  the  cycling  mode  graph  in  Figure  5  indicates 
that  significantly  different  results  can  be  achieved  in 
endurance  testing  using  a  block  cycle  mode  than  using 
a  byte  cycle  mode.  The  block  mode  is  commonly  used 
by  manufacturers  to  "speed  up"  the  endurance  charac- 
terization process.  However,  endurance  results  usually 
will  appear  much  better  for  the  block  mode  than  the  byte 
mode,  due  to  the  high  voltage  variables  discussed 
earlier.  The  reason  is  that  the  voltage  ramp  rate  is 
significantly  SLOWER,  the  high  voltages  are  slightly 
lower,  thus  less  stressful  for  block  cycling  since  the 
capacitive  toad  of  the  entire  array  is  on  the  high  voltage 
charge  pump.  The  capacitive  load  is  much  lower  with  a 
single  row  or  byte,  which  thus  has  a  significantfy  faster 
ramp  rate.  Also,  there  is  not  a  polysiKcon  to  polysilicon 
stress  for  adjacent  cells  since  all  cells  are  at  the  same 
potential.  Most  often,  these  factors  combine  to  yield 
lower  failure  rates  for  bkx^  cycling  tfian  for  byte  cycling. 
Again,  the  test  condttiens  must  match  the  systemsondi- 
tions. 

Finally,  increasing  temperature  also  increases  stress  on 
the  cell.  Microchip's  endurance  characterization  data 
indicates  that  increasing  temperature  adds  an  activa- 
tion energy  (Ea)  of  0.1 2eV  on  the  cell.  From  a  25°C  to 
eS^C  ambient  the  acceleration  factor  is  approximately 
2.1 .  Therefore,  the  higher  the  temperature,  the  higher 
the  stress.  These  results  will  vaiyaignjflcaniiy  with  each 
EEPROM  manufacturer. 


RECOMMENDED  EEPROM 
ENDURANCE  TESTING 

Microchip  believes  that  EEPROM  components  shoukj 
be  endurance  tested  to  reflect  system  conditions.  There- 
fore, units  are  cycled  to  an  altemating  ONE  and  ZERO 
pattern  (checkerboard),  then  to  an  altemaUngZEi^ 
and  ONE  pattern  (inverse  checkerboard). 

Again;  sfriee  enaiitince  characterization  data  indicates 
that  a  random  single  bit  fail  is  the  primary  first  order 
failure  mode,  endurance  is  defect  density  (def/cm2  or 
segment  of  bit  size)  dependent  Therefore  an  expected 
taSure  rate  range  by  density  can  be  established. 

DETERMINWGtTHE  RiyABILITY 

cjitcuM|i|gfi!I,\..^;,-'.^.r\';;". 

There  are  three  fMW»y  cbiA^ertts  fbf  the  isy^Bm 
design  engineers  to  USA  1n  detsmiMiIng  the  enduratl06 
reliability  required  for  a  defect  density  limited  applica- 
tion. These  three  components  are: 

•  Erase/write  cycles/day  estimated  for  the  function. 

•  The  number  of  bits  in  the  functton  (or  segment  size). 

•  Case  operating  temperature  of  the  Serial  EEPROM. 

Let's  kxjk  at  three  typical  examples  utilizing  the  above 
infortnatfon  to  predict  a  cumulative  failure  rate  at  differ- 
ent points  in  a  system  lifetime.  Please  note  that  Industry 
endurance  perceptions  have  improved  from  ayery  high 
(>  2%)  failure  rate  expectation  to  a  verylows  " 
level  failure  rate  in  ttie  past  few  years. 


FIGURE  5  -  CYCLING  MODE  EFFECT  ON  ENDURANCE  TESTING 
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EXAMPLE  #1  -  AUTOMOBILE 
ELECTRONIC  COMPASS 

A  16-byte  (128-bits)  segment  from  a  2K  array  stores 
data  eveiy  time  ttie  power  is  turned  off  in  an  automobile 
electronic  compass.  The  design  engineers  expect  the 
system  to  power  down  an  average  ci  5  times/day  over  a 
10-year  life  in  an  SS^C  case  temperature  environment. 
The  projected  Microchip  cumulative  failure  rate  under 
these  conditions  at  the  1 0  year  point  is  less  than  8  PPM 
or  0.0008%  failures  in  10  years.  Ttie  cumulative  PPM 
taitura  rate  gra|^  is  referenoedeii  Bgw»C 

EXAMPLE  #2  FUL|.#iATUtlSD 
TELEPHONE 

An  8-byte  (64-bit)  segment  is  used  to  store  the  last 
nunnber  redial  on  a  stationary  full  feature  phone  operat- 
ing in  a  room  temperature  environment.  A  12K  bit 
(12,288-bits)  segment  is  used  for  storage  of  speed  dial 
numbers  on  the  same  phone.  This  application  has  two 
major  functions  and  therefor9<iwilfeBi«e  two  separate 
failure  rate  calculations.      ■  •  '  •        '  ' 

The  last  number  redial  function  is  expected  to  be  utilized 
an  average  of  20  times/day  over  a  10  year  life.  Each 
speed  dial  is  expected  to  be  update^  $a  OiMiK^  O**!  ^  '  ' 
times/day  over  a  10  year  life. 

Figure 7, thecumulativefailurerategraphforthesdnMi.V^  3 
conditions  Indicates  an  extremely  low  failure  rate  In  the 
projected  10  year  lifetime.  The  failure  rate  begins  be- 
yond 20  years  as  shown  on  the  attached  cumulative 
PPM  failure  rate  graph. 


EXAMPLE  #3  -  LASER  PRINTER 

A  serial  EEPROM  could  have  many  functions  in  a  laser 
printer.  A  function  tftat  would  likely  require  the  most 
cycles/day  Is  the  maintenance  log  storage  of  the  pag^ 
printed  (estimated  to  be  100  cycles/day).  Three  bytes 
are  uUllzed  to  store  this  number.  The  case  temperature 
environment  Is  estimated  to  be  between  55°C  and  85°C 

The  high  number  of  cycles  at  an  extreme  temperature  of 
85°C  indicate  a  failure  rete  of  less  than  1200  PPM 
through  the  first  5  years  and  2600  PPM  through  the  first 
10  years. 

This  failure  rate  can  be  dramatically  reduced  if  the 
operating  temperature  is  reduced  to  55°C.  The  same  5 
and  10  year  PPM  levels  are  reduced  to  450  PPM  and 
1600  PPM  at  S5X.  {■  '         ■  '  -  j 

These  failure  ratw  ars  Iwimted  ^^0um  8. 
SUMMARY 

Microchip  Technology  Inc.  has  recognized  that  increas^ 
ing  reliability  in  serial  EEPROMs  through  increased 
endurance  is  not  a  function  of  extending  the  life  of  the 
intrinsic  erase/write  cycle,  but  depends  on  reducing 
defect-density  failure  rates.  Design  engineers  chanacr 
terizing  EEPROM  memory  needs  for  an  application  and 
evaluating  EEPROM  components  from  various  manu- 
facturers need  to  understand  not  only  the  relationship 
between  the  application  and  expected  use  and  failure 
mechanisms,  but  also  how  the  manufacturer  has  arrived 
at  published  endurance  <taUk  ..i^,g2j[np9iien|^^^a 
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FIGURE  6  -  EXAMPLE  #1:  THE  AUTOMOBILE  COMPASS 
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Serial  EEPROM  Endurance 


Micrachip  has  developK^  a  mogrm  to  calculate  the 
cumulative  PPM  fititure  iW^  for  specfflc  ^stetn  condi- 
tions, as  shown  on  the  previous  pages.  This  piogram  is 
tieing  transfen-ed  onto  menu  driven  DOS  floppy  disks. 
These  disl«s  will  iff  ayail8t!l%in>P«(;ernbeg;1^  tp  the 


system  designers,  reliability  engineers,  and  component 
engineers  to  project  endurance  failure  rates  for  specific 
system  conditions.  These  disl<s  will  be  periodically 
updated  to  reflect  Microchip's  most  recent  endurance 
data. 


F^ilE  7  -  eCAMPLEM:  THE  FULL  FEAHUfiEO  PHONE 
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Using  the  Microchip  Endurance  Predictive  Software 


INTRODUCTION 

Endurance,  as  it  applies  to  non-volatile  memory,  refers 
to  the  number  of  times  an  individual  memory  cell  can  be 
erased  and/or  written  (some  architectures  do  not  erase 
before  every  write).  Advances  in  process  technology 
have  made  it  possible  to  increase  these  limits  and  for 
MicixKhip  to  offer  new  concepts  -  Total  Endurance™  and 
aspiitarchitecturaldesignforvariableendurance.  These 
concepts  lead  to  more  reliable  products  with  more,<bits 
per  dice,  such  as  the  24C32  and  24C65. 

TOTAL  ENDURANCE™ 

When  defining  endurance,  we  need  to  look  at  a  few 
common  definitions  and  possible  misGonceptions.  £n- 
duiaice  with  respect  to  EEPROMs;  Is  deflned  in  number 
9f  Erase/Writs  (E/W)  Cycles  and  is  the  most  compon 
rating  referred  to  when,  discussing  or  specifying  er^tur- 
anee.  E/W  ratings  are  basedon  the  environmental  and 
operating  conditions  of  voltage,  temperature,  cycling 
,jl^iflglg»ia^  rate  (for  each  byte  in  the  application  not  on  the 
iiiNimb«r~of  opcodes  or  control  byte  commands)  and  is 
never  based  on  any  read  functions  whether  they  be  a 
data  read  or  configuration  read.  If  a  part  is  rated  at  100K 
E/W  cycles,  then  each  individual  byte  can  be  erased  and 
written  100,000  times.  This  is  probably  the  most  com- 
mon misinterpretation  made  by  system  designers.  En- 
durance is  thus  an  interactive  application-specific  reli- 
ability parameter.  It  is  not  a  typical  data  sheet  specifica- 
tion, such  as  a  parametric  AC/DC  specification  with 
benchmarit  standards  for  measurement.  Microchip 
has  done  extensive  predictive  laboratory  studies  on 
Microchip  2-  and  3-wire  Serial  EEPROMs.  These  stud- 
ies led  to  the  concept  of  using  the  computerto  predict  the 
theoretical  wear  out  of  the  floating  gate  and  ultimately  to 
project  the  point  in  time  of  a  product's  life  cycle  when  the 
first  non-volatile  memory  bit  or  periphery  failure  should 
occur.  After  many  man-years  of  data  collecting,  predict- 
ing and  verifying  the  results.  Microchip  feels  confident  in 
publishing  and  offeringfor  the  general  technical  commu- 
nity this  predictive  model  in  the  form  of  IBM*  PC- 
compatible  software.  Microchip  hasa  patent  pendingon 
this  predictive  mathematical  model. 


TOTAL  ENDURANCE  PREDICTIVE 
SOFTWARE  «  •b^wiftwo 

The  predictive  software  described  here  originally  was 
being  developed  as  a  tool  for  determining  endurance 
levels  of  Microchip  non-volatile  devices.  Upon  seeing 
the  potential  of  the  software  as  a  design  aid,  it  was 
decided  to  make  a  version  that  could  be  purchased  by 
the  engineering  community.  The  benefit  gainedf  rom  this 
software  is  the  ability  to  predict  endurance  capability  of 
Microchip's  EEPROM  devices  under  various  operating 
conditions.  Prior  to  this  tool  becoming  available,  the  only 
way  to  assemble  this  type  of  data  would  be  to  do 
extensive  life  testing  in  the  target  system.  It  should  be 
noted  that  this  predictive  model  applies  only  to  Microchip 
Technology  Inc.  non-volatile  devices. 

The  program  uses  an  iterative  statistical  model  devel- 
oped by  Microchip  Technology  Inc.  physicists.  The 
niodel  was  first  used  in  a  IX>S-based  text  program  as  a 
proof  of  concept  and  for  developing  the  exhaustive 

database  needed  for  such  a  tool  (included  on  the  pro- 
gram disk  as  enddos.exe).  This  model  was  then  im- 
ported to  a  Windows'"-based  software  package  with  full 
GUI  capabilities  and  all  the  normal  cut,  paste,  print, 
viewing  properties.  The  model  actually  operates  as  a 
mathematical  function  which  is  called  from  within  the 
Windows  Visual  Basic  shell  and  is  passed  all  of  the 
pertinent  operational,  process,  and  device  information. 
The  model  then,  after  calculating  the  essential  data 
points,  retums  this  information  to  the  main  program  to  be 
formatted  and  displayed  both  textually  and  graphically. 

Applying  the  predictive  data  to  the  high  endurance  block 
of  the  24C65.  j^^^^^^^^^toj?  has^^jlar 

ii.>a  five-year  IRa  •    Ktv-r-.nv  ^  •   . .  .  ■  ,r;~ 
»<jBn  expected  BP»ki^0lfm<li  i&  iwimP^'^ 


e  lAiaiMsMehlpilMlHcslaiy  Kic. 


Using  Endurance  Predictive  Software 


Operational  specifications: 


Device 
Voltage 
Temperature 
Bytes/Cycle 

App.  Ltte  (Vr.) 
Cycling  Mode 
Data  Pattern 


24C65  (24LC04B) 


25  C 
11 
1© 

BYTE  -Hhwnoa 

RANDOM 

The  4K  HE  block  with  1  M  E/W  (^clts  typical,  ij?,tti^ 
j^|)y5at[qn,  sh9uJ4yleldthefpl|pppgg^:to ,  „.^„ 

i  '^'       :  oi  y^c<2  «/U  «i  imgMinM 
FIGURE  1  , 


-^«£0«;t^<SV,  11  bytes,  ia9dMi*de9,  RANBOM.  BYTE 


yj.-.IO.  i  ' 


-•tjy :  1  BP,;  'i  ,■. : 


-+- 


0.000         0.005         0.010         0.015  0.020 
ANSez,   18,250  CyelM,   5.0  V«« 


The  results  shown  are  predictive  In  nature  and  should 
reflect  an  accurate  representation  of  the  expected  re- 
sults. Fora  more  detailed  description  of  endurance,  see 
the  related  application  notes  AN536  and  AN537  con- 
tained elsewhere  In  this  volume.  All  operation  param- 
eters, along  with  the  process  technology,  effect  the 
effective  endurance  of  a  non-volatile  device.  The  volt- 
age, temperature,  cycles  per,  bytes  per  cycle,  and  even 
the  number  of  times  written  per  day  (time  between  write 
cycles)  all  have  an  effect  on  the  oxide  breakdown  or 
periphery  failure  rate  of  a  particular  non-volatile  process. 

Endurance  Is  not  a  well-defined  concept  within  the 
semiconductor  industry.  The  number  of  erase/write 
cycles  which  a  particular  EEPROM  can  endure  Is  de- 
pendent not  only  upon  the  design  of  the  device  but  also 
upon  the  application  environment  in  which  It  Is  used. 
Therefore,  blanket  claims  such  as  "1  million  erase/wrKe 
cycles  typical"  can  only  be  validated  based  upon  the 
specKic  parameters  of  each  application.  Yet  until  now, 
IMW  !■»  iMi  no  tool  avrilQble  for  preiMng  the 


endurance  of  a  particular  EEPROM  device  within  a  set 
^  application  parameters.  Trade-off  analysis  can  be 
painfully  time-consuming  and  only  marginally  accurate 
without  specific  knowledge  of  the  behavior  of  the  device 
under  dififerent  conditions  of  use. 

The  Microchip  Total  Endurance  Software  allows  the 
designer  to  trade  off  voltege,  ternperature,  wrtte  cycles, 
-nimbiwefiiyles^wttm,  nt^^  per  day,  PPM 

and  FIT  rates,  and  years  of  use  in  orc^ertq  oj>tirn|ze,the 
system  and  accurately  predict  produbt  Ilryfnr4'''tnd  rdA- 
abllity. 

The  following  Is  an  example  using  the  Endurance  Soft- 
ware to  aid  in  the  design  of  an  electronic  phone  book/ 
auto-dlaler: 

The  auto-dialer  may  have  new  numbers  added  or 
changed  several  times  per  day;  but  how  can  the 
manufacturer  specify  the  life  of  the  unit,  and  at  what 
rate  of  update  of  the  phone  numbers?  First,  the 
designer  must  make  Some  assumptions.  If  we  as- 
sume that  the  average  user  will  change  or  add  50 
phone  numbers  per  day,  and  the  manufacturer  Is 
willlngto  live  wltha0.1%faliure  rate  (1 ,000  PPM)  after 
1 0  years  of  use ,  then  we  have  almost  enough  Informa- 
tion to  verify  whether  we  are  In  the  ball  park  given  the 
physics  of  the  EEPROM  device  which  will  store  the 
numbers.  We  also  need  to  know  the  operating  voltage 
and  temperature  of  the  application;  we  will  say  that  a 
3.3V  lithium  button  battery  is  powering  the  unit  and  the 
temperature  range  Is  limited  to  that  for  which  the  LCD 
display  will  function:  0°C  to  70°C.  End-of-life  voltage 
for  the  battery  Is  approximately  2.0V;  assuming  that 
the  ASIC  or  microcontroller  In  the  application  will 
operate  down  to  2.5V,  the  EEPROM  also  has  a  2.5V 
requirement.  The  designer  would  like  to  be  able  to 
store  100  phone  numbers  of  16  bytes  each,  which 
results  in  a  1.6K  byte  requirement  for  the  Serial 
EEPROM.  Be<»iiBe  1.6K bytes  Is  equal  to  12.8KbKs, 
a  16K  bit  2iMFe  Serial  EEPROM  will  more  than 
sufftee,  Sp«eifi(»)ly;  Mierot^lp's  24LC16B  will  oper- 
ate down  to  2.SV  and  even  Inoludes  a  wrHe-protect 
feature  whfeh  can  be  used  to  6leMs9<1liativef(tmtwrttite 
In  a  noisy  ertvitmnent.  'bitt^  -  > 

Here  Is  a  summary  of  the  application: 

Device  24LC16B  '.  . 


2.5V  -  3.3V 

0°C  to  TO'C  i^S'C  typical) 
50 
16 


Voltage 
TetBperature 

Cycles  per  day 

Bytes  per  cycle  _  ,  ,  ,,,,  -:-.^.»t<nt-. 
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Once  these  values  are  entered  into  ttie  Total  Enduiance 
program,  it  outputs  the  following: 

Device  Data:      Ityut  Patameteis  mxr. 


for  the  application  life  of  the  productgiyaHaflOOft^BgM 
failure  rate.  Here  are  the  results:  ,  ^ 


Device  l^; 
Voltage 
Temperature 
Bytes/Cycle 

E/W 

App.  Life  (Yrs) 
Cycling  Mode 

Pulse  Width  (Ms) 
Data  Pattern 


24LC16B 

3.3 
55 
16 

50  ..  'I. 
10 

BYTl- 

N/A 

RANDOM 


Device  Dalitf' "Output  ParamS^P 


FIT 

PPM 

Tme 

Write  cycles 


21.0 

1,842 

10.0 

182,500 


Both  of  the  lists  atiove  were  copied  directly  from  the 
Total  Endurance  program  output  to  the  Microsoft*  Win- 
dows clipboard  arid  pasted  into  this  document  (the  Total 
EndurarK»pi«)9amhasahandynwnii«iefctofflaliMUte 


Unfortunately  for  our  designer,  the  desired  0.1%  failure 
rate  has  almost  doubled  to  0.18%  (1842  PPM).  But 
fortunately  for  the  designer,  the  Total  Endurance  pro- 
gram makes  trade-off  analysis  very  simple  and  fast.  At 
this  point  there  are  at  least  three  options:  (1)  live  with 
almost  2000  PPM,  or  (2)  look  at  the  endurance  plot  and 
check  whether  there  Is  a  reasonable  number  of  E/W 
cycles  which  will  provide  a  1000  PPM  failure  rate,  or  (3) 
specify  a  PPM  rate  to  the  Total  Endurance  program  and 
let  it  crank  out  the  number  of  cycles  it  will  take. 

Below  Is  the  endurance  plot,  again  pa^eddbBcUy  ftsM^ 
the  Total  Endurance  program: 

You  can  see  that  l>y  reducing  the  number  of  cycles  from 
the  182,500  which  resuited  from  our  first  trial  to  about 
100,000,  we  can  achieve  a  PPM  rate  of  about  1000 
(0.1%).  But  how  does  100,000  cycles  tran$i8ft»  Mo 
appHndion  life  or  cycles  per  day? 

By  switching  the  Total  Endurance  program  mode  to  a 
PPM  request  mode  instead  of  applk:atk}n  life  nxxle,  we 
can  query  the  pro0am  for  this  inteRMMBRv  Lefsaakit 


Device  Data: 


Input  Parameters 


I3evi08 

Voitage 

33 

Tampeiaiurevc,, 

-55-- 

BytesX:^*'"''' 

16 

EW 

50 

PPM  Level  (Yrs) 

1000 

Cycling  Mode 

BYTC 

Pulse  Width  (Ms) 

N/A 

Data  Pattern 

RANDOM 

6>'l 


^Output  Parameters 
1,000 


Device  DaSjK^ 
PPM 
TilTie 

Wifte  cycles 


Now  we  have  some  more  options:  (1)  specify  the 
product  life  at  5  years  or  (2)  trade-off  other  parameters 
of  the  applicatkin  such  as  voltage  or  temperature,  or  (3) 
decide  which  Is  more  important  -  a  10-year  product 
lifetime,  or  the  ability  to  change  50  numbers  every  single 
day.  Maybe  this  analysis  has  caused  our  designer  to  re- 
evaluate the  50cycle-per-day  requirement.  Will  the  user 
really  change  or  add  that  many  numbers  per  day  -  half 
of  the  unifs  total  capacity?  Maybe  20  or  even  10  is  a 
more  practk^al  figure.  Realistteally ,  a  user  may  enter  or 
changequNea  few  numbers  the  first  weel(  or  two  of  tfie 
applicatkm,  and  after  that  ttie  unit  will  be  used  mostly  for 
reading  and  dialing  numbers. 

Cfianging  the  number  of  erase/write  cycles  to  20  per  day 
gives  us  the  foltowing  results: 

Devkse  Data:       Input  Parameters 


Device 

24LC16B 

Voltage 

Temperature 

55 

Bytes/Cycle 

16 

BW 

39' 

PPM  Level  (Yrs) 

1000 

Cycling  Mode 

BYTE 

Pulse  Width  (Ms) 

N/A 

DataPtfttem 

mmm 

Using  Endurance  Predictive  Software 


Device  Data:      Ou^ut  PararrwIlBrs 


PPM 
Time 

Write  cycles 


1,000 
14.93 
109,000 


Wow!  Reducing  tiie  number  of  cycles  per  day  not  only 
broughit  us  bacl<  to  a  1 0-year  life,  it  gave  us  some  margin 
on  that,  too.  Keeping  all  the  other  paranieters  the  same 
and  forcing  a  lO^ysar  lifetime  gives  us  the  foliowfei|i  finai 

results:  '* 


Device  Data: 


Output  Parameters 


The  new  PPM  rate  of  625  gives  our  triumphant  deserter 
tTiore  then  30%  marsin  sn  his  PPMWgetM  1@00.  ' 

This  example  shows  the  significant  reduction  in  time  for 
design  trade-off  analysis  and  time-to-mar1<et  which  can 
be  achieved  with  a  usefui  tool  lil<e  the  Microchip  Totai 
Endurance  Disl<.  In  addition,  it  demonstrates  the  In- 
crease in  robustness  of  the  system  design  by  providing 
known  quantities  and  readjly  accessible  handles  to 
modify  those  quantities  in  the  trade-off  analysis.  This 
tool  can  literally  reduce  weel®of  effort  intoafewraiMutes 
ef  point  and  clicl<. 


FIT 

PPM 

Time 

Write  cycles 


7.1 
625 

73,000 


Peter  Sorrells 

Momdty  PiMcts  DMsMif 

Richard  J.  Fisher 
Memory  Products  Division 


o'  \''  :-''n  !,''(! 
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Microchip 


AN567 


Interfacing  the  24LCXXB  Serial  EEPROMs  to  the  PIC16C54 


INTRODUCTION 

The  24LCXXB  Serial  EEPROMs  from  Microchip  Tach- 
nology  are  I^C"  compatible,  will  operate  in  the  standard 
100kHz  and  the  400kHz  Fast  Mode.  When  using  any 
serial  protocol  with  a  general  mfcrocontroller  that  does 
not  have  a  dedicated  protocol  specific  serial  port,  the 
designer  must  generate  the  specific  code  routines  to 
accomplish  the  several  memory  access  functions  that 
the  microcontroller  will  perfonn.  The  PIC16CXX  prod- 
ucts from  Microchip  are  both  versatile  and  efficient  to 
program.  This  application  note  is  a  series  of  stand- 
alone programs  to  perform  the  basic  I^C  interface 
functions  on  a  PIC16C54  running  at  4MHz  in  XT  mode. 
This  configuration  will  provide  a  60  kHz  serial  bus  rate. 
At  this  speed,  the  interface  does  not  meet  the  100kHz 
specification.  If  a  higher  clock  rate  is  desired,  the  HS 
crystal  oscillator  must  be  used,  whk^h  has  a  maximum 


frequency  of  20MHz.  NOTE  THAT  THE  TIMING  ROU- 
TINES MUST  BE  REWRITTEN  TO  RUN  AT  THESE 
FASTER  CLOCK  RATES.  The  user  must  consult  all 
applicable  data  sheets  for  design  details.  These  pro- 
grams have  been  fully  tested  and  are  being  niade 
available  for  general  use.  Figure  1  demonstrates  the 
tested  coofiguratlon  of  PIC16C54  arxi  Sie  24LCXXB 
device. 

This  appn^dkm  iwta  includes  ttie  following  progranis. 

-  2-Wlre  Byte  Read 

-  2-Wire  Byte  Write 

-  2-Wire  Byte  Write  with  Data  Polling 

-  2-Wire  Page  Write 

-  2-Wire  Sequential  Read 


FIGURE  1  -  TESTED  CONFIGURATION  OF  THE  PIC16C54  AND  THE  24LCXXB  DEVICE 


DI 

.OIOOE 


US 


PG/kf"  ycc 

Rl  TEST 
PC  SO- 
Uas  SDA 

±«jixX  


3^ 


lOOK 


I — I  4 


X 


me 
sea 

RKC 

ncLf) 


.JgCZ«IU«UT 


AMiar:      Bruce  Negley 

Memory  Products  Divmion 
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Interfacing  the  24LCXXB  Serial  EEPROMs 


16cSx/7x  Cross -Assaobler  V4.12  Relaaaed    Mm  Jon  0«  10:48i23  1994    Page  1 
Line      PC  Opcode 

0001  LIST  P=16C54,C=132 

QQQ2  .Irlrltltic************************************ ******************* 

0003  ;  2-Wire  Byte  Read  Program  (118  bytes) 
0004 

0005  ;  This  program  danonstrates  how  to  interface  a 

0006  ;  Microchip  P1C16C54  to  a  24LCXX  Serial  EB  device 

0007  ;  and  perform  a  random  read  operation.  This  program 

0008  ;  will  read  8  consecutive  addresses  in  the  ^random 

0009  ;  read'  mode.     This  entails  setting  the  address  pointer 

0010  ;  before  doing  read  command  for  every  address. 

0011  ; 

0012  ;  iUiother,  more  efficient  method  of  reading  consecutive 

0013  ;  addresses  is  the  'sequential  read'  mode.    This  involves: 

0014  ;  sending  the  control  byte  and  address  for  the  first  hyte  - 

0015  ;  to  read,  then  continuing  to  provide  clocks  for  the  next 

0016  ;  addresses.     The  device  will  automatically  increment  th€^ 

0017  ;  address.    An  exanple  of  the  s^^pential  read  niode  is. 

0018  ;  provided  in  the  '2wseqr.asm'  f ll^. '  '  '  , 

0019  ;  -  .  I    .  . 

0020  ;  Timing  is  based  on  using  the  PICi6c54  in  'XT'  mode 

0021  ;  using  a  HSRz  crystal.    Clock  s^eds  ttt  the  serial  EE 

0022  'ii,-'  will  be  approximately  60  kHz  for  this  setup. 
0023 

0024  ;  As  an  option,   the  user  may  connect  a  LED  to  pin  18 

0025  ;  on  the  PIC16C54   {use  about  a  IK  resistor  in  series)  as  an 

0026  ;  acknowledge  fail  indicator.     This  LED  will  ccme  on  if 

0027  ;  the  serial  BB  fails  to  acknowledge  Correctly. 
0028 

0029  ;  PIC16C54  to  Serial  EE  Connectiems : 
0030 

0031  ;  PIC16C54  Serial  EE 

0032  -        ;      .  ,  .  . 

0033  ■     ;  Pin  12   (RB6)   ->     SCLK  "  ' 

0034  -  — ,•  -    -  Pin  13  (im7>  ~>    SDATA  - 
0035 

0036  ;  PIN  18  (RAl)  ->    Acknowledge  fail  USD  (Optional) 

0037  ; 
0038 

,************************************************************ 

0040  ;  Register  Definitions 

QQ4J^  .************************************************************ 

0042  0003     status  egu  3h          ,-   status  register 

0043  0005    part_a  equ  5h         ;  port  5  (port  a)  used  for  LED  display 

0044  0006    port_b  equ  6h         ;  port  6  (port  b)  used  for  data  and 

0045  ;  clock  lines 

0046  OOOA    eeprom  equ        Oah  ;  bit  buffer 

0047  OOOB    bycnt  equ        Obh  ;  byte  counter  for  read  mode 

0048  OOOC    addr  equ        Och  ;  address  counter 

0049  OOOD    datai  equ        Odh  ;  data  input  register 

0050  OOOE    datao  equ        Oeh  ;  data  output  register 

0051  OOOF    slave  equ       Ofh  ;  device  address  lOlOxxxO) 

iec5x/7x  Cross-AsscB^ler  V4.12  ftSSeased    Ksn  Jun  06  10:48:23  1994    Page  2 
Line     PC  Opcode 

0052  0010    tsdsuf  equ        lOh  ;  transmit  buffer 

0053  0011    count  equ       llh  ;  bit  counter 

0054  0012    bcount  equ       12h  ;  byte  counter 

0055  0015    loops  equ       15h  ;  delay  loop  counter "  .     _  - 

0056  0016    loops2  equ        16h  ;  delay  loop  counter 
0057 

0058  .*********************************  *************************** 

0059  .i^-..'  , ; -4..  ■    -  ■       Bit  Definitions 

QQgO  .************************************************************ 


IKWIIW.<liW^milnili  ' 
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Interfacing  me  24LCXXB  Serial  EEPROMs 


0061 

0007 

di 

0^ 

7             f  m^^om  input  bit 

0062 

0006 

do 

equ 

6            ;  ee^om  output  bit 

0063 

0007 

sdata 

equ 

7              ;  serial  EE  data  line  (port_b,pin  13) 

0064 

0006 

sclk 

equ 

6              ;   serial  EE  clock  line  (port_b,pin  12) 

0065 

0001 

ackf 

equ 

1             ;  acknowledge  fail  LED  (port_a) 

0066 

,****** 

0067 

; 

0068 
0069 

OIPP 

0000 
0A5S 

■ 

0070 

0000 

org 

OOOh  ; 

0071 

0000 

0A5E 

goto 

PWRUP 

0072 

0073 

.  ****** 

****** 

************  **********************  ****llt*«J»>4|^«««^il!^*** 

0074 

Start 
this 

Bit  Subroutine 
routine  g^erates  a  start  bit           -                       v<  ■ 

'  -' 

:{L^  ^lrt#  data  lixw  while  clock  is  hij^s^y.                  /_  Ci 

0077 

0078 

0079 

BSTART 

0080 

0001 

05E6 

bsf 

port_b,  sdata      ;  make  sure  data  is  high 

0081 

0002 

0C3F 

movlw      b' 00111111' 

OflgjS: 

0003 

0006 

tris 

port_b                ;  set  data  and  clock  lines  for  oatput 

0083 

0004 

04C6 

bcf 

port_b,solk        ;  make  sure  clock  is  low 

0084 

0005 

0000 

0085 

0006 

05C6 

»»2 

0086 

0007 

0000 

n^p 

0087 

0008 

0000 

ttap 

0088 

0009 

0000 

nop 

0089 
0090 

OOOA 
OOOB 

0000 
0000 

0091 

OOOC 

04E6 

0092 

0093 

OOOD 

0000 

nap 

0094 

OOOE 

0000 

0095 

OOOF 

0000 

nop 

0096 

0010 

0000 

nop 

0097 

0011 

0000 

nop 

i   t^i'^  adjustment 

0098 

0012 

04C« 

■  '3?iaaft_J(,-»SH« ♦  *  •  -t           -ishseTit  bBai-n  " 

0099 

0013 

0000 

0100 

0014 

0000 

'7-                           -^  w 

0101 

0015 

0300 

■••BBtliW'  ■              .  ■  ^i-                 r  1    r  .■  ■  ■ 

0102 

16oSx/7x  Cross-Assembler  V4.12  Released    Mon  Jun  06  10 -.48: 23  1994     Page  3 


Line 

PC 

Opcode 

0103 

.*llr  ************ 

**********************************.****«**»**** 

0104 

Stop  Bit  Subroutine 

0105 

■-•<•  J; 

This  routine  generates 

a  stop  bit 

0106 

(High  going  data  line 

while  clock  is  high) 

0107 

0108 

BSTO* 

0109 

0016 

04E6 

bef 

port_b, sdata 

;  make  sure  data  line  i-m  imu- 

0110 

0017 

0C3F 

movlw 

b*00111111' 

f                                 •  •  ■  •  . 

0111 

0018 

0006 

tris 

port_b 

•  .set  data/clook  linns:  ,mt  ^^pttw 

0112 

0019 

04E6 

bcf 

port_b, sdata 

;  make  sure  data  Use  is:  Iwr' 

0113 

OOIA 

0000 

nop 

0114 

00  IB 

OOM; 

nop 

0115 

00 IC 

0000 

n^. 

0116 

OOID 

05C6  ' 

0117 

OOIE 

0000  -Ai 

0118 

OOIF 

0000 

nop 

0119 

0020 

0000        ■  - 

nop 

0120 

0021 

05E6 

bsf 

port_b, sdata 

;  data  goes  high  while  clock  high 

;  for  stop  bit 

&29 


tf^l^fsf^  ^e#ILCXX&  Serial  jlPROMs 


0122 

0022 

0000 

_■ 

0123 

0023 

0000 

i>tsp 

0124 

0024 

04C6 

bcf 

portJb,sclk 

•  set  diSNeic  '^imt-  sgain 

0125 

0025 

0000 

nop 

0126 

0026 

0000 

nop 

f..  - 

0127 

0027 

0000 

nop 

0128 

0028 

0800 

retlw 

0 

0129 

(  .    ■  ■  ■  .  - 

0130 

0131 

BITOOT  routine  takes  the 

bit  of  data  in  ^do'  and 

0132 

transmits  it  to  the  serial  EE  device 

0133 

*************** 

■mfk****** *******  ***************  *************** 

0134 

BITOOT 

0135 

0029 

0C3F 

•movlw 

b'OOllllll ' 

;   set  data, clock  as  outputs 

0136 

002A 

0006 

♦tris 

port_b 

0137 

002B 

07CA 

btfss 

eeprom^do 

;  check  for  state  of  data  bit  to 

0138 

oa2c 

aA2F 

goto 

bitlow 

;  low?  go  set  data  line  lew 

0139 

002D 

osEe 

bsf 

port_jD,  sdata 

;  high?  set  data  line  hi^ 

0140 

002E 

0A30 

goto 

clkout 

;  go  toggle  the  clock 

0141 

0142 

002F 

04E6 

bitlow 

bcf 

port_j3,  sdata 

;  output  a  low  bit 

0143 

0030 

05C6 

clkout 

bsf 

portjD,sclk 

;  set  clock  line  high 

0144 

0031 

0000 

nop 

0145 

0032 

0000 

nop 

•  -a 

0146 

0033 

0000 

n<^ 

0147 

0034 

0000 

0148 

0035 

04C6 

mt 

-  ^#)3QE£&  ciiock  line  low 

0149 

0036 

osoo 

retlw 

0 

0150 

0151 

***** 

k***  ****** 

****************  ******************************* 

0152 

BITIN  routine  reads  one 

sit  of  data  frcm  the  yi' 

1^53 

serial  S 

B  device  and  stores  it  in  the  bit  *di' 
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0154 

0155 

BITIK 

0156 

0037 

05EA 

assume  ii^t  blfe  is  M^K;     '■"  ■ 

0157 

0038 

OCBF 

te'tttitf  fli  ( 

make  sdata  aii  ii^ut  ^imm 

0158 

0039 

0006 

tris 

port_l> 

0159 

003A 

05C6 

bsf 

portJ),sclk 

set  clock  line  high 

0160 

003B 

0000 

nop 

just  sit  here  a  sec 

0161 

003C 

0000 

nop 

0162 

003D 

0000 

ne^ 

0163 

003B 

oooo 

nop 

0164 

003P 

0000 

0165 

0040 

07E6 

btfss 

port_b, sdata  ; 

read  the  data  bit 

0166 

0041 

04EA 

bcf 

eeprom, di  ; 

input  bit  was  low,  set  *di'  accordingly 

0167 

0042 

04C6 

bcf 

port_)5,  sclk  ; 

set  clock  line  low 

0168 

0169 

0043 

0800 

retlw 

0  ; 

0170 

0171 

****************************************************************, 

0172 

Transmit 

Data  Subroutine 

0173 

This  routine  takes  the  byte  of  data  stored  in  the 

0174 

*datao' 

register  and  transmits  it  to  the  serial  EE  device. 

0175 

It  will 

then  send  1  more 

clock  to  the  serial  EE  for  the 

0176 

acknowledge  bit.     If  the 

ack  bit  from  the  part  was  low 

0177 

then."1^ 

tran«nission  was 

successful.     If  it  is  high,  then 

01T8 

the  device  did  not  send  a 

proper  ack  bit  and  the  ack 

0179 

fail  LED  will  be  turned  on. 

0180 

**************************************************************** 

0181 

TX 

0182 

0044 

0C08 

movlw 

.8 

0183 

0045 

0031 

movwf 

count  ; 

set  the  fbits  to  8 

0184 

0185 

TXLP 

8-30 


IflMrfteiili  tti®  2^!P0{B  aeritl  EEPROMs 


0186 

0046 

04CA 

0187 

0047 

06FO 

tSfflttt,"? 

is  bit  out  really 

0188 

0048 

05CA 

bsf 

eeprom, do 

no,   set  it  high 

0189 

0049 

0929 

call 

BITOUT 

send  the  bit  to  serial  SE 

0190 

004A 

0370 

rlf 

txbuf 

rotate  txbuf  left 

0191 

004B 

02F1 

•  *   ■  -         decf sz 

count 

8  bits  done? 

0192 

004C 

0A46 

goto 

TXLP 

no  -  go  again 

0193 

004D 

0937 

call 

BITIN 

read  ack  bit 

0194 

004B 

06E& 

eepxciitt.^    > '  * 

0195 

004F 

0525 

kWMIJ^Mtf  «  »-T        JaclmcsiElig^-  :Sitl4  the 

0196 

0197 

0198 

0050 

0800 

retlw 

0 

i 

0199 

1 

0200 

.  ************************* ***********1tii************ik*if^1/ilt^ 

0201 

;  Receive 

data  routine 

0202 

-<si':7uoc  *J(Ssisp-4siDttitin»  BeaiSa  tme  l^rfcejof.  iSata  fEoni  %iie  part  • 

0203 

-  ;       '     -  WBa- the 

'datai'  register'.    It  then  sends  a  high 

0204 

;              ack  bit 

to  indicate  that 

no  more  data  is  to  be  read 
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0205 
0206 


0220 
0221 
022 
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Opcode 
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************  *** 


low 


0207 

0051 

006D 

OlEf 

datai  ; 

clear  input  buffer 

0208 

0052 

0C08 

movlw 

.8 

set  #  bits  to  8 

0209 

0053 

0031 

movwf 

count 

0210 

0054 

0403 

bcf 

status, 0  ; 

make  sure  carry  bit  is 

0211 

0055 

036S  max 

■MiM  .  : 

:!i!>a£aiite '.i^tal'  IjM*  iait 

0212 

0056 

0937 

call 

BITIN  ; 

read  a  bit 

0213 

0057 

06EA 

btfsc 

eepofont,  dd: 

0214 

0058 

050D 

bsf 

datai.O  ; 

set  bit  0  if  necesBJm^ 

0215 

0059 

02F1 

decf sz 

count  1 

8  bits  done? 

0216 

005A 

0A55 

goto 

RXLP  ; 

no,  do  another 

0217 

OOSB 

05CA 

bsf 

eep^^ffij  do  ; 

set  ack  bit  =  1 

0218 

005C 

0929 

call 

0219 

005D 

0800 

retiw 

0 

. **************************************************************** 
0000  END 


Hi 


.^-n-'        'J     "~ri "  ,raiiait,.ioMiiiMaMBg8B--  ^^Mr.^ff  -«j-mm^i^ 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 


LIST  P=16C54,c=132 

2-Wire  Byte  Write  Program  (123  bytes) 

This  program  demonstrates  how  to  interface  a 
Nicxedilp  PIC16C54  to  a  24IiCZX  6«ial  BK -cbsvlce 
cmd  perfozm  a  \vte  Vfrite  operation  on  8  ccmsecutive 

addresses . 

This  routine  waits  approximately  lOmS  for  the  write 
cycle  time,  which  is  enough  time  for  any  of  the 
24LCXX  devices  to  con^lete  a  write.    A  more  efficient 
method  of  detezmining  iriien  the  write  cycle  is  conplete 
is  called  *data  polling.'    The  data  polling  method  is 
esqplained  in  the  program  *2w^oll  .asm.^  That 
particular  program  uses  data  polling  in  a  byte  write 
4Ma»  Tim:X%vam  £t>  vMedt-Jji  'caaetly  -feUe-'soMB  «ay  for 
a  p«ge  vi6iSm  wiite^ 

As  an  option,   the  user  may  connect  a  LED  to  pin  18 
on  the  PIC16C54  (use  airaut  a  IK  resistor  in  series)  as  an 
acknowledge  fail  indicator.    This  LTO  will  ccne  on  if 
the  aerial  EB  falls  to  acknowledge  correistly. 

Timing  is  based  on  using  the  PIC16C54  in  'XT'  mode 
using  a  4Hhz  crystal.    Clock  speeds  to  the  serial  EE 
^Wl^ll  be  a^roximately  60  kHz  for  this  setup. 

9^1^54  to  Serial  EE  Crai^eetismiet 

 "1 , 

PIC16C54  Serial  EE 


Pin  12  (RB6)  -> 

FIN  18  (8A1)  ->    Acksowledse  fail  (Optional) 


****************** 


*********** 


Register  Definitions 


,  ************ 

0005 

port_a 

equ 

5h 

port  5    (port_a)   used  for  LEDs 

0006 

port_b 

equ 

6h 

port  6   (port  b)  used  for  data  and 

clock  lines 

OOOA 

eeprcsn 

equ 

Oah 

bit  buffer 

OOOB 

bycnt 

equ 

Obh 

byte  counter  for  read  mode 

oooc 

addr 

equ 

Och 

address  counter 

OOOD 

datai 

equ 

Odh 

data  input  register 

OOOE 

datao 

equ 

Oeh 

data  output  register 

OOOF 

slave 

equ 

Ofh 

device  address 

(lOlOxxxO) 

0010 

txbuf 

equ 

lOh 

transmit  buffer 
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Line  PC 

Opcode 

0052 

0011 

count 

equ  llh 

;  bit  counter 

0053 

0012 

bcotmt 

equ  12h 

;  lyte  counter 

0054 

0015 

loops 

equ  15h 

;  delay  loe^  eounta: 

0055 

0016 

loops2 

equ  16h 

;  delay  lo^  counter 

0056 

•  ************************************************************ 

0057 

Bit  Definitions 

0058 

. ****** 

**************** 

****************  ********************** 

0059 

0007 

di 

equ  7 

;  eeprom  input  bit 

8-32 


M€f1ill^  the  24LjQQ(B  Serial  EEPROMs 


0060 

0006 

do 

$             ;  «^om  output  bit                                  'ii<i  C£j 

0061 

0007 

adata 

etja 

7             ;  serial 

EE  data  line  (port_b,pin  13) 

0062 

0006 

sclk 

equ 

6             ;  serial 

EE  clock  line  (port_b,pin  12) 

0063 

0001 

ackf 

equ 

1              ;   acknowledge  fail  LED  (port_a,pin  18) 

0064 

************** 

********************************************** 

0065 

0066 

0067 

0000 

org 

Olffh'  ■  ■ ;  'KiSi'^ 

0068 

OlEF 

OASIS 

goto 

PWRUP 

0069 

0000 

org 

OOOh  j: 

0070 

OOOO 

KISS. 

-§©to 

PW8W^  ynm,  . 

0071 

0072 

************** 

*****  *  ******#^*iS#*i##^|SM^ji*;*^«***.#:j5Sf|!i*****#*** 

0073 

DELAY  ROUTINE 

0074 

This  routine  takes  the 

value  in  ^loops'  ^' 

0075 

and  multiplies  it  times 

1  millisecond  to 

0076 

determine  del£^  t;^Neb 

0077 

*******************  *«**####^r#«#.*#w^«^ait#**^*'**^^  -\ 

0078 

miT 

0079 

0080 

0001 

0C6E 

top 

movlw 

.110 

;   timing  adjustment  variable 

0081 

0002 

0036 

movwf 

loops2 

0082 

0003 

0000 

top2 

n<^ 

;  sit  and  wait 

0083 

0004 

0000 

00S4 

0005 

0000 

0085 

0006 

0000 

nop 

0086 

0007 

0000 

nop 

0087 

0008 

0000 

nop 

0088 

0009 

02F6 

decfsz  loops2 

;  inner  loops  compl^fe^ 

0089 

OOOA 

0A03 

goto 

top2 

;  no,  go  again  \ 

0090 

0091 

OOOB 

0275 

1  outer  loops  ccm^le^^ 

0092 

oooe 

OAOl 

0093 

OOOD 

0800 

■  .retlars 

O''      '  '    a'!'  •> 

0094 

0095 

.*******************************  *  *#^i*^*#5fc**#*?^:*,^ 

0096 

start  Bit  Subroutine 

0097 

■  SIliK'  routine  generates 

a  start  bit 

0098 

going  data  ,  li&e  Ki^ile  clock  is  high)  • 

0099 

**********************»*,  *,jjj**r»**********************^E#k*il'iNM|***  * 

0100 

0101 

BSTART 

0102 

OOOE 

05E6 

bsf 

port_b, sdata 

;  make  sure  data  is 
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PC 

Opcode 

0103 

OOOP 

0C3F 

movlw 

b'OOllllll' 

0104 

0010 

0006 

tris 

port_b 

I  set  data  and  clock  lines  for  output 

0105 

0011 

04C6 

bcf 

0106 

0012 

0000 

nop 

q.-i.i 

0107 

0013 

05C6 

0108 

0014 

0000 

WO  I 

0109 

0015 

0000 

nc^ 

wl  Imi 

0110 

0016 

0000 

nop 

0111 

0017 

0000 

nop 

0112 

0018 

0000 

nop 

0113 

0019 

04E6 

bcf 

port_b, sdata 

;  data  line  goes  low  during 

0114 

;  MiAi.'  clsGlg:  t@x  seaiEt  bit 

0115 

OOIA 

0000 

nc^ 

0116 

OOIB 

0000 

'nop 

'   -                             -  « •  It  V  *  .  ^ 

0117 

OOlC 

0000 

nop 

0118 

OOID 

0000 

nsB 

0119 

OOIE 

0000 

nop 

;   timing  adjustment 

0120 

OOIF 

04ce 

bcf 

port_j3,sclk 

;  start  clock  train 

0121 

0020 

0000 

nop  ■• 

0122 

0021 

0000 

nop 

0123 

0022 

0800 

retlw 

0 

0124 

0125 

;  a> 

d  of  Siibrotttloe  >: 

0126 

-«*********,************************************************** 

0127 

•                   Stop  Bit 

Subroutine 

0128 

This  routine  generates  a  stop  bit 

0129 

(High  going  data  line  while  clock  is  high) 

0130 

************  ****^*^^^|^*^^J^**4t^^************  *******  ******** 

0131 

BSTOP 

0132 

0023 

0C3F 

IDOVlw 

b'OOllllll'  ; 

0133 

0024 

0006 

tjrls 

port_b                f  set  d&tA/'Cloclc  lines  as  ou^^uts 

0134 

0025 

04&6 

■gw3&6a,aPy,:'HSIS.&»          p  HBBLKS   Sure    CwltS    J-ilie  XvW 

0135 

0026 

0000 

0136 

0027 

0000 

nop 

0137 

0028 

0000 

nop 

0138 

0029 

05C6 

bsf 

port^fSclk        ;  set  clock  high 

0139 

002A 

0000 

nop 

0140 

002b 

0000 

nop 

0141 

002c 

0000 

m9 

0142 

002D 

OSES 

mt 

port_j3,  sdata      ;  data  goes  hi^  while  clock  high 

0143 

0000 

nop 

0145 

002F 

0000 

nop 

0146 

0030 

04C6 

bcf 

•fi|«%J»,.SW|lt       1         «loGk  low  again 

0147 

0031 

0000 

nop 

0148 

0032 

0000 

n<9 

I    ,  , 

0149 

0033 

0000 

nop 

0150 

0034 

0800 

retlw 

0 

0151 

0152 

End 

of  Subroutine 

0153 

************************************************************* 
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Line 

PC 

■    -                                       »  • 

0154 

BITOOT 

routine  takes  one  bit  of  data  in  'do'  and 

0155 

transDcu 

.ts  it  to  the  serial  E£  device 

0156 

0157 

BITOOT 

0158 

0035 

0C3P 

movlw 

b'OOllllll* 

;  set  data,  clock  as  oUl^nits 

0159 

0036 

0006 

tris 

p0rt_b 

0160 

0037 

07CA 

btfss 

eeprom, do 

;  check  for  state  of  data  bit  to  xmit 

0161 

0038 

0A3B 

goto 

bitlow 

0162 

0039 

0SE6 

bsf 

port_>,sdiata 

;  set  data  line  high 

0163 

003A 

0A3C 

;  go  toggle  the  clock 

0164 

0165 

003B 

04E6 

bitlow  bcf 

;  output  a  low  bit 

0166 

003C 

05C6 

clkout  bsf 

port_^, sclk 

i  set  eloek  line  ' 

0167 

003D 

0000 

nop 

0168 

003E 

0000 

nop 

*!-.»     .       ■■  » 

0169 

003F 

0000 

nop 

0170 

0040 

0000 

nop 

0171 

0041 

04C6 

bcf 

port_b, sclk 

;  return  clock  line  low 

0172 

0042 

0800 

retlw 

0 

0173 

0174 

End  of  Subroutine 

0175 

0176 

****************************** 

it******************************* 

0177 

BITIN  routine  reads  one 

bit  of  data  from  the 

0178 

serial 

EE  device  and  stores  it  in  'di' 

0179 

**********#**#.4**«******************************^*  ************  J 

0180 

BITIH 

0181 

0043 

05EA 

bsf 

eeprcnirdi 

;  assume  input  bit  is  high 

0182 

0044 

OCBF 

movlw 

b' 10111111 ' 

;  make  sdata  an'  ix^ut  line 

0183 

0045 

0006 

tris 

port_b 

0184 

0046 

05E6 

bsf 

port_b, sdata 

;   set  sdata  line  for  input 

0185 

0047 

05C6 

bsf 

port_b, sclk 

;  set  clock  line  high 

0186 

00  48 

OOM 

1- 

0187 

0049 

0000 

•■1..  i'l 

two' 

0188 

004A 

0000 

nop 

0189 

004B 

0000 

nop 

■ .. .  .1  - 

itU:0 

iiii  ■ 

0190 

004C 

0000 

nop 

0191 

004D 

07E6 

btfss 

port^b^sdata 

read  the  data  bit 

0192 

004E 

04EA 

bcf 

eeproni,Ldi 

input  bit  was  low 

0193 

004F 

04C6 

^et  QloGk  line  low 

0194 

0195 

O-ttgO. 

retlw 

0 

0196 

0197 

.*************** 

*************************************************, 

0198 

;  Transmit 

Data  Subroutine 

0199 

;              This  routine  takes  the  byte  of  data  stored  in  the 

0200 

;  'datao' 

register  and  transmits  it  to  the  serial 

BE 

device. 

0201 

;              It  will 

then  send  1  more 

clock  to  the  serial  EE 

for 

the 

f;  a^l^^ladge  ^it.     I£  t^e  aok  }ai%  from  the  part  was  low 

f  the  bsE^siaiilssiiQa  was  successful.    Sf  It  is  higb,  tluiai 

f  the  device  did  not  MMi  #  gfraper  ack  bit;         ttm  ack 


0205 
0206 

0207 
0208 
0209 

0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
023S 

022"? 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
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0051  0C08 

0052  0031 


0053 
0054 

0055 
0056 


04CA 
06F0 

05CA 

0935 


005E  OCOO 

005F  0005 

0060  0065 

0061  qA62 


movlw      . 8 


0057  0370 

0058  02F1 

0059  0A53 
005A  0943 
OOSB  06EA 
005C  0525 

005O  0800 


movwf 

coxint 

set  the  #bits  to  8 

leeprcsa^do 

assume  bit  out  is  1^ 

Btfse 

txbuf  ,7 

is  bit  out  really 

bsf 

eeprcm^i^lGt  *  f 

otherwise  data  bit  »! 

call 

BITODT: 

serial  data  out 

rlf 

txbuf 

rotate  txbuf  left 

decf sz 

count 

8  bits  done? 

»0«n 

goto 

TXLP 

no  -  go  again 

eaXl 

read  ack  bit 

btfse 

eeprcm,  <ii 

check  ack  bit 

bsf 

port_a,aokf 

set  ac^mowledge  fail  LED 

if 

retlw 

0 

f 

;  S@Wijr''s#<"SaMt;ine 

,  'This  is  tite  program  entry  point,  which  in  this  cas*  ailiffly 

;  sets  the  port_a  I/O  lines  and  directs  control  to  the 

;  byte  write  routine. 

,**************************************************************** 
PWRUP 


movlw  b' 00000000' 

tsls  port^a 

elrf  port_a 

goto  WRBYTE 


!  set  port  A  as  «11  out^t 
;  all  output  lines  low 


************************ 


ir***************** 


1  Byte  Write  Routine 

;  This  routine  writes  the  data  in  "datao*  to 

•  9  consecutive  l:ytes  in  the  serial  EE  device  starting 

;  at  address  00.    This  routine  waits  lOmS  after  every 

;  byte  to  give  the  device  tljae  t©  do  the  write.  This 

;  program  repeats  forever. 

. ***************************************************************** 


URBYTE 


0062  0065 


port_a 


;  clear  all  LEDs 


8-35 


0249 

0063 

OCAO 

movlw 

b'lOlOOOOO' 

; 

0250 

0064 

002F 

movwf 

slave 

•J  '■ 

0251 

0065 

0C55 

movlw 

b-OlOlOlOl' 

em  jiseit'  t«  iittitancB  ssb 

0252 

0066 

002E 

movwf 

datao 

0253 

0254 

0067 

0C08 

movlw 

.  8 

set  number  of  bytes 

0255 

0068 

0032 

movwf 

bcount 

to  write  as  to  8 

lficSx/7x  Cross-Ass«ia>lex  V4.12  Releaseel          Msa  i 

Line 

PC 

Opcode 

- 

0256 

0069 

006C 

clrf 

addr 

set  starting  address  to.  00 

0257 

; 

0253 

006A 

090E  byte 

call 

BSTART 

generate  start  bit  i 

0259 

006B 

020F 

movf 

slave, w 

move  slave  address 

0260 

006C 

0030 

movwf 

txbuf 

into  transmit  buffer 

0261 

006D 

0951  = 

and  gonfi  it 

0262 

006E 

02  OC 

menft 

move  word  address 

0263 

006F 

0030 

movwf 

txbuf 

• 

into  transmit  bu££si£ 

0264 

0070 

0951 

call 

TX 

and  send  it               .^V  T94<fcb>*A 

0265 

0071 

020E 

movf 

dataOfW 

move  data  byt© 

0266 

0072 

0030 

movwf 

txbuf 

to  tranmit  buffer 

0267 

0073 

0951 

call 

TX 

and  transmi t  it 

0268 

0074 

0923 

call 

.or 

0269 

0270 

0075 

OCOA 

movlw 

.10 

0271 

0076 

0035 

movwf 

loops 

0272 

0077 

C901 

call 

WAIT 

10  ms  W3i.t  flftiSir  &vgx^  byts 

0273 

0078 

02  AC 

incf 

addr 

add  1  to  address  counter 

0274 

0079 

02F2 

decf sz 

bcount 

all  8  bytes  written? 

0275 

007A 

0A6JI 

1 

0276 

7 

0277 

007B 

0A62 

goto 

wz]ayt« 

atatt  ov«r 

0278 

1 

0279 

mm 

^0^0  END 

1   ..J                  -  Cfc 

lid 

8-36 
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Iiine     PC       Opeo^  ■ 

0001  LIST  P=16C54,c=132 

QQQ2  >  ************************************************************ 

0003  ;  2-Wire  Byte  Write  With  Data  Polling  Program  (129  bytes) 

0004  ; 

0005  ;  This  program  demonstrates  how  to  interface  a 

0006  ;  Microchip  PIC16C54  to  a  24LCXX  Serial  EE  device. 

0007  ;  This  program  performs  a  byte  write  operation  on  8 

0008  '  ;  '  ee&seouUve  addresses  using  the  data  poll:^ag  raettiisd 

0009  '  to  d^teunine  when  the  write  cycle  is  ccoplete. 
0010 

0011  ;  When  writing  to  a  serial  E<  device,  there  are  2 

0012  ;  ways  to  handle  the  internal  timed  write  cycle 

0013  ;  time  of  the  device.     The  simplest  method  is 

0014  ;  sisply  to  wait  \mtil  the  maximum  cycle  time 

0015  ;  is  exceeded  before  attenpting  another  command. 

0016  .  .  ■  ^.  other;  more  efficient  method  is  known  as  *'data 

0017  ;  polling. '    Data  polling  is  done  by  sending  a  start 

0018  ;  bit  and  control  byte  to  the  part  after  the  write 

0019  ;  cycle  has  been  initiated  by  a  stop  bit.     If  the  ack  bit 

0020  ;  is  low,   then  the  device  is  through  writing,  otherwise 

0021  ;  the  the  sequence  is  repeated.     If  no  low  acknowledge 

0022  ;  is  found  within  40  attempts   (about  10  millisecolHill) 

0023  ;  then  the  routine  times  out  and  sets  the  timeout 

0024  ^si-kv  IAD'  (pin  1)  hi^.  .  . 

0025  ;  - 

0026  ;  As  an  option,  the  user  can  connect  a  LED  to  pin  1 

0027  f  on  the  PIC16C54  (use  about  a  IK  resistor  in  series)  as  a 

0028  ;  timeout  indicator.     This  LED  will  come  on  if  the 

0029  ;  data  polling  is  unsuccessful  and  the  device  being 

0030  ;  programned  does  not  respond.     This  can  be  tested  by 

0031  ;  simply  running  the  program  with  no  part  in  the  socket.  ■! 
0032 

0033  ;  Timing  is  based  on  using  the  PIC16C54  in  'X^'  utode 

0034  ;  using  a  4MHz  crystal.     Clock  speeds  to  the  S^J^al  BE 

0035  ;  will  be  approximately  40  kHz  for  this  setl^. 
0036 

0037  ;  PIC16C54  to  Serial  EE  Connections: 
0038 

0039  ;  PIC16C54  Serial  EE 

0040  ;  -  —   .1  :  i:         .-'  ». 

0041  ;  Pin  12    (RB6)   ->  SCLK 

0042  ;  Pin  13    (RB7)   ->  SDATA 

0043 

0044  •    ;■  Pin  1     (RA2)  ->    Write  cycle  timeout  fail  IflHr'P^^fflial) 

0045  (  ..  -  •, 

0046  .  *  *<tk  ik***********  ********  ******  *.^^  *.****  *'***'*'Mi^M^*-0*m^^  *  * 

0047  ;  Register  Definitions 

0048  * ************************************************************ 

0049  0005    port_a  equ  5h  ;  port  5   (port_a)  used  LEDs 

0050  0006    port_b  equ         6h         ;  port  6  (port_b)  used  for  daOtl'i^ 

0051  ;  clock  lines 
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0052  OOOA    eeprom  equ        Oah  ;  bit  buffer 

0053  OOOB    bycnt  equ        Obh  ;  byte  counter  for  read  mode 

0054  OOOC    addr  equ        Och  ;  address  counter 

0055  OOOD    datai  equ        Odh         ;  data  input  register 

0056  OOOE    datao  equ       Oeh         ;  data  ou^ut  register 

0057  OOOF    slave  equ       Ofh         ;  device  siddresS  (lOlOxxxO) 

0058  0010     txbuf  equ        lOh  ;   transmit  buffer 

0059  0011    count  equ        llh  ;  bit  counter 

0060  0012    bcount  equ        12h         ;  byte  counter 

-  m-  -  -■  ■r:..^.j^.^.    _  ^  ^^^.-Jtr  _-.^:L-^,„^..-^_.-z-.j»r  ■    .-  ... 
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0061 

0015 

loops  equ 

ISh          ;  delay  loop  counter                '      ■  ■  \  ^■ 

0062 

0016 

loops2  equ 

16h          ;  delay  loop  counter 

0063 

0017 

pollcut  equ 

17h         ;  data  polling  counter 

0064 

******************-****************************************** 

0065 

Bit  Definitions 

0066 

************************************************************ 

0067 

0007 

di  equ 

7              ;  eeprom  input  bit 

0068 

0006 

do  equ 

6              ;  eeprom  output  bit 

0069 

0007 

sdata  equ 

7              ;   serial  EE  data  line  {port_b,pin  13) 

0070 

0006 

sclk  equ 

6              ;  serial  EE  clock  line  (port_b,pin  12) 

0071 

0002 

timeout  equ. 

2              ;  write  cycle  timeout  fail  LED,  port_a 

0072 

0001 

«ssk£^  equ 

1.           ;  aGkjiO!irledsre>^ll  Ii^t>  L  po^_a  (pin  ,  18) 

0073 

0074 

0075 

0000 

org 

Olffh      ;  set  reset  vector 

0076 

OlFF 

0A5C 

goto 

PWRUP 

0077 

0000 

org 

OOOh  ; 

0078 

0000 

0A5C 

goto 

PWRUP 

0079 

0080 

,**:**•**#******«****************«***  A  *********'****«<*****  ******* 

0081 

DELAY  ROUTINE 

0082 

This  routine  takes  the  value  in  'loops' 

0083 

and  multiplies  it  times  1  millisecond  to 

0084 

determine  delay  time. 

UUBD 

************************************************************* 

0086 

0087 

0088 

0001 

0C6E 

top  movlw 

.110                  ;  tlmi^  adju^tnuaait  variable 

0089 

0002 

0036 

movwf 

lo^82 

0090 

0003 

0000 

top2  nop 

;  alt  and  wait 

0000 

nop 

0092 

0005 

0000 

nop 

0093 

0006 

0000 

nop 

0094 

0007 

0000 

nap 

0095 

0008 

0000 

^  nap. 

0096 

0009 

02  F6 

decfsz     loops2                  ;  inner  loops  cOT^lete? 

0097 

OOOA 

OAOS 

goto 

top2                       ;   no,   go  again 

0098 

0099 

OOOB 

02F5 

decfsz    loops                   ;  outer  loops  con^ilete? 

0100 

OOOC 

OAOl 

goto 

top                     ;  no,  go  again 

0101 

OOOD 

0800 

retlw 

0                         ;  yeS/  return  frcon  sub 

0102 
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0103 

************************************************************* 

0104 

Start  Bit  Subroutine 

0105 

this  routine  generates  a  start  bit 

0106 

(Low  going  data  line  «Aiile  clock  is  high) 

0107 

************************-*******************,******«*********** 

0108 

0109 

BSTART 

0110 

OOOE 

05E6 

bsf 

porter  sdata      ;  make  sure  data  is  high 

0111 

00  OF 

0C3F 

movlw 

b'OOllllll' 

0112 

0010 

0006 

trls 

portjb                ;  set  data  azid  cl^KSk'  li»es^£or 

0113 

0011 

04C6 

bcf 

port_b,sclk        ;  make  sure  clock  is  law 

0114 

0012 

0000 

nop 

0115 

0013 

05C6 

bsf 

port Jd, sclk        ;  set  clock  high 

0116 

0014 

0000 

nop 

0117 

0015 

0000 

nop 

0118 

0016 

0000 

nop 

0119 

0017 

0000 

nop 

0120 

0018 

aooo 

nop 

0121 

0019 

0426 

bef 

porter  sdata      ;  data  line  goes  low  during 

0122 

;  high  clock  for  start  bit 

0123 

OOIA 

0000 

nop 

0124 

OOIB 

0000 

nop 

DSCI0567G'fK^12 


Ifiterfacing  the  24L0XXB  SerisI  ^PTOMs 


0125 

OOlC 

0000 

nop 

0126 

OOID 

0000 

nop 

0127 

OOIB 

0000 

nc^ 

;  timitng  adjustmaaA 

0128 

OOIF 

04C6 

bcf 

port_b,sclk 

;  start  clock  tr«lxi 

0129 

0020 

0000 

■,.•■1? 

0130 

0021 

0000 

nop 

0131 

0022 

0800 

retlw 

0 

0132 

0133 

************************************************************ 

0134 

Stop  Bit 

Subroutine 

0135 

This  routine  generates 

a  stop  bit 

0136 

Uim          lime  wblle  cloc^  is  high) 

0137 

******#**<Ht*««****»****************************** ***********  \ 

0138 

BSTOP 

0139 

0023 

0C3P 

b'OOllllll' 

0140 

0024 

0006 

tris 

port_b 

;  set  data/clock  lines  as  outputs 

0141 

0025 

04E6 

bcf 

port_b, sdata 

;  make  sure  data  line  is  low 

0142 

0026 

0000 

nop 

0143 

0027 

0000 

nop 

0144 

0028 

0000 

nop 

014S 

0029 

05C6 

bsf 

port_)i,  sdk 

;  set  clock  hi^ 

0146 

002A 

0000 

nop 

0147 

002B 

0000 

nop 

0148 

002C 

0000 

nop 

0149 

002D 

05E6 

bsf 

port_b,  sdata 

;  data  goes  high  while  clock  high 

0150 

;  for  sC<^  bit 

0151 

002S 

0000 

nop 

0152 

002F 

0000 

0153 

0030 

otes. 

■portJS,Bolk' 

;  Bet'  Clock  16w'  aQltin 
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0154 

0031 

0000 

nop 

0155 

0032 

0000 

nop 

0156 

0033 

0000 

nop 

0157 

0034 

0800 

retlw 

0 

0158 

0159 

******** 

******* 

*********************************************** 

0160 

BITOUT 

routine  takes  one 

bit  of  data  in  ^do'  and 

0161 

: 

feo  the  serial  EE  .doviee 

0162 

. ********««***i*«»«*********************************«*»**««**** 

0163 

BITOUT 

0164 

0035 

0C3F 

movlw 

b'OOllllll' 

set  data, clock  as  outputs 

0165 

0036 

0006 

tris 

port_b 

0166 

0037 

07CA 

btfss 

eeprom,  do 

check  for  state  of  data  bit  to 

0167 

0038 

0A3B 

goto 

bitlow 

0168 

0039 

05ES 

-  '1  -■ 

bsf 

portJ},«da^  -  - 

s^t  dMa  line  hii;^ 

0169 

003A 

0A3C 

goto 

clkout 

go  toggle  the  clock 

0170 

0171 

003B 

04E6 

bit low 

bcf 

port_b, sdata 

output  a  low  bit 

0172 

003C 

05C6 

clkout 

bsf 

port_b,sclk 

set  clock  line  hi^ 

0173 

003D 

0000 

nop 

0174 

003E 

0000 

nop 

0175 

003F 

0000 

n<9p 

0176 

0040 

0000 

0177 

0041 

CF4C6 

•  *  t  •  > « 

0178 

0042 

0800 

0179 

0180 

End  of  Subroutine 

0181 

0182 

f ******* 

******^ 

************************************************ 

0183 

BIT^  routine  reads  one  bit  of  data  from  the 

0184 

s<eri«l 

EB  device  aud  al^ores  it  in  •di' 

0185 

4*********************ir***-***iir********************************* 

0186 

BITIN 

0187 

0043 

05EA 

bsf 

eeprom,  di 

assume  input  bit  is  high 

0188 

0044 

OCBF 

atovlw 

b'lOllllll' 

make  sdata  an  ii^ut  line 

« laatMeiiM^TMlvtdlogy  ln& 
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0189 

0045 

0006 

tris 

port_b 

0190 

0046 

05E6 

bsf 

po3rt_b#  sdatei  ; 

set  sdata  line  for  input 

0191 

0047 

05C6 

baf 

set  clocX  line 

0192 

004S 

0000 

n^.  1 

justi  ait  here  a  4ec 

0193 

0049 

0000 

nop 

0194 

004A 

0000 

0195 

004B 

0000 

0196 

004c 

0000 

nop 

0197 

004D 

07E6 

btfss 

port_b, sdata 

read  the  data  bit 

0198 

004E 

04E& 

bo£ 

eeprom,di 

input  bit  was  low 

0199 

004F 

04C6 

bcf 

port_j3,sclk  , 

set  clock  line  low 

0200 

0201 

0050 

0800 

-  retlw 

8 

0202 

0203 

*************** ****** ***************************** 

0204 

;              Transmi  t 

Data  Subroutine 
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0205 
0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 


0051 
0052 


0053 
0054 
0055 
0056 
0057 
0058 


0C08 
0031 


04CA 
06F0 
05CA 
0935 
0370 
02F1 


This  routine  takes  the  byte  of  data  stored  in  the 
'datao'  register  and  transmits  it  to  the  serial  EE  device. 
It  will  then  send  1  more  clock  to  the  serial  EE  for  the 
acknowledge  bit.     If  the  ack  bit  from  the  part  was  low 
then  the  transmission  was  successful.    If  it  is  high,  then 
the  device  did  not  send  a  proper  ack  bit  and  the  ack 
fail  LED  will  be  turned  on. 
*********,*****♦*******»***♦«****************••********•**•******■ 

TX 

movlw       .8  ■  ■. 


movwf  count 


0059  0A53 
005A  0943 


005B  0800 


005C  OCOO 

005D  0005 

005E  0065 

005F  0A6a 


bcf 
btf  sc 

bsf 

call 

rlf 


eeprcsR,  do 
txbuf ,7 

eeprom, do 

BITOUT 

txbuf 


decfsz  count 
goto  TXLP 


set  the  #bits  to  8 


assume  bit  out  is  low 
is  bit  out  really  low? 
otherwise  data  bit  =1 
serial  data  out 
rotate  txbuf  left 
8  bits  done? 
no  -  go  again  i 


call 


retlw 


A****************** ********************** ******** 


************** 


Power  1^  routine 

This  is  the  program  entry  point,  vdiich  in  this  case  sisply 
sets  the  port_a  I/O  lines  and  directs  control  to  the 
write  routine. 

**********  ************************************************ 


movlw  b' 00000000' 

tris  port__a 

clrf  port_a 

goto  WEtBYTE 


set  port  A  as  all  output 
all  output  lines  low 


Byte  Write  Boutine  with  data  polling  teedmiqiie 

This  routine  writes  the  data  in  *datao"  to 
8  consecutive  bytes  in  the  serial  EE  device  starting 
■at  address  00.  To  determine  when  the  write  cycle  time 
-of  the  device,  the  'data  polling'  method  is  used.  This 
involves  sending  a  start  bit  and  control  tyte  to  the  part 
and  checking  for  an  acknowledge.     If  the  ack  bit  is  low,  then 
the  device  is  through  writing,  otherwise  the  the  sequence 
is  repeated.     If  no  low  acknowledge  is  found  within  40 
atten^ts   (about  10  milliseconds)   then  the  routine  times 


0253 
0254 
0255 


out  and  sets  the  tifie^fs  LBp  .(e^  J:^)  ildsS^^ 
will  repeat  forever. 


'  oy<f^ 
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0256 

.  *****************************»*«*********************.************ 

0158 

NSBYTE 

0259 

'■    '  «  ^  clrf 

0260 

0060 

0065 

port_a 

;   all  LEDs  off 

0261 

0061 

OCAO 

movlw 

b'lOlOOOOO ■ 

;  set  slave  address  and  write  mode 

0262 

0062 

002F 

movwf 

slave 

0263 

0063 

OCAA 

movlw 

b'lOlOlOlO' 

;  set  data  to  write  as  AAh 

0264 

0064 

002E 

tnovw£ 

0265 

0065 

OC08 

movlw 

.  8 

f  set  number  o£  bytds 

0266 

0066 

0032 

IDOWf 

•    t*n  itfT^'l         aa    t*.A  R 

t                      X           CUO  V 

0067 

006c 

clrf 

7  set  s  t&r  t  ing  addxeBS  to  00 

0268 

0269 

0068 

0  90E 

g  genera te  start  jdic 

0270 

0069 

020F 

movf 

slave, w 

J  move  slave  address 

0271 

00  6A 

0030 

movwf 

txbuf 

;  into  transmit  buffer 

0272 

006B 

0951 

call 

I  and  send  it 

0273 

006c 

020G 

*^*4H0ve  woird  a^^^^as 

U<B  /  * 

006D 

call 

TX 

*  and  send  xt 

006F 

02  OE 

c^atao  f  w 

]  move  data  b^te 

0277 

0070 

0030 

V  w  1, 

txbuf 

]   to  t r anmx  t  bu  f  f er 

call 

;  and  tr ansmi t  it 

0279 

0072 

0923 

call 

BSTOP 

/  genera  te  s  top  bit 

0280 

0281 

7    ur^w  WTi  n  T  ^  ^Twxx  xxi^   xux    €i   x\^w            *jx  ^ 

0282 

0283 

0073 

0C28' 

-  ■  movlw 

.  40 

0284 

0074 

0037 

movwf 

pol lent 

f   set  max  nuxnber  of  t imes  to  poll  as  4 0 

0075 

0  90E 

BSTART 

f  generate  start  bit 

0286 

OCAO 

movlw 

b' 101 DOQQO ' 

i  move  slave  address  (write  mode) 

0287 

0077 

0030 

0288 

0078 

0951 

0289 

0079 

07EA 

btfss 

eeprom, di 

;  was  the  ack  bit  low? 

0290 

007A 

0A7E 

goto 

exitpoll 

;  yes,  do  another  byte 

0291 

007B 

02F7 

decf sz 

pollcnt 

;   is  poll  counter  down  to  zero? 

0292 

007C 

0A75 

goto 

poll 

;  no,  poll  again.     Other  wise  the  part  is 

0293 

007D 

0545 

bsf 

port_a,  timeout 

;  not  responding  in  time  so  set  timeout 

0294 

;  VSD  and  continue  on 

0295 

0296 

007E 

02AC 

exitpoll  incf 

addr 

;  add  1  to  address  ootQOl^ 

0297 

007F 

02F2 

decfsz 

bcoutit 

;  all  8  bytes  iniitttm^ 

0298 

0080 

0A68 

goto 

byte 

;  no,  do  anotlsei^  byte 

0299 

mm 

goto 

0300 

0301 

0302 

0000 

END 

.:  lO" 

CSOu 


tntejrfaeing  the^LCXXB  Set  ill  eiP^OMi 

'.■■iwim   1   .IT    ."Bi,  liiiwuii,  'msssaemmmmmmm 
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0001  LIST  P=16C54,c=132 

0002  ,************************************************************ 

0003  ;  2-Wire  Page  Write  Program  (122  bytes) 

0004  ; 

0005  ;  This  program  demonstrates  how  to  interface  a 

0006  ;  Microchip  PIC16C54  to  a  24LCXX  Serial  EE  device 

0007  ;  and  perform  a  page  write  operation.^  §  iiensecutive 

0008  ;  addresses. 
0009 

0010  ;  All  of  Microchip's  2-wire  serial  E<  devices  have  a 

0011  ;  buffer  or   'page'   that  can  be  used  as  a  more  efficient 

0012  ;  method  of  writing  to  consecutive  addresses.  Some 

0013  ;  devices  have  page  lengths  of  2  bytes,   others  have 

0014  --  ;  page  lengths  of  4,8,16  or  64  bytes.     Please  consult 

0015  ;  the  databook  for  the  page  length  of  the  device  you 

0016  ;  are  using.     THIS  ROUTINE  IS  WRITTEN  FOR  A  DEVICE 

0017  ;  ^-^^  umxym  m  «^  more  bytes. 

0018 

0019  ;  When  using  page  mode,  the  control  byte  and  address 

0020  ;  are  sent  for  the  first  address  only.    After  the  data 

0021  ;  byte  for  the  first  address  is  sent,  the  data  for  the 

0022  ;  next  consecutive  address  is  clocked  in.    This  is 

0023  ;  repeated  as  many  times  as  needed  (as  long  as  the  page 

0024  ;  length  is  not  exceeded)  and  then  a  stop  bit  is  sent. 

0025  ;  The  device  will  still  acknowledge  laetween  every  byte  of 

0026  ;  data.    After  the  stop  bit  is  sent,  the  part  will 

0027  ;  initiate  the  self  timed  write  cycle.     For  all  of 

0028  ;  Microchip's  24LCxx  devices,  the  cycle  time  for 

0029  ;  a  byte  write  and  a  page  write  is  the  same.  Therefore, 

0030  ;  writing  8  bytes  in  byte  mode  with  a  typical  5ms  write 

0031  ;  c^^U  c^t^^S  40ms  of  yitait^tinp,  while  the  ^ne  data 

0032  ;     '''  " *ti^riWSr iafpe^  mode  would  consume  only  ^am  ^  wait  time. 


0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 


0044  ;  As  an  option,   the  user  can  conj^iggh  «  IiED  to  pin  18 

0045  ;  on  the  PIC16C54   (use  about  a  IK  resistor  in  series)  as  a 

0046  ;  acknowledge  fail  indicator.     This  LED  will  come  on 

0047  ;  if  the  device  being  programmed  does  not  send  a  low 

0048  ;  acknowledge  bit  at  the  proper  times.     This  can  be 

0049  ;  tested  by  simply  running  the  program  with  no  part 

0050  ;  in  the  socket. 
0051 
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0052  ;  Timing  is  based  on  using  the  PIC16C5x  in  'XT'  mode 


This  routine  waits  approximately  lOmS  for  the  write 
cycle  time,  which  is  enough  time  for  any  of  the 
24LCXX  devices  to  complete  a  write.     A  more  efficient 
method  of  determining  when  the  write  cycle  is  complete 
is  called  "data  polling."     The  data  polling  method  is 
explained  in  the  program  '2wdpoll  .asm.  "  That 
particular  program  uses  data  polling  in  a  byte  write 
mode  but  it  can  be  used  in  exactly  the  same  way  for 


0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 


0082 

0083 
0084 


0098 
0099 
0100 
0101 
»102 


using  a  4MHz  crystal.  Clock  speeds  to  the  serial  EE 
will  be  approximately  40  kHz  for  this  setup. 


PIC16C54  to  Serial  EE  Connections: 
PIC16C54  SeriM' SB 


tCAC 


Pin  12    (RB6)  ->  SCLK 
Pin  13    (RB7)  ->  SDATA 

PIN  18  (RAl)  ->    Acknowledge  fail  LED  (Optional) 
Register  Definitions 

*  it**************  ************  ******************************** 


0070 

0005 

port_a 

equ 

5h 

;  port  5   (port  a)  used  for  LED  outputs 

0071 

0006 

port_J) 

equ 

6h 

;  port  6  (port  b)  usiedl  fee  data  and 

0072 

;  clock  lines                            " -  ' 

0073 

00  OA 

eeprom 

egu 

Oah 

-. -j'bit  buffer  -                         ^  -  -.ou.' 

0074  1 

OOOC 

addc  . 

equ 

•-:Oeh 

;  addrests  couoteJf                   -'  ' 

0075 

OOOE 

datao 

equ 

0^ 

;  data  output  register 

0076 

00  OF 

Alave 

equ  -imOSi 

:■    ;:.dsvic»' address- (lOlC^caOtCt) 

0077 

0010 

txbuf 

mm 

3:(»i 

;  transrait  baiCW                   '  0 

0078 

0011 

.vX^c^t' counter  *e<<  ' 

0079 

0012 

ymoarnt 

mm 

S311 

f  byte  counter    i  r 

0080 

0015 

Im^gm 

mm 

15fa 

;  delay  loop  counter 

0081 

0016 

10^s2 

mm, 

im 

Bit  Defl^i^l^is 

***************  *-itil^:iilti^^g0j^^*'^.* 


0085 

0007 

di  : 

-  mm' 

.  7 

;  eepr^n  Input  bit 

0086 

0006 

do 

^m 

6 

;  eepr<^  output  bit 

0087 

0007 

sdata 

equ 

7 

;  serial  EE  data  line  (port_b,pin  13) 

0088 

0006 

sclk 

equ 

6 

,•  serial  EE  clock  line  (port_b,pin  12) 

0089 

0001 

ackf 

equ 

1 

;  acknowledge  fail  LED,  port_a  (pin  18) 

0090 

. ************************************************************ 

0091 

0092 

0093 

0000 

org 

Olffh 

;  set  reset  vector 

0094 

OlFF 

0A5E 

goto 

PWRUP 

0095 

0000 

org 

OOOh 

0096 

0000 

0A5E 

goto 

PWSBP 

0097 

t**********t*********^l^f^jf^j^t^§gf)i^^***********mm*^**iii»**''  tJfO 

DELAY  ROUTINE 

This  routine  takes  the  value  in  ?ll©E^[pBl-- 1 'oijl- •c.c  .  -  >  .^»it 
and  multiplies  it  times  1  millisecCTid  to 

iS%«@Ili-ne  dei^  :ljrr.--;  '<7  >MiJ 
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0103 

,  *******************lflrffft**********.**,**^*********-**»»******4f** 

0104 

0105 

0106 

0001 

oceE 

top 

900^      .110                     ;  timing  adjustment  variable.' 

0107 

0002 

0036 

mmmi£  lo^psa 

0108 

0003 

0000 

top2 

flop                                    ;  sit  asd  wait 

0109 

0004 

0000 

nop 

\ 

0110 

0005 

0000 

nop 

t 

0111 

0006 

0000 

nop 

I 

0112 

0007 

0000 

nop 

0113 

0008 

0000 

nop 

0114 

0009 

02F6 

decfsz    loops2  ; 

inner  loops  complete? 

0115 

000 A 

0AO3 

no,  go  again 

0116 

0117 

OOOB 

02F5 

decfsz     loops  ; 

outer  loops  conplete? 

0118 

OOOC 

OAOl 

goto        top  ; 

no,  go  again 

0119 

OOOD 

0800 

retlw  0 

yes,  return  from  siib 

0120 

'■ 

0121 

'■ 

********  ********-«r**i^****-Jr 

0122 

J 

start  Bit  Subroutine 

0123 

f 

start  bit 

0124 

'• 

(Low  going  data  line  while  clock  is  high) 

0125 

'• 

******************************** 

****************************** 

0126 

• 

0127 

s 

0128 

OOOE 

05E6 

bsf          port_b,  sdata  ; 

make  sure  data  is  high 

0129 

OOOF 

0C3P 

movlw      b' 00111111' 

0130 

0010 

0006 

tris        port_b  ; 

set  data  and  clock  lines  for 

output 

0131 

0011 

04ce 

. J        bcS         port_b, sclk  ; 

make  sure  clock  is  low 

0132 

0012 

0000 

0133 

0013 

05ce 

bsf        port_|>i  scllc  ; 

set  clock  high       .  . 

0134 

0014 

0000 

nop 

0135 

0015 

0000 

r  ■  -i' 

0136 

0016 

0000 

0137 

0017 

0000 

••  • 

0138 

0018 

0000 

nop 

0139 

0019 

04E6  • • 

••   ■•      bcf    ■    port_b, sdata  •  ; 

data  line  goes  low  during 

0140 

highs.iclock  for  start  bit 

0141 

OOIA 

0000 

nop 

0142 

OOIB 

0000 

nop 

0143 

oolc 

0000 

nop 

0144 

OOID 

0000 

nop 

0145 

OOIE 

0000 

nop' 

timing  adjustment 

0146 

OOIF 

04C6 

bcf          port_b,sclk  ; 

start  clock  train 

0147 

0020 

0000 

nop 

0148 

0021 

0000 

nop 

0149 

0022 

osoo 

retlw  0 

0150 

0151 

;         End  of  Subroutine 

0152 

************************************************************ 

0153 
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0154 

-'S               This  routine  generates  a  stop  bit                             '.  - 

0155 

(High  going  data  line  while  clock  is  high) 

0156 

.  *  **  *  ****#«»*«*****#*i|b-44k*************************^«*«^*****««  ^ 

0157 

BSTOP 

0158 

0023 

0C3F 

 ■ '  movlw 

b' 00111111' 

0159 

0024 

0006 

tris 

port_b                 ;  set  data/clock  lines  as  outputs 

0160 

0025 

04E6 

bcf 

port_b, sdata      ;  make  sure  data  line  is  low 

0161 

0026 

oooo 

nop  : 

0162 

0027 

0000 

nop 

0163 

0028 

0000 

nop 

0164 

0029 

05C6 

bsf 

port_b,  sclk       ;  set  ..eJjock  M,ab 

0165 

002A 

0000 

neip 

0166 

002B 

0000 

0167 

002C 

0000 

0168 

002D 

05B6 

bat£ 

iiM|J^»4I^M      ;  data  goes          ;HiKiIi#  higb 

0169 

•           ^ ***•»••*' •  for  stop  b^fe *  •  ; 

0170 

002E 

0000 

nop 

0171 

002F 

0000 

-  - 

nop 

0172 

0030 

Q4C6 

;  :'ri.' 

bc£  •  .  ^ 

~part^,  sal>lCK      t  set  eXock  low  again 

0173 

0031 

StOsOO 

nop 

0174 

0032 

0000 

nop 

0176 

0033 

0000 

0176 

0Si4 

0177 

r 

0178 

# 

0179 

0180 

/ 

BZtO^  T&aitham                    ...r  .   .                 ^  .  ., 

0181 

OS  x:3iM  ^S^fmsmmiltl^e  taXes  cms  bit  o£  data  i«          mi  ' 

0182 

tSMaaalts  it  to  thsi  «Kri#l  ^  dinriee 

0183 

0184 

0185 

0035 

0C3F 

Ml  ::i 

;b'001111£$J.u4x9,;  -sH^9!aCba,«^Mic  «Si.mtputs  . 

0186 

0036 

0006 

c;  fa '  f->-  - 

■,pes%,^,^ob  ^ti)a«  ted 

0187 

0037 

07CA 

Juc  , 

'.  £6iMM 

;^e^rmii-t:^'^i"^tl'i  efa^^l^foi'  state  o£  ^ta  bit  to 

xitiit 

0188 

0038 

0A3B 

■■t  wMNI  8 

bitlow  ; 

0189 

0039 

OSEe 

-     bsf  ._r 

PQrt_b,sdata      ;  set  data  line  high 

0190 

003A 

0A3C 

goto  > ' 

clkout                ;  go  toggle  the  clock 

0191 

0192 

003B 

04E6 

bitlow 

bcf 

port_b,sdata       ;  output  a  low  bit 

0193 

003C 

05C6 

clkout 

bsf 

,port_b,sclk        ;  set  clock  line  high 

0194 

003D 

0000 

nop 

0195 

003E 

0000 

nop 

0196 

003F 

0000 

nop 

0197 

0040 

0000 

nop 

0198 

0041 

04C6 

bcf 

port_b,sclk        ;  return  clock  line  low 

0199 

0042 

0800 

retlw 

0 

0200 

0201 

; 

End  of  Subroutine 

0202 

? 

0203 

.  ******************************  ilr**4(***«*******«**4r******  ******* 

0204 

BITIN  routine  reads  one  bit  of  data  irem  tke 

tSc5x/7x  Cross-Assanbler  V4.12  ReSsSMsaid   Him  O^WBalWuMaatter?*  iMi    Wa0»  f 


Line 


PC 


Opcode 


0205 
0206 
0207 
0208 
0209' 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 


0043 
0044 
0045 
0046 

omi 

0049- 
004&1 
004B 
0O4C 
004O 


:<  seriated  4Niisflce  ai^d  stores  il:  in  <  < 

fe^*****^****l^««^*»#******^********^*^,*******«#«^fe**^^ 


BITIN 


OSEA 
OCBF- 
0006 
05Ee 
05C& 
OOfiO^ 

«soe 

0000 
0000 
0000" 
07E6 


bsf 


1  msmmte  imsmt  bit  is  high 
■; '  make  Baa^ms?  i^^t  line 


eeprom, di 
b' 10111111"  • 
<|»t»  port_b 
tef         port^,  sdata 
3  efts  Mi  1*11*3  s£)C^port Jb,  aelk 

■  'a  anOI  ajM^  j  ;av-'-  _  i 

■xtfvtypii  a^ltittmiat  aaiJifoi 

 .♦. 

btfs*    port3>s«teta     ;  vmmS  tim  Smta.  bit 


set  sdata  line  for  ii^ut 
set  cldck  line  high 
^ust!.  ait  here  «  sec 


IB  llliliiMiiiiMUjiTwilltilHiytiBI 


8-45 


0219 

004E 

04EA 

bsf 

eeprcaii,  di 

input  bit  was  low 

0220 

004F 

04C6 

bcf 

port_b/ sclk 

set  clock  line  low 

0221 

0222 

0050 

0800 

retlw 

0 

0223 

0224 

.**************************************************************** 

022  5 

;  Transmit 

Data  Subroutine 

022  6 

;              This  routine  takes  the  byte  of  data  stored  in  the 

0227 

"datao' 

register  and  transmits  it  to  the  serial  EE  device. 

n  "5  0  Q 

;              It  will 

then  send  1  more 

clock  to  the  serial  EE  for  the 

0229 

;              acknowledge  bit.     If  the 

ack  bit  from  the  part  was  low 

n  "J  T  n 

;              then  the 

transmission  was  successful.     If  It  is  high,  then 

;             the  device  did  not  send  a  prop^  ack  bit  and  fehe  ack 

noil 

;              fail  LED 

will  be  turned  on. 

UZ  J  J 

UZ  J4 

0235 

0051 

CCDS 

movlw 

.8 

0236 

0052 

0031 

n  inovw£ 

>  coamt 

■  «et  the  «bits  to  8 

Uz  J  / 

0238 

0053 

04CA 

bcf 

eeprom, do 

■  assume  bitv^fitis  low 

0240 

00§4 

06F0 

bbfsci- 

txbuf ,7 

■  is > bit  out  really  lo«7  ' 

0241 

0055 

05CA 

eeprom,  do  , 

■  otherwise  data  bit  =1 

UZ4z  - 

BITOOT  -       -   ■  • 

■  serial  data  out  j 

0243 

0057 

0370 

rlf 

txbuf 

■  rotate  t>d>uf  left                       >  > 

0244 

0058 

02F1 

decfsz 

count 

•  8  btfes  done?          . '  . 

0245 

0059 

OAS  3 

goto 

TXLP 

•  no  -  go  again       f           :  i  . 

0246 

005A 

0943 

-    •  call 

BITIN 

■  read  ack  bit          - '  . 

0247 

005B 

06EA 

btfsc 

eeprom, di 

•  check  ack  bit 

0248 

005C 

0525 

bsf 

port_avaskf 

■  set : acknowledge  fail  LED  if  the 

no  /I  Q 

;  devle4  did^ net  pull  data  low 

0250 

0251 

005D 

0800 

retlw 

0 

0252 

0253 

.*************** 

************************************************* 

0254 

\.  i 

; '             Power  up 

routine 

0255 

This  is 

the  program  entry  point,  which  in  this  case  sinply 
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0256  ;  sets  the  port_a  I/O  lines  and  directs  control  to  the  Page 

0257  ■    Wti to  routine.  ,  . 

0258  .**************************************************************** 

0259  PWRDP  jb     (  :>  1 

0260  005E     OCOO  movlw  b'OOOOOOGO' 

0261  005F    0005  J  tris      port_a                 ;  set  port  A  as  all  output 

0262  0060    0065      '  clrf      port_a  ;  all  output  lines  low 

0263  0061    0A62  goto      HRPA6E  MI.iH 

0264  . 

0265  -  J 

0266  ;  Page  Write  Routine  ;  j<, 

0267  ; 

0268  -  ;  This  >z>Qutine  \i8es  page  mode  to  write  the  dafca  in  "(Satao'  to 

0269  J?  IS  8l  cema^cutive  l^^es  in  the  sexlal  EE  device  starting 

0270  ;  at  address  00 .  This  routine  waits  lOmS  after,  ever^  . 

0271  ;  i>age  to  give  the  device  time  ^  do  the  wribeu    Th4*  = 

0272  ;  routine  executes  forever  ZV:  ■  -2 

0273  .********  #******^*####«#**  *********************** 

0274  ;  t      |R*«ft€,M..  ■ 


0275 

WRPJ&f^ 

' '»   1  ft  ^Hm.Tfgff^J  • 

0276 

7 

0277 

0062 

0065 

clrf 

port  a 

^X  CcLX     CLX  X  Ud±JS> 

0278 

0063 

OCAO 

V  X  W 

h'  1 01 OOOOQ  • 

OCL.     isXavC     CLxAUX  COO     CulU    WrX  X 

\JZ  /  7 

UU04 

UUZr 

..... 

inovwf 

slavs 

0280 

0065 

0C55 

11H_I  V  X  W 

Vi' ni  ni  ni  ni  • 

SC  L.     UdL-d                Wx  X  UtS     CUSt  J^li 

0281 

0066 

002E 

IDOVW£ 

0282 

0283 

0067 

0C08 

.  8 

0284 

0068 

0032 

QlvVW'X 

to  wxlue  aS  to  o 

UUD7 

set  sussrcxiig  aciuxess  &q 

0286 

0287 

00  6A 

090E 

ca.xi 

BSTAKT 

generate  start  bit 

A  OCR 

inovf 

slave  #w 

iQove  slave  address 

UU 

movwf 

txbuf 

into  trazi^BvLt  bi^:^^ 

0290 

006D 

0951 

.  JiA. 

and  send  is^^ 

J. 

^^^^  ..-^ 
move  I0@^tw^&ai^|^68i3 

U  a7  J 

UUOf 

znovwf 

txbuf 

mco  transmit  ducc^^^ 

U7  3:jl 

TV 

and  send  It  ' 

0296 

0071 

020B 

byte 

nipvf 

daJtao,w  , 

5»ove  data  i^^e 

men 

UU  tZ 

0030 

to  tranmit  buffer 

0298 

0073 

U7  3  JL 

sus^'  c&PC^iS9mt  It 

0299 

0074 

02F2 

bcount 

all  8  bytes  i^iti^e^? 

0300 

0075 

0A71 

byte 

no,  do  an^t^i^ 

0301 

0076 

0923 

call 

BSTOP 

yes, generate  f^c# 

0302 

0303 

0077 

OCOA 

movlw 

.10 

0304 

0078 

0035 

movwf 

loops 

set  delay  tinta  to  give 

0305 

0079 

0901 

call 

WAIT 

10  ms  wait  ^£ter  every  byte 

:0S€IS 
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0307 
0308 
0309 
0310 


;  start 


0000  END 


.til  .  -  •  1 


.1-  /'J  Xaiim 


mm 
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0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 


0048 
0049 
0050 
0051 


LIST  P=16C54,c=132 

k************************************************  *********** 

2-Wire  Sequential  Read  Program  (120  bytes) 

This  program  demonstrates  how  to  interface  a 

Microchip  PICiec54  to  a  24LCXX  Serial  EE  device 

and  perform  a  sequential  read  operation.    A  sequential 

f  -^;^fi|a^ -involves  setting  the  address  pointer  once  and  then 
using  the  auto-increment  ability  of  the  part  to  read 
consecutive  addresses  by  simply  providing  more  clocks. 

Timing  is  based  on  using  the  PIC16C54  in  'XT'  mode 
using  a  4tIHz  crystal.    Clock  speeds  to  the  serial,  fag'-"  ' 
will  be  ajtproxiniately  60  kHz  for  this  setup.  ''''' 

^        As  an  cption,  the  user  may  connect  a  LED  to  pin  18 

on  the  PIC16C54   (use  about  a  IK  resistor  in  series)  ^;J^ 
acknowledge  fail  indicator.     This  LED  will  ccsne  ^ 
the  serial  EE  fails  to  acknowledge  correctly. 


PIC16C54  to  Serial  EE  Connections: 
serial  BE 


Pin  12  (RB6) 
Pin  13  (RB7) 


SCLK 
SDATA 


PIN  18   (RAl)  ->    Acknowledge  fail  LED  (Optional) 

************************************************************ 

"Ragislter  Definitions 
*  *****'***«*********#*»************************#«#*«#'«#««# 


0033 

0003 

status 

equ 

3h 

;   status  register 

0034 

0005 

port_a 

equ 

5h 

;   port  5    (port_a)    used  for  LEDs 

0035 

0006 

por  t_b 

equ 

6h 

;  port  6   (port  b)  used  for  data  and 

0036 

}  clock  lines 

0037 

OOOA 

eeprom 

equ 

mi 

;  bit  buffer 

0038 

OOOB 

bycnt 

equ 

Oldi 

;  byte  counter  for  read  SS!^ 

0039 

OOOC 

addr 

equ 

Och 

;  address  counter  *^ 

0040 

OOCD 

datai 

equ 

Odh 

;  data  input  register 

0041 

OOOE 

datao 

equ 

Oeh 

;   data  output  register 

0042 

OOOF 

slave 

equ 

Ofh 

;  device  address  (lOlOxxxO) 

0043 

0010 

txbuf 

equ 

lOh 

;  $swB>it  buffer 

0044 

0011 

count 

equ 

llh 

.  bit  counter 

0045 

0012 

bcount 

equ 

12h 

;  byte  coiinter 

0046 

0015 

loops 

equ 

15h 

;  delay  loop  counter 

0047 

0016 

loops2 

equ 

16h 

;  delay  loqp  counter 

0007 


*****************************  **A«.%»<*«%^'.*«««*«'».«:lk:«MK:*^fe^l(##*«i<^ 

Bit  Definitions 

***********«*******i**************************«************«* 
di  equ  7 


i  eeprom  input  bit 
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Line      PC  Opcode 


0052 

0006 

do 

equ 

6 

;  eeprom  output  bit 

0053 

0007 

sdata 

equ 

7 

;  serial  EE  data  line  (port_b,pin  13) 

00S4 

0006 

sclk 

equ 

6 

;  serial  EE  clock  line  (port_b,pin  12) 

0055 

0001 

ackf 

equ 

1 

;  acknowledge  fail  LED,  port_a 

0056 

.  **********************************************«*********^«* 

0057 

0058 

0059 

0000 

org 

Ot£fb 

;  set  reset  vector 

0060 

OlFF  0A5B 

goto 

PWRUP 

<»4B 


0061 

0000 

org 

OOOh        ;    -  - 

0062 

0000 

0A5B 

goto 

PWRUP 

0063 

r  /  _  • 

0064 

0065 

Start  Bit  Siibroutine 

0066 

this  routine  generates 

a  start  bit 

0067 

(lipw  goiog-^ds^  ItixiQ  %diile  clock  is  high)  . 

0068 

******  f  * 

0069 

0070 

BSTART 

0071 

0001 

05E6 

■    mAlrja    qiii^a  /^a^a    i  a  Vii  /rh 

t     JlwL^K?    OUXG    UALttf              XXX  y  44 

0072 

0002 

0C3F 

>»'  001  inn  ' 

0073 

0003 

0006 

^"^►""^          1 V 

}  set  data  and  clock  lines  fox  otii&put 

0074 

0004 

04C6 

bcf 

port  p r  sclK 

f     luCLi^c    olXXV    ^  j.\J\^r*.     XO  J^S^W 

0075 

0005 

0000 

nop 

0076 

0006 

05C6 

bsf 

-port  p  m  sclK 

7  set  cj.ocic  xixgh 

0077 

00  07 

0000 

nop 

0078 

0008 

0000 

nop 

0079 

0009 

0000 

0080 

00  OA 

0000 

0081 

ooob 

0000 

hop'  ■ 

0082 

000c 

04S6 

bef . 

;  data  line  goes  low  during 

0083 

;  high  clock  for  start  bit 

0084 

0  OOD 

0000 

nop  '* 

0000 

nop 

0086 

00  Of 

0000 

nop 

0087 

0010 

0000 

msp 

0088 

0011 

0000 

nop 

;  t in^^c^.  a4jtis  t3«0at 

04C6 

bef 

0090 

0013 

0000 

nop 

0091 

0014 

0000 

nc^ 

0092 

0015 

0800 

retlw 

0 

0093 

0094 

;        End  of  Subroutine 

0095 

**************iit*  *******  ******* 

**********  *  !i^«-«i(f^fr:)^^^|ir^)fe#*^i»«»^ 

0096 

Stop  Bit  Subroutine 

0097 

This  routine  generates 

a  stop  bit 

0098 

(High  going  data  line  while  clock  is  high) 

0099 

********************  Ik***  *  **  *** 

****************************** 

0100 

BSTOP 

0101 

0016 

0C3F 

movlw 

b' 00111,111' 

0102 

0017 

0006 

tr^is 

port_b 

;  set  data/clock' lines  as  outpiat:s 
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Line 

PC 

Opcode 

0103 

0018 

04Ee 

bcf 

port_b.  sdata 

;  make  sure  data  line  is  low 

0104 

0019 

0000  > 

■                'f-    -r  .  ? 

0105 

OOIA 

0000 

'■■mp". 

0106 

OOIB 

0000 

nop 

0107 

OOlC 

05C6 

bsf 

port_b, sclk 

;  set  cloc^  high    -j  , 

0108 

OOID 

0000 

nop 

0109 

OOIE 

0000 

nop 

0110 

OOIF 

0000 

nop 

0111 

0020 

OSES 

k»i 

;  data  goes  hl^  ^3^4Siel: 

0112 

;  for  st^  bit 

0113 

0021 

0000 

nop 

0114 

0022 

0000 

nop 

0115 

0023 

04C6 

bcf 

port_b, sclk 

;  set  clock  low  again  ... 

0116 

0024 

0000 

nop 

0117 

0025 

0000 

nop 

0118 

0026 

0000 

nop 

0119 

0027 

0800 

retlw 

0 

0120 

0121 

End  of  Subroutine 

0122 

************** 

***************** 

***************************** 

0123 

BITOUT 

routine  takes  one 

bit  of  data  in  ^do'  load 

0124 

transmits  it  to  the  serial  EE  device 

At9iyiii$ineMniiMtia«iaaiMn& 


8MS> 


0125 

****************************«************"******************** 

0126 

BITOOT 

0127 

0028 

0C3P 

novlw 

b' 00111111- 

;  set  data, clock  as  outputs 

0128 

0029 

OOOS 

trls' 

port_b 

0129 

002A 

07ca 

btfss 

eeprom,  do 

;  check  for  state  of  data  bit  to 

0130 

002B 

0A2E 

goto 

bitlow 

0131 

002C 

05B6 

bsf 

port>^,sda6a 

•  set  data  line  high 

0132 

002D 

OUST 

gdto 

ell^e    •  • 

•       togrgle  tHe  eld^ 

0133 

0134 

002E 

04E6 

bltlow 

bcf 

port_b, sdata 

;  output  a  low  bit 

0135 

002F 

05C6 

clkoat 

bsf 

port_b,sclk 

;  set  clock  line  high 

0136 

0030 

0000 

nop 

0137 

0031 

0000 

nop 

0138 

0032 

0000 

nop 

0139 

0033 

0000 

nop 

0140 

0034 

04C6 

bcf 

port_b,sclk 

;  return  clock  line  low 

0141 

0035 

0800 

retlw 

0 

0142 

0143 

End  of  Subroutine 

0144 

0145 

****************************** 

******************************** 

0146 

BITIN  routine  reads  one 

bit  of  data  from  the 

0147 

serial 

EB  device  and  stores  it  in  *di' 

0148 

0149 

BITIN 

0150 

0036 

05E& 

bsf 

eeprom.di 

;  assume  ii^ut  bit  is  hi^ 

0151 

0037 

OCBF 

movlw 

b' 10111111' 

;  make  sdata  an  input  line 

0152 

0038 

0006 

'  ■■^or&_J&'!-- 

0153 

0039 

05C6 

bsf 

>  povt^iselk 

i  set  clode  line  hij^i 
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Line 

PC 

Opcode 

0154 

003A 

0000 

nop 

just  sit  here  a  sec 

0155 

003B 

0000 

nop 

0156 

003C 

0000 

nop 

0157 

003D 

0000 

nop 

0158 

003E 

0000 

nop 

0159 

003P 

07E6 

btfss 

port_jD,  sdata 

read  the  data  bit 

0160 

0040 

04EA 

bcf 

eeprom,  di 

ii^ut  bit  was  low,  set  'di'  accordingly- 

0161 

0041 

04C6 

bcf 

port_b, sclk 

set  clock  line  low 

0162 

0163 

0042 

0800 

retlw 

0 

0164 

0165 

**************************************************************** 

0166 

Transmit 

Data  Subroutine 

0167 

This  routine  takes  the  byte  of  data  stored  in  the 

0168 

*datao' 

register  and  transmits  it  to  the  serial  EE  device. 

0169 

It  will 

then  send  1  more 

clock  to  the  serial  EE  for  the 

0170 

acknowledge  bit.     If  the 

ack  bit  frcon  the  part  was  low 

0171 

then  the 

transmission  was  successful.     If  it  is  high,  then 

0172 

the  device  did  not  send  a  proper  aok  bit  and  the  ack 

0173 

fail  LED  will  be  turned  < 

9n. 

0174 

***************************************************  **********'*^» 

0175 

0176 

0043 

0C08 

movlw 

.8  1 

0177 
0178 

0044 

0031 

movwf 

coimt 

set  the  tbits  to  8 

0179 

TXLP 

0180 

0045 

04CA 

bcf 

eeprcan,  do 

assume  bit  out  is  low 

0181 

0046 

06F0 

btfsc 

txbuf,7 

is  bit  out  really  low? 

0182 

0047 

05CA 

bsf 

eeprcBi,do 

no,  set  it  bis^ 

0183 

0048 

0928 

call 

BITOOT 

send  the  bit  to  serial  EE 

0184 

0049 

0370 

rlf 

txbuf 

rotate  txbuf  left 

0185 

004A 

02P1 

decf sz 

count 

8  bits  done? 

0186 

004B 

0A45 

goto 

TXLP 

no  -  go  again 

0187 

004C 

0936 

call 

BITIN 

read  ack  bit 

0188 

004D 

06EA 

btfsc 

eeprcoi,  di 

check  ack  bit 

0189 

004E 

0525 

iMti  ■     port^a,a<dc£       ;  set  acknowledge  fail  LED  if  the 

0190 

;  device  did  not  pull  data  low 

0191 

0192 

004F 

0800 

tetlw 

0193 

'J  »«i  It  .  *v       -  . 

0194 

********  **************************************alri*i^:»*iieiN^*^#******* 

0195 

Receive  data  Routine 

0196 

This  routine  reads  one  byte  of  data  from  the  part 

0197 

into  the  *datai'  register.     It  then  sends  a  high 

0198 

ack  bit  to  indicate  that  no  more  data  is  to  be  read 

0199 

******************************  *******^»***j^********************** 

0200 

RX  ■ 

0201 

0050 

0C08 

no«-Iw     .8                     ;  set  #  bits  to  8  - 

0202 

0051 

0031 

movwf  count 

0203 

0052 

006D 

clrf        datai                   ;  clear  input  register 

0204 

0053 

0403 

bcf          status, 0              ;  make  sure  carry  bit  is  low 
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.           *            btttaili  t4««V  • 

Line 

PC 

Opcode 

0205 

0054 

036D  RXLP 

rlf         datai                  ;  rotate  datai  I  tait.  left 

0206 

0055 

0936 

call         BITIN                     ;   read  a  bit 

0207 

0056 

06EA 

btfsc  eeprom,di 

0208 

0057 

OSOD 

bsf          datai, 0                ;   set  bit  0  if  necessary 

0209 

00S8 

02F1 

decfsz    eoun&jan:  sjok  :   ;  8  bits  -done? 

0210 

0059 

0A54 

goto       RXLP                   ;  no,  do  another 

0211 

005A 

0800 

retlw  0 

0212 

0213 

**************************************************************** 

0214 

Power  up  routine 

0215 

This  is  the  program  entry  point,  which  in  this  case  sinply 

0216 

sets  the  port_a  I/O  lines  and  directs  contreil  to  fehe 

0217 

Read  routine. 

0218 

******************************************.*«****»*tK^#44h*#******* 

0219 

PMRUP 

0220 

005B 

ocoo 

movlw    b' 00000000' 

022 1 

005C 

0005 

tris      port_a                 ;  set  port  A  as  all  output 

0222 

005D 

0065 

clrf      port_a                ;  all  output  lines  low 

0223 

005E 

0A5P 

0224 

0225 

0226 

***************************************  ***»****♦****#♦******** 

0227 

READ  (sequential  read  routine) 

0228 

0229 

This  routine  reads  8  consecutive  addresses  of  the 

0230 

serial  EE  device  starting  at  address  00  in  the 

0231 

sequential  read  mode.  Reading  in  this  mode  is  more 

0232 

efficient  than  the  random  read  mode  as  the  control  byte 

0233 

and  address  have  to  be  sent  only  once  at  the  beginning 

0234 

of  the  sequence.    As  many  consecutive  addresses  as 

0235 

needed  can  then  be  read  from  the  part  until  a  stc^  bit  is 

0236 

sent.    In  the  read  mode,  the  PIC16C54  must  send  the  acknowledge 

0237 

bit  after  every  8  data  bits  from  the  device.    When  the 

0238 

last  byte  needed  has  been  read,  then  the  controller  will 

0239 

send  a  high  acknowledge  bit  and  then  a  stop  bit  to  halt 

0240 

transmission  frffln  the  device. 

0241 

*************************************************************** 

0242 

1 

0243 

0244 

005P 

0425 

bcf         port_a,a^£  ;  clear  the  a^  fall  LED  if  on 

0245 

0060 

0C08 

movlw      .  8 

0246 

0061 

0032 

movwf     bcount          ;  set  nioiber  of  Ivtes  to  read  as  8 

0247 

0062 

OCAO 

novlw     b' 10100000'  ;  set  slave  address  and  mite  mode 

0248 

0063 

a02F 

0249 

0064 

006C 

eiyt       MiKbe             ;  set  starting  adi&ess  to  00 

0250 

0251 

0065 

0901 

call         BSTART             ;   generate  start  bit 

0252 

0066 

C  2  OF 

rrovf        slave, v;          r  get  slave  address 

9m 


0253 

0067 

0030 

novwf 

^nl^o   t"f"j>ntsnnn j'f*  Vnif^Aiv* 

0254 

0068 

0943 

call 

tx 

and  send  it 

0255 

0069 

02  OC 

movf 

addr ,w 

get  word  address 
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Line 

PC 

Opcode 

0256 

006A 

0030 

novwf 

txbtir 

into  traxlsmit  buffer 

0257 

006B 

0943 

Gall 

TX 

and  send  it 

0258 

006c 

0901 

call 

B START 

genefate  start  bit 

0259 

006D 

OCAl 

movlw 

b'  10100001 ' 

get  slave  address  and  read  abde 

0260 

00  6E 

0030 

movwf 

txbuf 

into  transmit  buffer 

0261 

006F 

0943 

call 

TX 

and  transmit  it 

0262 

0263 

0070 

0950  rbyte 

call 

RX 

read  1  byte  from  device 

0264 

0071 

02F2 

decfsz 

bcoiint 

are  all  8  bytes  read? 

0265 

0072 

0A77 

goto 

lowack 

no,  send  low  ack  a&d  iSto  vaibthBX- 

0266 

0073 

05CA 

bsf 

eeprom , do 

yes ,   send  high  ack  bit 

0267 

0074 

0928 

call 

B I TOUT 

to  stop  transmission 

0268 

0075 

0916 

call 

BSTOP 

and  send  a  stop  bit 

0269 

0076 

OASF 

goto 

RBAD 

st£u:t  all  over 

0270 

0271 

0077 

04CA  lowack 

bc£ 

eepircoif  do 

send  low  ack  bit 

0272 

0078 

0928 

call 

BITOOT-  ■ 

to  coxitinue  trcuismission 

0273 

0079 

0A70 

goto 

f]ayt« 

and  reaA  another  byte 

0274 

0275 

0000  END 

8-52 


^^^^  -iMSf'l  <?<»x\«« 
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Using  the  24XX65  and  24XX32  with  Stand  Alone  PIC16C54  Code 


USING  THE  SMART  SERIAL™ SERIES 

With  the  advent  of  CMOS  silicon  devices  came  the 
battery  powered  application.  The  battery  powered  appli- 
cation required  more  functionality  and  thus  more  power 
from  the  microcontroller  which  required  more  power 
from  the  batteries  which  cost  more.  Just  as  nature  has 
a  definite  cycle,  so  it  seems,  does  the  portsUale  appiica- 
0on.  Nowhere  has  this  been  more  evident  than  in  tlie 
areas  of  personal  communication  and  data  acquisition. 
Never  before  in  the  history  of  the  industrial  revolution 
have  the  type  of  applications  seen  emerging  today  been 
possible.  Every  man-made  object  that  requires  human 
or  machine  interface,  has  the  potential  to  be  controlled 
by  embedded  cin^its  and  to  be  powered  by  the  ad- 
vanced technology  batteries  available  today.  Along  with 
this  increased  functionality  comes  the  requirement  for 
MORE  MEMORY.  More  in  asmaflerpackage,  at  a  better 
price  requiring  less  power.  The  majority  of  the  hand-held 
embedded  applications  either  use  what  little  non-volatile 
memory  that  is  available  on  the  controllers  or  they  use 
external  devices.  Parallel  EEPROMs  require  too  many 
VO  connects,  which  is  the  major  source  of  device  active 
current.  Serial  EEPROMs  are  typically  the  answer  for 
these  Eipplications  and  the  Industry  standard  [Ki™  is  the 
industry  leader  (>70  %  worldwide).  The  I^C  standard 
specifies  a  maximum  1 6K  bit  address  space.  How  does 
the  personal  communications  system  designer,  who 
requires  more  memoty,  solve  this  problem? 

THE  PC  DILEMMA 

The  PC  serial  bus  has  many  advantages  over  other 
common  serial  interfaces  for  serial  embedded  devices. 
The  I^C  bus  with  level-triggered  inputs  offers  better  noise 
immunity  over  edge  triggered  technology.  Opcodes  are 
not  needed  to  communicate  with  storage  devices  be- 
cause all  interfaces  are  intuitive  and  comparable  to 
parallel  devices.  The  I^C  protocol  assigns  a  slave  ad- 
dressforeachuniquedeviceordevicefamily.  Microchip 
Technology,  and  most  non-volatile  suppliers,  use  the 
slave  address  of  1010  for  serial  electrical  erasable 
pregrammable  read  only  memory  (Serial  EEPROM). 
The  protocol  also  facilitates  up  to  a  maximum  of  16K 
bytes  of  memory  on  the  bus  via  the  8-bit  address  and  the 
three  device  or  memory  block  select  pins  AO,  A1 ,  and 
A2.  Herein  lies  the  dilemma:  withthe  advent  of  the  more 
aQplMicated  personal  communication  devices  such  as 
caUularandifullfeatUFed  phones,  personal  digttalieffisis* 
tantsandptdm-topoompiitMs,  1 6K  bytes  isnot  enough) 


Smart  Serial  Products 

The  Smart  Serial  concept  grew  from  the  industry  need 
for  increased  memoTy  requirements  in  PC  embedded 
applications,  smarter  endurance  performance,  security 
needs,  and  the  need  for  more  functionality  at  lower 
power  demands.  Oun'ently,  Microchip  Technology  Inc. 
has  the  24XX65  and  24XX32  devices  available.  All 
comments  inttiis  application  note  pertain  primarily  to  the 
giSOOBSMiMMMMnes  and  general  aniiitectuFal  com- 
inl^»iii|##t<i%4XX32  as  well. 

The  user  should  reference  the  Individual  data  sheets  for 
specific  differences. 

The  Microchip  24XX65  Is  a  serial  memory  device  with 
64K  bits  (8Kx8)  capacity  and  additional  patent  pending 
unique  features  not  found  any  where  else.  First  let's  look 
at  the  current  1^0  addressing  scheme,  the  cascadable 
solution,  and  finally  the  Microchip  total  embedded  sys- 
tems solution. 

PC  ADDRESSING 

The  PC  protocol  utilizes  a  master/slave  bi-directional 
communication  bus.  The  master,  usually  a  microcon- 
troller, which  controls  the  bus,  generates  the  serial  clock 
(SCL)  and  originates  the  start  and  stop  conditions.  A 
Serial  EEPROM  is  considered  a  slave  device  and  is 
defined  as  a  transmitter  during  read  opetatkxis  and 
generates  2K:knowledges  when  receiving  data  from  the 
master.  The  start  and  stop  bits  are  utilized  to  control  the 
bus.  NorrmI  operatton  begins  with  a  start  bit  and  ends 
wNhastopbit.  Following  a  start,  commands  be{^  with 
an  8  bK  'control'  byte  originated  by  the  ttiaster.  The 
control  byte  identifies  the  slave  device  to  be  addressed 
and  defines  the  operatkxi  to  take  place.  A  typnai  control 
byte  for  a  Serial  EEPROM  (slave  address  =  1010)  is 
shown  in  Figure  1 .  The  control  byte,  therefore,  consists 
of  a  start  bit,  afour-bit  slave  address,  a  read/Write  bit  and 
an  acknowledge.  The  slave  address  consists  of  the 
1010  Identifying  address  plus  the  three  bk>ck  or  chip 
sele^bits. 


Using  the  24XX65  and  24XX32 


FIGURE  1  -  CONTROL  BYTE 
ALLOCATION 


START  READAVRITE 

SLAVE  ADDRESS 
1      1      1      1      1  1 

RW 

A 

/ 

/ 

/ 

\ 

\ 

\ 

\ 

\ 

1        0        1        0       B2  B1 

BO 

AU  menwiy  and  pariphstal.  devices  on  the  1%  bus 
confonn  to  this  sequence  for  identificatk>n  and  selection. 
There  are  1 28  assigned  slave  addressesin  the  stantdaid 
protocol.  There  is  a  10-bit  extension  to  the  protocol  for 
1024  additional  slave  addresses. 

THE  CASCADABLE  SOLUTION 

Cascading  is  an  addressing  scheme  used  in  thie  24164 
(2Kx8  SEEPROM)  to  enable  using  more  tlian  the  16K 
limit  set  forth  by  the  standard.  In  this  method  the  AO,  A1 , 
and  A2  pins  are  mapped  into  bits  2,3,  and  4  of  the  8-bit 
slave  address.  This  approach  allows  the  system  de- 
signer to  use  the  non-standard  24164  to  Increase  the 
total  memory  of  a  given  memory  subsystem.  This  solu- 
tion is  definitely  wor1<able,  but  does  not  offer  the  user  the 
system  design  flexibility  needed  for  the  newer  and  more 
complex  systems.  Most  system  architects  would  prefer 
to  have  a  linear  address  space  for  program  and  data 
memory.  Programmers  also  find  the  linear  solution  more 
attractive.  The  overhead  required  for  l}ank  switching 
and  chip  selection  usually  requires  additional  ovartiead 
and  hardware. 

THE  ULTIMATE  SOLUTION  BY 
MICROCHIP 

Microchip  Technology  has  designed  an  addressing 
scheme  based  on  the  standard  I^C  protocol  and  device 
addresses  but  incorporating  an  additional  address  byte 
for  enabling  the  designer  to  use  up  to  256K  bits  per 
device  and  add  from  1  to  8  devices  on  the  system  bus. 
This  flexibility  allows  for  future  memory  expansion  and 
more  advanced  features  in  a  smaller,  more  cost  effec- 
tive, design.  This  enhanced  addressing  combined  with 
the  many  advanced  and  patent  pending  features  of  the 
24XX65  make  the  24XX65  an  exciting  and  innovative 
devk:e.  It  is  the  first  in  a  family  of  sophisticated  Smart 
Serial  EEPROMs  from  Microchip  Technotogy  Inc. 


24)affi5  Feabires 

The  24XX65  has  an  advanced  architecture  with  the 
following  features: 

•  1 5-bit,  2-byte  address  field  (1 4  bit  for  the  24XX32) 

•  4K-bft  High  Enchirance  Block  - 1  Million  BW  cycles 
typkal  (Fixed  at  the  last  4k  bit  bk>ck  in  the  array) 

•  Programmable  write  protect  security  features  with  up 

to  a  15  blocks  of  4K  bits 

•  8  byte  by  8  line  input  write  cache  for  PC  Fast  Mode, 
burst  mode  capability,  and  use  as  a  capture  buffer 

24XX65  Addressing 

For  the  first  byte  or  control  byte,  the  24XX65  adheres  to 
the  \Ki  protocol  (reference  Figure  2).  This  isthefirst  byte 
received  following  the  start  conditnn  from  the  master 
device.  The  control  byte  consists  of  a  four-bit  control 
code  for  the  24XX65  (this  is  assigned  as  1 01 0  binary  for 
read  and  write  operatkins).  The  next  thr^  btts  of  the 
control  byte  are  the  device  select  bits  (A2,A1,  AO).  They 
are  used  by  the  master  device  to  select  which  of  the  eight 
devices  are  to  be  accessed.  These  bits  are  in  effectttw 
three  most  significant  bits  of  the  word  address.  The  last 
bit  of  the  control  byte  defines  the  operatton  to  be  per- 
formed. When  set  to  a  "1 "  a  read  operation  is  selected, 
when  set  to  a  "0"  a  write  operation  is  selected.  The  least 
significant  1 3  bits  of  the  next  2  bytes  define  the  address 
of  the  first  byte  within  the  8K  block.  The  most  significant 
byte  is  transferred  first.  Following  the  start  condition,  the 
24XX65  monitors  the  SDA  bus,  checking  the  device  type 
identifier  being  transmitted,  upon  receiving  a  1010  code 
and  appropriate  device  select  bits,  the  slave  device 
outputs  an  acknowledge  signal  on  the  SOA  line.  De- 
pending on  the  state  of  the  R/W  bit,  the  24}0C65  will 
select  a  read  or  write  operation. 

The  addressing  scheme  uses  the  standard  first  byte 
slave  address  fomnat  of  the  PC  standard  with  the 
Mterochip  Technology-assigned  1010  slave  address. 
The  internal  bus  controller  scans  the  next  byte  for  bit  7 
to  be  asserted  indicating  that  a  security  operation  is  to 
take  place.  This  will  be  further  explained  later.  The 
remainder  of  the  byte  is  composed  of  the  most  signifi- 
cant address  bits.  The  next  byte  is  the  least  significant 
address  byte.  See  Figure  2  for  graphical  representation 
of  this  sequence.  After  receiving  a  valid  2  byte  address 
and  a  stop  bit,  the  24XX65  will  process  this  address 
according  to  bit  '0"  of  the  control  byte  and  either  wait  for 
data  to  be  written,  if  in  a  write  sequence,  or  present  the 
requested  data  if  in  a  read  sequence. 

ADVANCED  FEATURES 

Programmable  security 

The  24XX65  has  a  sophistKated  security  mechan  ism  by 
which  selected  blocks  of  memory  may  be  write  protected 
by  the  user.  The  write  sequence  includes  a  bit  for 
enabling  the  security  protectton  scheme,  bit  7  of  ttie  first 
address  byte.  When  this  bit  is  set  to  a  one,  the  first  byte 


e  tmt.liH«ochir:iaetneid|^^Jri& 


following  the  address  during  a  write  sequence  defines 
the  security  block.  Thlsincludesapointertottiestarting 
4K  block  to  be  protected  (the  write  address),  a  write/ 
erase  flag,  and  a  non-zero  four  bit  code  for  determining 
the  number  of  4K  bkxdcs  to  protect  up  to  the  maximum 
of  1 5  (60K) .  The  4K  blocks  must  be  contiguous.  The  high 
endurance  block  cannot  be  protected.  In  a  nomial  appli- 
cation the  security  block  or  blocks  would  be  set  after  all 
code  or  look-up  table  data  has  been  finalized.  THIS 
OPERATION  CAN  ONLY  BE  PERFORMED  ONCE. 
(See  Figures  2  and  3.) 

Total  Endurance™ 

When  defining  endurance,  we  need  to  iool<  at  a  few 
common  definitions  and  possible  misconceptions.  En- 
durance with  respect  to  EEPROMs  is  defined  in  number 
of  Erase/Write  (EAV)  Cycles  and  is  the  most  common 
rating  referred  to  when  discussing  or  specifying  endur- 
ance. E/W  ratings  are  based  on  the  environmental  and 
operating  conditions  of  voltage,  temperature,  cycling 
mode  and  rate,  for  each  byte  in  the  application,  not  on 
the  number  of  opcodes  or  control  byte  commands,  and 
is  never  based  on  any  read  functions  whether  they  be  a 
data  read  or  configuration  read,  if  a  part  is  rated  at  100K 
E/Weyclej8y||}gOj^.jiyi|yldMtft^^ 


written  1t9,ipD<tiniiife  Ttis  is  probably  the  mo«f  e«p^ 
mon  nnsinteiprelaUon  made  by  system  designers.  En- 
dMiancals  tttus  art  inteiactive  applicalion-specffk;  reOr. 
labiHty  parameter.  It  is  not  a  typical  data  sheet  specifna- 
tion,  such  as  a  patametric  AC/DC  specifkadkxi  with 
Mnchmaik  standards  for  measurBnrient.Mk:nx:hip  has 
pone  extensive  predictive  labonatoiy  studies  on  Micro- 
;^|p  2-  and  3-wire  Serial  EEPROMs.  Applying  the  pre- 
dictive data  from  ttie  24I.C04B,  whkdi  has  ^Har  d|ur- 
acterlstws,  to  ttie  4K  high  endurance  bk>ck  and  assum- 
ing thyfottmi^: 

•  a  five-year  life  for  a  personal  communication  devKM 

•  an  expected  E/W  cycles  of  10  times  per  day 

•  aiastnumbWijiidlgi^inpVonsaf  11  bytes 

Operatk>nal  specifications: 


Device 
Voltage 

Byte^Cycle 
E/W/Day 
App.  Life  (Yr.) 
Cycling  Mode 
Data  Pattern 


24XX65 
5 

25  C 
11 
10 
5 

BYTE 
RANDOM 


mmmB  2  -  oimROL  byte  allocation 


START 


REAEVWRITE 


\ 


1     1     1     1     1  1 

SLAVE  ADDRESS 


R/W 

A 

1 

0 

1 

0 

A2 

A1 

AO 

The  4K  HE  bk>ck  with  1  M  E/W  cycles  typnal,  in  this 
appTtcatun,  shouM  yiekl  the  folk>wing  results: 


FIT 

PPM 

Time 

Write  cycles 


1.0 
6 

5.0 

18,250 


RCSURE  3  -  BYTE  WRITE 


BUS  ACTIVITY: 
MASTER 

SOA  LlfME 

BUS  ACTIVITY 


S 
T 
A 
R 

Tr 


CONTROL 
BYTE 

 /\  


WORD 
ADDRESS  (1) 

,  A  1_, 


WORD 
ADDRESS 

,  /\  , 


DATA 

 A  


s 

T 
O 


I  I  I  I  I  I  I 


I  I  I  I  I  II 
I  I  I  I  1  J  I 


A 

0 
K 


A 

C 
K 


A 

G 
K 
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D 


A 
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FIGURE  4  -  PPM  RATE  rN  MILLIONS  OF 
CYCLES 


0.000       a005         0.010         0.015  0.020 


The  results  shown  are  predictive  in  nature  and  should 
reflect  an  accurate  representation  of  the  expected  re- 
sults. For  a  more  detailed  description  of  endurance  see 
the  related  application  notes  AN537  and  AN562  con- 
tained in  this  volume.  (See  Figure  4.) 

64  Byte  Write  Cache 

The  cache  is  arranged  in  8-byte  pages  by  8  lines  each. 
This  yields  a  total  of  64  bytes.  The  interface  to  the 
24XX65  supports  both  the  standard  lOOKHz  mode  and 
FAST  mode  at  400KHz.  The  input  cache  can  therefore 
support  a  burst  write  option  of  up  to  64  bytes.  When 
using  the  I^C  protocol,  an  end  of  a  page  is  defined  by  the 
transmission  of  a  stop  bit  by  the  master.  This  sequence 
in  the  24XX65  could  be  used  to  define  pages  from  8  to 
64  bytes  in  length .  The  8  byte  by  8  line  cache  will  roll  over 
if  a  write  is  attempted  past  byte  8  of  line  8,  thus  it  can  be 


used  as  a64  byte  capture  or  snapshot  buffer.  Each  line 
is  over  written  during  a  subsequent  write  to  the  same 
line.  Faster  memory  and  controller  interfaces  will 
become  increasingly  important  in  applications  incorpo- 
rating the  ACCESS.bus"  irrterface  standard. 

Power  IVIanagement 

Increasingly,  power  management  is  becoming  a  pre- 
dominant requirement  for  hand-held  devices  where  a 
limited  amount  of  power  is  available  from  the  total  power 
budget  for  a  particular  function.  The  24XX65  has  built- 
in  power  saving  features  such  that  the  entire  device  is 
put  into  standby  mode  upon  receiving  a  stop  bit  or  an 
abort  when  in  a  read  sequence,  and  after  the  completion 
of  writing  the  data  in  the  cache  lines  to  the  array  when  in 
an  erase/write  sequence.  When  the  device  is  in  standby 
mode,  the  only  active  circuit  is  the  input  circuit  forthe  I^C 
clock.  This  yields  a  standby  current  that  is  the  current 
consumption  of  this  lone  input  and  the  normal  leakage 
current  of  the  silicon  and  typically  will  be  less  than  2  (lA. 

The  24XX65  is  the  first  device  available  in  the  Smart 
Serial  product  line.  The  features  and  capabilities  initi- 
ated with  this  device  will  become  standard  on  all  future 
Mk:rochip  Technotogy  inc.  serials  and  some  features 
Will  bii)  'cfi>iM^.  su'dl\'ks'«fe  sitet<M$''ipfQi^.'"' ' ' 

Appendx  A  of  this  application  note  contains  the  required 
PIC16C54,  assembly  roufines  for  s^THng  the  security 
function.^idre^singthe  Srrart  Seiialdeyjci^arid  using 
the  most  common  addressing,  reaKi,  write,  and  data 

polling  functions  for  the  PC  bus. 

All  of  the  list  programs  are  complete  stand-alone  pro- 
grams. 


Authors:     Rkhard  J.  Fisher 

Memory  Products  Division 

Bruce  Neglejfi  i  i       *  :  •  : 
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H6URE  S  -  CACHE  WWri 


DATA  STARTING)  AT  BYTE  ZERO  ON  A  PAGE 
BOUNDARY  AND  WRTTING  64  BYTES 


Page  Cache  8  Byte  xS 


Page  0  bytes  0-7 


Page  1  bytes  %15 


Page2  bytes  16-23 


Page  3  bytes  24-31 


Page  4  bytes  32-39 


Page  5  bytes  40-47 


Page  6ibytas  46-55 


Page  7  bytes  5fr63 


.alii ^ RMS .  Jt>»£>. - 


DATA  STARTING  AT  BYTE  THREE  OF  A  PAGE 
BOUNDARY  AND  WRITING  64  BYTES  (3  LSB=0011) 


NOTE:  IF  THE  CACHE  IS  WRITTEN  TO  PAST  THE  ^ 
84TH  BYTE,  IT  WILL  ROLL  OVER  TO  BYTE  0  ^ 
OF  THE  FIRST  PAGE  WRfTTEN:  


Lflading     ^  ^ 
Hoe  y  X 


BYTEO 

BYTE  1 

BYTE  2 

BYTES 

BYTE 

61-63 

BYTE  60 

Cache 
Rolls 
Oier 


PO 


PI 

P2 

R3 

P» 

P5 

P8 

P7 

Pages  0-7  of  Ihe 
Firat4KBIook 


BYTE  61 
BYTEO 

BYTE  62 
BYTE1 

BYTE  63 
BYTE  2 

BYTES. 

BYTE  60 

> 

d9!l 
ctbO 

rI3& 


uee  iSTTSii 


a/pm 


•rc! 


»«7 
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Line      PC       Opcode  '  '  : ,      i.' ...liV  v,V..'r'jO ' 

0001  LIST  P=16C54,c=132 

QQQ2  ,************************************************************•  ■  \ .     M'y;. .  ■ 

0003  •          ;  64K  Byte  Read  Program  (138  bytes)  -        -  - 

0004 

0005  ;  This  program  demonstrates  how  to  interface  a  ' 

0006  ;  Microchip  PIC16C54  to  a  24XX32/65  Serial  EE  device  .  .  _. 

0007  ;  and  perform  a  random  read  operation.  This  program  

0008  ;  will  read  8  consecutive  addresses  in  the  'random 

0009  ;  read'  mode.     This  entails  setting  the  address  pointer 

0010    before  doing  the  read  command  for  each  address.  .  ... 

0011  ;  ,  II 

0012  ;  Another,  more  efficient  method  of  readihg  consecutive 

0013  addresses  is  the  'sequential  read'  mode.     This  involves 

0014  ;  sending  the  control  byte  and  address  for  the  first  b/te 

0015  ^ _  to  read,  then  continuing  to  provide  clocks  for  the  next 
'0016  ;  addresses.     The  device  will  automatically  increment  the 

0017  address.    An  example  of  the  sequential  read  mode  is 

0018  ;  provided  in  the  '641cseqr.«s>ii'  file.  ,„  -  , 
,0019  f  ^  ■  -r^ 

0020  I     ~  Ttantnff  Is  based  on  using  the  PIC16C54  in  "XT'  mode 

0021  ;  using  a  410iz  crystal.    Clock  speeds  to  the  serial  EE 

0022  ;  will  be  approximately  60  kHz  for  this  setup. 

0023  ; 

0024  ;  As  an  option,   the  user  may  connect  a  LED  to  pin  18 

0025  '  ;  on  the  PIC16CS4  (use  about  a  IK  resistor  in  series)  as  an 

0026  ;  acknowledge  fail  indicator.    This  LBD  will  ccane  on  if 

0027  ;  the-  serial-       fa-ils  to  acknowledge  correctly. 

0028  ;  tS-*    i.Vi  '  (jia'-: 

0029                         .   ;  PIC16C54  to  Serial  EE  Connections:  ____________ 

0030  [  ~  -       -  -  -..  " 

0031  ;  P1C1SCS4  Serial  EE 

0032  I                   1  "     

0033  ,'  ;  Pin  12   (RB6)  ->  SCLK 

0034   .    Pin  13   (RB7)  ->  SDATA 

0035  ;  ' 

0036  ;  Ka>)  18  imXy        lAoknowledge  fail  LED  (Optional) 

0037  -  - 
0038 

0039  ,jt.**************************************************«*#*fWI*ft**^:-i  c.:;'"1 

0040  ;  Register  Definitions 

0041  .***!#,*******************«;************************************ 

0042  0003    status  e^~      63h  ;  status  registefr 

0043  0005    port_a  e^       05b  ;  port  5  (port  a)  used  for  IiED  di^l^ 

0044  0006    port_>  e^       06h  ;  port  6   (port  b)  used  for  data  and 

0045  ;  clock  lines 

0046  OOOA    eeprom  equ        Oah  ;  bit  buffer  i  yft  'n 

0047  OOOB    faycnt  equ       Obh  ;  byte  counter  for  read  mode  | 

0048  OOOC    addr  equ       Och  ;  Vford  0  address  counter  |  i 

0049  OOOD    datal  eqa       Odh  ;  data  input  register  "   

0050  OOOE    datao  ;  data  output  register 

.  0051  OOOF    slave  i^j^       Mi         j  device  addceps  lOlOxxxO) 

16c5x/7x  Cross-AssenA>ler  V4.12  Il*l«aiWn   WM  ok^lO:49i27  1994    Page  2 

hirns —  ^ycode —  -  -  _  _  _  _   . — 

0052  0010    txtnif  equ        lOh  ;  transmit  buffer 

0053  0011    count  equ        llh  ;  bit  counter 

0054  0012    bcount  equ        12h  ;  byte  counter 

0055  0015     loops  equ        15h  ;  delay  loop  counter 

0056  0016     loops2  equ        16h  ;  delay  loop  counter 

0057  0017    addrl  eep       'WA,  !  word  1  address  counter 

0058  . ************************************************************ 
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0059 

0060 

0061 

0007 

di 

7 

e^ront  input  bit  iviu 

0062 

0006 

do 

0063 

0007 

sdata 

equ  7 

serial  EE  data  line  Cport_b,pin  13) 

0064 

0006 

sclk 

equ       6  ; 

serial  EE  clock  line  {port_b,pin  12) 

0065 

0001 

ac]c£ 

ecifa       1  .  ; 

acknowledge  £ail  IMi  (EiQrt_a) 

0066 

*'******* 

0067 

0068 

0000 

•\>I  ae  ■■ 

org  Olffh 

:-s6t  r^6t  vector 

0069 

OlFF 

0A6B 

goto  PWRUP 

u 

OU  /X 

0072 

? 

0073 

0074 

DELAY  ROUTINE 

0075 

This  routine  takes  the  value  in  'loops' 

0076 

and  multiplies  it  times  1  millisecond  to 

0077 

detersaine  delay  tijae. 

0078 

************************************************************* 

0079 

0080 

0081 

0001 

0C6E 

top 

movlw  .110 

timing  adjustment  variable 

0082 

0002 

0036 

movwf  loops2 

0083 

0003 

0000 

top2 

nop 

sit  and  wait 

0084 

0004 

0000 

nop 

0085 

0005 

0000 

nop 

0086 

0006 

0000 

nop 

K  ■ 

0087 

0007 

0000 

nop 

Q088 

0008 

0000 

nop 

0089 

0009 

02F6 

decfsz  loops2 

inner  loops  coB!|pl#tse?                                    i  t  t :) 

0090 

OOOA 

OA03 

goto  top2 

no,  go  again 

0091 

0092 

00  OB 

02F5 

decfsz  loops 

outer  loops  coir^lete? 

0093 

OOOC 

OJWl 

0094 

GOOD 

0800 

retlw  0 

yes,  refeua^  frotti  stzb 

0096 

********  ****!(«********* 

********  ******************************* 

0097 

start  Bit  Subroutine 

009$ 

this  routine  generates  a 

start  bit 

omsf 

(Low  going  data 

line  while  clock  is  high) 

***********i****«*****.*****************;*^*.*****.***(*  ************ 

0i61 

*  • 

rr-    ■  - 

0102 

BSTART 
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pe 

Opcode 

0103 

OOOE 

05E6 

0104 

OOOP 

0C3P 

movlw 

b'OOllllll' 

0105 

0010 

0006 

tris 

port_b 

;  set  data  and  clock  lines  for 

0106 

0011 

04C6 

bcf 

port_b, sclk 

;  make  sure  clock  is  low 

0107 

0012 

0000 

v»  nop 

0108 

0013 

05C6 

bsf 

port_b, sclk 

;  set  clock  high 

0109 

0014 

0000 

oae 

0110 

0015 

0000 

'rtep 

0111 

0016 

0000 

nop 

0112 

0017 

0000 

nop 

0113 

0018 

0000 

n<^ 

0114 

0019 

04E6 

bcf 

port_j3«  sdata 

;  data  line  goes  low  during 

0115 

;  high  clock  for  start  bit 

0116 

OOIA 

0000 

nap  - 

0117 

OOIB 

0000 

nop 

0118 

OOlC 

0000 

0119 

OOID 

0000 

wsp  ■ 

0120 

OOIE 

0000 

nop 

0121 

OOIF 

04C6 

bcf 

port^,  sellc 

•  sSaale  elodc  tzain 

0122 

0020 

0000 

nop 

0123 

0021 

0000 

nap 

0124 

0022 

0800 

retlw  '  • 

0125 

0126 

.  iciiit**********  ***********  **********iH^****  ******************** 

0127 

';-  .            Stop  Bit 

Subroutine 

0128 

-1     ■  ^       This  routine  generates 

a  stop  bit 

0129 

(High  going  data  line  while  clock  is  high) 

0130 
0131 

BSTOP 

0132 

0023 

04Be> 

.1i»'wn}ro  sure  data  1-ine  is  low 

0133 

0024 

0C3P 

0134 

0025 

0006 

0135 

0026 

04E6 

S  ''SS0SBt  0ilSSV'iSl0iti' .'itSl^t&  jail  tShAV 

0136 

0027 

0000 

nop 

0137 

0028 

0000 

nop 

0138 

0029 

0000 

nop 

013? 

002A 

05C6 

bsf 

port_J),8Gl3c 

J  set  cloc^  high  « 

0140 

002B 

oooo 

nop 

0141 

002C 

0000 

0142 

002D 

0000 

0143 

002E 

05E6 

bsf 

;  data  goes  high  vdiile  clock  high 

0144 

t  for  st^  bit 

0145 

002F 

0000 

nop 

0146 

0030 

0000 

nop 

0147 

0031 

04C6 

bcf 

port_j3,sclk 

;  set  clock  low  again 

0148 

0032 

0000 

0149 

0033 

0000 

nop 

0150 

0034 

0000 

nop 

0151 

0035 

0800 

r«tlw 

0 

0152 

0153 
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0154 

! 

BITOUT 

routine  takes  the  bit  of  data  in  *do'  and 

0155 

trattsmlta  it  to  tlie  serial  EE  device 

0156 

. ************************************************************* 

0157 

BITODT 

0158 

0036 

0C3P 

novlw 

b'OOllllll' 

;  set  data, clock  as  outputs 

0159 

0037 

0006 

tris 

port_b 

0160 

0038 

07CA 

btfss 

eeproin,do 

;  check  for  state  of  data  bit  to  aonlt 

0161 

0039 

0A3C 

goto 

bi tlow 

;   low?  go  set  data  line  low 

0162 

003A 

05E6 

bsf 

port_b, sdata 

;  high?  set  data  line  high 

0163 

003B 

0A3D 

goto 

clkout 

,;  go  toggle  the  clock 

0164 

0165 

003C 

04B6 

bitlcw 

bcf 

port^,  sdata 

;  output  a  low  bit  h 

0166 

003D 

05C6 

clkoat 

tmt. 

J  set  clock  line 

0167 

003E 

0000 

-'<■  '■  d 

0168 

003P 

ocoo 

nop 

0169 

0040 

0000 

nop 

0170 

0041 

0000 

uop 

0171 

0042 

04C6 

bcf 

portJ»r«cXk 

1  return  clock  L-ine  low 

0172 

0043 

osoo 

retlw 

0 

0173 

0174 

J  ************************************************************** 

0175 

BITIN  routine  reads  one 

bit  of  data  from  the 

0176 

serial 

EE  device  and  stores  it  in  the  bit  'di' 

0177 

,******* 

*********************** 

ii******************************* 

017S 

BITIM 

0179 

0044 

05EA 

bsf 

eeprom, di 

;  assiune  input  bit  is  high 

0180 

0045 

OCBF 

b'lOllllll' 

;  xnake  sdata  an  ii^ut  H^m^  ouoi 

0181 

0046 

0006 

tris 

portja 

0182 

0047 

05C6 

bsf 

portj3,sclk 

;  set  clock  line  hic^ 

0183 

0048 

0000 

nop 

;  just  sit  here  a  sec 

0184 

0049 

0000 

nop 

0185 

004A 

0000 

nop 

0186 

004B 

0000 

nop 
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0187 

004C 

0000 

8<?P 

0188 

004D 

07B6 

btf  gs  port Jii  s^ata 

read  the  data  bit                     ^  j 

0189 

ao4E 

04E& 

bcf         e^rom,  di 

input  bit  was  low,  set  'dl'  %^9rdiriely 

0190 

004F 

04e6 

bcf        port_>,  sclk 

set  clock  line  low 

0191 

0192 

0050 

OSOO 

retlw  0 

0193 

0194 

************************************************#*************** 

0195 

Transmit  Data  Subroutine 

0196 

This  routine  takes  the  byte  of  data  stored  in  the 

0197 

■datao'  register  and  transmits  it  to  the  serial  EE  device. 

0198 

It  will  then  send  1  more 

clock  to  the  serial  EE  for  the 

0199 

acknowledge  bit.     If  the 

ack  bit  from  the  part  was  low 

0200 

then  the  transmission  was  successful.     If  it  is  high,  then 

0201 

the  device  did  not  send  a  proper  aek  bit  and  W)0 

0202 

fail  LED  will  be  turned  on. 

0203 

0204 

Line 

PC 

Opcode 

0205 

0051 

0C08 

soov-lw 

.8 

0206 

0052 

0031 

movwf 

count 

set  the  tbits  to  8 

0207 

0208 

TXLP 

0209 

0053 

04CA 

bcf 

eeprom, do 

assume  bit  out  is  low 

0210 

0054 

06F0 

btfsc 

txbuf ,7 

is  bit  out  really  lc*j^^ : 

0211 

0055 

05CA 

bsf 

eepram, do 

no,  set  it  high 

0212 

0056 

0936 

call 

BITOOT 

send  the  bit  to  seri;a3L  1^ 

0213 

0057 

0370 

rlf 

txbuf 

rotate  txbuf  left 

0214 

0058 

02F1 

decfsz 

count 

8  bits  done? 

0215 

0059 

0A53 

,  goto 

TXLP 

no  -  go  again 

0216 

005A 

0944 

mil 

BIT  IN 

read  ack  bit 

0217 

005B 

06EA 

btfsc 

eeprom, di 

check  ack  bit 

0218 

005c 

0525 

bsf 

port_a, ackf 

set  acknowledge  fail  LED  if  the 

0219 

device  did  not  pull 

0220 

0221 

OOSD 

0800 

retlw 

0 

0222 

0223 

*************************************************  *  *********ic**ik* 

0224 

Receive 

data  routine 

0225 

^is  routine  reads  one  byte  of  data  from  the  part 

0226 

ijit©  the 

'datai'  register.     It  then  sends  a  high 

0227 

ack  bit 

to  indicate  that 

no  more  data  is  to  be  read 

0228 

.  *iei0ir^it*.it  It  ***********  ***it**.itii**  *************  ***** 

0229 

RX 

0230 

005E 

006D 

clrf 

datai 

clear  ii^ut  buffer 

0231 

005P 

0C08 

movlw 

.8 

set  #  bits  to  8 

0232 

0060 

0031 

movwf 

count 

0233 

0061 

0403 

bcf 

status, 0 

make  sure  carry  bit  is  low 

0234 

0062 

03  6D 

RXLP  rlf 

datai 

rotate  datai  1  bit  left 

0235 

0063 

0944 

.  @XTi^                 ;  read  a  bit 

0236 

0064 

06EA 

mtBc 

eeprcm, di 

0237 

0065 

050D 

bsf 

datai , 0 

■  set  M-t^  0  if  necessa^ 

0238 

0066 

02F1 

decfsz 

count 

8  httA  done? 

0239 

0067 

0A62 

goto 

RXLP 

no,  do  another 

0240 

0068 

05CA 

bsf 

eeprom, do 

set  ack  bit  =  1  , 

0241 

0069 

0936 

call 

BITOUT 

to  finish  transmission 

0242 

006A 

OSOO 

0243 

0244 

*************** 

************************************************* 

0245 

Power  up 

routine 

0246 

This  is 

the  program  entry  point.     I/O  line  status  is 

0247 

set  for 

port  A  here. 

0248 

**************************************************************** 

0249 

0250 

006B 

ocoo 

movlw 

b'OOOOOOOO' 

0251  006C     0005  tris       port_a  ;   set  port  A  as  all  output 

0252  006D    0065  olrf      port_a  ;  all  output  lines  low 

0253  .0068  '  goto  Kmo 

0254  ;  •       '  • 

0255  <  *************************  ********************  *********** 
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lilne 

PC 

Opcode 

0256 

READ  {read  routine) 

0257 

This  routine  reads  8  consecutive  addresses  e£  the 

0258 

serial  E 

E  device  starting  at  address  00  in  the 

0259 

random  access  mode   (non-sequential  read)  .  Reading 

0260 

the  device  using  the  random  access  mode 

0261 

requires 

that  the  address  pointer  be  set  for  every 

0262 

byte  before  the  read  takes  place.  The  address  pointer 

0263 

is  set  by  sending  a  'write  mode'  control  byte  with  the 

0264 

address 

of  the  location  to  read. 

0265 

0266 

READ 

0267 

0268 

006F 

0425 

bcf 

port_a, ackf 

clear  the  ack  fail  LED  if  on 

0269 

0070 

0C08 

movlw 

.8 

set  number  of  bytes  to  read  as  8 

0270 

0071 

0032 

movwf 

bcount 

0271 

0072 

0077 

clrf 

addrl 

set  starting  high  address  byte  to  00 

0272 

0073 

006C 

clrf 

addr 

set  starting  low  address  byte  to  00 

0273 

0274 

0074 

090B    rbyte  call 

BSTART 

generate  start  bit 

0275 

0276 

now  send  the  write  control  byte  and 

0277 

address  to  set  the  pointer 

0278 

0279 

0075 

OCAO 

movlw 

b'lOlOOOOO' 

get  slave  address  (write  mode) 

0280 

0076 

0030 

movwf 

txbuf 

into  transmit  buffer 

0281 

0077 

0951 

call 

TX 

and  send  it 

0282 

0078 

0217 

movf 

addrl , w 

get  word  1  address 

0283 

0079 

0030 

movwf 

txbuf 

into  transmit  buffer 

0284 

007A 

0951 

call 

TX 

and  send  it 

0285 

007B 

020C 

movf 

addr ,w 

get  word  0  address 

0286 

007c 

0030 

movwf 

txbuf 

into  transmit  buffer 

0287 

007D 

0951  ■ 

call 

TX 

and  send  it 

0288 

0289 

now  read  one  byte  from  the  part 

0290 

0291 

007E 

090E 

call 

BSTART 

generate  start  bit 

0292 

007F 

OCAl 

movlw 

b'lOlOOOOl ' 

get  slave  address  and  r^3'  IBO^ 

0293 

0080 

0030 

movwf 

txbuf 

into  transmit  buffer 

0294 

0081 

0951 

call 

XX 

and  transmit  it 

0295 

0082 

095E 

call 

RSt-  ■ 

read  1  byte  from  seltial  EE 

0296 

0083 

0923 

call 

BSTOP 

send  stop  bit  to  end  transmission 

0297 

0084 

02AC 

inof 

addr 

add  1  to  address  counter 

0298 

0085 

02F2 

decfsz 

bcdotft 

yeSf  are  all  8  bytes  read? 

0299 

0086 

0A74 

goto 

zfaytW 

no,  do  another  byte 

03O0 

0301 

0087 

OCPF 

smovlw' 

.255 

long  delay  for  scope 

0302 

0088 

0035 

movwf 

loops 

trigger  purposes  only 

0303 

0089 

0901 

call 

wait 

0304 

OOSA 

OAeF 

goto 

READ 

yes,  start  all  over 

0305 

0306 

0000  ] 

BHD 
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Line      PC        opeoap,  , ,  %»m1j*  .'Ov 

0001  LIST  P=16C54,c=132  jjf^,  p.i. 

0002  .******************************************  if^^^^^^g^^^^ijf^f^ 

0003  ;  64K  Byte  Write  Program  (127  bytes) 
9094  ; 

0005  ;  This  program  demonstrates  how  to  interface  a 

0006  ;  Microchip  PIC16G54  to  the  24XX32/6S  Serial  EE  device 

0007  ;  and  perform  a  byte  write  operation  on  8  consecutive 

0008  ;  addresses.  ,, 

0009  ;  - 

0010  ;  After  each  byte  is  written,   time  must  be  given  to  the 

0011  ;  device  for  it  to  complete  the  write  cycle  before 

0012  ;  the  next  command  can  be  sent.     The  easiest  solution 

0013  ;  is  to  consult  the  data  book  for  the  maximum  write 

0014  ;  cycle  time  and  just  wait  tha,t  long  before  the  next, 

0015  ,  -     -  .  ..•.ieMgHW^rM>^M>ti'41><tes  ■£em-J^fsi0iiiimii0f/i»^»0^i»^Si0iosi 

0016  ;  disWflSetaeSiia  that  soluticm.  TT-" 
0017 

0018  ;  Another,  more  efficient  method  of  determining  when  the 

0019  ;  write  cycle  is  complete  is  called  'data  polling. '  This 

0020  ;  ^^^^i^jgj^^rated  in  the  pr©sram  "64kdpoll.' 

0021  ; 

0022  ;  As  an  option,  the  user  may  connect  a  LED  to  pin  18 

0023  ;  on  the  PXC16C54  (use  about  a  IK  resistor-  in  series)  askj  ^n 

0024  ;  t(ol03iswledge  fail  indicator.     This  LED  will  ccoK!;  «m  ii:,3', 

0025  ;  tfesi  serial  EE  fails  to  acknowledge  correctly.  -oi,      .  , 
0026 

0027  ;  Timing  is  based  on  using  the  PIC16C54  in  *XT'  mode 

0028  ;  using  a  4MHz  crystal.     Clock  speeds  to  the  serial  EE 

0029  ;  .  will  be  aE^roximately  60  kHz  for  .  .this  setup. 

0030  ; 

0031  !  PIC16C54  to  Serial  EE  Connections!  -.u,, 

0032  ,  '  .     "  ' 

0033  ;  PIC16C54  Serial  EE 

0034  ;      .  i 

0035  ;  Pin  12   (RB6)  ->  SCLK 

0036  ;  Pin  13   CKB?)  ^  SDA95A 

0037  .  ...  ; 

0038  ;  PIN  18   (RAl)   ->     Acknowledge  fail  LED  (Optional) 
0039 

0040  .************************************************************ 

0041  ;  Register  Definitions 

0042  ; ************************************************************ 

0043  0005    port_a  eqa  5h         ;  port  5  (port_a)  used  for  LEDs  ^^^HII 

0044  0006    port_b  equ  6h         ;  port  6  (port  b)  used  for  dat-a  and 

0045  ;  clock  lines  .  H^*^^l 

0046  OOOA    eeprom  equ         Oah  ;  bit  buffer  ^Hj^^l 

0047  OOOB    bycnt  equ        Obh  ;  byte  counter  for  read  mode  ^^^^^H 

0048  0  0  DC    addr  equ        Och  ;  word  0  address  counter 

0049  OOOD    datai  equ        Odh  ;  data  input  register 

0050  OOOE    datao  equ        Oeb  ;.  data  output  r,egister  ^ 

0051  COOP    slave  eqii        Ofh  ;  dtevice  address  (lOlOxxjcpj 

16cSx/7x  Cross-Aasei*le£  lyfcesawafl  10:49:40  1994  f age  2  '■' 
Line      PC  CIpcade 

0052  0010    'tsiuf.  equ        lOh  ;   transmit  buffer 

0053  0011    count  equ        llh  ;  bit  counter 

0054  0012    boount  equ        12h  ;  byte  counter 

0055  0015    loops  equ        15h  ;  delay  loop  counter 

0056  0016     loops2  equ        16h  ;  delay  loop  counter 

0057  0017    addrl  equ        17h  ,-  word  1  address  counter  I 

0058  ; **********************  ************************************** 

0059  ;  Bit  Definitions 

0060  J************************************************************ 
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0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 


0003 
0004 
0005 


0007 

di 

equ 

7 

;   eeprom  input  bit 

0006 

do 

equ 

6 

;   eeprom  output  bit 

0007 

sdata 

equ 

7 

;   serial  EE  data  line   (port_b,pin  13) 

0006 

sclk 

equ 

6 

;  serial  EE  clock  line  (port_b,pin  12) 

0001 

ackf 

equ 

1 

;  acknowledge  fail  LED  (port_a,pis  18) 

'  .                    *********  ft  ********* 

0000 

org 

Olffh 

;  set  reset  vector 

0A5E 

goto 

PWRUP 

0000 

org 

OOOh 

CASE 

goto 

FHKOF 

************************************************************* 
DELAY  RODTINE 

This  routine  takes  the  value  in  ^loops' 
and  multiplies  it  times  1  millisecond  to 
determine  delay  time. 

*!<»**-*****'***  *4^**ai  W:«  *  **i«W  *«***«*  ****'**.***.**«*«*«*************  * 


WAIT 


0001  0C6E  top 

0002  0036 
0000 
0000 
0000 


top2 


.110 

10^82 


0006  0000 

0007  0000 

0008  0000 

0009  02F6 
OOOA  0A03 

OOOB  02F5 

OOOC  OAOl 

OOOD  0800 


movlw 
movwf 
hop 
nop 
nop 
ncp 
nc^ 
nop 

decfsz  loops2 


goto 

decfsz 

goto 

retlw 


top2 

loops 

top 

0 


timing  adjustaeht  variable 
M'-am.  wait 


inner  loops  complete? 
no,  go  again 

outer  loops  complete? 

no,  go  again 

yes,  fetum  from  sub 

************************** 


******************************** 

Start  Bit  Subroutine 

this  routine  generates  a  start  bit 

(Low  going  data  line  while  cloc)<:  is  high) 


************************* 


r********************************* 
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Line 

PC 

Opcode 

0103 

BSTART 

0104 

OOOE 

05E6 

bsf 

port_b, sdata 

;  make  sure  data  is  hls^ 

0105 

OOOF 

0C3P 

movlw 

b' 00111111 ■ 

0106 

0010 

0006 

tris 

portj) 

;  set  data  and  dock  lines  for 

0107 

0011 

04C6 

bcf 

port_b, sclk 

,-  make  sure  clock  is  low 

0108 

0012 

0000 

nop 

0109 

0013 

05C6 

bsf 

port_b, sclk 

;  set  clock  high 

0110 

0014 

0000 

nc^ 

0111 

0015 

0000 

n^ 

0112 

0016 

0000 

x»v 

0113 

0017 

0000 

nop 

0114 

0018 

0000 

nop 

0115 

0019 

04E6 

bcf 

port_b, sdata 

;  data  line  goes  low  during 

0116 

;  hi^  clock  for  start  bit 

0117 

OOIA 

0000 

nop 

0118 

OOIB 

0000 

nop 

0119 

OOlC 

0000 

nop 

0120 

OOID 

0000 

nop 

0121 

OOIE 

0000 

nop 

;  timing  adjustment 

0122 

OOIF 

04ce 

bcf 

lE>ort_b,solk 

;  start  clock  train 

0123 

0020 

0000 

nop 

0124 

0021 

0000 

ne^ 

mm 


»1i9*MleiedilpTeGMM3logy  Inc. 


0023 

OSQO 

•jiu     e*4  Jii  Jfc^jlli  • 

0127 

012S 

step  Sit  Siibrotttia* 

0129 

This  routine  generates 

a  stop  bit 

0130 

(High  going  data  line 

while  clock  is  high) 

0131 

************************************************************ 

0132 

BSTOP 

0133 

0023 

0C3F 

movlw     b' 00111111' 

0134 

0024 

0006 

-^rls        port  b 

;  Beit  data/cIoek''MaieB.  9^:  ^I^K^tlp 

0135 

0025 

04E6 

;  na^  stlf^  data'  j^^o^  £££  1^ 

0136 

0026 

0000 

0137 

0027 

0138 

0028 

0000 

0139 

0029 

05C6 

bsf       poarfe^,  s^Bt" 

sdt^  clock  hig&.^c  ' 

0140 

002A 

0000 

0141 

002B 

0000 

as>E> 

0142 

002C 

0000 

0143 

002D 

05E6 

^s£        port_j3,  adata 

;  lisfia:  igMM  bigb  uriiile  clock  Ixj^ 

0144 

;  toM  •iiSp  bit  -'^ 

0145 

002E 

0000 

nop 

0146 

002F 

0000 

nop 

0147 

0030 

04C6 

bcf  port_)5,sol1c 

;  set  dock  l®w  again 

0148 

0031 

0000 

0149 

0032 

0000 

0150 

0033 

0000 

»_  '1 

01:51 

0034 

osoo 

«■-    '4aa»  ■'19 

otm 

V                   -.  -.J  ' 

^.                      *********************  #^«-K:%^^|gi^|{^;^^ 

'If^^tWi  esrose-toAeefblec  V4.''I2  Released    Hon  Jtis 
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m 

neio 
'•ai>: 


0156 


017? 

em 

U7B 
0176 

0177 
0178 
0179 
0180 
0181 
0182 
0183 
0184 
0185 
0186 
0187 
018S 


BITOUT  routine  takes  one  bit  of  data  in 
transmits  it  to  the  serial  EE  device 
**********************************i 


************ 


0157 

BITOUT 

0158 

0035 

0C3F 

movlw 

b'OOllllll' 

;  set  data, clock  as  outputs 

0159 

0036 

0006 

f  *  •  *  •  •  • . 

'ie<iw«^  

0160 

0037 

07CA 

httea 

eepxoBif  dlO' 

;  check  for  stat0'>S2  ^fcft  Isit  to  lonit 

0161 

0038 

0A3B 

goto 

bitlow    I  - 

0162 

0039 

05E6 

bsf 

port_b,sas1s« ' 

J  set  data  line  high 

0163 

003A 

0A3C 

goto 

clkout 

;  go  toggle  the  clock 

0164 

0165 

003B 

04Ee 

bitlow 

bof 

port_b/ sdata 

;  output  a  low  bit 

0166 

003C 

osc« 

clkout 

bsf 

0167 

003D 

0000 

nop.  ■ 

0168 

003E 

0000 

no^ 

c             1  i                        ?;>u  aim 

0169 

003F 

0000 

nop 

0170 

0040 

0000 

nop 

0171 

0041 

04C6 

bcf 

po*tJS,««lR 

' ;  return  clock  line  low 

0172 

0042 

0800 

retlw 

0 

tr-j"  .cjt^ppt-'xoutlne  reads  one  bit  of  data  fcom  the 
mav      i«Httiftl  EE  device  and  stores  It  in  <di' 

.**:##******  *******************************************  ********* 


■J  t  : 


0043 
0044 
0045 
0046 
0047 
0048 
0049 
004A 
004B 
004C 


05EA 

OCBF 

0006 

05E6 

05CS  . 

0000 

0000 

0000 

0000 

0000 


bsf  eeproiTifdi 

movlw  b' 10111111' 

tris  port_b 

t'tas#&«zM|9efii^|*Silt:  ; 
jjop 

-i*ep  ■  :  i  -      -  ti  -  - 
nop 
nop 
nop 


;  assume  input  bit  is  high 
!  ^am3s»  sdata  on-  input:  Eltew 

;  set  sdata  line  for  ij^ttt 

set  clock  line  high 
;  jttst  sit  here  a  sec 
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■m 


0189 

004D 

0786 

0190 

004E 

04EA 

0191 

004F 

04C6 

0192 

0193 

0050 

0800 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

port_j3,sdata 
eeprcm,  dl 


bef 

bcf 

retlw 


***************************** 


;  read  the  data  lait 
;  ii^t  bit  was  low 
'J  set  clock  line  low 


t**************************** 


Transmit  Data  Subroutine 

This  routine  takes  the  byte  of  data  stored  in  the 

'datao'  register  and  transmits  it  to  the  serial  EB  devl<3e. 

;  It  will  tbea  send  1  more  clock  to  the  serial  EE  for  the 

acknowledge  bit.     If  the  ack  bit  from  the  part  was  low 
then  the  transmission  was  successful.    If  it  is  high,  then 
the  device  did  not  send  a  proper  ack  bit  and  the  ack 
fail  I<ED  will  be  turned  oa, 

**************************************************************** 
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;     -  i  '!  f 

■  ■  <i^-u^  >«■■ 

Line 

PC 

^)cod6 

0205 

TX 

0206 

0051 

0C08 

movlw 

.8 

0207 

0052 

0031 

raovwf 

count             :  mm.  t 

0208 

0209 

TSLP 

0210 

0053 

04CA 

bcf 

eeprcm  r  do 

assume  bit  out  is  low 

0211 

0054 

06F0 

btfsc 

txbuf ,  7 

is  bit  out  really  low? 

0212 

0055 

05CA 

bsf 

eeprOTi,  do 

otherwise  data  bife-ail     '  . 

0213 

0056 

0935 

call 

BITOUT 

serial  data  out 

0214 

0057 

0370 

rlf 

txbuf 

rotate  txbuf  le^M"  -niOtr^ 

0215 

0058 

02F1 

dficf  sz 

co\xnt 

8  bits  done? 

0216 

0059 

0A53 

goto 

no  -  go  again                     at  - 

0217 

005A 

0943 

call 

SITIN 

read  ack  bit 

0218 

005B 

06EA 

■btfsc 

eeprcm /di 

check  ack  bit 

0219 

005C 

0525 

bsf 

port_a, ackf 

set  acknowledge  fail  LED  if  the 

0220 

0221 

G05D 

0800 

retlw 

0 

0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 


005B  OCOO 

0057  0005 

0060  0065 

0061  0A62 


**************************************************************** 
^        Power  up  routine 

This  is  the  program  entry  point,  irtiif^  in^.-tbis  c#se  siiiply 
sets  the  port_a  I/O  lines  and  directs  con^Spol  to  the 
byte  write  routine. 

**************************************************************** 

PWRUP 

movlw  b' 00008800' 

trls  port_a 

clrf  pem%jk 
goto 


;  set  port  A  as  all  output 
;  #11  ea^ptt  lines  low 


******* 


**************** 


*******i^**«***********  **************** 

Byte  Write  Routine 

This  routine  writes  the  data  in  'datao*  to 
8  consecutive  bytes  in  the  serial  EE  device  starting 
at  address  00 .    This  routine  waits  lOmS  after  every 
byte  to  give  the  device  time  to  do  the  write.  This 
program  repeats  forever. 
**************************************************************** 


WRBXTB'ib'H'        a_'sti<  atfan 


0062 
0063 

0064 
0065 
0066 


0065 
OCAO 
002F 
0C55 
002E 


0067  0C08 


Olrf 
siovlw 

movwf 
movlw 
movwf 

movlw 


pol:fe_a  - 
b'lOlOOOOO' 

slave  y 

b'OlOlOlOi* 

datao 

.8 


ele«r  till  Z^Ds 

•at  sljsva  address  and  write  node 
tiMt  data  to  write  as  55h 


set  nuBiber  of  bytes 


'OS0aS588t|MgWi1« 


8^ 


0253  0068    0032  movwf      bcouat  ;  to  write  as  to  8  '  !»»«A-»»oi  St 

0254  0069    0077  clrf       addrl  ;  set  high  address  byte  to  00 

0255  006A  006C  eist  adds  ;  set  low  address  byte  to  00  'jo-xtO  -  tj 
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Line     PC  Opcode 


0256 

I 

0257 

006B 

090E 

byte  eall 

BSTABT 

generate  start  bit 

0258 

006C 

020F 

taenrf 

>lave,« 

move  slave  addresS'''^ 

■  :0 

0259 

006D 

0030 

Into  tiranmiit  bai^ir 

0260 

006E 

0951 

■  ■•  >siiiaa!^ 

'  aiid  s^id  it  ^ 

0261 

006P 

0217 

movf 

addrl.w 

move  word  1  address 

0262 

0070 

0030 

movwf 

txbuf 

into  transmit  buffer 

("0 

0263 

0071 

0951 

call 

TX 

and  send  it 

0264 

0072 

020C 

movf 

addr ,w 

move  word  0  address 

0265 

0073 

0030 

movwf 

txbuf 

into  transmit  buffer 

0266 

0074 

0951 

TX 

and  mmA  it^ 

0267 

0075 

020E 

~  *  ^wtys^ 

dataOfW 

nove  data  byte      ~  ' 

0268 

0076 

0030 

movwf 

txbuf 

to  transmit  buffer 

0269 

0077 

0951 

call 

TX 

and  transmit  it 

0270 

0078 

0923 

call 

BSTOP 

generate  stop  bit 

.  'J  'J 

0271 

...  t. 

0272 

0079 

OCOA 

movlw 

.10 

.no 

0273 

ao7A 

0035 

•■'      ■  '  'oemgC 

loops  - 

<$-*et  ddlay  tiaid'  to  give 

0274 

007B 

0901 

call 

WAIT  ■ 

?  $d  ins  wait  after  every  byte . 

0275 

007C 

02AC 

incf 

addr 

add  1  to  low  address  counter 

0276 

007D 

02F2 

decfsz  bcount 

all  8  bytes  written? 

0277 

007E 

0A6B 

goto 

byte 

no,  do  another  byte 

0278 

0279 

007F 

0Ae2 

goto 

wrbyte 

start  over 

0280 

0281 

J  ■   ^  "jt  ."*  1 

o  :.tt>'.- 

0232 

0000 

::                .'.a  i 

J. 


Iv  '1)1 


i     lK:»t>  '.'0 


8-67 
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Line      PC       Opcode  • 

0001  LIST  P=16C54,c=132 

0002  ,************************************************************ 

0003  ;  64K  Byte  Write  With  Data  Polling  Program  (133  bytes) 
0004 

0005  J  This  program  demonstratas  how  to  interface  a 

0006  ;  Mlecechip  FIC16C54  to  a  24XX33/65  Serial  EE  device. 

0007  ;  Xhis  prograii  performs  a  byte  write  operation  on  8 

0008  ;  conjsecutive  addresses  using  the  data  polling  method 

0009  ;  to  determine  vAien  the  write  cycle  is  complete. 

0010  ; 

0011  ;  When  writing  to  a  serial       device,  there  are  2 

0012  ;  ways  to  handle  the  internal  timed  write  cycle 

0013  ;  time       the  device.^    The  sistplest  method  is 

0014  ;  simply  to  wait  until  the  maximum  cycle  time 

0015  ;  is  exceeded  before  atteirpting  another  command. 

0016  ;  The  other,  more  efficient  method  is  known  as  "data 

0017  ;  polling.'     Data  polling  is  done  by  sending  a  start 

0018  ;  bit  and  control  byte  to  the  part  after  the  write 

0019  ;  cycle  has  been  initiated  by  a  stop  bit.     If  the  ack  bit 

0020  ;  is  low,  then  the  device  is  through  writing,  otherwise 

0021  ;  the  the  sequence  is  repeated.     If  no  low  acknowledge 

0022  ;  is  found  within  40  attempts  (iitxnit  10  billiseconds) 

0023  ;  then  the  routine  times  out  and  sets  the  timeout 

0024  ;  LED  (pin  1)  high. 
0025 

0026  ;  As  an  option,  the  user  can  connect  a  LED  to  pin  1 

0027  ;  on  the  PIC16C54  (use  about  a  IK  resistor  in  series)  as  a 

0028  ;  timeout  indicator.    This  LED  will  come  on  if  the 

0029  ;  data  polling  is  unsuccessful  and  the  device  being 

0030  ;  progranined  does  not  respond.     This  can  l3e  tested  by 

0031  ;  simply  running  the  program  with  no  part  in  the  socket. 
0032 

0033  ;  Timing  is  based  on  using  the  PIC16C54  in  *XT'  mode 

0034  ;  using  a  4HHz  crystal.    Clock  speeds  to  the  serial  BB 

0035  ;  will  be  approximately  40  IcHz  for  this  setup. 
0036 

0037  ;  mtmeSt' m  m  Coimeotlcais: 

0038 

0039  ;  PICiec54  Serial  m 

0040  ;     

0041  ;  Fin  12   (RBS)  ->  SCLK 

0042  ;  Pin  13   (RB7)  ->  SOMA 

0043  ; 

0044  ;  Pia  1     (RA2)  ->    Write  cycle  timeout  fall  (<^tional) 

0045  ; 

0046  s  ************************************************************ 

0047  ;  Register  Definitions 

0043  . ************************************************************ 

0049  QOOS    port_a  equ         5h         ;  port  5  (port_a)  used  LEDs 

0050  0006    pert_)9  ^        ;  port  6  (port_»  used  for  and 

0051  ;  clock  lines 
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Line     PC  Opcode 

0052  OOOA    eeprcn  equ       Oah         ;  bit  buffer 

0053  OOOB    bycnt  equ       OMi         ;  byte  counter  for  read  mode 

0054  OOOC    addr  equ       Och         ;  address  counter 

0055  OOOD    datai  equ        Odh         ;  data  input  register 

0056  OOOE    datao  equ        Oeh         ;  data  output  register 

0057  OOOF    slave  equ        Ofh  ;  device  address  (lOlOxJGtO) 

0058  0010     txbuf  equ        lOh  ;   transmit  buffer 

0059  0011    count  equ        llh         ;  bit  counter 

0060  0012    bcount  equ        12h  ;  byte  counter 


0061 

0015 

loops 

equ        15h          ;  delay  loop  coimter 

0062 

0016 

loops2 

equ        16h          ;  delay  loop  counter 

0063 

0017 

pollcnt  equ       17h         ;  data  polling  counter 

0064 

0018 

addrl 

equ       1%         ;  word  1  address  counter 

0065 

. ************************************************************ 

0056 

Bit  Definitions 

0067 

.*************************************************;*********** 

0068 

0007 

di 

equ        7              ;  eeprom  input  bit         wXswa  QMO 

0069 

0006 

do 

equ        6              ;  eeprom  output  bit 

0070 

0007 

sdata 

equ  ■  '   -f**^*  •  •  •  7  sefrial  EBf           line  (port_b,pin  13) 

0071 

0006 

sclk 

equ       6             ;  serial       clock'  line  (port_b,pin  12) 

0072 

0002 

timeout 

equ       2         .    ;  write  cycle  timeout  fail  LED,  port^a  (pin 

0073 

0001 

ackf 

equ       1             ;  acknowledge  fail  LED,  port_a  (pin  18) 

0074 

. ****** 

*****************  ******************************-******* 

0075 

0076 

0000 

org        Olffh       ;   set  reset  vector 

0077 

OlFP 

0A5C 

goto  PWRUP 

0078 

0000 

org  OOOh 

0079 

0000 

0A5C 

0080 

0081 

, ****** 

***************************««#»4^«ite«r**************4*«**« 

0082 

DELAY  ROUTINE  .».<4jJ-«e:J 

0083 

This  routine  takes  the  value  in  *l€kC^s'  -. 

0084 

and  multiplies  it  times  1  millisecond  to^  . 

0085 

determine  delay  time.                                   n>  i 

00@6 

^ f iM* * ^tfMte^'^*'>''lBt'^iji<tt^ife.'^*ij6^     * ******** **■<>< -  , 

0087 

i.        T.,>1  • 

0088 

0089 

0001 

0C6E 

tcp 

movlw      .110                     ;  tSii^^  m^mfMtUt: 

0090 

0002 

0036 

movwf  loop82 

0091 

0003 

0000 

nop                     :  ,0        «fcte                 '-.■.u'  -.^r-'jiv.  \- 

0092 

0004 

0000 

0093 

0005 

0000 

0094 

0006 

0000 

nop 

0095 

0007 

0000 

'  nop                      ' *  ■ 

0096 

0008 

0000 

nop 

0097 

0009 

02P6 

decfsz    loopa2                ;  inner  loops  coniplete? 

0098 

OOOA 

0A03 

^to       ti^p^                    ;  no,  go  again 

0099 

; 

0100 

OOOB 

02FS 

decfsz    loops                  ;  outer  l.o^^  -m^^^^i^i^  \ 

0101 

OOOC 

OAOl 

goto       ' tdp                    * no ,  'go  a^lfett  ■-•••*.••«» 

0102 

OOOD 

0800 

retlw      0                         ;  yes,  return  frcan  sub 
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Line  PC 


Opcode 


0103 

1 

■    '  f  '- 

0104 

*********************************************i^^***********^ 

0105 

Start 

Bit  Subroutine 

0106 

this 

routine  generates 

a  start  bit 

0107 

(Low 

going  data  line  while  clock  is  high) 

0108 

************************************************************** 

0109 

- .:  IT 

0110 

BSTART 

0111 

OOOE 

0SE6 

0112 

OOOP 

0C3F 

0113 

0010 

0006 

trls 

t  Mkt  data  and  clock  IteMI  isx-  output 

0114 

0011 

04C6 

bef 

T^-mtS^  sure  clock  Is  i«w 

0115 

0012 

0000 

0116 

0013 

05C6 

bsf 

p^g%J>,  sclk 

;  set  clock  his^ 

0117 

0014 

0000 

nop 

0118 

0015 

0000 

nop 

0119 

0016 

0000 

nop 

0120 

0017 

0000 

nop 

0121 

0018 

0000 

nop 

0122 

0019 

04E6 

bcf 

port_b,  sdata 

;  data  line  goes  low  during 

0123 

;  high  clock  for  stut  bit 

0124 

OOIA 

0000 

nop 

8-69 


Using  the24}0(65  and  24XX32 


0125 

OOIB 

0000 

5  ■  ■ 

0126 

OOlC 

0000 

0127 

OOID 

0000 

nop 

0128 

OOIE 

0000 

nop 

;   timing  adjustment 

0129 

OOIF 

04C6 

bcf 

port_b,sclk        ;  start  clock  train 

0130 

0020 

0000 

nop 

0131 

0021 

0000 

nop 

0132 

0022 

0800 

retlw 

0 

0133 

0134 

******************************** 

0135 

Stop  Bit 

Subroutine 

0136 

This  routine  generates  a  stop  bit 

0137 

(High  going  data  line  \^ile  clock  is  high) 

0138 

************************************************************ 

0139 

BSTOP 

0140 

0023 

0C3F 

novlw 

0141 

0024 

0006 

port_>                ;  set  datA/^aock)  lines  as  output* 

0142 

0025 

04E6 

iSdf 

port_b,sdata      ;  ma^e  sure  data  Iiine  is  low 

0143 

0026 

0000 

nop 

0144 

0027 

0000 

nop 

0145 

0028 

0000 

nop 

0146 

0029 

05C6 

bsf 

port_)3,sclk        ;  set  clock  high 

0147 

002 A 

0000 

nop 

0148 

002B 

0000 

nop 

0149 

002C 

0000 

nop 

0150 

002D 

05E6 

bsf 

^pi^ttJ^fl^M^^'T'^iH^^  'Sre»a9         i^ile  'dock  high 

0151 

{  f©r  stop  bit 

0152 

002E 

0000 

nop 

0153 

002F 

0000 
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Line 

PC 

Opcode 

0154 

0030 

04C6 

bcf 

port_b,sclk        ;  set  clock  low  again 

0155 

0031 

0000 

nop 

0156 

0032 

0000 

nop 

0157 

0033 

0000 

nio^  Htm 

0158 

0034 

0800 

retlw 

6 

0159 

; 

0160 

.Itit**********-)!*********!*************************************** 

0161 

BITOUT  routine  takes  one  bit  of  data  in  "do'  eaid 

0162 

transmits  it  to  the  serial  EE  device 

0163 

************************************************************* 

0164 

BITODT 

0165 

0035 

0C3P 

movlw 

b' 00111111'        ;  set  data, clock  as  outputs 

0166 

0036 

0006 

tris 

port_b 

0167 

0037 

07CA 

btfss 

eeprom,do           ;  check  for  state  of  data  bit  to  n 

0168 

0038 

0A3B 

goto 

bitlow  ; 

0169 

0039 

05E6 

bsf 

port_b,sdata      ;  set  data  line  high 

0170 

003A 

0A3C 

goto 

clkout                  ;  go  toggle  the  clock 

0171 

0172 

003B 

04B6 

bitlow  bef 

portj3,sdata      ;  output  a  low  bit 

0173 

003C 

05C6 

clkout  bsf 

port_>,sclk        ;  set  clock  line  high 

0174 

003D 

0000 

nop 

0175 

003E 

0000 

nop 

0176 

003F 

0000 

nop 

0177 

0040 

0000 

nop 

0178 

0041 

04C6 

■      .  bef  - 

Vor'%0$t0i^3^          mm&m^  c^iock  line  low 

0179 

0042 

0800 

retlw 

0 

0180 

0181 

End  of  Subroutine 

0182 

0183 

J******  ***************************  *^t*  **********  ir*  ir  *  *  ir*1t*1c*tt1t1t 

0184 

BITIN  routine  reads  one  bit  of  data  from  the 

0185 

serial  E 

E  device  and  stores  it  in  *di' 

0186 

************************************************************** 

0187 

0188 

0043 

05BA 

bsf 

eeprom,di            ;  assume  input  bit  is  high 

the  24XX^  diHi  24XX32 


m 


0189 

0044 

OCBF 

b'lOllllll ' 

make  sdata  an  input  linA 

0190 

0045 

0006 

0191 

0046 

05E6 

bs£ 

0192 

0047 

05C6 

bsf 

port_j5#  acJik 

0193 

0048 

0000 

0194 

0049 

0000 

0195 

004A 

0000 

0196 

004B 

0000 

nop 

0197 

004C 

0000 

0198 

004D 

07E6 

■  btfss 

port_>iSaata 

read  the  data  bit         '  " 

0199 

004E 

04EA 

bcf 

eepreiii,<Il 

input  bit  was  low 

0200 

004F 

04C6 

port_J>,sclk 

S9t  clock  line  low  i 

0201 

0202 

0050 

0800 

retlw 

0 

0203 

0204 

************************************************** 
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Line  I 


0205 

0206 
0207 
0208 
0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 
0251 
0252 


Opcode 


0053 

0054 
0055 
0056 
0057 
0058 
0059 


■  ntLei'^eaSs^t  Sata  SAreatine  ■  *  • 

This  routine  takes  the  byte  of  data  stored  in  the 
^datao'  register  and  transmits  it  to  the  serial  EE  device. 
It  will  then  send  1  more  clock  to  the  serial  EE  for  the 
-5.  acknowledge  bit.     If  the  ack  bit  from  the  part  was  low 

then  the  transmission  was  successful.     If  it  is  high,  then 
the  device  did  not  send  a  proper  ack  bit  and  the  ack 
fail  LSD  will  be  turned  on. 

******************** 


TX 


0051  0C08 

0052  0031 


jnovlw 
movwf 


.8 

count 


04C& 

06P0 
05CA 
0935 
0370 
02F1 
OASa 


005A  0943 


005B  0800 


btf  BC  txbuf ,  7 

bsf  eeprcan,do 

call  BITOOT 

rlf  txbuf 

decfsz  count 

cSall--  »3f«fr-- 

! 

retlw  0 


set  the  tbits  to  8 


bit  oiSt  1«  lew 
l«  M>t''Out  really  low? 
^ebiaatwise  data  bit  =1 
serial  data  out 
rotate  txbuf  left 
8  bits  done? 
no  •  go  asi^irsr.^ 
read  a<sk  Mi!  )  s-  X  : 


*************************  *************************************** 
Power  up  routine 
■J  <t.^aiibi»  Is  the  prog«iam'  ■malcxif'  i^*MI»o«MWkM»tAkia  'tmmm  ciiq^ly 
-  ':«•«»  the  port_a-  WO  llmsm.        M^m^  ^im*oi  to  fSm 
write  roufeiao.  ^■    .     •       -  ■  ' 

**  *  *  ********«*********t**^**************************************«* 

PWRUP 

005C    OCOO  movlw  b' 00000000' 

005D    0005  tris  port_a  ;  set  port  A  as  all  output 

005E    0065  clrf  port_a   -  ;  all  eiQ'^iit  t^SM  low 

005F    OASO  goto  WKBYT*;  Si  /• 

»*«»««***«*««««**•******'*********  ********«***************^****4^* 

Byte  Write  Routine  with  data  polling  technique 

This  routine  writes  the  data  in  "datao"  to 
8  consecutive  bytes  in  the  serial  EE  device  starting 
at  address  00.  To  determine  when  the  write  cycle  time 
ot        <SaiKLea>  tba  'data  polling'  method  to  iia«d«X'-4tai*«' 
imrelvais  saiding  a  start  bit  and  control  byte  to  the  part 
and  checking  for  an  acknowledge.     If  the  ack  bit  is  low,  then 
the  device  is  through  writing,  otherwise  the  the  sequence 
is  repeated.     If  no  low  acknowledge  is  found  within  40 


e  1 99*  Mieaaof%/rMiwelegy  Ins. 
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DS00%8B'pae»19 


^tgmggfffiifmmimmmmmmmii^.  ii_       _  iiv  i  xmmmi^fflfi^^ 


0253  ;    :      .'lat^isa^tm '{about  10  rallli^ecoBits)  Uien  the  routine  times 

0254  ;  out  and  sets  the  timeout  LED  (pin  18)  high.    This  program 

0255  ;  will  r^eat  forever. 
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Line 

PC 

Opcode 

m.  .1 

0256 

1 

DC' 

0257 

0258 

0259 

0260 

02  61 

0060 

0065 

clrf 

port_a 

J    ai-J.  LicHJS  0££ 

0262 

0061 

OCAO 

itiovlw 

Vi'  1  ni  nnnnn  • 

D  XUi-UUUUU 

;  set  slave  address  and  writ^  mode 

0263 

0062 

002F 

itiovwf 

slave 

0264 

0063 

OCAA 

movlw 

;  set  oata  to  wrxce  as  AAn 

UUOtt 

002E 

movwf 

datao 

uzoo 

0065 

0C08 

movlw 

•  8 

;  set  nuznber  of  bytes 

0267 

UUOD 

0032 

movwf 

bcoimt 

;  to  write  as  to  8 

0268 

0067 

0078 

clrf 

addrl 

;  set  starting  high  addcc^B  to  00 

0269 

0068 

006C 

clrf 

addr 

;  set  starting  low  addl^iMM^^to  ^ 

fv 

0271 

0069 

090E 

byte 

call 

B  START 

;  generate  start  bit 

0272 

006a 

020F 

movf 

slave  fW 

;  move  slave  address 

0273 

006b 

0030 

movwf 

txbuf 

;  into  tjwnemit  buffer 

0274 

006C 

0951 

call 

TX 

;  and  send  it 

0275 

006D 

0218 

movf 

addrl, w 

;  move  word  1  address 

0276 

006E 

0030 

movwf 

txbuf 

;   into  transmit  buffer 

0277 

0951 

call 

TX 

;   and  send  it 

0278 

0070 

020C 

movf 

addr ,w 

;  move  word  0  address 

0279 

0071 

0030 

movwf 

txbuf 

;   into  transmit  buffer 

0280 

0072 

0951 

call 

TX>      ;  *  - 

;  and  amd  it . 

0281 

0073 

020E 

movf 

datao  t w 

;  move  data  byte 

0030 

movwf 

txbuf 

1  to  tranmit  buffer 

0283 

0075 

0951 

call 

TX 

1  jtoA  transmit  It 

0284 

0076 

0923 

call 

BSTOP 

;  generate  stop  bit 

0285 

0286 

'                                                      1  1    •               J!                     1                     1.  l-J 

;  now  start  polling  for  a  low  acK  bit 

0287 

.; 

0288 

0077 

0C28 

mo^^lw 

.40 

7 

0289 

0078 

0037 

movwf 

pollcnt 

;   set  max  number  of  times  to  poll  as  40 

0290 

0079 

a90E 

poll 

call 

BSTART 

;  generate  start  bit 

0291 

007A 

OCAO 

movlw 

b'lOlOOOOO' 

;  move  slave  address  (write  mode} 

0292 

007b 

0030 

movwf 

txbuf 

;   into  transmit  bx^idar  (>( 

0293 

0D7C 

0951 

call 

TX 

;  and  send  it 

0294 

007D 

07EA 

btfSB 

•apreBiidJr***  -  • 

'IMS  the  aek  bit  low? 

0295 

007E 

0A82 

goto 

•xlQpoll 

;  yes,  do  another  byta 

0296 

007F 

02P7 

deef sz 

pollcnt 

;  is  poll  counter  down  to  zero? 

0297 

0080 

0A79 

goto 

poll 

;  no,  poll  again.    Other  wise  the  part  is 

0298 

0081 

0545 

bsf 

port^a, timeout 

;  not  responding  in  time  so  set  timeout 

0299 

0300 

s  ^onn 

0301 

0082 

02AC 

exitpoll 

Incf 

addr 

'$  add  1  to  address  cotoHMa^      0.'  - 

0302 

0083 

02F2 

dacfsz 

beo^t 

>  all  8  bytes  written?  - 

0303 

0084 

0A69 

f  no,  do  '«noth«X'''3!^1^^ 

0304 

0085 

0A60 

goto 

t  yea,  »tart  ov«v  *< 

0305 

0306 

•t  • 
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0307  0000  END 
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Line      PC  ^code 

0001  LIST  P=16C54,c=132 

0003  ;  64K  Page  Write  Program  (126  bytes) 

0004  ; 

0005  ;  The  24XX32/65  has  a  page  length  of  8  bytes.    This  page 

0006  ;  can  be  used       write       to  8  bytes '  of  data  into  :ti>e 

0007  ;  part  before  initiating  the  write  cycle.    Since  tSiia 

0008  ;  write  cycle  is  timed  the  same  for  1  byte  or  8  bytes 

0009  ;  it  is  more  efficient  to  use  the  page  mode  when 

0010  ;  consecutive  addresses  are  being  written  to. 
0011 

0012  ;  When  using  page  mode,   the  control  byte,  upper  and  lower 

0013  ;  addresses  are  sent  for  the  first  address  only.  After  the 

0014  ;  .  data  byte  for  the  first  address  is  sent,  the  data  for  the 

0015  ;  nsxt'  consecutive  address  is  clocked  in.    Xhls  is 

0016  ;^ '  repeated  as  many  t'iines  as  heeded  (^'s  long  as  the  page 

0017  ;  length  is  not  exceeded)   and  then  a  stop  bit  is  sent. 

0018  ;  The  device  will  still  aclcnowledge  between  every  byte  of 

0019  ;  data.    After  the  stop  bit  is  sent,  the  part  will 

0020  ;  tnltttii^ 'ite' ••Af  feiMd  write  cycle. 

0021  ;  I 

0022  ;  This  routine  waits  approxisiately  lOinS  for  the  write 

0023  ;  cycle  to  ccsnplete  for  each  page.    A  more  efficient 

0024  •      :  method  of  determining  when  the  write  cycle  is  complete 

0025  ;  is  called  "data  polling."     The  data  polling  method  is 

0026  ;  explained  in  the  program  "64kdpoll .  asm. "  That 

0027  ;  particular  program  uses  data  polling  in  a  byte  write 

0028  ;  mode  but  it  can  be  used  in  exactly  the  same  way  for 

0029  ;  —  •js««5^  mocte  write.   

0030  ;  n.t" 

0031  ;  As  an  option,  the  user  can  connect  a  LED  to  pin  18 

0032  . ;  on  the  PIC16C54  (use  about  a  IK  resis^or~  ln  series}  as  a 

0033  ;  acknowledge  fail  indicator.     This  LED  will  come  on 

0034  ;  if  the  device  being  programmed  does  not  send  a  low 

0035  ;  acknowledge  bit  at  the  proper  times.     This  can  be 

0036  ;  tMki^,  1^ -iMavtjf  iniMtng  .^#t ^cofpi^ 

0037  ;  ia  the  sodJcit. 

0038 

0039  ;  Timing  is  based  on  using  the  PIC16C54  in  'XT'  mode 

0040  ;  using  a  4IlHz  ciyRtal«  i£loclc  speeds  to  the  serial  EE 

0041  ;  Witt  1^  mmmsmmm-  m  tm  wl»  mm». 

0042  ; 

0043  ; 

0044  ;  PIC16C54  to  Serial  EE  Connections:  v 

0045  ;        I  J.,  ..1        :  Zl^tO^l    ar«iu«c>  »' 

0046  ;  PICISBB*  Serial  BE  <>»*»  f 

0047  ;     

0048  ;  Pin  12    (RB6)   ->  SCLK 

0049  ;  Pin  13    (RB7)  ->  SDATA 

0050  ;        -   -  ,  ,  , 

0051  ;  PIN  18  (BAl)  ->    Acknowledge  fail  LED  (Optional) 

16c5x/7x  Cross-Assesid>ler  V4.12  Released    Hon  Jun  OS  10!4i9s48  1^4    I>age  2 
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0052 
0053 

0055  ;  Register  Definitions 

0056  J************************************************************ 

0057  0005    port_a    equ  5h  ;  port  5  (port_a)  used  for  LEDs 

0058  0006    port_b    equ  6h  ;  port  6  (port  b)  used  for  data  and 

0059  ;  clock  lines 

0060  OOOA    eeprom    equ        Oah  ;  bit  buffer 


8-73 


IMifig  the  2mm  and  24XXB2 


ooei 

OOOB 

bycnt 

Obb       .  7'  b^se  saunter  £^  eeiiS^  nmiStS^'' 

OOOC 

addr 

equ 

Och         ;  word  0  address  counter 

0063 

OOOD 

datai 

equ 

Odh          ;  data  input  register 

0064 

OOOE 

datao 

equ 

Oeh         ;  data  output  register 

006S 

OOOF 

slave 

equ 

Ofh          ;  device  address  (lOlOxxxO) 

0066 

0010 

txbuf 

equ 

lOh          ;   transmit  buffer 

0067 

0011 

count 

equ 

llh         ;  bit  counter 

0068 

0012 

bcount 

equ 

12h         ;  byte  counter 

0069 

0015 

loops 

equ 

15h         ;  delay  loop  counter 

0070 

0016 

loops2 

equ 

16h         ;  delay  loop  counter 

0071 

0017 

addrl 

equ 

17h          ;  word  1  address  counter 

0072 

***** 

********i 

*********************************************** 

0073 

Bit  Definitions 

0071 

******************************************************* 

0075 

0007 

di 

equ 

7              ;  eeprom  input  bit 

0076 

0006 

do 

equ 

6              ;  eeprom  output  bit 

0077 

Oik07 

<sdsta 

equ 

7             ;  serial  EE  data  line.  (porit<_b,pin  13) 

0078 

mo6 

solk 

equ 

6            ;  serial  EE  elock  line  (poact_b>pin  12) 

0079 

0001 

ackf 

equ 

1             ;  acknowledge  fall  LED  (port_a,pin  18) 

0080 

***** 

******************************************************* 

0081 

0082 

0083 

0000 

org 

Olffh      ;  set  reset  vector 

0084 

OlFP 

0A5E 

goto 

0085 

0000 

org 

OOOh 

0086 

0000 

0A5E 

goto 

PWRUP 

0087 

0088 

*  **** 

******************************************************** 

0089 

DELAY  ROUTINE 

0090 

This  routine  takes  the  value  in  'loops' 

0091 

and  nmltlplles  it  times  1  stilllivecoi^  ttf  ^< : 

0092 

determine  delay  time.                                '  ' 

0093 

*****************************************>******************** 

0094 

\ 

«AIT 

0095 

0096 

0001 

0C6E 

top 

movlw 

.110                   ;  timing  adjustment  variable 

0097 

0002 

0036 

movwf 

loops2 

0098 

0003 

0000 

,  J  sit  ami  tialfe 

0099 

0004 

0000 

0100 

0005 

oooo 

zwp 

0101 

0006 

0000 

nop 

0102 

0007 

0000 

nop 

16c5x/7x  Cross-Assesnbler 
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PC 

Opcode 

0103 

0008 

0000 

nop 

0104 

0009 

02F6 

decfsz    loops2                ;  inner  loops  con^lete? 

0105 

OOOA 

0A03 

goto 

top2                   ;  no,  go  again 

0106 

0107 

OOOB 

02F5 

decfsz     loops                   ;  outer  loops  complete? 

0108 

OOOC 

O&Ol 

goto 

top                       ;  no,  go  again 

0109 

OOOD 

0800 

retlw 

0                        ;  yes,  return  from  sub 

0110 

0111 

******** 

************************************************* 

0112 

start  Bit  Subroutine                                 ■   \           .  ■ 

0113 

this  routine  generates  a  start  bit 

0114 

(Low  going  data  line  lAlle  clock  is  hi^) 

0115 

************************************************************** 

0116 

0117 

BSTART 

0118 

OOOE 

05E6 

bsf 

port_b,sdata      ;  make  sure  data  is  high 

0119 

OOOF 

0C3F 

movlw 

b'OOllllll' 

0120 

0010 

0006 

tris 

port_b                ;  set  data  and  clock  lines  for  output 

0121 

0011 

04C6 

bcf 

port_b>sclk        ;  make  sure  clock  is  low 

0122 

0012 

0000 

nop 

0123 

0013 

05C6 

bsf 

port_)3,sclk       ;  set  clock  high 

0124 

0014 

0000 

nop 

8-74 


UsSng  tl^24XX^  ai^  24XX32 


0125 

0015 

0000 

»3tt.  lo  tsi4  i-n 

'   >■••■   -      Uxrs  tflVta 

0126 

0016 

0000 

nap  • ' 

-  •    -    -  (     *^  -  • 

0127 

0017 

0000 

nop 

0128 

0018 

0000 

nop 

0129 

0019 

04Ee 

bcf 

por  tj3,  sdata 

;  data  line  goes  low  during 

0130 

•I  I  i. 

■  V 

«  «M  : 

■  i  high  clock  forMStart  bit 

0131 

OOIA 

0000 

nop 

■  -.1 

0132 

OOIB 

0000 

aap 

0133 

OOlC 

0000 

nc^  ' ' 

0134 

OOID 

0000 

0135 

OOIE 

0000 

nop 

;  timing  adjustment 

0136 

OOIF 

04C6 

bcf 

port_b,  sclk 

;  Bt«rt:  elecdc  te^sin 

0137 

0020 

0000 

nop 

0138 

0021 

0000 

nop 

0139 

0022 

0800 

retlw 

0 

0140 

0141 

**************************************  ****%«4c**««*^*#«^*4k*** 

0142 

Sfcop  Bit  Subroutine 

0143 

This  routine  generates  a  stop  bit 

0144 

(High  going  data  line 

while  clock  is  high)                         .  -  > 

0145 

************** 

******************************* 

0146 

BSTOP 

3  "i^^xo^         lad  «:■■■ 

0147 

0023 

0C3F 

movlw 

b'OOllllll ' 

0148 

0024 

0006 

port_b 

!  set  datb/clock  lines  as  outtMbii  ' 

0149 

0025 

04E6 

bef 

port_b, sdata 

1  make  sure  data  line  is  low 

0150 

0026 

0000 

nop 

0151 

0027 

0000 

nop 

0152 

0028 

0000 

nop 

0153 

0039 

05C6 

bsf 

port_b«sclk 

;  set  clock  high 

16cSx/7x  Cross-Aaam^azi  V4kl3<JMj 
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'  ~  -  r      -^^ tf'S   ;  f 

,0 

Line 

PC 

Opcode 

0154 

002A 

0000 

nop 

-•  ■'• 

0155 

002B 

0000 

nop 

0156 

002C 

0000 

nap 

..'■0 

0157 

002D 

05E6 

:.         '  . 

- paetJatMSmtm 

!  da6ft:igiBBs  liit^- iriille  clock  fai^h    .  ^  ' 

0158 

;  for  stop  bit 

- 

0159 

002E 

0000 

nop 

0160 

002F 

0000 

nop 

/ 

0161 

0030 

04C6 

bcf 

port_b/Sclk 

;  set  clock  low  again 

0162 

0031 

0000 

nop 

0163 

0032 

0000 

nop 

} 

0164 

0033 

0000 

nop 

0165 

0034 

0800 

retlw 

0 

0166 

1 

0167 

•  *****************^****.**************************************«- 

0168 

BITOOT 

routine  takes  one  bit  of  data  in  'do'  and 

0169 

tranami 

ts  it  to  the  serial  EE  device 

0170 

************************************************************* 

0171 

BITODT 

0172 

0035 

0C3F 

novlw 

b'OOllllll' 

t  set  data, clock  as  outputis 

0173 

0036 

0006 

trie 

0174 

0037 

07CA 

btfss 

eepron«  dto 

J  oheck  for  state  of  dtrca  {tit  to  xnlt 

0175 

0038 

0A3B 

goto 

bitlow 

0176 

0039 

05E6 

-  bsf 

port_b, sdata 

;  set  data  line  high 

0177 

003A 

0A3C 

goto 

clkout 

;  go  toggle  the  clock 

0178 

.  '1 

0179 

003B 

04E6 

bltlow 

bcf 

port_b>  sdata 

;  output  a  low  bit 

.  S.I 

0180 

003C 

0506 

clkout 

bsf 

portj3,iwlk 

;  set  dock  linfK  hlgtb  c< 

■  ■  II 

0181 

003D 

0000 

ttap 

0182 

003E 

0000 

nop  ' 

0183 

003F 

0000 

nopi 

-•••t '       ..  ->  i 

efhT>».i     ■•}<■'■■  -■■ji. 

0184 

0040 

0000 

nop 

0185 

0041 

04C6 

bcf 

■  •  ?  return  clock  line  low  • ' ; 

0186 

0042 

0800 

retlw 

0 

0187 

:>V  I 

! 

0188 

.************************************************************** 

-♦IflpiiiMlBiWIilllflwiililli  )fcni>  '.IQb. 
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Using  the  24XX65  and  24XX32 


0189 

BITIN  routine  reads  one 

bit  of  data  from  the 

0190 

serial  I 

SE  device  and  stores  it  in  'di' 

0191 

.************************************************************** 

0192 

BITIN 

0193 

0043 

05EA 

bsf 

eeprom, di 

;  assume  input  bit  is  high 

0194 

0044 

OCBF 

3/0  : 

movlw 

b' 10111111' 

•  aa]n  Bdata  an  iq^t  line 

0195 

0045 

0006 

tris 

port_b 

0196 

0046 

05E6 

t>»« 

portja.sdata 

;  set  sdata  line  for  input 

0197 

0047 

05C6 

Bst 

portjD,  sclk 

;  set  clock  line  high 

0198 

0048 

0000 

nop 

;  just  sit  here  a  sec 

0199 

0049 

0000 

nop 

0200 

004A 

0000 

nop 

0201 

004B 

0000 

nop 

0202 

004C 

0000 

nop 

0203 

004D 

07B6 

portjb,  sdata 

;  read  the  data;Mt 

J 

0204 

004B 

04EIL 

mt 
••••**•«•- 

eeprcoifdi 

;  ii^t  bit  tias  low 
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0205 

004F 

04C6 

set  clock  line  low  .jI'-c 

0206 

0207 

OOSO 

mm' 

retlw      0  ■ 

0208 

0209 

.til********************************************************** 

0210 

Transmit  Data  Subroutine 

0211 

This  routine  takes  the  byte  of  data  stored  in  the 

0212 

^dati^o'  register  and  trai 

uonits  i-t  to  the  serial  BE  device. 

0213 

It  will  then  send  1  more 

clock  to  the  serial  EE  for  the 

0214 

^wc^cnowlddge  bit.     If  the  aek  bit  tram  the  pArt  was  low 

0215 

then  the  treuismission  was  successful.     If  it  is  high,  then 

0216 

the  device  did  not  send  a  proper  ack  bit  and  the  ack 

0217 

fail  LED  will  be  turned  on. 

0218 

,  **  **  * 

*********************************************************** 

0219 

TX 

0220 

0051 

0C08 

movlw      . 8 

0221 

0052 

mail 

0222 

0223 

0224 

0053 

04CA 

be  f          eeprom , do 

assume  bit  out  is  low 

0225 

0054 

06PO 

btfsc      txbuf , 7 

is  bit  out  really  Xc^nff? 

0226 

0055 

05CA 

bsf          eeprom, do 

otherwise  data  bife.  *1 

0227 

0056 

0935 

call  BITOUT 

serial  data  out 

0228 

0057 

0370 

rlf  txbuf 

rotate  txbuf  s^etft 

0229 

0058 

02P1 

decfsz  count 

8  bits  'done?   '                       *.  .*<; 

0230 

0059 

OAS  3 

goto  TXLP 

no  -  go  again 

0231 

005A 

0943 

call  BITIN 

read  ack  bit 

0232 

005B 

06BA 

btfsc  e^rcoifdi 

check  ack  bit 

0233 

005C 

0525 

ha£     •o  jatfyBuWiyiri  >  t         adkBHSk^magm.  tatll  USD  it  the 

0234 

0235 

005D 

0800 

retlw  0 

0236 

0237 

. *************  A*******************  ****************************  *** 

0238 

Power  up  routine 

0239 

This  is  the  program  entry  point,  which  in  this  case  sirnply 

0240 

sets  the  port_a  I/O  lines  and  directs  control  to  the 

0241 

byte  write  routine. 

0242 

. **************************************************************** 

0243 

PWRUF 

0244 

005E 

ocoo 

b'^t^OOOOOOO  * 

0245 

005F 

0005 

tris  port^a 

set  port  A  as  all  output 

0246 

0060 

0065 

all  output  lines  low 

0247 

0061 

0AS2 

go  do  the  pag^  write 

0248 

0249 

;  **^Jk*^MIr*.********************#*1*?l»*^*********<^ 

0250 

Page  Write  Routine 

0251 

This  routine  writes  the  data  in  "datao'  to  8  c<»isecutive 

02S2 

'  l^ek  t£slhg  page^  wri^V  itkmi  '^tvittSMg  Wi  W. 

(in 


wmmssmm 

a-76 


ming  the  24XX65  and  24XX32 


0253 
0254 
0255 


routine  mits  lOznS  after  every  page  to  give  the  device 
time  to  do  the  write.     This  program  repeats  forever. 


ii************************** 


********* 
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0256 

0257 

pwrite 

0258 

0259 

0062 

0065 

clrf 

port_a 

clear  all  LBDs 

0260 

0063 

OCAO 

moviw 

b-10100000 

set  slave  address  and  mrite  i 

0261 

0064 

002F 

movwf 

slave 

0262 

0065 

0C5S 

•Si 

pMM  4Mta -ifea  m±^-t^  55h 

0263 

0066 

0028 

movwf 

^tao 

0264 

> 

0265 

0067 

0C08 

-  novlw 

.8 

;  set  mmtocr  of  bytes  " 

0266 

0068 

0032 

movwf 

bcount 

to  write  as  to  8 

0267 

0069 

0077 

Glrf 

addrl 

set  high  address  byte  to  00 

0268 

006A 

006C 

clrf 

addr 

set  low  address  byte  to  00 

0269 

0270 

006B 

090E 

roall 

SSTMIT '. 

generate  start  bit 

0271 

006C 

02  OF 

—  1*1 

0272 

006D 

0030 

tM^MF..c.r<ls«  p-Anta  trSBsmlt  ttauf^;  , 

0273 

006E 

0951 

call 

TX 

and  send  it 

0274 

006F 

0217 

movf 

addrl, wii  ^•: 

-  f^ltlOve  word  1  address 

0275 

0070 

0030 

mowjf 

txbuf 

into  transmit  buffer 

0276 

0071 

0951 

call 

TX 

and  send  it 

0277 

0072 

02  OC 

movf 

addr ,w 

move  word  0  address 

0278 

0073 

0030 

movwf 

txbuf 

1  xt9Srili>  ttiWMiiHift  isn^M/tgs 

0279 

0074 

0951 

call 

TX 

0280 

0281 

0075 

020E 

daead.w..  - 

move  data  byte 

0282 

0076 

0030 

movwf 

txbuf 

to  transmit  buffer 

0283 

0077 

0951 

call 

TX 

and  transmi  tit 

0284 

0078 

02F2 

bcount 

all  8  bytes  written?  ••••• 

0285 
0286 

0079 

0A75 

gofeo 

0287 

007A 

0923 

call 

BSTOP 

generate  stop  bit 

0288 

007B 

OCOA 

movlw 

.  10 

0289 

007C 

0035 

movwf 

loops 

set  delay  time  to  give 

0290 

007D 

0901 

call 

WAIT 

10  ms  wait  after  every  byte 

0291 

007E 

0A62 

goto 

pwrite 

start  over 

0292 

;  *.-<-= 

s   to)  UtJBt*^ 

0293 

;  "-s-i 

9994 

OdOQ 

H99 

.«77 
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PIC16C54 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
00X0 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
QOSl 
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LIST  P=16C54,c=132 
************************************************************ 

64K  Sequential  Read  Program  (142  bytes) 

This  program  demonstrates  how  to  interface  a 

Microchip  PIC16C54  to  a  24XX32/65  Serial  EE  device 
and  perform  a  sequential  read  operation.  This  program 
will  read  8  consecutive  addresses  in  the  'sequential 
c '  >    •■   read'  mode.    "Hils  entails  setting  the  address  pointer 

for  the  first  address  only  and  then  clocking  out  as  many 

ihetmumt.        !id(&?6a«.  -.o  ic^ 

Timing  is  based  on  using  the  PIC16C54  in  'XT'  mode 
using  a  4Hhz  crystal.    Clock  speeds  to  the  serial  EE 
will  be  approximately  60  kHz  for  this  seti^. 

As  an  option,  the  user  may  connect  a  LED  to  pin  18 
on  tte  I>3)C1>6C54 .  (!aa«  about  a  IK  resistor  in  series)  as  an 
asIaMi|^«dge  f ail  oimMcater  ■    Ais  LED  will  cctne  on  if 
<it(AMkial  EE  fall*,  to  ackaowledge  correctly. 

PIC16C54  to  Serial  EE  Connections: 


S^ial  EE 


Pin  13'  .t«artt)'^a*  9Bia%  i  — 

PIN  18  (RAl)  ->    Acknowledge  fail  LED  (Optional) 


Register  Definitions 


******** 


0003 

Status 

equ 

03h 

status  register 

0005 

port_a 

equ 

05h 

port  5   (port  a)  used  for  LED  display 

0006 

port_b 

equ 

06h 

port  6   (port  b)  used  for  data  and 
clock  lines 

OOOA 

eeprom 

equ 

Oah 

bit  buffer 

OOOB 

bycnt 

equ 

Obh 

l^te  coxinter  for  read  vss^a 

OOOC 

addr 

equ 

Och 

word  0  address  counter 

OOOD 

data! 

equ 

Odh 

data  input  register  *\\3L 

OOOE 

datao 

equ 

Oeh 

data  output  register 

OOOF 

slave 

equ 

Ofh 

device  address  lOlOxxxO) 

0010 

txbuf 

equ 

lOh 

transmit  buffer 

0011 

count 

equ 

lib 

bit  counter 

0012 

bcount 

equ 

1^ 

byte  counter 

0015 

loops 

equ 

delay  loc^  counter 

0016 

loqps2 

9^ 

%^ 

^1^  loc^  coimter 

0017 

addrl 

1  adflress  counter 

L         ft  l#:49i33  1994    P^ge  2 


0052 
0053 
0054 
0055 
0056 
0057 
0058 
0059 
0060 


********* 


***************** 

Bit  Definitions 


****************************** 


********** 


*************  **************************** 


0007 

di 

equ 

1 

;  eeprom  input  bit 

0006 

do 

equ 

6 

;  eeprom  output  bit 

0O07 

sdata 

equ 

7 

;  serial  EE  data  line  (port_b,pin  13) 

0006 

sclk 

equ 

6 

;  serial  EE  clock  line  {port_b,pin  12) 

0001 

ackf 

i 

;  aclcnowle^e  fall  LSD  (port_a) 

.  *****«**jk«««*«««4Nr********* ************** ******************* 


0061 
0062 
0063 
0064 

0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 


0092 
0093 
0094 

0095 
0096 


0000 
OlFF  0A69 

0000 
0000  0A69 


org  Oltfb  :';...s«t  reset  vector, 

goto  PWRUP  ;         .           ■  n 

org  00  Oh 

goto  PWRUP 


********* 


DELAY  ROUTINE 

This  routine  takes  the  value  in  *  loops' 
<utd  iniltlplles  it  tioies  1  millisecond  to  ^ 
detemlne  delay  time.  .  ' 


0073 

0074 

0075 

0001 

0C6E 

t<^ 

movlw 

.110 

!  t^ttatg  .«^i>B«gient  variable 

0076 

0002 

0036 

movwf 

loops2 

0077 

0003 

0000 

tOE>2 

nop  ' 

/>->i  ■ 

rat£  aikfcnnit 

0078 

0004 

0000 

OOP 

0079 

0005 

0000 

z^oCi  ■ 

0080 

0006 

0000 

nop 

0081 

0007 

0000 

nop 

0082 

0008 

0000 

nop 

0083 

0009 

02F6 

decf sz 

loops2 

;  inner  loops  coirplete? 

0084 

OOOA 

0AO3 

(If 

^to 

top2 

;  no,  go  again  i 

0085 
0086 

OOOB 

02ES 

;  ) 
1  outer  loops  eetSlMI^****  • 

0087 

OOOC 

OAOl 

goto 

top 

;  no,  go  again             7^'^^  " 

0088 

OOOD 

0800 

retlw 

0 

;   yes,    return  from  sub 

.  a 

0089 

■  -la 

0090 

********* 

***************** 

******************************* 

0091 

Start  Bit  Subroutine 

■    ■  -i 

this  routine  generates  a  start  bit 

(Low  isg^ssm  l^am  'Ctlg^  i#.  lig^  - ':r 


0097 

OOOE 

05E6 

,1     .  bsf 

port_b,sdata      ;  make  sure  data  is  high 

0098 

OOOF 

CC3F 

movlw 

b'OOllllll ■ 

0099 

0010 

0006 

tris 

port_b                 ;  set  data  and  clock  lines  for  output 

0100 

0011 

04G6 

bcf 

portJ%;««|jli|.  •.'i!--aake'sti«e' i^tsiWix  iaM():<t 

0101 

0012 

0000 

nop 

0102 

0013 

05C6 

bsf 

port_b,sclk        ;   set  clock  high 
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0103 

0014 

0000 

0104 

0015 

0000 

map  - 

0105 

0016 

0000 

nop 

0106 

0017 

0000 

nop 

0107 

0018 

0000 

nop 

0108 

0019 

04Ee 

bcf 

port_b,sdata      ;  data  line  goes  low  during 

0109 

;  tai^  clock  for  start  bit 

0110 

OOIA 

0000 

nop 

.        -  ■    I         •  ( 

0111 

OOIB 

0000 

nop 

0112 

OOlC 

0000 

nop  ■ 

,T.   ■-.             y--,,   '      -  » 

0113 

OOID 

0000 

nop 

0114 

OOIE 

0000 

nop 

;   timing  adjustment 

0115 

OOIF 

04C6 

bcf 

port_b,sclk        ;  start  clock  train 

0116 

0020 

0000 

nop 

c^  it 

0117 

0021 

0000 

nop 

r,  _ 

0118 

0022 

0800 

retlw 

0                                         ..-  .'.1. 

0119 

0120 

*********************** ************************************* 

0121 

; 

stop  Bit 

Subroutine 

0122 

This  routine  generates  a  stop  bit 

0123 

(High  going  data  line  while  clock  is  high) 

0124 

*************** 

********************************************* 

0125 

BSTOF 

0126 

0023 

04E6 

bof        port_b, sdata  } 

inake  sufe  data  line  is  low  -' 

0127 

0024 

0C3F 

movlw     b' 00111111'  ; 

0128 

0025 

0006 

tris       port_b  ; 

set  data/clock  lines  as  outputs 

0129 

0026 

04E6 

bcf         port_by  sdata  ; 

make  sure  data  line  is  low 

0130 

0027 

0000 

nop 

0131 

0028 

0000 

nop 

0132 

0029 

0000 

nop 

0133 

002A 

05C6 

bs£         port__b,scl]c  ; 

set  clock  hi^ 

0134 

002B 

0000 

nop 

0135 

002C 

0000 

nop 

1                                                                                 ■  , 

0136 

002D 

OOOU' 

•  ** 

0137 

002E 

05B6 

hat        #9rt_b, sdata 

data  goes  high  «diile  £!tecdc  high 

0138 

for  stop  bit 

0139 

002F 

0000 

nop      :b»  ^llnL' 

0140 

0030 

0000 

nop 

0141 

0031 

04C6 

bcf  "  '  wTslBXkJii  Bclk  ; 

set  clock  low  again 

0142 

0032 

0000 

nop 

0143 

0033 

0000 

nop 

0144 

0034 

0000 

nop 

0145 

0035 

0800 

retlw  0 

0146 

0147 

t******************************** ***************************** 

0148 

BITOUT  routine  takes  the 

bit  of  data  in  *do'  and 

0149 

transmits  it  to  the  serial  EE  device 

0150 

.  ***^#^j»^*^  *******.**********************  *********************** 

0151 

BITODT 

0152 

0036 

0C3P 

movlw     b' 00111111' 

set  data,  clock  as  outputs 

0153 

0037 

0006 

tris  port_b 
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0154 

0038 

07CA 

btfss 

eeprom,  do 

check  for  state  of  data  bit  to  xmit 

0155 

0039 

0A3C 

goto 

bitlow 

low?  go  set  data  line  low 

0156 

003A 

05E6 

bsf 

port_b, sdata 

high?  set  data  line  high 

0157 

003B 

0A3D 

goto 

clkout 

go  toggle  ^te  clock 

0158 

0159 

003C 

04B6 

bibSiew 

bet 

.  pect.jvsdata      ;  output  a  low  bit 

0160 

003D 

05C6 

clkout 

bsf 

port_j3,  sclk 

set  clock  line  hi^ 

0161 

003E 

0000 

nop 

0162 

003F 

0000 

nop 

0163 

0040 

0000 

nop 

0164 

0041 

0000 

nc^ 

0165 

0042 

04C6 

bcf 

port_J>,  sclk 

return  clock  line  low 

0166 

0043 

0800 

retlw 

0 

0167 

0168 

.************************************************************** 

0169 

BITIN  routine  reads  one  bit  of  data  from  the 

0170 

serial 

EE  device  and  stores  it  in  the  bit  'di' 

0171 

.****** 

******************************************************** 

0172 

BITIN 

0173 

0044 

05BA 

tost 

eeprdia«dx 

assume  iqput  bit  is  high 

0174 

0045 

OCBF 

movlw 

b' 10111111' 

make  sdata  aia  input  line 

0175 

0046 

0006 

tris 

0176 

0047 

05C6 

bsf 

set  clock  line  high 

0177 

0048 

0000 

nop 

just  sit  here  a  sec 

0178 

0049 

0000 

nop 

0179 

004A 

0000 

nop 

0180 

004B 

0000 

nop 

0181 

004C 

0000 

nop 

0182 

004D 

07E6 

btfss 

port_b, sdata 

read  the  data  bit                               >  . 

0183 

004B 

04EA 

bcf 

eeprcan,  di 

input  bit  was  low,  set  'di'  acoordlDgly 

0184 
0185 

004F 

04C6 

bcf 

port_b, sclk 

set  clock  line  low 

0186 

0050 

0800 

retlw 

0 

0187 

0188 

^.****** 

*********************************************************** 

8-80 


0139  ;  Transmit  Data  Subroutine 

0190  ;  -  -  roatine  takes  the  byte  of  data  stored  in  the 

0191  <.i  -'.-.i;-oj«  s  i^umtio'  register  and  transmits  it  to  UMi'>aerial  EE  device. 

0192  ;  It  will  then  send  1  more  clock  to  the  serial  EE  for  the 

0193  ;  acknowledge  bit.     If  the  ack  bit  from  the  part  was  low 

0194  ;  then  the  transmission  was  successful.     If  it  is  high,  then 

0195  ;  the  device  did  not  send  a  proper  ack  bit  and  the  ack 

0196  ;  fail  LED  will  be  turned  on, 

0198  IS-  '        ,  T  .  ■ 

0199  0051    OeSA^'  •  novlw      ,8  .  '  • 

0200  0052    0031'  Bsvwf   ..eouhfe  ;'  sat  tha  *bits  te  8 
0201 

0202  TXLP  ' 

0203  0053     04CA  bcf  eeprom.do  ;   assume  bit  out  is  low  i''-  - 

0204  0054     06F0  btfsc      txbuf,7  ;   is  bit  out  really  low? 
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0205 

0055 

05CA 

bsf          eeprcm, do            ;  no,  set  it  high 

0206 

0056 

0936 

call        BITOUT                ;  send  the  bit  to  serial  EE 

0207 

0057 

0370 

rlf          txbuf                   ;  rotate  txbuf  left 

0208 

0058 

02F1 

decfsz    count                   ;   8  bits  done? 

0209 

0059 

0A53 

goit&  .    (FSLP'   «  .*<>c  :     ;  no  -  go  again 

0210 

005A 

0944 

call       BITIN       'f  :     ;  read  ack  bit 

0211 

OOSB 

06BIV 

btfsc      eeprcm, di      •.     ;  check  ack  bit 

0212 

OOSC 

0525 

bsf          port_a,ack£        ;  oet  acknowledge  fail  LED  if  thfe 

0213 

J  device  did  not  pull  data  low 

0214 

0215 

005D 

0800 

ratlw  0 

0216 

0217 

*i»«^:«***************'***************it**«r*'***  *******  ************** 

0218 

Receive  data  routine 

0219 

This  routine  reads  one  byte  of  data  from  the  part 

0220 

into  the  *datai'  register.     It  then  sends  a  high 

0221 

ack  bit  to  indicate  that  no  more  data  is  to  be  read 

0222 

**************************************************************** 

0223 

0224 

005E 

006D 

clrf       datai  •  >xa  :     •  clear  input  buffer 

0225 

005F 

OC08 

movlw      .8                 '      ;  set  *  bits  to  8 

0226 

0060 

0031 

roovwf      count    .!£*•.  • 

0227 

0061 

0403 

bcf         status;^  -           ;  make  sure  carry  bit  ia  l©w 

0228 

0062 

036D 

RXLP 

rlf          datai        ^           ;  rotate  datai  1  toit  left 

0229 

0063 

0944 

call        BITIN                   ;  read  a  bit 

0230 

0064 

06EA 

btfsc     eeprom, di 

0231 

0065 

050O 

'  baf         datal.Q              ;  set  bit  0  if  necessary 

0232 

0066 

02F1 

decfsz    eoiaiit                  ;  8  t4jWU4leB»?tis*i 

0233 

0067 

0A62 

goto      •Mia*'  i^ifT        f  n6,  'SKKiSOBhirtf^                   "  • 

0234 

0068 

0800 

retlw  0 

0235 

0236 

**************************************************************** 

0237 

Power  up  routine 

0238 

This  is  the  program  entry  point.     I/O  line  status  is 

0239 

0240 

0241 

PWRUP 

0242 

0069 

ocoo 

movlw  b'00000<9#0' 

0243 

006A 

0005 

tris      port_a                j  siet  port  A  as  all  output 

0244 

006B 

0065 

clrf      port_a                ;  all  Eiuti«l6:'  %kB0lt  Imi 

0245 

006C 

OAeo 

goto  READ 

0246 

0247 

0248 

READ  (read  routine) 

0249 

This  routine  reads  8  consecutive  addresses  of  the 

0250 

serial  EE  device  starting  at  address  00  in  the 

0251 

sequential  read  mode.  Reading  in  this  mode  is  more 

0252 

efficient  than  the  random  read  mode  as  the  control  byte 

O  imit:tMM9^>1MwHl6^  Inc. 


Usihg  the  2430(65  and  24XX32 


0253 
0254 

0255 


and  itddress  have  to-^  sent  only  once  at  the  beginning 
o£- the  sequence.    As  many  consecutive  addresses  as 
needed  can  then  be  read  from  the  part  until  a  stop  bit  is 
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0256 

'Sent. 

In  the  read  mode,  the  16C54  must  send  the  acknowledge 

0257 

bit  after  every  8  data 

bits  from  the  device.     When  the 

0258 

last  byte  needed  has  been  read,   then  the  controller  will 

0259 

send  a 

high  acknowledge  bit  and  then  a  stop  bit  to  halt 

0260 

transmission  from  the  device. 

0261 

tim************************************************************* 

0262 

0263 

0264 

006O 

0425 

bcf 

port_a,ackf  ; 

clear  the  ack  fail  LED  if  on 

0265 

006E 

0C08 

BOVlW 

.8 

.  - , 

0266 

006F 

0032 

movwf 

bcount  ; 

set  nuEdber  of  bytes  to  read  as  8 

0267 

0070 

OCAO 

movlw 

b'lOlOOOOC  r 

set  slave  address  and  write  aeds-  -a 

0268 

0071 

002P 

movwf 

slave 

0269 

0072 

0077 

clrf 

addrl 

set  starting  high  address  to  00 

0270 

0073 

006C 

olrf 

addr  ; 

set  stzurting  low  address  to  00 

0271 

0272 

0074 

090E 

call 

BSTABSP  ; 

generate  start  bit 

0273 

0075 

02  OF 

movf 

slave, w  ; 

get  slave  address 

0274 

0076 

0030 

movwf 

txbuf 

into  transmit  buffer 

0275 

0077 

0951 

call 

TX 

and  send  it 

0276 

0078 

0217 

movf 

addr 1 ,  w  ; 

get  word  1  address                         -  ".         .  •  ij 

0277 

0079 

0030 

movwf 

txbuf 

into  transmit  buffer 

0278 

007A 

0951 

call 

TX 

and  send  it 

0279 

007B 

020C 

movf 

addr,w  ; 

get  word  0  address  m 

0280 

007C 

0030 

movwf 

txbuf  ; 

into  transmit  buffer 

0281 

007D 

0951 

call 

TX 

and  send  it 

0282 

007E 

090E 

call 

BSTART 

generate  start  bit 

0283 

007F 

OCAl 

movlw 

b' 10100001'  ; 

get  slave  address  and  read  mode 

0284 

0080 

0030 

movwf 

txbuf 

into  transmit  buffer 

0285 

0081 

0951 

•  ■-■ .  i-» 

and  tramralt  lb  .. 

0286 

0287 

0082 

095E 

rbyte 

call 

RX 

read  1  byte  from  device 

0288 

0083 

02F2 

decf sz 

bcount  ; 

are  all  8  bytes  read? 

0289 

0084 

0A8C 

goto 

lowack  ; 

no,   send  low  ack  and  do  another 

0290 

0085 

05CA 

bsf 

eeprom,do  ; 

yes,   send  high  ack  bit 

0291 

0086 

0936 

call 

BITOUT 

to  stop  transmission 

0292 

0087 

0923 

1  j  ■ 

wd  said  a  stop  bit 

0293 

0294 

0038 

OCFF 

movlw 

.255 

l«4r 'dnlflp  f oc  scQ^                          .,  ,j 

0295 

0089 

0035 

movwf 

loops  ; 

trlgEteiB^  purposes:  isaly 

0296 

008A 

0901 

call 

wait      .  , 

0297 

008B 

0A6O 

start  sU  over 

0298 

0299 

oosc 

04CA 

lo%fack 

bcf 

eeprcm,  do  ; 

send  low  ack  bit 

0300 

008D 

0936 

cttl-1 

BITOOT 

to  ccntlnue  transmission 

0301 

008B 

0A82 

got:e 

and  riacuS.  aiiot!h^i&  laQ^te 

0302 

0303 
0304 

.     -        .J .  • 

'  t. . 

8-82 
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0001  LIST  P=16C54,c=132 

QQQ2  ,  *  ************************************************** 

0003  ;  Program  to  set  the  high  endurance  block  on  the  64K 

0004  ;  device  (24XX65).  This  routine  dSM  apply  to  the  24XX32.(122  byfc«s) 

0005  ; 

0006  The  2tlfi6^  is  a  64K  device,  4K  of  which  is  errosi  c 

0007  t  il'  corrected  to  increase  the  endurance  of  that  porti«^ 

0008  ■  ;  of  the  array.     The  location  of  this  high  endurance 

0009  ;  'block'  can  be  set  by  the  user.     When  the  device 

0010  ;  cc»iies  from  the  factory,   the  high  endurance  block 

0011  ;  will  ha  t»t.,am,tl^taj^g0faslio»t  block  in  the  array. 

0012  ; 

0013  ;  Ibim  i^eegem  Mi*  ^»  high  mauraae^  block  as  Ci|e  i 

0014  ;  fiese  Mock  lb  the  eurraty  (addreaa  jcawige.jOS^  to  ]Mb)>a£.. 

0015  ;  , 
OOie  . .  •gba  high  endurance  block  i>a  set  by  <aMMMiMf>4M><C»]I^Hjnai' 

0017  ;  sequence  to  the  device: 

0018  ; 

0019  ;  SB  10100000  IXXAAAAX  XXXXXXXX  OOXXOOOO  Sfl, 
°020  ;  .^aO  ntae»Mb 

0021  ■•  r     ....••WteaHl'aawsliarts  bib  •  ■  

0022  J  l=data  hisSi  -if- 

0023  ;  Osdata  low 

0024  .S.i:L.:,.v  j  ■-•    -:.Jt?i3<Mi'.t  care  jt-, 

0025  ;  AAfti^4  bit  hi^  ffiianraTic%j|ljfaa)^  iltfelWP 

0026  ;  STBsstop  bit 
0027 

0028  ;  As  an  option,  the  user  may  connect  a  LED  to  pin  18 

0029  ;  on  the  PIC16C54  (use  about  a  IK  resistor       series)  as  an  ' 

0030  ;  acknowledge  fail  indicator.     This  LED  will  ccme  on  i£ 

0031  ;  the  serial  EE  fails  to  acknowledge  correctly. 

0032  ; 

0033  ;  Timing  is  based  on  using  the  PIC16C54  in  'XT'  mode 

0034  ;  using  a  4MHz  crystal .    Clock  speeds  to  the  serial  WS^ 

0035  ;  will  be  approximately  60  kHz  ^or  this  setup. 

"036  ,-  <*<>9<  =0  •=«  j  «>*  V  ' 

0037  ;             .  ■  ttei^Si-)^-  tm^t  M  @0l)M^1liM^      .  r      -  ,1)9''         '  " 

0038  ; 

0039  ;  PIC16C54  Serial  EE 

0040  ;      ,  ^ 

0041  ;  Pin  12   (RSe)  ->  SCLK 

0042  ;  Pin  13   (RB7)  ->  SDJLTA 

0043  ; 

0044  ;  PIN  18  (RAl)  ->    Acknowledge  fall  (Optional); 
Q045  .************************************************************ 

0046  ;  Register  Definitions 

QQ^^  .************************************************************ 

0048  0005    port_a  equ      •  Sh  ;  port  5  (port_a)  used  for  LEDs 

0049  0006    port_b  equ  Sh         ;  port  6  (port  b)  used  for  data  and 
AffSiO  ;  clock  lines  ^..-  '^ 
SMl  OOOA   eepxom  .  «gp*jal>MW«  r  i         buffejr  .  ,j 
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Iilne     PC  Opcode 

-  . 

0052  DOOB    bycnt  eQu       Obb  ;  byte  counter  for  read  made 

0053  OOOC    addr  eqa       6c9>  ;  word  0  address  counter 

0054  OOOD    datal  equ       Odb  ;  data  input  register 

0055  COOS    datao  equ       Oefa  ;  data  output  register 

0056  OOOF    slave  equ        Ofh  ;  device  address  (lOlOxx^Of.)-.  .WU^  9f9- 

0057  0010     txbuf  equ        lOh  ;   transmit  buff^,-.  ^.4  *4M  *tt'> 

0058  0011    count  equ        llh  ;  bit  counter 

0059  0012    bcount  equ       Ufa  ;  byte  counter 

0060  0015    loops  equ        15h  ;  delay  loop  counter 


em 


0061 
0062 
0063 
0064 

0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 


0016 
0017 
0018 


0001 
0002 
0003 


loops2    equ       teh         ;  delay  loop  eountet  ■  '  •  w^i.. 

addrl      equ       17h         ;  word  1  address  counter 
he_)>lk    «^       ISh         ;  high  endurance  block  address 


Bit  Definitions 
********************* 


*************«?«** 


0007 

di 

equ 

1 

;  eeprom  input  bit 

0006 

do 

equ 

6 

;  eeprom  output  bit 

0007 

sdata 

equ 

7 

;   serial  EE  data  line  (port_b,pin  13) 

0006 

sclK 

-  equ 

6 

;  serial  ES  clock  line  (pert_b,pin  12) 

0001 

1 

7  acknowledge  fall  LED  (port_a,pln  1<8) 

********** 


t********* **************************** ************ 


0000 
OIPF  0A5B 

0000 
0000  0A5E 


org  01  f  f h      i^V/Vm^MS^B^HSox  " 

goto  PWRUP 

org  OOOh     ■         - '  '       '     '   '-  ' 

goto  PWRUP 


l'>r:y«*4**«***««  ««»«**«'*  *N»*««Mr*«i«*r*******«*******«*;***^****<^ 
DELAY  ROUTINE 

;  This  routine  takes  the  value  in  "loops'  t 

;  aiid  multiplies  it  times  1  millisecond  to 

i  dataznilAa  delay  time. 

J  *****#**************************##;**«****.*****«**#****»****** 
M&IT 


0C6E  top 
0036 

0000  top2 


0004  0000 

0005  0000 
0006 
0007 
0008 
0009 
OOOA  0A03 

OOOB  02F5 
OOOC  OAOl 
OOOO  0800 


0000 

0000 
02F6 


movlw  .111) 

nop 
nop 
nop 
nop 
nop 
nop 

decfsz  loops2 


goto 


top2 


decfsz  loops 


timing  adjustment  inVt 
sit  and  wait 


inner  loops  con^lete? 

no,  go  again 

outer  loops  complete? 

no,  go  again 

yea,^  f etdrH^fiytii  sub 
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Line 

PC 

Opcode 

..                                 .  i 

0103 

.  *4f#**'« 

«««««******  ***^^**««w***«.w*«*********'*****i)<(  #************ 

0104 

start  Bit  Subroutine 

0105 

this  routine  generates 

a  start  bit 

0106 

(Low  going  data  line  vdiile  clock  is  high) 

0107 

. *************** 

*********************************************** 

0108 

0109 

BSTART 

0110 

OOOE 

OSES 

baf 

portj3,aidata 

;  maka  sura  data  la  high 

0111 

OOOF 

0C3P 

movlw 

b'OOllllll' 

0112 

0010 

0006 

tris 

portjj  ■ 

M'if  d^t«'''«iUt''cloek'll«*«I<'£»£"'ouig[Wt' 

0113 

0011 

04C6 

bof 

port_b, sclk 

;  make  sure  clock  1>  low 

0114 

0012 

0000 

nop 

0115 

0013 

05C6 

bsf 

port_J>,aclk 

;  aet  clock  high 

0116 

0014 

0000 

nop 

0117 

0015 

0000 

nop 

0118 

0016 

0000 

nop 

0119 

0017 

0000 

nop 

0120 

0018 

0000 

0121 

0019 

04K6 

ptfejb.adata 

;  data  line  goes  low  during 

0122 

;  hl^  clock  for  atart  bit 

0123 

OOIA 

0000 

nop 

0124 

OOIB 

0000 

nop 

- ."  ■  I, 


0125 

OOlC 

0000 

■  ZlOp 

»i-    ....  ■  z^d 

0126 

OOID 

0000 

0127 

OOIB 

0000 

0128 

OOIF 

04C6 

hci 

portjs,  BClk 

-  an&^t  ele^  t^^ss^  <. 

0129 

0020 

0000 

nop 

0130 

0021 

0000 

nop 

0131 

0022 

0800 

retlw 

0 

0132 

0133 

************************************************************ 

0134 

Stop  Bit 

Subroutine 

0135 

This  routine  generates 

a  stop  bit           'i^'i  ^><^'r 

0136 

(Ki^  goi^  4«ta  line  «&ile  clock  is  high) 

0137 

0138 

BSTOP 

0139 

0023 

0C3F 

movlw 

b'OOllllll' 

0140 

0024 

0006 

tris 

port_b 

;  set  data/clock  lines  as  outputs 

0141 

0025 

04E6 

bcf 

port_b, sdata 

;  make  sure  data  line  is  low 

0142 

0026 

0000 

nop  ■ 

0143 

0027 

0000 

0144 

0028 

0000 

nbp 

0145 

0029 

05C6 

bsf 

port_b,sclk 

;  set  clock  high 

0146 

002A 

0000 

nop 

0147 

002B 

0000 

nop 

0148 

002C 

0000 

nop 

0149 

002D 

05Ee 

bsf 

port_b, sdata 

;  data  goes  high  while  clock  high 

0150 

0151 

002B 

0152 

ao2F 

0000 

mm 

XT 

0153 

0030 

04C6 

;  ffftt  clock  low  again 

•l-M 
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Line 

PC 

Opcode 

1  'i:^ 

Sid  Mu*^s>  ; 

.Mfntm*  tod 

it  5  J«l  ci  ' 

0154 

0031 

0000 

0155 

0032 

0000 

nop 

-  Jr. !i»R  • 

0156 

0033 

0000 

0157 

0034 

0800 

xetlw 

0 

0158 

0159 

0160 

BITOOT 

routine  takes  ant 

e  bit  o£  ^ta  jiii  ^-ido*  and  ^■ 

01«1 

0161 

***************************  *#*««**>ik.^4t^<kfr#^ 

0163 

BITOUT 

Of-*' 

0164 

0035 

0C3F 

movlw 

b'OOllllll' 

;  set  data, clock  as  outputs 

0165 

0036 

0006 

tris 

port_b 

■  *  1 

0166 

0037 

07C» 

btfss 

eeproin,do 

;  check  for  state  «f  data  bin  m 

0167 

0038 

(M13B 

goto  - 

bitlow- 

0168 

0039 

05E6 

bs£ 

■  .poxt.J^»ctetta(  i 

,•  met  data  itBaWiSh 

0169 

003A 

0A3C 

goto 

clkout 

!  go  toggle  thepifclieek 

0170 

0171 

003B 

04Ee 

bitlow  bcf 

port_b, sdata 

;  output  a  low  bit 

0172 

003C 

05C6 

clkout  bsf 

port_b, sclk 

;  set  clock  line  high 

0173 

003D 

0000 

nop 

0174 

003E 

0000 

0175 

003¥ 

ooeo 

->»o  Job 

0176 

0040 

0000 

nop 

0177 

0041 

04C6 

bcf 

twttjj,  sclk 

;  fi^tUJSi  elwat  line  IW 

0178 

0042 

0800 

retlw 

0 

0179 

0180 

0181 

BITIN  routine  reads  one 

bit  of  data  from  the 

0132 

0183 

0184 

BiTm 

_.'«,f-'e« 

0185 

0043 

05EA 

bsf 

eeprom.di 

•  assume  input  bit  is  high 

0186 

0044 

OCBF 

movlw 

b'lOllllll' 

;  make  sdata  an  input  line 

0187 

0045 

0006 

tris 

port_b 

0188 

0046 

05E6 

bsf 

port_b, sdata 

;  set  sdata  line  for  input 

8-85 


Using  the  24XX65  aM2§mm 


me 


0189 

0047 

05C6 

bsf 

ssC  cXoc]c  line  hicfh 

0190 

0048 

0000 

nop 

just  sit  here  a  sec 

0191 

0049 

0000 

nop 

0192 

004A 

0000 

nop 

0193 

004B 

0000 

xiap 

0194 

004C 

0000 

nop 

0195 

004D 

07E6 

btfss 

port_b,sdata 

read  the  data  bit 

0196 

004E 

04EA 

bcf 

eeprc3n,di 

input  bit  was  low 

0197 

004F 

04C6 

bcf 

port_j3,  sclk 

set  clock  line  low 

0198 
0199 

0050 

0800 

retlw 

0 

■ 

0200 

0201 

************** 

*******«*****************'*».*****'*»«***«*********** 

0202 

Trannait  Data  Subroutine 

0203 

This  routine  takes  the  byte  of  data  stored  In  the 

0204 

^datao' 

register  and  transmits  it  to  the  serial  EE  device. 
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Line      PC  Opcode 


0205 

;            It  will  then  send  1  more  clock  to  the  serial  EE  for  the 

0206 

acknowledge  bit.     If  the  ack  bit  from  the  part  was  low 

0207 

then  the  transmission  was  successful.     If  it  is  high,  then 

0208 

the  device  did  not  send  a  proper  ack  bit  and  the  ack 

0209 

fail  LED  will  tie  turned  on. 

0210 

**************************************************************** 

0211 

TX  . 

0212 

0051 

0C08 

0213 

0052 

0031 

aeitart    mmfiM.               i  set  the  tbits  to  8 

0214 

■  ta    »»«T  »f.!»»        >       J.     -       ■      ■       <     .   •■'  -i-'^m^.A  -     .  ^ 

0215 

TXLP 

0216 

0053 

04CA 

bcf         eeprom.do           ;  assume  bit  out  is  low 

0217 

0054 

oeFO 

btfsc      txbuf,?               ;  is  bit  out  really  low? 

0218 

0055 

05CA 

bsf         e^rom.do          ;  otherwise  data  bit  =1 

0219 

0056 

0935 

call       BITOOT               ;  serial  data  o»t                     .  ('      •  <■ 

0220 

0057 

0370 

clf         tidsuf                 ;  rotate  txbof  Jaft                          :  ' 

0221 

0058 

02F1 

decfsz    count                 ;  8  bits  done?'-  .'( 

0222 

0059 

0A53 

goto       TXLP                    ;  no  -  go  again 

0223 

005A 

0943 

call        BITIN                   ;   read  ack  bit 

0224 

005B 

oeEA 

btfsc      eeprcsn, di           ;  check  ack  bit 

0225 

005C 

0525 

bsf        p«Kliilp«i|il:»'   ^;.<set  (KteaMbadg»  :Call  LBD  If  the 

0226 

'        J  ■ 

0227 

005D 

0800 

ratlw  0 

0228 

0229 

**************************************************************** 

0230 

Power  up  routine 

0231 

This  is  the  program  entry  point,  which  in  this  case  slsply 

0232 

sets  the  port_a  I/O  lines  and  directs  control  to  the 

0233 

hyta  write  routine. 

0234 

J  **************************************************************** 

0235 

PWRUP 

0236 

005E 

ocoo 

movlw    b' 00000000' 

0237 

005F 

0005 

tris      port_a                 ;   set  port  A  as  all  output 

0238 

0060 

0065 

clrf      port_a                ;  all  output  lines  low 

0239 

0081 

0M2 

ge)^     m^MMk            ;  sat  go  set  the  high  endurance  block 

0240 

0241 

•  ***|^*A^****)Mt************************A*.************************  J 

0242 

1            Sat  High  Endurance  Block  Routine 

0243 

This  routine  sets  the  high  endurance  block  to  the  jClrst 

0244 

block  in  the  array  and  then  delays  about  a  half  <sapond.  nils 

0245 

routine  will  repeat  forever. 

0246 

*************^***^^***«^}fe*****************.******  ***************** 

0247 

0248 

sethablk 

0249 

0250 

0062 

0065 

clrf       port_a                  ;.  elmr  all  U38si 

0251 

0063 

002F 

movwf  slave 

0252 

0064 

ocoo 

movlw      . 0  . 

e  1M4  Microchip  Technobgy  Inc. 
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0253 

0065 

0038 

stfit  tbd  endurance  block  as  first 

0254 

block  in  array  (block  0) 

0255 

0066 

0378 

rlf 

he_blk 

rotate  starting  block  left  1  bit 

16c5x/7x  Cross-Assesnbler 
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Li  e 

PC 

up cods 

0256 

i>  -.lit 

„ ,    , , 

f    e  ■     . .        •  '  '  •        ■  , 

to  arrange  it  o9r£«etly 

0257 

0067 

05F8      w  J* 

he  bllc  7  • 

set  msb  bit  in  block  address  byte 

0258 

0068 

090E 

call 

BSTART  ; 

generate  start  bit 

0259 

inovlw 

'  1  m  nnnnn  ■ 

D  luiuuuuu  ; 

get  slave  address  and  writa  node 

0260 

006A 

0030 

movwf 

txbuf 

into  transmit  buffer  : 

0261 

0951 

call 

TX  ; 

and  send  it 

0262 

00  dC 

0218 

inovf 

he_bllc ,  w  ; 

get  the  block  address  byte 

0263 

00  6D 

movwf 

txlsuf  ; 

into  tremsxnit  buffer 

0264 

006E 

call 

TX  ; 

and  send  it 

0265 

006P 

0070 

clrf 

txbuf  ; 

clear  buffer 

0266 

0070 

0951 

call 

TX  ; 

send  8  don't  care  bits 

0267 

0071 

0070 

clrf 

txbuf 

0268 

0072 

0951 

call 

TX 

send  config  byte(all  O's) 

0269 

0073 

0923 

call 

BSTOP  ; 

s«xd  stop  bit 

0270 

0271 

■-^^ 

0272 

0074 

OCFP 

movlw 

,255 

long  delay 

0273 

0075 

0035 

movwf 

loops  0:a^ 

0274 

0076 

0901 

call 

wait 

0275 

0077 

OCFF 

movlw 

.255 

0276 

0078 

0035 

movwf 

loops 

0277 

0079 

0901 

call 

wait 

0278 

0279 

007A 

0A62  i 

go  again'  < 

0280 

-  .  -  -    ■  r 

0281 

r-i      j-a    -  ■  - 

0282 

0000  END 

it 


rjt  nan  ti»*«e.i»n  ■; : 


»«7 
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0001 

set  the  security  cation 
0004 
0005 
0006 

0007  <jvri  r.jg.t  , 

0008 

0009  .1  3 

0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 

0046  ; 
0047 
0048 
0049 
0050 
0051 

16c5x/7x  Cross-Asseonbler 
Line      PC  encode 


LIST 

*************************************  0003 
(write  protect) 

on  the  64K  device   (24LC65).       (125  bytes) 


P=16C54,c=132  0002 
.  t        ;  Program  to 


The  security  option  (or  write  protect  option)  allows 
t3m  usex'  to  write  p^rotect  any  Bwt^mg  of  cse»eeiij^«w 
4K  blocks  in  the  deyice.  - 

This  program  sets  the  security  cation  to  protect  the 
lower  4  blocks   (2K  bytes)   in  the  array. 


********** 


CAUTIONS  TO  THE  USER   ] ! ! !  ********** 


1)   THE  SECURITY  OPTION  CAN  ONLY  BE  SET  ONCE!! 

2i  lies  mm  smmiANCE  block  cannot  be  chansed 

AFTER  THE  SBCDRIT7  OPTION  IS  SET. 

r3)'.  THB  HIGH  ENDURANCE  BLOCK  CANNOT  BE  PROTECTED. 

The  security  option  is  set  by  sending  the  following 
to  the  device: 


1011^000  iwiwiwar  'UBIBTOK*  ifasDiniH 


SB=start  bit  :li        ■.i  v;, 

isdata  high  *  ^     -  • 

0=data  low 

X=don ' t  care 

AAAA=4  bit  number  to  indicate  first  secure  block  (0-15) 
IHW=4  bit  number  to  indicate  bow  mai^  i^bghbc  ISj^o^Rsd-lS) 
STB=st^  bit 

As  an  option,   the  user  may  connect  a  LBD  to  pin  18 
on  the  PIC  16C54   (use  about  a  IK  resistor  in  serie?)  as  an 
acknowledge  fail  indicator.     This  LED  will  come  %£ 
the  serial  EE  fails  to  acknowledge  correctly. 

Timing  is  baaed  on  using  the  FIC  iecS4  in  *XT'  mode 

#  Clock  ^eeds  to  the  sesii^  )m 

Will  'im  inpiKeit&MaAy  60  Khss  fpx  this  setup. 

PIC  1.61^''  'fe<a  '9igei»3t  flS'  ^SeaiMiisfeionsi 

PIC  16C54  Serial  BE 


Pin  12  (RB6)  -*  mSM^ 
Pin  13  CRB7} 


PIN  18  (RAl)  ->    Acknowledge  fail  LED  (Optional); 
******************************************************** 

Register  Definitions 
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0052 

.  it************** 

*  *  *  *  It**  * 

*** 

********************************** 

port_a 

equ 

5h 

port  5 

(por t_a; 

used  for  LEDs 

0054 

0006 

port_b 

equ 

6h 

port  6   {port  b)  \ised  for  data  and 

0055 

clock  lines 

0056 

OOOA 

eeprom 

equ 

Oah 

bit  buffer 

0057 

OOOB 

33yont 

equ 

Obh 

byte  counter  for  read  mode 

0058 

OOOC 

addr 

eqa 

Och 

word  0  address  counter 

0059 

GOOD 

datai 

equ 

Odh 

data  input  register 

0060 

OOOE 

datao 

equ 

Oeh 

data  output  register 

0061 

OOOF 

slave 

equ 

Ofh 

device  address  (lOlOxxxO) 

0062 

0010 

txbuf 

equ 

lOh 

transmit  buffer 

0063 

0011 

count 

equ 

llh 

bit  counter 

0053 


0005 


BSOOSGBBiOBMiaB 


0055 

.1 

lines                    <10E  ' 

0056 

OOOA 

eeprom 

e<ga 

dah 

t  hit  Buffer                  T-tr                       '       ? ' 

0057 

OOOB 

bycnfe 

equ 

Obh 

;  byte  counter  for  read  iriode 

0058 

OOOC 

addr 

equ 

Och 

;  word  0  address  counter 

0059 

OOOD 

datai 

equ 

Odh 

;  data  input  register 

0060 

OOOE 

datao 

equ 

Oeh 

;  data  output  register 

0061 

OOOF 

slave 

equ 

Ofh 

;  device  address  (lOlOxxxO} 

0062 

0010 

txbuf 

equ 

lOh 

;  transmit  buffw                                 0'.<.      ■  Jl 

..  . .  1 

0063 

0011 

count 

equ 

llh 

!  bit  counter               'r">  '-' 

0064 

0012 

bcount 

Ax4$h,-.  ti- 

; ibyte  counlas  '  "i 

0065 

0015 

loops 

lth 

;  delay  loop  counter 

0066 

0016 

loops2 

equ 

16h 

;  delay  loop  counter 

0067 

0017 

addrl 

equ 

17h 

;  word  1  address  counter 

0068 

0018 

strt_blk  equ 

18h 

;  starting  block  nuiT±>er  for  secure  portion 

0069 

0019 

19fi 

<  oMher  of  secure  blocks 

0070 

0071 

Bit  DefliiltiOH*  s                              ;  _  .  't 

0072 

■  iP 

0073 

0007 

di 

equ 

7 

eeprom  input  bit 

0074 

0006 

do 

equ 

6 

eeprom  output  bit 

-    .  t' 

0075 

0007 

sdata 

"dqu 

7 

serial  EE  data  line  (port_b,pin  13) 

0076 

0006 

sclk 

equ 

6  ^ 

serail  EE  clock  line   (port_b,pin  12) 

0077 

0001 

ackf 

equ 

X 

acknowledge  fail  LED  (port_a,pin  18) 

0078 

J  ************************ 

0079 

;  OOSO 

;  OOM 

MM               mmpa    Oi££fa     ;  set  rciaet  vector 

0082 

OlFF 

0A5E 

0083 

0000 

O'6i0h  ! 

0084 

0000 

0A5E 

goto 

PWRUP 

0085 
0086 

******** 

*****************************************************  0087 

; 

DELAY 

ROUTINE 

0088 

This  routine  takes  the  value  in  *  loops' 

0089 

'■•J  i  1 

*^  tbltipilies-lr  times^l  inilllaecQnd  to.' 

0090 

detemlli^  Selay  tine. 

0091 

.  *************************************************************■; 

0092  WAIT  0093 

adjustment  variable 


0094      0001    0C6E  top 


movlw 


.HQ 


timing 


0095 

0002 

0036 

movwf 

0096 

0003 

0000  top2 

nop 

;  sit  snsi  wait    t-^  >^ 

0097 

0004 

0000 

•  pjn                     r  0 1, 

0098 

0005 

0000 

-lot  iiV 

0099 

0006 

0000 

itop 

0100 

0007 

oboo'  — " 

nbi>'  "  ~  ■ 

0101 

0008 

0000 

nop 

0102 

0009 

02P6 

decf sz 

loops2 

;  inner  loops  complete?  i 

16c5x/7x  Cross-Assembler 
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Line 

PC 

Opcode 

0103 

OOOA 

0A03 

goto 

top2 

;  no,  go  again 

0104 

0105 

OOOB 

02P5 

decfsz 

loops 

r  outer  loops  complete? 

0106 

OOOC 

OAOl 

'  goto 

;  no,  go  again  - 

0107 

OOOD 

0800 

retlw 

0 

,*  yes,  return  from  sub 

0108 

0109  ;**• 

Start  Bit  Suasroutiae 
0111 
0112 
0113 
0114 
0115 
0117 
0118 
0tl9 
0120 
0121 
0122 
0123 
0124 


this  routine  generates  a  start  bit 
{Low  going  data  line  while  clock  is  high) 
************************************************************** 


BSTAKT  SiiM     <W:a   SSKS  Jim       fKfet^iiMie*     :  aaUm:  We«e  SUmt''  is 

OOOF  0C3F  Msnrte     l»''«fiaitt'                                              t  ?»:< 

0010  0006  ■♦••••*«««**'iaiiiye"»"«»*Y'8«»r«*»^sw^rta«*^  jij 

0011  04C6  ■  fee*     •  wext^imsSk  «a#«ai» ^Saa^  ^««to*«J»ls«?                     if  ■  ■(? 

0012  0000  nop 

0013  05C6  bsf  port_b,sclk  ■  "V  febT  block  high 

0014  0000  nop  -  •' 

0015  0000  '■  itaiJ  --  ••Jt^.    M/ea           ■  ,  :  1 1 ! ri: !  •  4      »Iv-m  'iS 

0016  0000  nop  - 


3pi 


0125 

0017 

0000 

0126 

0018 

0000 

0127 

0019 

04E6 

012S 

0129 

OOIA 

0000 

0130 

OOIB 

0000 

0131 

OOlC 

0000 

0132 

OOID 

0000 

0133 

OOIE 

0000 

0134 

OOIF 

04C6 

0135 

0020 

0000 

0136 

0021 

0000 

0137 

0022 

0800 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0146 

0024 

0006 

0147 

0025 

04E6 

0148 

0026 

0000 

0149 

0027 

0000 

0150 

0028 

0000 

0151 

0029 

05C6 

0152 

002A 

0000 

0153 

002B 

0000 

16c5x/7x  Cross-As 

Line 

PC 

Opcod 

nop 
nop 

abdMuii  ■jpf^jyhiiiilat-*-- 

nop 
nop 
nop 
nop 
nop 

bc£  port_^.sclk 

nop 

nop 

retlw  -0 


data  line  goap  low  during, 
hi^  clock  feCf  start  bith 


timing  adjustment 

start  ;c}.oclc  tcaia  ji^^co 


*************************************** 


1  Stop  Bit  Subroutine 

;  This  routine  generates  a  stop  bit 

;  (High  going  data  line  while  clock  is  high) 

■  *********  *****ir**********tf*****ff*1e************************fi*  . 

BSTOP  0145      0023    0O3F  jBOvlw     b'OOlllUl'  ; 

tris       portjb  ;  set  data/clock  li«es  as  outputs 

bcf         port_b>sdata  ;  make  sure  data  line  is  lew 

nop                            4  ,  .  .  i'  '    •  .  .  H.- 

nop  •   

nop                   .  ^iiO  , 

|»i  fi!^4y^.<9«Xk  ;  set  cl^i^  high  a  • 
nop 

nop  r 
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0154 

002C 

0000 

nop 

0155 

002D 

05B6 

bsfi. 

;  data  goM  tiii^  iMile  miMf, 

0156 

i  for  st^  bit 

0157 

002E 

0000 

nop 

0158 

002F 

0000 

nop 

0159 

0030 

04C6 

bcf 

port_b,sclk 

;  set  clock  low  again 

0160 

0031 

0000 

nop 

0161 

0032 

0000 

nop 

0162 

0033 

0000 

me 

■1  ■ 

0163 

0034 

0800 

reClw 

0 

0164 

0165 

*************************************************i^^1fp*********  oi€€ 

BITOUT  routine  takes  one  bit  of  data  in  'do'  and 


0167 
0163 


;  transmits  it  to  the  serial  EE  device 

■  ************************************************************* 


0169 

BITQOT  0170 

0035 

0C3F 

«Ml3iW    b' 00111111'       ;  set  datsa.icl^ck  ay-oiitsii^ 

0171 

0036 

0006 

tris 

port_b 

0172 

0037 

07CA 

btfss 

eeprcnn,  do 

;  check  for  state  of  data  bit  ;t|qi3Biiiit 

0173 

0038 

0A3B 

goto 

bitlow 

0174 

0039 

05E6 

bsf 

port_b,sdata 

;  set  data  line  higli 

0175 

oe3A 

0A3C 

goto 

elkout 

■  go  toggle  the  oj^i^ 

0176 

0177 

0038 

04E6  bitloH 

bcf 

port_b, sdata 

1  output  a  low  bit 

0178 

003C 

0SC6  elkout 

bsf 

port_br  sclk 

;  set  clock  line  his^ 

0179 

003D 

0000 

nop 

0180 

003E 

0000 

nop 

0181 

003F 

0000 

nop 

0182 

0040 

0000 

nop 

0183 

0041 

04C6 

bcf 

port^,sclk 

;  return  clock  line  low 

0Jt84 

<tft9iS  .  J  ill  • 

0185 

0186 

j^*^***%*i*************^**^*****%*********************************  ^xVh  s 

BITHf  routine  reads  on*,  bit 

of  data 

from  the  0188 

;      '      serial  BE  device  and  stores 

it  in 

•dl' 

0189 

****************************** 

********************************* 

0190 

BITIN  0191 

0043 

OSEA 

bsf        eeprooifdi          ;  assume  input  bit  is  hi0i 

0192 

0044 

OCBF 

movlw 

b'lOllllll' 

•  make  sdata  an  input  line 

0193 

0045 

0006 

tris 

port_b 

8-90 


0194 

0046 

05E6 

0195 

0047 

05C6 

0196 

0048 

0000 

0197 

0049 

0000 

0198 

004A 

0000 

0199 

004B 

0000 

0200 

004C 

0000 

0201 

004D 

07Ee 

0202 

004E 

04EA 

0203 

004F 

04C6 

0204 

bsf 
bsf 

npp 
nop 
nop 

.  9a> 

im£ 


,  portjs.adata 
portal  splk 


port_)3,sdata 
eeprcnt,  dl 
port_b,sclk 


Line      PC  Ctpcode 


set  sdata  line  for  ifigiut 

set,  cloc^  line  ti^^ 
jmitt  si^         «  a<ie 

7  •<ti-   l-.j  ^sJ 


read  the  data  bit 
input  bit  was  low 
set  clock  line  low 
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0205 
0206 
0207 
0208 

0209 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0219 
0220 
0221 

q2»3 

0224 

0225 
0226 
0227 
0228 
0229 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 
0238 
0239 
0240 
0241 
0243 
0244 
0245 
0246 
0847 
'e2'48' 
0249 
0250 
0251 
0252 
0253 


0050  0800 


bun  1 


• **************************************************************** 

;  Transmit  13a ta  Subroutine 

;  This  routine  takes  the  byte  of  data  stored  in  the 

;  *datao'  register  and  transmits  it  to  the  serial  EE  device. 

;  It  win  then  send  1  more  clock  to  the  serial  EE  for  the 

;s  acknowledge  bit.     If  the  ack  bit  from  the  part  was  low 

;  then  the  transmission  was  sucessful.     If  it  is  high,  then 

;  the  device  did  not  send  a  proper  ack  bit  an4  asl: 

;  fail  LED  will  be  turned  on. 

.  ********************************  *  ************** 


TX  821«      6t51  0C08 


movlw 


0052 

0031 

movwf 

count 

set  the  #bits  to  8 

TXLP  0222  0053 

04CA 

bcf          eeprom,do            ;  assume  b 

om. 

uOSFO, 

btfsc. 

is  bit  out  .really  low? 

0055 

OSCA 

bsf 

eeprcB>,d9 

otherwise  data  bit  =^1 

0056 

0935 

call 

BITOUT 

serial  data  out 

0057 

0370 

rlf 

txbuf 

rotate  txbuf  left 

0058 

02P1 

decf sz 

count 

8  bits  done? 

0059 

0A53 

goto 

TXLP 

no  -  go  again 

005A 

0943 

call 

BITIN 

read  ack  bit 

005B 

06BA 

mtsc 

eepran,  dl 

check  ack  bit 

005C 

0525 

port_a,aGkf 

set  acknowledge  fail  LED  if  tlie 

005D 

0800 

retlw 

0 

005F 
0060 
0061 


***************************  •..*M'9f^m*ifm-if*Mf^»M^ 
Power  up  routine 

This  is  the  program  entry  point,  vAiich  in  this  case  siioply 
sets  the  port_a  I/O  lines  and  directs  control  to  the 
byte  write  routine. 

*********************  AAAttAAAtt-ftftftAAftAft^AAAAA^ftAAftAftlkft^r*********** 

PWRUP  0242       005E    OCOO  movlw    b' 00000000' 

0005  tris      port_a  ;  set  port  A  as  all  output 

0065  clrf      port_a  ;  all  output  lines  low 

0A62  goto      set^soe  ;  »m%       mm-  Wm  m&dmmaxm  blec^ 


J  ***************  ******************  ***«****«4ji^;i|^4j^ 

;  Set  Security  Routine 

J  ISiis  routine  sets  the  secure  portion  of  the  array  to  the 

Ic^r  4  blocks  {2K  bytes)  in  the  array  and  then  delays 
£^out  a  half  second.    This  routine  will  repeat  forever. 

******************-*******<*  *.4Mp»;#.«:*#;.*««*****i|r** 


**************** 


0254 


set_sec  0255 


7x  C^oss-Assembler  $fm  met  m  l®ffffl*^  1^   ^^S^)  0. 


16c5x/ 


Line 

PC 

Opcode 

0256 

0062 

0065 

clrf 

port_a 

0257 

0063 

OCOO 

movlw 

.0 

0258 

0064 

0038 

novwf 

BtrtJsUt 

!  set  the  fixBt  protected  bloek  as 

0259 

;  block  0 

0260 

0065 

0C04 

movlw 

.4 

0261 

0066 

0039 

movwf 

seo_blks 

;  set  the  number  of  protected  blocks 

8-81 


0262 

0263 

0067 

0378 

rlf 

c^a^^ii^rr    Vfcl  /'vlr    Toft"    1  Vv4 

0264 

to  aiTxaxigs  It  coirxectly 

0265 

0068 

05F8 

bs£ 

86 1  msb  bl  t  in  sbax'tixiQ'  bloclc  addirsss 

0266 

0069 

05F9 

bsf 

S6t  nsb  bit  blocic  count  byts 

0267 

006A 

090E 

call 

BSTART 

ST^isiratG  stairt  bx  t 

0268 

006B 

rnovlw 

V\ '  1  ni  nnonn  < 

cf6t  s lavs  addJTGSS  and  wsritG  inodG 

0269 

0  06c 

0030 

inovwf 

into  transmit  buffer 

006D 

0951 

call 

and  send  i  t 

0271 

0272 

006E 

0218 

movf 

SCx  t  D±K.t  W 

get  tne  starting  block  addiress 

00€F 

UUJU 

inovwf 

into  'tcaxuBnii'^  bu££ttt '                   -  ^  ■ 

nn'7n 
uu  /u 

UVSX 

TX 

amd  send  it                               .  - 

0275 

0071 

0070 

clxf 

clear  bu££er 

ftmo 
uu  /i! 

U73X 

call 

TX 

SCTia  o  oon  €  caxe  Dies 

0278 

0073 

02 19 

movf 

sec_bllcjB,w 

get  secure  blocks  tfyt-e 

0279 

0074 

0030 

movwf 

txbuf 

into  transmit  bu££er 

0280 

0075 

0951 

call 

and  send  it 

0281 

0076 

0923 

call 

BSTOP 

send  stop  bit 

0282 

0283 

0284 

0077    OCFF  movlw 

• 255                     f  long  delay 

0285 

0078 

0035 

movwf 

loops 

0286 

0079 

0901 

call 

wait 

0287 

007A 

OCFF 

movlw 

.255 

0288 

007B 

0035 

movwf 

loops 

0289 

007C 

0901 

call 

0290 

0291 

007D 

0A62 

goto 

set_sec 

go  again  - 

0292 

0293  ;   0294  0000  END 
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24C01A  Compatibility  Issue  and  Its  Mobility  for  Memory  Upgrade 


INTRODUCTION 


"me  24C01 A  is  a  1 K  (128  X  8)  Serial  EEPROM  which  is 
currently  offered  by  Microchip  and  Xicor.  There  are 
several  important  differences  between  the  two  devices 
which  are  discussed  in  this  report.  This  report  refers  to 
the  Microchip  part  as  the  24C01 A  and  the  Xicor  part  as 
the  X24C01 .  It  is  inteiKled  to  assist  in  designing  a 
memcity  subsystem  which  is  compatible  with  either 
•tovice.  .-9011*^  ■  9,:  1 

GOMPATIBiyTV 

IThere  are  three  major  diffeemeos  batmnen 

A  and  XiQC»'s|QMCid<as4»Mad  belGW. 

1.1  PAS&MO^DIFf%RENCES 

The  24C01 A  was  originally  designed  to  work  in  the  same 
socket  as  the  PCD8572  which  has  a  two-byte  page 
mode.  Therefore,  Its  page  buffer  is  two  bytes  deep.  The 
X24C01  has  a  page  mode  of  tour  bytes  depth. 

If  more  than  two  bytes  are  transmitted  to  the  24C01A 
during  a  page  programming  cycle,  the  24CX)1A  will 
temiinate  the  write  cyde. 

In  many  applications  where  serial  EEPROMs  are  used 
and  speed  is  not  a  key  Issue,  the  byte  write  mode  can  be 
used  without  any  loss  of  system  perfomiance.  If  only  the 
byte  write  mode  is  used,  there  Is  no  compatibility  prob- 
lem (other  than  the  slave  address  software  difference 
discussed  in  1.2). 

If  the  page  write  feature  must  be  used,  two  different  page 
mode  algorithms  can  be  transmitted  by  the  master 
depending  upon  whose  dewce  is  being  UMd.  The  mas- 
ter wiil  have  to  first  do  a  polling  routine  to  determine  if  it 
is  mteifadng  wKh  a  24C01A  or  X24G01.  This  polHng 
technique  is  discussed  in  1.2. 


Interestingly,  the  24C01 A  actually  updates  faster  In  the 
page  mode  even  though  It  has  one-half  the  page 
depth  of  the  X24C01.  This  Is  due  to  the  faster  write 
cycle  time  of  the  24C01  A.  The  two  demfces  are  com' 
pared  in  Figure  1 .  '       ■  <  ■ 

1    SOFTWARE  DIFFERENCES 

Microchip's  24C01 A  is  designed  to  share  a  2-wire  bus  on 
which  it  resides  with  other  devices.  To  support  this,  the 
first  byte  of  each  command  seq  uence  from  the  master  to 
the  24C01A  must  be  a  slave  address.  The  24C01A 
monitors  the  2-wire  bus  for  its  slave  address  and  "wake- 
up"f  rom  standby  mode  if  the  address  transmitted  matches 
its  address  as  defined  by  the  voltage  level  (Vss  or  Vcc) 
on  pins  1 , 2  and  3.  X24C01  does  not  support  a  multiple 
device  bus  and  ieg||ii|^)|^^'|{a$^j:pi^^ 
is  detected. 

A  slave  address  must  be  transmitted  to  the  24C01 A  at 
certain  points  during  reading  and  writing.  This  slave 
address  is  not  required  by  the  X24C01 .  Transmitting  a 
slave  address  to  X24C01  will  result  in  erroneous  opera- 
tion. This  problem  can  be  solved  by  having  the  master 
transmit  the  proper  serial  bit  pattern  to  the  slave,  but  first 
the  master  has  to  asOMM  lirilh  whkJi  24C01A  it  is 
communicating. 

The  master  can  do  a  simple  polling  routine  twfore 
beginning  serial  communication  with  24C01 A  or  X24C01 
to  detemiine  with  which  device  it  is  working.  The  proper 
serial  protocol  for  both  devices  must  be  contained  in  the 
master  controller's  firmware.  Once  the  master  knows 
whKh  24C01 A  is  on  the  bus,  it  can  execute  the  proper 


FIGURE  1  -  PAGE  MODE  DIFFERENCES 


Max  byte  program  time 

1  ms 

10  ms 

Max  page  program  time 

2ms^byt«s) 

10  ms  (4  bytes) 

Max  time  to  program  4  bytes 

4ms 

10  ms 

Max  time  to  rewrite  d«vic8 

128  ms 

S8e0Bt3C«p«gei 


24C01 A  Compatibility  Issue 


The  polling  consists  of  the  pattern  M(e  9»m»,'i^hSm  below: 
SDA  LINE:     I     ST1UI9F  BI*    I  00000001  I 


If  an  X24C01  Is  used  on  the  2-wire  bus,  an  acknowledge 
bit  arid  eight  data  bits  will  be  returned  whereas  24C01 A 
will  issue  no  response  and  will  Ignore  the  comniand. 

2.3  HARDWARE  DIFFERENCES 

Unlflce  the  X24C01 ,  the  24C01 A  is  designed  to  share  a 
Z-Wirs  bus  i^^t^^  ^{^iiicK.,  Chip  address  bits  are 
included  in  ttra  slave  address  for  the  24C01A,  and  are 
incorporated  into  pins  1 ,  2  and  3  of  the  device.  They 
must  be  connected  to  V<£d  m  Vss  for  pro^  ibperation. 
Since  pins  1 ,  2  and  3  of  the  Xicor  part  are  NC  (no 
connect)  pins  and  they  are  not  internally  connected, 
they  can  be  tied  high  or  low. 

Another  hardware  difference  involves  pin  7  which  MUST 
be  connected  to  Vss  on  the  X24C01 .  The  24C01 A  can 
have  pin  7  connected  to  Vss  or  Vcc. 

If  only  one  device  is  plannedforthe  2-wire  bus,  the  board 
be  tnadeconppalible.tor  either  deiriM  by  connecting 
pihsl',i2iyid3tb<Ml«rV^rV^lili^ 


Mobility  For  Memory  Upgrade  And  Expansion 

In  system  applications  where  the  master  device  needs 
to  address  more  than  onia  serial  EEPROM  on  a  2-wire 
bus,  the  Microchip  24C01 A  offers  the  flexibility.  Up  to 
eight  24C01A's  can  be  connected  to  the  2-wlre  bus. 
More  than  one  Xicor  X24C01  connected  to  the  bus  may 
result  In  bus  contention. 

If  memory  upgrade  is  required,  the  Microchip  24C01A 
can  be  upgraded  to  the  24C02A  (256  x  8)  orthe  24C04A 
(512  X  8)  in  the  same  IC  socket  with  NO  change  In 
hardware.  Using  the  Xicor  X24C01 ,  both  software  and 
heudware  woukJ  have  to  be  reconfigured  to  accommo- 
date the  changes.  " 
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SERIAL  EEPROM  WRITE  TIME 
REQUIREMENTS 

Elements  of  the  Write  Cycle  Time 

The  total  write  operation  time  for  a  Serial  EEPROM  is 
determined  by  three  main  elements: 

•  Number  of  bytes  to  load  for  each  write  operation 

•  Busciockspeedatwhichthewriteoperationisloaded 

•  Fixed  internal  write  cycle  timer  required  for  the  pro- 
gramming operation 

The  load  component  of  the  write  command  consists  of 
the  control  byte,  address,  and  the  data  of  up  to  1 6  bytes. 
Tbe  time  required  to  load  the  operation  depends  on  the 
number  of  bytes  to  load  at  one  time  and  ttie  bus  cIpcK 
speed.  Afterttii$lQad.{$XQpilete,thfip^ 
the  Internally  cohtrofea  wife  cycle  and  the  biii^  ^ 
^stem  are  free  to  perform  other  tasks.  The  internal 
write  cycle  timer  is  a  fixed  time  delay  which  Is  requirad 
to  program  the  EEPROM  memory  ceHs.  Tat>l0: 1  0ms 
examplesoftotal  write  timeforl  and16bytesfiorvi>l9its 
parts  at  fast  and  normal  clock  speeds. 

•  Lead  time  (time  at  bus  free)  is  the  time  the  part  is 
being  k>aded  with  the  instructk>n,  address,  and  data. 
The  bus  is  free  after  this  time  interval,  and  the  part 
commences  ttie  intemally  controlled  write  c^le  se- 
quence. 


•  Write  timer  (worse  case)  indicates  the  time  the  part 
is  in  the  intemally  controlled  write  cycle  allowing  for 
the  maximum  specified  datasheet  requirements. 

•  Write  timer  (typical)  indnates  the  time  the  part  is  in 
;ti%N4nwiHy'C0rttplled      c^y^  assMm^^^ 
epMiliopsiirKiitfttzinsi^^  , 

•  Total  wrH«  time  is  thecoMbMdd  Ibail  tiitts  artd'^^teil 
intemal  write  cyde  time.  .      '  * 

MINIMIZING  SERIAL  BUS 
COMMUNICtrrON  TIMS^IN  A 
SYSTEM 

Utilizing  the  Page  Write  Option 

Theoriglnal  Microchip  Serial  EEPROM  products,  though 
utilizing  a  page  buffer,  only  write  bytes  sequentially.  This 
means  the  time  required  to  write  8  bytes  is  8  ms,  worse 
case.  The  new  24LCXX  products  incorporate  a  page 
mode  that  allows  simultaneous  writes  of  up  to  16  bytes. 
This  allows  the  programming  of  up  to  16  bytes  in  one 
write  cycle  (10  ms)  compared  to  1 6  write  cycles  (1 6  ms) 
for  the  original  24CXX  products.  Microchip  uses  an  8 
byte  page  in  the  24LC01  and  24LC02,  and  a  16  byte 
page  in  the  24LC04  and  higher  densities.  What  this 
means  to  a  system  designer  is  a  write  of  8  bytes  in  a 
24LJC01  or  24LC02  woukf  take  10  ms,  worse  i 


TABLE  1  -  WRITE  OPERATION  TIME  COMPARISON 


Page 

#  Bytes 

Speed 

Load  time  (ms) 

Write  timer  (ms) 

Write  timer  (ms) 

Typical  total 

Product 

Width 

to  load 

(KHz) 

time  at  bus  free 

Worse  case 

Typical  (25C) 

write  time  (ms) 

24C01A 

2 

1 

100 

0.28 

1 

0.4 

0.68 

8  (4  X  2) 

100 

1.12 

1 

04 

4.32 

24LC01 

8 

1 

100 

OM 

10 

3 

3.28 

8 

100 

&M 

10 

3 

3.91 

1 

400 

0.07 

10 

3 

3.07 

8 

400 

0.23 

10 

3 

3.23 

240(MA 

8 

1 

100 

0.28 

1 

04 

0.68 

16(2x8) 

100 

1.82 

1 

0.4 

8.22 

24LC04 

16 

1 

100 

0.28 

10 

3 

3.28 

16 

100 

1.63 

10 

3 

4.63 

1 

400 

10 

3 

ao7 

16 

400 

a4i 

10 

3 

3.41 

WW»MluiillfilMiflWl!iiaaii»WB 
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versus  8  ms,  worse  case ,  in  either  a  24C01 A  or  24C02A. 
Loading  the  entire  memory  of  an  original  24C04A  tal<es 
512  ms,  but  the  same  operation  on  a  new  24LC04  is 
reduced  to  only 320  ms,  assuming  worse  case.  As  Table 

1  shows,  the  dm—MTiRi  uilWHiilWlUm  lypicat  -  - 

numbers. 

The  93LCXX  products  do  not  utilize  a  page  mode. 
However,  in  16  bit  mode,  all  1 6  bits  are  written  simulta- 
neously. The  original  93CXX  products  write  the  16  bits 
iii%'Wrtte  cycles,  so  the  write  cycle  time  increase  of  the 
tU^ptbducts  is  only  5  X  (3.5  X  typical). 

Mtt||zinftWr|t»Cyci«pa(nng   , 

One  powerful  method  of  increasing  programniing  effi- 
ciency is  by  periodically  polling  the  part  to  detetmlne  if 
l|^  -vwite  cycle  has  completed.  To  poll  the  24LCXX 
series  products,  a  corrtroi  byte  is  sent  and  the  acloiowl- 
edga  bit  from  the  part  Is  read.  If  the  part  acknowledges 
(pulls  SDA  low),  it  is  ready  to  accept  a  new  command. 
The  part         fe^^j|a^^|^jy|ij|j||.the  Inttnifi^ 

To  poll  the  93LCXX  series  products,  the  chip  select  is 
pulled  high  after  the  write  cycle  commences,  and  the 
data  out  line  is  read  for  the  ready/busy  status.  If  the  part 
is  still  busy,  it  will  pull  the  data  line  low.  When  the 
Internally  timed  write  cycle  is  complete,  the  part  will 
pull  the  data  line  high,  indicating  it  is  ready  for  a  new 
command. 


Serial  EEPROM  System  OptliAization 

Serial  EEPROMs  are  used  in  systems  for  two  purposes: 
storing  data  and  reading  back  data.  Read  operations 
aiB^uli  ciocic  speed,  so  the  only  methods  for  optimiza- 
tion are  to  nin  the  ciocic  at  maximum  frequency  and  to 
utilize  sequential  read  whenever  possible.  Sequential 
read  allows  a  continuous  output  data  stream  on  one 
command. 

The  write  operation,  with  its  intemal  write  timer  compo- 
nent, needs  special  consideration  when  designing  the 
control  software.  Efficient  operation  can  be  accom- 
plished using  both  the  page  mode  and  write  cycle 
polling.  The  following  example  shows  a  typical  fetch- 
store  operation  in  a  system  and  how  optimization  can  be 
incorporated.  In  the  example  system,  the  microcon- 
troller must  fetch  bytes  of  data  from  a  sensor  and  send 
the  bytes  to  a  EEPROM  for  storage.  Two  cases  are 
shown  In  Figure  2:  case  1  uses  a  24C01A  with  no 
optimization;  case  2  uses  a  24LC01 B  with  the  available 
page  mode  and  write  cycle  polling. 

By  utilizing  the  available  page  write  mode  and  by  polling 
forthe  write  cycle  completion,  nearly  four  limes  as  many 
bytes  can  be  initially  loaded  to  the  serial  EEPROM  In  the 
same  time  interval.  Continuous  operation  for  the  opti- 
mized case  2  takes  only  0.49  ms  per  byte  compared  to 
IjZS  ms  per  byte  for  ttie  fi^^limlzed  case  i:  ' 
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FIGURE  2  -  CASE  COMPAllSGil 


CASE  1  (N©OPTlMl»TtON): 

CASE  2  (U^^  PA6£  MODE  AND  POLLING): 

Operation 

Serial  Bus  Time 

Operation 

Serial  Bus  Time 

fetch  byte 

fetch  byte 

load  to  serial 

OMms 

fetch  byte 

fetdi  byte 

fetch  byte 

wait  for  writs  tiffiar 

1 1N 

load  to  serial 

0.3S  ma 

fetch  byte 

fetcii  byte 

fetch  byte 

wait  for  write  timer 

1  ms 

feitdibyia 

load  to  serial 

fetch  byte 

fetch  byte 

load  8  bytes  to  serial 

0.91  ms 

wait  for  write  ttnwr 

'i'tm- 

fetch  byte 

load  to  serisri 

O^ms 

fetch  byte 

fetch  byte 

fetch  byte 

wait  for  write  timer 

1  ms 

fetch  byte 

load  to  serM 

O^ms 

fetch  byte 

fetch  byte 

wait  for  write  timer 

1  ms 

fetch  byte 

loau  lo  soriai 

0.28  ms 

fetch  byte 

poll  for  write  timer 

<3  ms  typical 

wait  for  write  timer 

1  ms 

load  8  bytes  to  serial 

0.91  ms 

load  to  serial 

0.28  ms 

fetch  byte 

wait  for  write  timer 

1  ms 

bad  to  serial 

First  8  bytes  loaded  in  9.24  ms 

^m:iSM^BB  loaded  in  4.82  ms 
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Using  the  93LC56  and  93LC66 


INTRODUCTION 

The  Microchip  Technology  Inc.  93LC56/66  are  low- 
power  3-wire  non-volatile  memories  and  are  suitable  for 
manyembeddedsystmcodeanddatastorageapplie^ 
tions.  These  devices  areeasily  intaifaoedto  mesttnieror 
controliers  in  todey's  maricet  place,  but  Microchip's  8>bS 
RISC  series  PIC1 6CXX  offers  the  l>est  code  density  of 
any  microcontroller  on  the  market  today.  Using  the 
PIC16C54,  the  assembly  programs  contained  in  thte_ 
application  note  have  been  fully  tested  and  provide  ttn^*^ '  ^ 
correct  timing  and  3-wire  sequences  to  fully  operate  4m 
93LC56/66  in  a  PIC16CXX-based  embedded  appHoa* 
tion.  The  P1C16C54  was  clocked  at  a  1 0MHz  frequency. 
Thisapplk:ation  note  is  Intended  to  provide  the  engineer 
with  readily  available  stand-alone  code  modules  to 
Eccompiishaliofthenecessaiyfunctkxisto  utilize  these 
devices  in  a  k>w  power  applKatnn  using  the  etfk:ient 
PIC16C54  rnKfocontiotter.   , 

The  93  series  of  device  have  •ssanliidly  four  I/O  pins: 

S3 

CS       Chip  Select 
CLX  Ck>ck 


Dl 
DO 


Data  In 
Data  Out 


This  series  of  devtees  use  a  series  of  commands  to 
accomplish  the  normal  memory  functkxis.  These  are 
READ,  WRITE,  EWEN,  ERASE,  ERAL,  WRAL,  EVyDS.. 
For  a  nwre  detailed  discussion  of  the  functkm  of  tbes^ , 
devk:es  reference  the  appropriatedatasheatand/^^6C^ 
also  published  by  Microchip  Technokigy. 

The  fbltowing  programs  are  included  in  this  application 
noteand  iirefullyfunctnnalstand-akxie modules. They 
are  intended  for  use  by  those  who  are  not  already 
familiar  with  interfacing  a  PIC16CXX  nnicroconti9llari.tp 
a  93  series  devtee.  For  those  with  mora  mqisriQiKaf 
please  refer  to  application  note  Af4S30.        j  ...  '  -  •-- 

3-Wire  Byte  Read  Program 

-  Start  Bit  Routine 

-  Receiva  Data  Routine 
"  -  Bit  Out  Routine 

-  Transmit  Data  Routine 

-  Power-up  Routine 


3-Wire  Byte  Write  Program 

-  Delay  Routine 

-  Start  Bit  Routine  ; 

-  Bit  Out  Routine  '  „ 

-  Trananit  Data  Routine 

-  Power-up  Routine 

-  Erase/Write  Enable  RptMne  fEWEN) 

-  Byte  Write  Routine 

r  irasA(yVrRe         M|«e  |pWDS) 

3-Wire  Byte  Write  with  Diiiflilbig  Program 

-  Data  Polling  Delay  RouHfW  ' 

-  Start  Bit  Routine 

-  BttOut  Roulin»  ■  ' 

-  Transmit  Data  Routine 

-  Power-up  Routine 

-  Erase/Write  Enable  Roitittw  ' 

-  Write  Routine 

-  Erase/Write  Disable  Routine  (EWDS) 
3-Wire  Sequential  Read  Program 

-  Delay  Routine   

<^  Start  Bit  Routine 

-  Bit  in  Routine 


Receive  Data  RSittte'^' 


-  Bit  Out  Routine 

-  Transmit  Data  Routine 


i       -  Power-up  Routine 


us>» 


^MMo^Cii  Bruce  Negley 

Memory  Products  DHilslon 


8^ 


Using  the  93LC56  and  93LC66 


16c5x/7x  CrosE-Assenibler  '«I.12  SmammmS  11m  0m  <PI  .l|:«H(«ti  |if94    Page  1 


Opcode 


LIST  P=16C54, 5=132 


[V^H  V35  on. 


*******************  *~*«^r*i?**ww«' 

3-Wire  Byte  Read  Program  {80  bytes) 

This  program  demonstrates  how  to  interface  a 
Microchip  PIC16C54  to  a  93LC56  or  93LC66  Serial  EE 
device.     This  program  will  read  8  consecutive  addresses 
in  the  ^random  read'  mode.     This  means  that  the  opcode 
and  address  for  each  byte  will  be  sent  to  the  device. 
This  program  will  repeat  forever. 

Another,  more  efficient  method  of  reading  consecutive 
addresses  is  called  the  'sequential  read'  mode.  This 
involves  sending  the  opcode  and  address  for  the  first 
byte  to  read,  then  continuing  to  provide  clocks  for  the 
neatt  a^StreBsed.'  '^e  device  will  automatically  increment 
the  address.    An  exaii^le  of  the  sequential  read  mode  is 
provided  in  the  *3wseqr.asm'  file. 


This  prograin  communicates  to  the  serial  EE  in  the 
Xl6  mode,   and  ASSUMES  THE  USER  HAS  SET  THE  ORG  PIN 


Line  PC 

0002 
0003 
0004 

0085   -  ... 

0006 

0007 

0008 

0009 

0010 

0011 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0083 
od23 

0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
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Timing  is  based  on  using  the  PIC16C54  in  *XT'' 
using  a  4Hhz  crystal.     Clock  speeds  to  s^,i#l -I^B 

will  be  approximately  50  kHz  for  this  ^^t^.-,. V 


PIC16C54  to  Serial  EE  Connections: 


V  't  .  '■.  - 


PIC16C54 


Serial  EE 


Pin  10 

Pin  11 
Pin  12 
Pin  13 


{RB4)  ->  Chip  Select 

(RB5)   ->  Clock 
(RB6)   ->  Data  In 
(RB7)  ->  Data  Out 

ORG  =  Vcc 


^litHrW******  ************* 


t************************ 


Register  Assignments 


********************** 


0003 

status 

equ 

3h 

status  register 

0005 

port_a 

equ 

5h 

port  5  (port_a) 

0006 

por  t_b 

equ 

6h 

port  6   {port  b)  comm  lines  to 

OOOA 

eeprom 

equ 

Oah 

bit  buffer 

oooc 

addr 

equ 

Och 

address  register 

OOOD 

datai 

equ 

oah 

stored  data  input  reg. 

OOOE 

datao 

equ 

Oeh 

stored  data  output  reg. 

0010 

txbuf 

equ 

lOh 

transmit  buffer 

0011 

count 

equ 

llh 

bits  transmitted  so  far 

0012 

bits 

equ 

12h 

bi  ts  to  transmi  t 

0013 

bytcnt 

equ 

13h 

byte  counter  for  read  routine 

Page  2 


Line 


0056 
0057 

0058 
0059 
0060 


Cipcode 


1 


0052 

0015 

loops 

equ 

ISh 

7-  delay  loop  counter 

0053 

0016 

loops2 

equ 

16h 

;  delay  loop  counter 

0054 

0017 

hbyte 

equ 

17h 

;  high  byte  for  input  data 

DOSS 

0018 

Ibyte 

equ 

18h 

;  low  byte  for  iz^ut  data 

************************************************************ 
Bit  Assignments 

***  *  ******************************************************** 


0007  di 
0006  do 


equ 
equ 


;  eeprom  input 
;  eeprom  output 


mm 


0061 

0007 

da  tout 

equ  7 

;  data  out  line  (port_b) 

0062 

0006 

datln 

•qa  ' '  ■< 

0063 

0005 

sclk 

equ  5 

;  clock  line  (pwtjb)  ■  '-. 

0064 

0004 

-»qa     ■  4 

0065 

0066 

. ****** 

***************  **'A»#^tf»ia^a'wBiMiiMs<*iM>^-*»^f**********  * 

0067 

0000 

org        Olffh                                                               i".  ■ 

0068 

OlFF 

0A33 

begin 

goto      PWRUF      ;  set  the  XMitfecKmeStor  i.:-.' 

0069 

0000 

org       OOOh                               .   I:  .ji.. 

0070 

0000 

0&33 

0071 

.?  ^ 

■'           '                                        -  'J 

0072 

,*******************★*****************************'*##***#** 

0073 

f 

Start  Bit  Subroutine                                                 -- •  ^ 

0074 

1 

this  routine  generates  a  start  bit 

0075 

(Chip  select  and  01  high  when  clock  goes  high) 

0076 

.****^***A*t**«**«*********************************ik*********** 

0077 

0078 

0001 

04C6 

bcf 

port_b, datin      ;  set  datain  and  chipaelect  line* 

0079 

0002 

0486- 

' >■>#>•• 

• 'Set • • • 

0080 

0003 

04A6 

bef 

pert_b,«<slk    T-MjiH  »me»            starts  low  too. 

0081 

0004 

0000 

n^ 

0082 

0083 

0005 

0586 

bsf 

port_b,cl9sel    ;  set  chip  select  line  high 

0084 

0006 

05C6 

bsf 

port_b,datlS     t  tat  data  in  line  his^  'i 

0085 

0007 

0000 

nop 

0086 

0008 

05A6 

bsf 

port_b,aclk       ;        MUKMA^eltoMlM         tm  ttvi' 

0087 

;  aanerate  &m  Bttaet  bit 

0083 

0009 

0000 

0089 

00  OA 

0000 

0090 

OOOB 

04Ae 

bcf 

port_b>sclk       ;  set  clock  low  again 

0091 

oooc 

0800 

Itatlw^i 

0092 

; 

0093 

0094 

BtTIM  routine  reads  one  bit  of  data  frcB  tb« 

0095 

serial  El 

E  dsrlce  wad  steem  it  in  'di' 

0096 

.  ***************************««**#«^|2^*************************** 

0097 

BITIN 

0098 

OOOD 

OSEA 

bsf 

eeprom.di           ;  asstujis  input  bit  is  high 

0099 

OOOE 

05A6 

bsf 

port^,  sclk        ;  set  clock  line  high 

OlOO 

OOOF 

0000 

:        t                         Jov                     -  ■ ; 

0101 

0010 

07B6 

btfsa 

port_b<  datout    ,•  read  the  data  bit  lu" 

0102 

0011 

04EA 

bcf 

eeprcarifdi           ;  input  bit  was  low 
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Line 

PC 

Opcode 

-  1 

0103 

0012 

portJJvscJJp** 

0104 

0105 

0013 

0800 

retlw 

0 

0106 

0107 

, ******  ********* 

************************************************* 

0108 

Receive  data  routine 

0109 

This  routine  reads  one  tiyte  of  data  frcoi  the  BSXt 

0110 

into  the 

'datai'  register.  -> 

0111 

0112 

BX 

0113 

0014 

006D 

clrf 

datai 

;  cleu  ii^t  buffer 

0114 

0015 

0C08 

movlw 

.8 

;  set  *  bits  to  8 

0115 

0016 

0031 

movwf 

count 

0116 

0017 

0403 

bcf 

status, 0 

;  make  sure  carry  bit  is  low 

0117 

0018 

036D 

RXLP 

rlf 

datai 

;  rotate  the  buffer  left  1  bit 

0118 

0019 

090D 

BITIH '  >. 

;  read  1  bit 

0119 

OOIA 

04  OD 

bcf 

datai, 0 

;  assume  the  iivut  bit  was  low 

0120 

OOIB 

06EA 

btfsc 

eeprcBfrCH.'  ' " ' 

0121 

OOlC 

050D 

bsf 

datai, 0 

;  set  high  if  necceasas^iQUtf X 

0122 

OOID 

02F1 

decf sz 

count 

;  8  bits  done? 

0123 

OOIE 

0A18 

goto 

RXLP       r.Ji  1 

i  #0,  do  another 

0124 

OOIF 

0800 

retlw 

0 

■ 


0125 

0126 

***********************#****:****************5****«^.*******!k** 

0127 

BITOUT 

routlOtt 

...           ■          \  ") 

0128 

lliis  ^outinA  take0  oaa  hit  of  data  in  *do^;«zid  . 

0129 

transmi 

tm  It  to  ^0vft  swrial  EE  device 

0130 

******  »»mjmti.i$»-mtm0»wtM 

*^******«********* ************** 

0131 

BITOOT 

0132 

0020 

07CA 

btfss 

eeprom , do 

;  check  state  of  data  bi^, 

0133 

0021 

0A24 

goto 

bitlow 

;   low,  goto  bitlow  ' 

0134 

0022 

05C6 

bs£ 

portJSfdatin 

;  hi£^,  <dataiB< 

0135 

0023 

0A25 

goto 

clkout 

;  and  clock  it 

0136 

0137 

0024 

04C6 

bitlow 

bcf 

port_b,datin 

;  output  a  logic  low  % 

0138 

0025 

05A6 

clkout 

bsf 

port_b, sclk 

;   set  clock  line  high 

0139 

0026 

0000 

nop 

0140 

0027 

04A6 

bcf 

port_b, sclk 

;  return  clock  line  low 

0141 

0028 

0800 

retlw 

0 

0142 

0143 

fjj,*#*t**f                it  t***)S  #*#♦***  ************* 

0144 

Transmit  Data  StEbroutine 

0145 

This  routine  takes  the  byte  of  data  stored  in  the 

0146 

" datao ' 

register  and  transmits  it  to  the  serial  EE  device 

0147 

.  it************* 

*************** 

*********************************** 

0143 

TX 

0149 

0029 

0212 

movf 

bi  ts , w 

;  set  the  niunber  of  bits  to  xmit 

0150 

002A 

0031 

0151 

01S2 

TXLP 

0153 

002B 

a4CA 

bcf 

eeprcnirdo 

;  assume  bit  7  is  low 
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0154 

002C 

06F0 

btfsc      txbuf,7                ;   is  bit  7  clear? 

0155 

002D 

05CA 

bsf           eeprom, do             ;   no,   set  data  bit  =1 

0156 

002E 

0920 

call         BITOUT                   ;    transmit  1  bit  to  serial  EE 

0157 

002F 

0370 

rl£          txbuf                    ;   rotate  txbuf  left 

0158 

0030 

02F1 

decfsz    coiint                   ;  all  bits  done? 

0159 

0031 

0A2B 

gestm                       t        !  no,  do  eulotherrjtato                ocm  '. 

0160 

0032 

0800 

tfetlW   '-e-'^  ' ;  yes,  jun(6>  out  .  W  JST 

0161 

0162 

.************************v*************************************** 

0163 

;                         POWER-UP  ROUTINE 

0164 

;              This  is  the  program  entry  point,  which  in  this  case  sinply 

0165 

;             sets  the  port_a  I/O  lines  and  directs  control  to  the 

0166 

;            read  routine. 

0167 

0168 

PWROP 

0169 

0170 

0033 

ocoo 

movlw      b' 00000000' 

0171 

0034 

0005 

tris        port_a                  ;   set  port_a  as  all  output 

0172 

0035 

0065 

clrf       port_a                ;  all  lines  low 

0173 

0174 

0036 

0C80 

movlw  b'lOOOOOOO' 

0175 

0037 

0OT6- 

■'       tris       port_b                ;  set  RB7  as  input',  i:»8t  output; 

0176 

0177 

;                            Fed.1  through  and  do  the  read 

0178 

0179 

.********************************************************************* 

0180 

}-              READ  ROUTINE 

0181 

;  I          This  routine  reads  8  consecutive  addresses  in 

0182 

;            randcan  node  starting  at  address  0.    This  Is  done  In 

0183 

'■:            xlS  mode  and  will  repeat  forewarn 

0184 

.********************************************************************* 

0185 

0186 

0187 

0038 

OCOO 

movlw      .0         ,«*•  I       ;  set  s<Sii3:ting  address  to  00 

0188 

0039 

002C 

movwf      addr                     ;                            -  - 

8-102 


■ 


0189 

003A 

0C08 

movlw 

.8             .    >3  $  set  .ttumber  <^s«d^aiMenp^  i>  ■ . 

0190 

003B 

0033 

xoovwf 

bytcnt 

read  as  8 

0191 

0192 

003C 

0901  rbyte 

call 

generate  the  start  bit 

0193 

003D 

0C02 

movlw 

.2 

set  ♦  bits  to  2 

0194 

003E 

0032 

movwf 

bits 

0195 

003F 

0C80, 

movlw 

b' 10000000' 

get  opcode  (10b) 

0196 

0040 

0030 

movwf 

txbuf 

into  output  buffer 

0197 

0041 

0929 

call 

TX 

and  transmit  it 

0198 

0042 

0C08 

movlw 

.8               I.  - 

0199 

0043 

0032 

movwf 

bit»  ; 

■  set  number  of  bi-ts  tit>  9 

0200 

0044 

020C 

Btovf 

SLl30».,mri:li:  ^  . 

get  the  address 

0201 

0045 

0030 

movwf 

into  the  output  baM&m 

0202 

0046 

0929 

call 

TX 

and  transmit  it  ; 

0203 

0204 

0047 

0914 

call 

RX 

read  the  high  byte 
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0205 

0048 

020D 

movf 

datai  ,w 

;  move  input  data  to  w 

0206 

0049 

0037 

movwf 

hbyte 

;  xfer  it  to  high  byte 

0207 

0208 

004A 

0914 

call 

RX  , 

;  read  the  low  byte 

0209 

0048 

02  OD 

' .  IMfgHM- 

llllB|l<l>tLtMi 

tA.  at.  i>tJigMiBuiag».tKiaa)i«tiiiMiiw 

0210 

004C 

0037 

:  xfi^  it  to  low  Vista 

0211 

e 

'13  Bi  at  >* 

0212 

004D 

0486 

aWlMt-  %  clear  the  chip  select  Ifa* 

0213 

0214 

004E 

02AC 

incf 

addr 

;  add  1  to  the  address 

0215 

004P 

02F3 

decf sz 

bytmt 

;  have  all  bytes  been  read? 

0216 

0050 

0A3C  - 

tia4J     ;.no>  read  enotluiittlilr^a 

0217 

0051 

0A38 

goto  a 

sitt  sfea£4:om£Xln> 

0218 

0000  BHD 

-  iwii>  ;!  1)-! 


■  Ml— HIM*  «»aaiv«n 


-s..  l»S  03   MMjH  r  I'M?   :  f»  apt  -li 


.  .  -.,1  ^Ji,  SI*'^.  J 


8-103 


DsoanooNMSKS 
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OOOl  LIST  P=16C54,c=:132 

QQg2  ************************************  **********  ****(^************** 

0003  ;  3-Wire  Byte  Write  Program  (106  bytes) 
0004 

0005  ;  This  program  demonstrates  how  to  interface  a 

0006  ;  Microchip  PICiec54  to  a  93LC5e  or  93LC66  Serial  EK 

0007  ;  device.  This  program  will  execute.'the  efase/ivrite  enable 

0008  ;  command,  write  to  8  consecutive  adasesseiBy  and  then 

0009  ;  ^execute  the  erase/wzite  disable  odBidaBd.  Wils 

0010  ;  sequence  will  repeat  forever. 
0011 

0012  ;  After  each  byte  is  written,    time  must  be  given  to  the 

0013  ;  device  for  it  to  complete  the  write  cycle  before 

0014  ;  the  next  command  can  be  sent.    The  easiest  solution 

0015  ;  is  to  consult  the  data  book  fox  the  maximum  mite 

0016  ;  cycle  time  and  just  wait  that  long  before  the  next 

0017  ;  conmieuid  is  sent.    This  program  demonstrates  that 

0018  ;  solution. 
0019 

0020  ;  Another,  more  efficient  method  of  determining  when  the 

0021  ;  write  cycle  is  complete  is  called  *data  polling.  '  This 

0022  ;  method  is  rtumnrMtsrated  in  the'progsam  *3i)dpell.*  ' 

0023  ;  i.^V  -       '  » • 

0024  ;  This  program  communicates  to  the  serial  EB  in  the 

0025  ;'-   .  xie  mode,  and  ASSUMES  TBK  ^SR  BUS  SET  THE -MG  PIN  '  " 

0026  ;  ON  THE  DEVICE  TO  Vcc . 

0027  ; 

0028  ;  Timing  is  based  on  using  the  PIC16C54  in  'XT'  mode 

0029  ;  using  a-  4Mhz  crystal .    Cloclc  speeds  to  the  serial  EB  ' 

0030  ;  will  be  approximately  40  kHz  for  this  setup.  ^  '  ' - 

0031  ;  r  '       1  •- 

0032  ;  PIC16C54  to  Serial  BE  Connections: 
0033 

0034  ;  PICiec54  Serial  EE 

0035  ;     

0036  ;  Pin  10  (RB4)  ->  Chip  Select 

0037  ;  Pin  11  (RB5)  ->  Clock 

0038  :  Si»  12  (RB6)  ->  Data  In 

0039  ;  Pin  13  (KB?)  ->  Data  Out 

0040  ;  ORG=Vcc 
0041 

QQ^2  .************************************************************ 

0043  ;  Register  Assignments 

0Q44  . ************************************************************ 

0045  0005    port_a  equ  5h         ;  port  5  (port_a) 

0046  0006    port_b  equ  6h         ;  port  6  (port  b)  conn  lines  to  serial  EB 

0047  CODA    eeprom  equ        Oah  ;  bit  buffer 

0048  OOOC     addr  equ        Och  ;  address  register 

0049  OOOD    datai  equ        Odh  ;   stored  data  input  reg. 

0050  OOOE     datao  equ         Deh  ;   stored  data  output  reg. 

0051  0010     txbuf  equ        lOh  ;   transmit  buffer 
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0052  0011    count  equ        llh  ;  bits  transmitted  so  far 

0053  0012    bits  equ        12h  ;  bits  to  transmit 

0054  0013    bytcnt  equ       13h  ;  byte  counter  for  write  routine 

0055  0015    loops  equ        15h  ;  delay  loop  counter 

0056  0016    lo^s2  equ       16h  ;  delay  lo^  coimter  ; 

0057  • ************************************************************ 

0058  ;  Bit  Assignments 

0059  ■ ************************************************************ 

0060  0007    di  equ        7  ;  eeprom  input 


0061 
0062 
0063 
0064 

0065 
0066 
0067 
0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 
0079 
0080 


0099 
0100 
0101 
0102 


0006  do  equ  6 

0007  datout  7 
0006  datin  equ  .  § 
0005  sclk  equ  S 
0004  chpsel  equ  4 


eeprom  output 

data  out  line  (port_^) 

data  in  line  (port_b) 

clock  line  (port_b) 

chip  select  line  {port_b) 


.********************************************* 

0000  org  Olffh 

OlFF    0A2F    begin      goto      PWRUP      ;  set  the  reset  vector 

0000  «-i<3(W<l  j|A9fik<nuMT  •Ha».<^_3:.^r' 

0000    0A2F  sreto  ptmjp 

DELAY  ROUTINE 
;  This  routine  takes  the  value  in  'loops' 

;  .  and  multiplies  it  times  1  millisecond  to 


*************** 


0081 

0001 

0C6E 

top 

movlw 

.110 

;  timing  adjustment  variable 

0082 

0002 

0036 

movwf 

loops2 

0083 

0003 

0000 

top2 

nop 

;  sit  and  wait 

0084 

0004 

0000 

nap 

0085 

0005 

0000 

nop 

0086 

0006 

0000 

^  I&iu 

0087 

0007 

0000 

-»  Ma^o}  , 

»  ■ 

0088 

0008 

0000 

nop 

0089 

0009 

02F6 

decf sz 

loeawa.^  ; 

;  inner  loops  cqmplete? 

0090 

OOOA 

0A03 

goto 

top2 

;   no,   go  again 

0091 

0092 

OOOB 

02F5 

decf sz 

loops 

;  outer  loops  complete? 

0093 

oooc 

O&Ol 

tap 

;  nO/  go  again 

0094 

OOOD 

0800 

ratlw 

0 

;  yea,  return  frcsn  «ub 

0095 

0096 

. ************** 

************************************************ 

0097 

start  Bit  Subroutine 

0098 

this  routine  generates 

a  start  bit 

OOOE  0C8F 


{Chip  select  and  Dl  high  when  clock  goes  high) 

BSTJ«T  ,  ; 

movlw      b' 100044.11'' • 


iec5x/7x  Cross-Assembler  V4.12  Released    Hon  Job  06  10:49:06  1994    Page  3 

•  OOOOPiOPO' «  w.v- 


Line 

PC 

Opcode 

-  ^on  "J 

0103 

OOOP 

0006 

tris 

pbi:t_b                ;  set  port  b  for  output 

0104 

;  except  for  the  data  out  linef*-"- 

0105 

0010 

04C6 

bc£ 

port_b,  datin      ;   set  datain  and  chipselect  lijffiBtf' 

0106 

0011 

0486 

bcf 

port_b>c^sel    ;  low  just  to  check  operation 

0107 

0012 

04A6 

bcf  1 

•■aiP'^tJiriHaiMb-ie  <fc  <aiBM|iwat<aiBi><>tai:'t»"  ism  toe. 

0108 

0013 

0000 

nop 

0109 

0110 

0014 

0586 

bsf 

:  port_b,ct^sel    ;  set  chip  seleet  line  high 

0111 

0015 

05C6 

i(.pQsCt_bi  datin      ;  set  data  in  Alas 

0112 

0016 

0000: 

0113 

0017 

05A6 

bsf 

{>ortJb,«@Uaj:M>J£:4WK  ittl»j#K|ilc  Ml9h 

0114 

'  ijUMwiMii  'tin  •mmm  im  - 

0115 

0018 

0000 

nop 

It. 

0116 

0019 

0000 

nop 

0117 

OOIA 

04A6 

bcf  . 

port_b,sclk        ;  set  clo<^  loWftSiato 

0118 

OOIB 

0800 

reblw 

a 

0119 

•  -'  ■•f  ^  • 

0120 

************************************************************* 

0121 

BITOOT 

routine 

0122 

This  routine  takes  one  bit  of  data  in  'do'  and 

0123 

transmits  it  to  the  serial  BE  device 

0124 

************************************************************* 

Ml 
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0125 

BITOOT 

0126 

00 IC 

07CA 

btfss 

eepronifdo  ; 

check  state  of  data  bit 

0127 

OOID 

0A20 

goto 

bitlow  ; 

low,  goto  bitlow 

0128 

OOIB 

05C6 

bsf 

port_b, datin  ; 

high,  set  datain  high 

0129 

OOIF 

0A21 

goto 

clkout  ; 

and  clock  it 

0130 

0131 

0020 

04C6 

bitlow 

bcf 

port_b, datin  ; 

output  a  logic  low 

0132 

0021 

05A6 

clkout 

bsf 

port_b,sclk  ; 

set  clock  line  high 

0133 

0022 

0000 

nop 

0134 

0023 

04A6 

bcf 

f^rty^^^clk  ; 

xetu^  4gl6ek  lili#  low 

0135 

0024 

0800 

retlw 

0 

0136 

0137 

0138 

Transmit 

Data  Subroutine 

0139 

This  routine  takes  the  byte  of  data  stored  in  the 

0140 

^datao' 

register  and  transmits  it  to  the  serial  EE  device 

0141 

0142 

TX 

0143 

0025 

0212 

IQOVf 

bits«w  ; 

set  the  nuiriber  of  bits  to  xmit 

0144 

0026 

0031 

movwf 

count 

0145 

0146 

TXLP 

0147 

0027 

04CA 

bcf 

eeprom,do  ; 

assume  bit  7  is  low 

0148 

0028 

06FO 

btfsc 

txbuf,7 

is  bit  7  clear? 

0149 

0029 

05CA 

bsf 

eeprom^do  ; 

no,  set  da ta  bit  =1 

0150 

002A 

091C 

call 

BITOOT  ; 

tran^ftit  1  bit  to  serial  EE 

0151 

002B 

0370 

rlf 

trfnif  ; 

rotate  txbuf  Iteft 

0152 

002C 

02F1 

decfsz 

count  ; 

all  bits  done? 

0153 

002O 

0&27 

goto 

TXLP 

no,  do  another  bit 
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0154 

002E 

0800 

retlw  0 

yes,   jump  out 

0155 

0156 

**************************************************************** 

0157 

POWER-UP  ROUTINE 

0158 

This  is  the  program  entry  point,  which  in  this  case  singly 

0159 

sets  the  pe>rt_a  I/O  lines        aiSfe&ts  eoatseol  to  the 

0160 

erase/write  enable  routine. 

0161 

**************** ************************************* ************ 

0162 

F»IRUP 

0163 

0164 

002F 

ocoo 

movlw      b' 00000000' 

0165 

0030 

0005 

tris  port_a 

set  port_a  as  all  output 

0166 

0031 

0065 

clrf  port_a 

all  Unas  low 

0167 

0168 

0032 

0C80 

movlw  b'lODOOOOO' 

0169 

0033 

0006 

trie  port_b 

set  RB7  as  input,  rest  output; 

0170 

0171 

: ■  ■'f    £      <Fa3jr  masm^  mita  do  9xmm/^MiimiaBti>ie  '  -■ 

0172 

0173 

******************************************************* ***^***** 

0174 

r         ~-        EWEN  (Erase/Write  ^able  Routine) 

0175 

this  routine  eniibles  the  dut  for  erasing  and 

0176 

writing,  ^is  must  be  done  prior  to  any  erase,  write 

0177 

•gialtwral  itaiBtcuctieni^      '  -  -  . 

0178 

******^lFitif1tii*!$^ilf*>lfi^^f^4l[#ii**4iit*******itt*1i*****1i******************* 

0179 

EWEN 

0180 

0181 

0034 

090E 

call  BSTART 

generate  a  start  bit 

0182 

0183 

0035 

0C02 

movlw  .2 

set  t  bits  to  2 

0184 

0036 

0032 

movwf  bits 

0185 

0037 

OCOO 

movlw     b' 00000000' 

get  the  opcode  (00b) 

0186 

0038 

0030 

movwf  txbuf 

into  the  output  buffer 

0187 

0039 

0925 

call  TX 

and  transmit  it 

0188 

003A 

0C08 

movlw       .  8 

set  (  bits  to  8 

S-106 


0189 

003B 

0032 

IjKcrvl^     bits                  ;                             v.t  ^ 

0190 

003C 

OCCO 

nenrlw     b' 11000000*        ;  get  opcode  and  addrvas 

0191 

  •••  (IIXXXXXX) 

0192 

003D 

0030 

movwf      txbuf                  ;  into  output  buffer 

0193 

003E 

0925 

emkl  .    .TX  j  .    »            ,jirag4kitTmm»%^it  , 

0194 

003F 

0486 

bcf        port_b>c3%>Bel    ;  set  eMp  select  line  low 

0195 

0040 

0000 

nop  ,- 

0196 

0197 

Now  continue  on  to  the  write  command  .i,. 

0198 

0199 

********************* 

0200 

Byte  Write  Routine 

0201 

This  routine  writes  an  AA55h  pattern  into 

0202 

8  consecutive  addresses  starting  at  address  00. 

0203 

A  delay  of  about  10ms  is  given  after  each  byte 

0204 

for  the  write  cycle  to  complete. 
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0205 

0206 

0207 

0208 

0209 

0210 

0041 

ocoo 

0211 

0042 

002C 

0212 

0043 

0C08 

0213 

0044 

0033 

0214 

0215 

0045 

090E 

0216 

0217 

0046 

ac02 

0218 

0047 

0032 

0219 

0048 

0C40 

0220 

0049 

0030 

0221 

004& 

0925 

0222 

0223 

004B 

0C08 

0224 

004c 

0032 

0225 

004D 

020C 

0226 

004E 

0030 

0227 

004F 

0925 

0228 

0050 

OCAA 

0229 

0051 

0030 

0230 

0052 

0925 

0231 

0053 

OCSS 

0232 

00S4 

0030 

0233 

0055 

0925 

0234 

0235 

0056 

0486 

0236 

0237 

0238 

0057 

OCOA 

0239 

0058 

0035 

0240 

0059 

0901 

0241 

0242 

005A 

02AC 

0243 

005B 

02F3 

0244 

005C 

CMS 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

The  write  is  done  in  the  xl6  mode:  the  user  must 
have  the  ORG  pin  tied  to  Vcc  on  the  device 

*  Ik  *  *  *  *  ^  *  *      A  3^-^^  *  Wfr;^ ^  *.*  »^^^^.«.^^^ 

WRITE  ij^. 


topwr 


'*JBtt  MO* 

novlw 

.6 

} 

movwf 

addr 

movlw 

.  8 

s»k  «Ubw  of  bytes  to  write 

movwf 

bytcnt 

call 

BSTART 

generate  the  start  bit 

aiovlw 

.2 

t 
s 

set  t  bits  to  2  for  tbe  qpisoi 

movwf 

bits 

movlw 

b'01000080' 

get  opcode  (01b) 

movwf 

txbuf 

Into  the  transmit  buffer 

call 

TX 

and  sSBd  it 

mmt^ 

.« 

1 

set  t  of  bits  to  8  for  the 

bits 

address 

movf 

addr ,w 

get  address  counter 

movwf 

txbuf 

into  output  buffer 

call 

TX 

and  send  it 

movlw 

b'lOlOlOlO' 

get  upper  byte  of  data  (Aitb) 

movwf 

txbuf 

into  the  transmit  buffer 

Odll 

and  send  it 

get  lower  byte  of  date*  (55h) 

-itofefe  ttm^Mt  baff«r 

^1 

moB  send  i% 

bcf 

port_b>  ^qpsel 

clear  the  chip  select  line 

to  initiate  write  cycle 

movlw 

.If 

f 
i 

movwE 

% 

'«M|  ii9i|lW  tiine  to  lOaS 

call 

1 

incf 

addr 

immimmA  address  counter 

decfsz 

bytcnt 

all  bytes  written? 

goto 

tasm 

no,  do  another 

;  yes,  go  on 

Wm  eamimm  M  to  Sbe  me**tf<*ttiMi)t  .'dftjNitfik'  smmmA 

t**************<**^«****  ********  ********************************* 

ENDS  (Erase/Write  Disable  Routine) 

This  routine  executes  the  erase/write  disable  command 
which  prevents  the  contents  of  the  array  from  being 


8-107 


I  nsnmiMiiftinfiiMiii 


0253  ;  written  to. 

0254 

0255  J  ********•****«;***,#********♦************************************* 
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Line 

PC 

Opcode 

0256 

EWDS 

0257 

0258 

005D 

090E 

call 

BSTART 

generate  a  start  bit 

0259 

■■ 

0260 

005E 

0C02 

aiovlw 

.'2 

•at  t  bits  to  2  ' 

0261 

OOSF 

0032 

movwf 

bits 

0262 

0060 

OCOO 

'  novlw 

b' 00000000' 

get  the  opcode  (OOb) 

0263 

0061 

0030 

movwf 

txbuf 

into  the  output  buffer 

0264 

0062 

0925 

call 

TX 

and  transmit  it 

0265 

0063 

0C08 

movlw 

.8 

set  #  bits  to  8 

0266 

0064 

0032 

movwf 

bits 

0267 

0065 

OCOO 

movlw 

b'OOOOOOOO' 

get  opcode  and  address 

0268 

(OOXXXXXX) 

0269 

0066 

0030 

movwf 

txbuf 

into  output  buffer 

0270 

0067 

0925 

call  «  «atJ  - 

0271 

0068 

0486 

•  -ber  • 

ftr*t'i^t'&hii>'t«l«dt-Il&6  low 

0272 

0069 

0000 

nop 

0273 

006A 

0A34 

goto 

BHBN 

;  start  all  over 

0274 

0275 

0000  ma) 

XT       tiao  ii^O  /."If 


J  Iss 


0'. 
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«t     i^tm^  "P» 

0001  LIST  P=16CS4,esl32  ■  t-rds; 

QQQ2  .  ****************************************** *************i«^;«Hk**^fc^t*0 

0003  ;  3-Wire  Byte  Write  with  Data  Poll  Program  (107  bytes) 

0004 

0005  ;  This  program  demonstrates  how  to  interface  a 

0006  ;  Microchip  PIC16C54  to  a  93LC56  or  93LC66  Serial  EE 

0007  J-  device.  This  program  will  execute  the  erase/write  enable 

0008  ;  ^simmSt  write  to  8  consecutive  addreates,  and  then  ^ 

0009  ........  I^Ht^  -"Sata'  polling^  netlioia-  to"  dlM«E»iDe*  mt^'  th6 

0010  ;  write  cycle  is  conpletee.    The  l^QSpMli  thw  executes 

0011  ;  the  erase/write  disable  conman^.    tifts  sequence  will 

0012  ;  repeat  forever. 
0013 

0014  ;  When  writing  to  a  3-wire  serial  EE  device,  the 

0015  ;  internally  timed  write  cycle  will  begin  after    ^  ■ 

0016  ;  the  opcode,  address  and  data  are  sent  to  the  :  >   •  <  ^ 

0017  ;  ^svlce.    There  are  two  ways  to  make  sure  that  t||e 

0018  ■■  t *es^e-  is  ccraplete  befenre  you  send  it  another' eamtid. 

0019  ;  The  simplest  method  is  to  simply  wait  for  the  maximimt 

0020  ;  write  cycle  time,  which  can  be  obtained  from  the  data  book. 

0021  ;  A  more  efficient  method  is  "Data  polling.'     This  is 

0022  ;  done  by  toggling  the  chip  select  line  low  and  then  -  .v-      ' : 

0023  ;  back  high  after  the  opcode,  address  and  data  are  sent. 

0024  . .   gjn^  chip  select  line  mast'  be  low  for  at  least  250ns 

0025  ;  before  bringing  it  hi^' again.    The  fleviee  will  pull 

0026  ;  the  data  out  line  low  at  that  point,  and  set  it  high 

0027  ;  when  the  write  cycle  is  complete.     The  user  can  then  check 

0028  ;  or  *poll'  the  dataout  line  until  it  goes  high  before 

0029  ;  sending  Che  ne«t  ooMMgili  -ialthi^ 
0030 

0031  ti.i^Kj u^vMatHe imriBilln 1 1  lolUi maer  can  connect  a  UtO  to  pin  18 

0032  ;  on  ths  FISlfdi4  (Use  about  a  UC  resistor  in  series)  as' a' 
0j|^3  ;  timeout  indicator.     This  LED  will  come  on  if  the 

C^^4  t  data  polling  is  unsuccessful  and  the  device  being 

0035  ;  prograinned  does  not  respond,    ^lis  can  l>e  tested  by 

0036  ;  singly  running  the  pEMpCHH  MMt  ao  put  in  the  socket. 

0037  ; 

0038  ;  IStis  program  oonmanicates  to  the  serial  BE  iix  -I-  > 

0039  ;  Xie  mode,  and  ASSOHBS  THE  USER  HAS  SET  THE  Om  WtS 

0040  ;  <0N  THE  DEVICE  TO  Vcc. 

0041  ; 

0042  ;  Timing  is  based  on  using  the  PIC16C54  in  'XT'  mode 

0043  ;  using  a  4Mhz  crystal.     Clock  speeds  to  the  set^itttH  HB 

0044  *7  ■  ■   "     will  be  approximately  50  kHz  for  this  setup. 

0045  ;  .  j 

0046  ;  tteUSeSt  ta  serial       CsKuecstiiattS.: .        .  ;  - 

0047  ;  lO^i.i  iu»o%t  e»jm  la  - 

0048  'r    ■  •••••*iie*«ei*--*'--'»«i>«!iA-«s»«»-»»-  

0049  ;    

0050  f       ;  Pin  10  (RB4)  ->  Chip  Select 

0051  ;  Pin  11  (RBS)  ->  Clock 

16c5x/7x  CroBS-Assenibler  V4.12  Released    Hon  Jun  06  10:49:00  1994    #age  2 
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0052  ;  Pin  12   (RB6)  ->  Data  In  ' 

0053  ;  Pin  13  (RB7)  ->  Data  Out 

0054  ;  ;<  '<;jP88=Voe 

0055  ;  ..  ,  . 

0056  .  ***************************************************:*4.#««^#.« 

0057  ;  Register  Assignments  *" 
Q05g  . ************************************************************ 

0059  0005     port_a     equ  5h  ;  port  5  (port_a) 

0060  0006    port_b    equ         6h         ;  port  6  (port  b)  used  comm  lines  to  serial  EE 


Using.  tti&93L€S6'j 


0061 

OOOA 

eeprom 

equ 

Oah          ;  bit  buffer                   i«>'  £X.fV  -Wt^^mtmA  -  it 

0062 

OOOC 

addr 

equ 

Och          ;  address  register 

0063 

OOOD 

datai 

9^ 

i^&ti         ;  stored  data  input  reg. 

00  S4 

OOOB 

datao 

eq|a 

Oc^         ;  stor^  data  output  reg. 

006S 

0010 

txbuf 

equ 

lOh         ;  transmit  buffer 

0066 

0011 

count 

eqa 

llh         ;  bits  transmitted  so  far        '   ••♦•^  : 

0067 

0012 

bits 

egu 

12h          ;  bi  ts  to  transmi  t  t 

0063 

0013 

bytcnt 

equ 

13h          ;  byte  counter  for  write  routine  i 

0069 

0015 

loops 

equ 

ISh          ;  delay  loop  counter 

0070 

0016 

loops2 

eqa 

16h         ;  d^lay  loop  counter 

0071 

********* ****«***************************-******************* 

0072 

Bit- Assignmaii^a   •  ■  ^       -i  ■     ■        ■  * 

0073 

*«**A#***.*.*« 

0074 

0007 

di 

equ 

7              ;  eeprom  input  , 

0075 

0006 

do 

equ 

6              ;  eeprom  output  i 

0076 

0007 

da tout 

equ 

7              ;  data  out  line   {port_b)  i 

0077 

0006 

datin 

equ 

6              ;  data  in  line  {port_b)  : 

0078 

0005 

sclk 

equ 

5             ;  clock  line  {port_b) 

0079 

0004 

A.            ;  ■-  c^p  select  line  <{port_b) 

0080 

0001 

timeout 

eipi 

Xi"          J  «^ite' cycle  timeout  warning  {port_a) 

0081 

0082 

**«.*«****«**'*«**  **^*******^***~*************************««#»f|«« 

0083 

0000 

org 

Olffh 

0084 

OlFF 

0A26 

begin 

goto 

PWRUP      ;  set  the  reset  vector 

0085 

0000 

org 

OOOh 

0086 

0000 

0A26 

goto 

PWRUP 

0087 

00S8 

*,**]******#*  *«**f ;*%**********  **A*****;^***|^«^ilR****^* 

0089 

POLL  DELAY  ROUTINE 

0090 

This 

routine  delays  100  us  is 

0091 

used 

for  delay  between  polls 

0092 

************************************************************* 

0093 

0094 

0095 

0001 

0C19 

a- 

novlw      .25    ..  .                ;  timinsF  aS^^^siuxt  variable 

0096 

0002 

0036 

movwf  loope2 

0097 

0003 

0000 

top 

nop 

0098 

0004 

02F6 

decfsz     loops2                   ;   loops  complete? 

0099 

0005 

0A03 

goto        top                       ;  no,  go  again 

0100 

0101 

0006 

0800 

retlw      0                           ;  yes,  return  from  sub  : 

0102 
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Line 

PC 

Opcode 

0103 

************************************************************** 

0104 

Start  Bit  Subroutine  i 

0105 

this  rGutia»^gjBn•r«ti»a^Ja  start.' bit    '     u  ■'"I  : 

0106 

(Chip  a«l«gfe         Vlt  blgfa  tdien  clock  goes  high) 

0107 

0108 

BSTART 

0109 

0007 

04C6 

bcf 

port_b, datin       ;   set  datain  and  chipselect  lines 

0110 

0008 

0486 

bcf 

port_b,chpsel     ;   low  just  to  check  operatiCTi 

0111 

0009 

04A6 

bcf 

port_>,0clk       ;  make  sure  clock  starts  low  too. 

0112 

OOOA 

0000 

nop 

0113 

0114 

OOOB 

0586 

bsf 

port_b,chpsel    ;  set  chip  select  line  high  ■    "  . 

0115 

OOOC 

05C6 

bsf 

port_b, datin      ;  set  data  in  line  high 

0116 

OOOD 

0000 

nop 

0117 

OOOE 

05A6 

bsf 

port^^sclk       ;  set  the  clock  line  high  to 

0118 

9av*<igi9enerate  the  start  bit 

0119 

OOOF 

0000 

nop 

0120 

0010 

0000 

JtCfp 

0121 

0011 

04A6 

bcf 

portjb^sclk       ;  set  doc^  low  again 

0122 

0012 

0800 

retlw  0 

0123 

0124 

************************************************************* 

Using  the  93LC£i6  and  93LC66 


0125 

;               BITOUT  routine 

0126 

;             This  routine  takes  one 

bit  of  data  in  'do'  jind 

0127 

;             transmits  it  to  the  serial  EE  device 

0128 

0129 

BITODT 

0130 

0013 

07CA 

1  btf  ss  eeprcoiido 

;  check  state  of  data  Mt  ;r.' 

0131 

0014 

0A17 

gotss;-  ■  txteitlcw  , 

;  low,  goto  bitlow 

0132 

0015 

05C6 

bat  port_^r#a£la 

;  high,  set  da  tain  high  OCCIC 

0133 

0016 

0A18 

goto  clkout 

;  and  clock  it 

0134 

0135 

0017 

04C6 

bitlow     bcf  port_b,datin 

;  output  a  logic  low 

0136 

0018 

05A6 

clkout     bsf  port_b,sclk 

;  set  clock  line  hl;^ 

0137 

0019 

0000 

nop 

0138 

OOIA 

04A6 

bcf        port_bi sclk 

;  «H6ii8i  (BlssdE  line  low 

0139 

OOIB 

0800- 

-   . .   .       jretlw  -  e  

0140 

0141 

0142 

;              Transmit  Data  Subroutine 

0143 

;              This  routine  takes  the 

byte  of  data  stored  in  the 

0144 

;             *datao'  register  and  transmits  it  to  the  serial  EE  device 

0145 

. ************************** 

0146 

TX                              o  .1;  , 

0147 

OOlC 

0212 

0148 

00  ID 

0031 

-  ■  >«tf<:  -jllBSSlfSsnlSiSW*  -  '  -      •  ' 

0149 

;  ij  •■' 

0150 

0151 

OOIE 

04CA 

bcf          eeprcan,  do 

;  assume  bit  7  is  low 

0152 

OOIF 

06F0 

btfsc  txbuf,7 

,*  is  bit  7  clear?  , 

0153 

0020 

05CA 

bsf  eepront.do 

;  no,  set  data  bit  ''I  ; 
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Llns 

PC 

Opcot 

0154 

0021 

0913 

0155 

0022 

0370 

0156 

0023 

02P1 

0157 

0024 

OAIE 

0153 

0025 

0800 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

0168 

0026 

OCOO 

0169 

0027 

0005 

0170 

0028 

0065 

0171 

0172 

0029 

0C80 

0173 

002A 

0006 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184i . 

0185 

002B 

0907 

OlSfi 

0187 

002C 

0C02 

0188 

002D 

0032 

call  BITOOT 

rlf  txbuf 

decfas  isowat 

goto  93Xif 

r«tlw  0 


;  transmit  1  bit  to  serial  SB 
;  rotate  txbuf  left 

;  no,  db  aitot^r  bit 

;  yes,   jump  out 


************* 


.  ****jk*******  *  **  *  ******************************* 

(  POWER-UP  ROUTINE 

;  This  is  the  program  entry  point,  which  in  this  case  sinply 

;  sets  the  port.a  I/O  lines  and  directs  control  to  the 

;  erase/mrite  enable  routine. 

. ***************************************************************** 


ifwylw 
«l£f 

aovlvi; 
tris 


b'  00000000 
por  t_a 
porc_a 

bMOOPQOOO- 


;  set  port_a  as  all  output 
I  all  lines  low.,jr 


;  set  RB7  as  Iqjig^,  raat  oatfrnpt 


iiifMIl  through  and  do  araaa/wxite  enable 


. **************************************************************** 
.;  [(    BWBN  (Erase/Write  ENable  Routine) 


this  routine  enables  the  dut  for  eraalng  and 
writing.  This  must  be  done  prior  to  any  erase, wz»i1:e 


«:al.ifs«l  i^*^^S4S09A  ■ 
fww*l^lt,  ^.^*t^4|^«-^««#««^  **  ********** 


La  -^r. 


****************** 


call 


BSTART 
-    9<.J  mi 


;  generate  a  start  bit 
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0189 

002E 

ocoo 

movlw 

b'OOCOOOOO' 

;  get  the  opci^li^  ItlSbl 

0190 

002F 

0030 

movwf 

txbuf 

;  into  the  ottlpat''#ttf fer 

0191 

0030 

09 IC 

'IX  ■ 

;■  «nd-<tiaraa^«  it 

0192 

0031 

0C08 

■  -'"ams- 

■  .8"  '  

•  fief* 'Bits' t6  S 

0193 

0032 

0032 

movwf 

bits 

0194 

0033 

occo 

^         '  -  BIOVlW 

b' 11000000' 

;  get  opcode  and  address 

0195 

(llxxxxxx) 

0196 

0034 

0030 

movwf 

txbuf 

;   into  output  buffer 

0197 

0035 

091C 

call 

TX 

;  and  transmit  it 

0198 

0036 

0486 

bc£ 

port_b>  ct^sel 

;  set  dhip  select  line  lew 

0199 

0037 

0000 

nop 

0200 

0201 

Now  continue  on  to  the  write  conmand 

0202 

0203 

*#*»******************************•************* 

0204 

WRITE 
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Iiine 

PC 

e 

0205 

This  routine  writes  a  AA55h  pattern  into 

0206 

8  consecutive  addresses 

starting  at  address  00. 

0207 

It  will 

then  'poll'  the 

data  out  line  to  determine             '  '-'^ 

0208 

when  the  write  cycle  is 

con^lete.     If  the  cycle  has 

0209 

not  conpleted  within  20 

ms,  then  it  will  continani'' 

0210 

anyway  and  turn  the  timeout  fail  LED  on^»  '--'^ 

0211 

Tbe  write  is  done  in  the  xl6  Aeii»t  tll6£«i«r  most 

0212 

have  the  ORG  pin  tied  to  vsec  eW'tlis  ^eiAtM.  This         -    >'  ■ 

0213 

program  will  repeat  forawer. 

0214 

0215 

WRITK 

0216 

0217 

0038 

ocoo 

movlw 

.0 

set  starting  address  to  00 

0218 

0039 

002C 

movwf 

addr 

0219 

003A 

0C08 

movlw 

.8 

■  set  iffia&er  of  bytes  to  write  as  8 

0220 

003B 

0033 

movwf 

bytcnt 

0221 

0222 

003c 

0907 

topwr 

call 

BSTART 

generate  the-  start  bit 

0223 

0224 

003D 

0C02 

movlw 

Set  1  bits  to'  2  foV  thie  opcode 

0225 

003E 

0032 

movwf 

bits 

0226 

003F 

0C40 

novlH 

b' 01000000' 

■  get  opeoOB  (0U>) 

0227 

0040 

0030 

novwf  - 

'  tadsaf 

■  into  the  traiamtt  buffer 

0228 

0041 

091C 

call 

TX 

•  asbd  send  it- 

0229 

0230 

0042 

0C08 

movlw 

.8 

set  #  of  bits  to  8  tdk  '^e 

0231 

0043 

0032 

movwf 

bits 

address 

0232 

0044 

020C 

movf 

addr,w 

■  get  ilddress  counter 

0233 

0045 

0030 

movwf 

tjdjuf  ■ 

•  into  output  buffer 

0234 

0046 

091C 

call 

TX  i'l 

and  send  it 

0235 

0047 

OCAA 

movlw 

b '10101010 • 

get  first  half  of  data  (AAh) 

0236 

0048 

0030 

movwf 

txbuf 

into  the  transmit  buffer 

0237 

0049 

091C 

call 

TX 

and  send  it  ^'l 

0233 

004A 

0C55 

movlw 

b'OlOlOlOl' 

get  second  half  of  data  (55h) 

0239 

004B 

0030 

movwf  ' 

'  t^dmf 

■  into  transmit-  MCfer 

0240 

004C 

091C 

call 

TX 

and  send  it 

0241 

0242 

004S 

0486 

bcf 

por  t_b ,  cl^sel 

clear  the  chip  select  line 

0243 

to  initiate  write  cycle 

0244 

C04E 

0000 

nop 

0245 

004F 

0586 

bsf 

port_b,  chpsel 

set  the  chip  sel  line  high 

024S 

to  laegln  <&l&*¥bHW  ' ' 

0247 

ooso 

0CC8 

movlw 

.200 

0248 

0051 

0035 

movwf 

loops 

poll  100  times  before  timeout  (about 

0249 

0052 

0901 

polltop 

call 

wait  iffOus 

0250 

0053 

06E6 

btfsc 

port_b, da tout 

is  the  data  out  line  high? 

0251 

0054 

OAS  9 

goto 

okpoll 

yes-cycle  ccsnplete:  do  another 

0252 

0055 

02F5 

decf  sz 

loops 

has  it  timed  out? 

M12 


« t99«  ms^i0f6m/iMgf  tiK. 


me  93LC56  and  9aLC66 


0253  0056  0A52 

0254  0057  0525 

0255  0058  0A5A 


goto        polltop  ;  no,  check  again  ' 

bsf         port_a, timeout;  yes,  set  timeout  LED  and  go  on 

goto       ba^oll  i  il-<^.jt'> 
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0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 


0059 
005A 
005B 
005C 
005O 


0425  okpoll 
0486  badpoll 
a2AC 
02P3 


bcf 
bcf 
incf 
decfsz 
gettS'-.. 
=■  =  •  ■  .rf 
-a . 


port_a,  timeout;  cle2u:  the  timeout  LED 

port_b, chpsel  ;  chip  sel  line  back  low 

addr  ;  increment  address  couH'tM: : 

bytcnt  ;  all  bytes  writteix?. 


Maw-B«wrt"tinue  on  to  the  erase/write  dis2(ble 

*************  *********************************^^*,^*******^#af«**« 
EWDS  (Erase/Write  Disable  Routine)  ; 
I       This  routine  exeaut:«»  the  e£*«e/wrltie  dianlsl*  <!NIWBwpi. 
which  prevents  the  contents  of  the  array  f  rem  being 

written  to. 


****************************** 


********** 


******** 


■mm 


0275 

005E 

0907 

call 

BSTART 

;  generate  a  stetrt  Wkt 

0276 

; 

0277 

005F 

0C02 

novlw 

.2 

;  set  t  bits  to  2 

0278 

0060 

0032 

movwf 

bits 

0279 

0061 

OCOO 

movlw 

b'OOOOOOOO' 

;  get  the  opcode   (00b)  , 

0280 

0062 

0030 

movwf 

txbuf     •  •■  r.. 

;  into  the  output  battmas 

0281 

0063 

091C 

call 

TX 

;  and  transmit  it  i 

0282 

0064 

0CO8 

.8 

;  set  *  bits  to  8  '  ! 

0283 

0065 

0032 

novwf 

bits 

0284 

0066 

OCOO 

IKWlw 

b'OOOOOOOO' 

;  get  opcode  and  adtecM 

0285 

(OOXZXXXX) 

0286 

0067 

0030 

movwf 

txbuf 

;  into  output  buffer 

0287 

0068 

091C 

call 

TX 

;  and  transmit  it 

0288 

0069 

0486 

bcf 

por t_b / chpsel 

;  set  chip  select  line  low 

0289 

006A 

0000 

nop 

0290 

006B 

a«2B 

goco 

start  all  over 

0291 

£B 

r;-.  , 

0292 

1 

0293 

0000  END 

JifKUUOj  OJ 
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tiiiie      PC  OpcodB 


0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 
0037 


LIST  P=16C54,c=132 
i***********************  *** 


********************* 


3-Wire  Sequential  Read  Program  (93  b^es) 

This  program  demonstrates  how  to  interface  a 
Mlerochip  PIC16C54  to  a  93IIC56  or  93LC66  Serial  ffl! 
device.    This  program  will  read  8  consecutive  addresses 
in  the  ^sequential  read'  mode.     This  means  that  the  opcode 
and  address  are  sent  for  the  first  address  only.  After 
the  first  address  is  read,   the  Chip  Select  line  is  left 
high  and  clocks  for  the  remaining  7  bytes  are  sent  to  the 
device.  The  device  will  automatically  increment  the  address 
pelntses  iB  ttia  msde,  allowing  the  usee  6o  read  as  many 
consecutive  addresses  as  needed.  This  program  will  r^eat 
forev^t. 

This  program  communicates  to  the  serial  EE  in  the 
xl6  mode,  and  ASSIMES  TSE'i«(SBR  ms  SST  THE  ORG  PIN 
ON  THE  DEVICE  TO  Voc. 

Timing  is  based  oii  using  the  P1C16C54  in  "XT'  mode 
using  a  4MHz  crystal.    ClocX  speeds  to  the  serial ^^E 
will  be  approximately  50  kHz  for  this  setup. 

PIC16C54  to  Serial  EE  Coimectlons: 

PIC16CS4  Serial  EE        - '  ' 


^       Pin  10  (RB4)  ->  Chip  Select 
Pin  11  (HB5)  ->  Clock 
Pin  12  <RB6)  ->  Data  In 
Pin  13   (RB7)  ->  Data  Out 

ORG  =  Vcc 

*******  4r«j;«r«*##***«*«<««************«*«jr«***d««««******ik**** 

itegister  Assignments 
************************************************************ 


0038 

0003 

status 

equ 

3h 

status  register 

0039 

0005 

port_a 

equ 

5h 

port  5  {port_a) 

0040 

0006 

port_b 

equ 

eh 

port  6  (port  b}  used  comn  lines  to  serial 

0041 

OOOA 

eeprom 

equ 

Oah 

bit  buffer  • 

0042 

OOOC 

addr 

equ 

Och 

address  register 

0043 

OOOD 

data! 

equ 

Odh 

stored  data  it^ut  reg.  ''^ 

0044 

OOOE 

datao 

equ 

Oeh 

stored  data  output  reg. 

0045 

0010 

txbuf 

equ 

lOh 

transmit  buffer 

0046 

0011 

count 

equ 

llh 

bits  transmitted  so  fair 

0047 

0012 

bits 

equ 

12h 

bits  to  transmit 

0048 

0013 

bytcnt 

equ 

13h 

byte  counter  for  read  routine 

0049 

0015 

loops 

equ 

15h 

delay  loop  counter 

OOSO 

0016 

loopsZ 

delay  loop  counter 

0051 

0017 

hbyte 

»m 

byte  for  input  data 
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Line  PC 


(Opcode 


0052 

0018 

Ibyte  equ 

18h 

;  low  byte  for  Input  data 

0053 

. ************************************************************ 

0054 

Bit  Assignments 

0055 

. *********** 

************************************************* 

0056 

0007 

di  equ 

7 

;  eeprom  input 

0057 

0006 

do  equ 

6 

;  eeprom  output 

0058 

0007 

datout  equ 

7 

;  data  out  line  (port_b> 

0059 

0006 

datln  equ 

6 

;  data  in  line  (port_b) 

0060 

0005 

sclk  equ 

5 

;  clock  line  (port_b) 

8-1  f  4 
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0061 

0004  d^MWi 

0062 

0063 

*****************  »***^^fcjlaMt*i^******************************** 

0064 

0000 

org 

Olffh 

0065 

OlFF 

0A40  bos^atij 

0066 

0000 

org 

OOOh   

0067 
0068 

0000 

eA40 

goto 

PWRUP 

0069 

************** 

*********************************************** 

0070 

DELAY  ROUTINE 

0071 

This  routine  takes  the  value  in  'loops' 

0072 

and  multiplies  it  times  1  millisecond  to 

0073 

determius  delay  time. 

0074 

************«*.^^f  *«i^^«*«**********ll^*.i^«****^*^************* 

0075 

-WAIT 

•  ■  ..--) 

0076 

ij.  . -r.r--  ! 

0001 

0C6E  top 

movlw 

.110                  ;  ^M.B0  •djustmenl:  vaxi«d9le 

0078 

0002 

0036 

movwf 

loops2                         Jiun^^.      .J  -jft 

0000  top2 

nop 

0080 

0004 

0000 

nop 

0081 

0005 

0000 

0082 

0006 

0000 

nop  • 

0083 

0007 

0000 

nop 

0084 

0008 

0000 

nop 

0085 

0009 

02Fe 

decfsz    loops2      .i.o:  itc't^atr  .l&si^-t^igsii^atB? 

0086 

OOOA 

0A03 

•  'gotee> 

■  eop2                    ! -nej 'go«i«pa»S"«»'- -  • 

0087 

;  TT50?, 

0088 

OOOB 

02F5 

•xlie^sz    leopa                ;  outer  loops  eaaplalemi  ; 

0089 

00  OC 

OAOl 

«|DtO 

top                     ;  no,  go  again 

0090 

GOOD 

0800 

retlw 

0                          ;  yes,   return  from  sub 

0091 

0092 

****** 

************************************************* 

0093 

Start 

31 1  Subroutine                                                             jxlto i''.r-- 

0094 

this  routine  generates  a  start  bit 

0095 

.  (CMEt  «elect  .aBd  D|  ^^-nAes  elook  goes 

0096 

*************************«*******»******************«*^«*Je**** 

0097 

BSTART 

0098 

OOOE 

04C6 

bcf 

port__b,  datin       ;  set  datain  and  chipselect  lines 

0099 

OOOF 

0486 

bcf 

por t_b,  chpsel    ;  low  just  to  check  c^>9yftti.on 

0100 

0010 

04Ae 

bcf 

port_b«8clk        ;  make  sure  clock  stasrttf  low  too. 

0101 

0011 

0000 

nop 

0102 

«       WllST  'Mi' 
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Line 

PC 

Opcode 

0103 

0012 

0586 

bsf 

port_b,chpsel    ;  set  chip  select  line  high 

0104 

0013 

05C6 

bsf 

port_b«datin      ;  set  data  in  line  bS^h  ■'t 

0105 

0014 

0000 

nop 

0106 

0015 

05A6 

bsf 

0107 

;  generate  the  start  bit 

0108 

0016 

0000 

nop 

0109 

0017 

0000 

;  nop 

0110 

0018 

04A6 

bcf 

port_b,sclk        ;  set  clock  low  again 

0111 

0019 

0800 

retlw 

0 

0112 

0113 

.  **************** ***^*****^*********»ik^************#«#^,*##^v**«.^.- 

0114 

BITIN  routine  £md«  one  bit  of..^!fca  SeemSim              i  :  o 

0115 

0116 

0117 

BITIN 

0118 

OOIA 

05EA 

bsf 

eeprom, di            ;  assume  input  bit  is  hig^ 

0119 

OOIB 

05A6 

bsf 

port_b,sclk        ;  set  clock  line  high 

0120 

oolc 

■  nop 

I                                  T  > 

0121 

OOID 

07S6 

bfe£s8 

port_b«datent    ;  read  tbe  data  bi£ 

0122 

OOIB 

a4BA 

bcf 

m<^<m,!etat3uo  j  1-  itqwt  isAtt. im 

0123 

OOIF 

•04A« 

0124 
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0125 

0020 

0800 

retlw 

0 

0126 

0127 

***************************** 

*********************************** 

0128 

Receive 

data  routine 

0129 

This  routine  reads  one 

byte  of  data  frcm  the  part 

0130 

into  the  'datai'  register.           r^'  : 

0131 

***************************************Hr«*i«****«*^**********##*# 

0132 

RX 

0133 

0021 

0066' 

•clrf 

e&tit  

;  clear  inp&t  buff  St 

0134 

0022 

0C08 

movlw 

.8 

;  set  «  bits  to  8 

0135 

0023 

0031 

movwf 

count 

0136 

0024 

0403 

bcf 

status, 0 

;  make  sure  carry  bit  is  low 

0137 

0025 

03  6D 

RXLP  rl£ 

datai 

;  rotate  the  buffeic  left  1  .bit 

0138 

0026 

091A 

call 

BITIN 

;  read  1  bit  " 

0139 

0027 

04  OO 

bcf 

datai, 0 

;  assume  the  iz^ut  bit  waS'^'low 

0140 

0028 

06Eft 

btfsc 

eeprcm,di 

;  check  the  bit 

0141 

0029 

OSOO 

datai, 0 

;  set  high  if  ^neiaessary 

0142 

002A 

02P1 

decfsz 

count 

;  8  bits"done? ■ 

0143 

002B 

0A25 

goto 

;  BO,  do  another 

0144 

002C 

0800 

retlw 

e 

0145 

0146 

***********  *****************«*****************^**************<ij'' 

0147 

BITOUT 

routine 

0148 

This  routine  takes  one 

bit  of  data  in  'dee*'  and             '  ' 

0149 

transmits  it  to  the  serial  EE  device 

0150 

************** 

******************************** 

0151 

BITOUT 

0152 

002D 

07CA 

btfss 

eeprcm,do 

;  check  state  of  data  bit 

0153 

002E 

0A31 

goto 

bitlow 

;  low,  goto  bitlow 

16c5x/7x  Cross-A08«B^IeK  1^^|3  SiaMlMNSi   Mffil^         06  10:49:20  1994    Page  4 

• ■   ' - . .  « • ....  - 

Line      PC  Opcode 


0154 

002F 

05C6 

bsf 

port_>,datin 

high,  set  da  tain  high 

OISS 

0030 

Oft32 

a^-  tltisfr  it 

0156 

01S7 

0031 

04C6 

bl<tloir 

pdct_)>,datin 

output  Hi  logi<:  low 

0158 

0032 

05A6 

clkettt 

ba< 

port_>3,sclk       }  set  «!t<aek  line  bi£^ 

0159 

0033 

0000 

nop  - 

0160 

0034 

04A6 

bcf 

port_j3,SGlk       ;  retoim  clocSc  ^tlae  low 

0161 

0035 

0800 

retlw 

0 

0162 

0163 

**************************************************************** 

0164 

Transmit 

Data  Subroutine 

016S 

This  routine  takes  the  byte  of  data  stored  in  the 

0166 

^  datao ' 

register  and  transmits  it  to  the  serial  EE  device. 

0167 

*  *  *  ************************************************************* 

0168 

TX 

0169 

0036 

0212 

movf 

bits,w 

set  the  nuniber  of  bits  to  xmit 

0170 

0037 

0031 

movwf 

count 

0171 

■•■f-'  » 

0172 

TXLF 

0173 

0038 

04CA 

bcf 

eeprcin,do 

asswne  bit  7  i«3r  low 

0174 

0039 

06F0 

btfsc 

txbuf,7 

Is  bit  7  clear?- 

0175 

003A 

05CA 

bsf 

eepr  cm ,  do 

no,   set  data  bit  =1 

0176 

003B 

092D 

call 

BITOUT 

transmit  1  bit  to  serial  EE 

0177 

003C 

0370 

rlf 

txbuf 

rotate  txbuf  left 

0178 

003D 

02P1 

deefsz 

count 

all  bits  done? 

0179 

003E 

0A38 

goto 

no,  do  anotlrar  bit 

0180 

003F 

OSW 

retlw 

0 

yea;  jtirap  tfUt 

0181 

0182 

*************** 

************************************************* 

0183 

POWER-UP  ROUTINE 

0184 

This  is 

the  program  entry  point,  which  in  this  case  simply 

0185 

sets  the 

port_a  I/O  lines  and  directs  control  to  the 

0186 

erase/write  enable  routine. 

0187 

********»**fc»JrJt*^J^^**#^*y**»**»*^*j^*»********jfcj|^****«***»***,»^»* 

0188 

PWRUP 

B-1f6 


0189 

0190 

0040 

ocii 

movlw 

0191 

0041 

0005 

t|ri9 

porfeL^               ;  m0t  IMS  Ml  #e#at,  rest  output 

0192 

0042 

0065 

pm^ji'            f  ^.1  Mm*  Sew 

0193 

0043 

0C80 

0194 

0044 

0006 

tris 

0195 

0196 

Fall  throus^  aisS  da  ^«  seai( 

0197 

0198 

0199 

READ  ROUTINE   {Sequential  read  mode) 

0200 

W^W'  routine  reads  8  TOnsecutive  ad^^hS^fi^  Is 

0201 

tie^QWiatial  mode  startizig  at  addresA  s!9^i9 

0202 

proton  will  repeat  tixmm^ 

0203 

*************************** 

0204 

READ 
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Line 

PC 

Opcode 

0205 

0206 

0045 

ocoo 

movlw 

.0 

; 

set  starting  address  to  00 

0207 

0046 

002C 

movwf 

addr 

; 

0208 

0047 

0C08 

movlw 

.8 

; 

set  number  of  addresses  to 

0209 

OOiS 

0033 

; 

0210 

; 

0211 

0049 

090B 

eaU 

( 

fiemmm*  ite  «usrt  bit 

0212 

004A 

0C02 

•  Mts  te  i 

0213 

004B 

0032 

mm 

0214 

004C 

0C80 

mMi» 

get  opcode  (lOb) 

0215 

004D 

0030 

znovic£ 

into  output  bufllar 

0216 

004E 

0936 

call 

XX 

and  tranani^ 

0217 

004F 

OCOS 

movlw 

.9 

0218 

0050 

0032 

movwf 

bits 

set  nunAser  of  bits  to  8 

0219 

0051 

02  OC 

movf 

addTfW 

get  the  address 

0220 

0052 

0030 

movwf 

imto  KfeM  QUtjmt  Imf fer 

0221 

0053 

0936 

call 

TX 

! 

maA  mim0ai.1t  m 

0222 

0223 

0054 

0921  rbyte 

call 

RX 

read  the  high  byte 

0224 

0055 

02  OD 

movf 

datal.w 

move  ir^ut  data  to  w 

0225 

0056 

0037 

tgsyt* 

J 

0226 

0227 

0057 

0921 

call 

RX 

read  the  low  byte 

0228 

0058 

020D 

movf 

datai ,w 

move  input  data  to  w 

0229 

0059 

0037 

movwf 

hbyte 

xfer  it  to  low  byte 

0230 

0231 

005A 

02AC 

incf 

addr 

add  1  to  the  address 

0232 

005B 

02F3 

l^gffe^t 

; 

hilWK  all  bytes  beea  zw^? 

0233 

005C 

0A54 

goto 

no,  read  another  byt» 

0234 

0235 

OOSD 

0486 

Tad 

per  t_b ,  cl^sel 

yes, clear  the           seltKit  line 

0236 

005E 

0A45 

goto 

READ 

and  start  over 

0237 

0000  END 

""rri  iiriTiirTfr^ 
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1.8  Volt  Technology  -  Bei^efits 


Portability  is  and  will  continue  to  be  one  of  the  key 
features  driving  the  design  and  development  of  new 
electronic  equipment.  Existing  products  such  as  palmtop 
computers,  cellular  phones  and  data  acquisition  devices 
are  becoming  increasingly  smaller  and  more  powertul. 
Handheld  mati<ets  will  demand  that  product  feature  sets 
be  enhanced  and  that  battery  operating  life  be  in- 
creased. These  market  requirements,  in  turn,  will  put 
more  demands  on  battery  and  integrated  circuit  technol- 
ogy. 

In  order  to  optimize  battery  technology  ICs  must  be  able 
to  operate  at  voltages  well  below  the  5V  range  that  most 
ICs  operate  at  today.  In  fact,  even  integrated  circuits 
operating  at  3  volts  do  not  make  the  most  of  the  available 
battery  technotogy.  Thus  the  for  devices  1 
operate  below  3  volts. 


IS  th^ 


BATTERY  TECHNOLOGY  OimfSW 

i%tmary  versus  Secondary 

In  portable  or  handheld  equipment  there  are  two  major 
battery  types  employed;  primary  and  secondary.  Pri- 
mary cells  are  disposable,  and  alkaline  and  lithium  cells 
are  the  main  primary  batteries  In  use  today.  Alkaline 
batteries  are  extremely  common  in  consumer  applica- 
tions such  as  electronic  games,  cordless  phones  and 
palmtop  computers.  While  lithium  batteries  are  used  as 
a  primary  power  source  in  other  consumer  products 
such  as  cameras  and  as  a  back-up  supply  In  palmtops. 

Secondary  cells  are  rechargeable  batteries.  Among  the 
many  secondary  cells  available,  lead-ackJ,  Ni-cad  arKi 
Nickel  Metal  Hydride  (NMH)  are  the  most  popular. 

Voltage  Ratings 

Batteries  for  portable  applications,  whether  primary  or 
secondary,  have  three  different  voltage  ratings;  Rated  or 
nominal,  Operating,  and  End-of-llfe.  The  rated  voltage 
is  usually  the  open  circuit  voltage,  which  in  the  case  of 
alkaline  "AA"  cells  is  1.5V.  Under  normal  load  the 
"operating  voltage"  is  realized  and  in  all  cases  is  less 
thanlhenominalvoftage.  Thef1nallMffieiyiioii|gafMnig 


is  the  end-of-lif  e  voltage,  which  is  defined  as  the  voltage 
at  which  100%  of  the  usable  power  of  the  battery  is 
consumed,  or  as  75%  of  the  operating  voltage.  In  the 
case  of  the  same  alkaline  battery  the  end-of-life  voltage 
is  0.9  volts.  Table  1  lists  the  operating  and  end-of-life 
voltages  for  a  single  'AA"  or  equivalisiritHtSlI  Of  tNe'five 
battery  types  mentioned  above. 


BATTERY 
TYPE 
ALKALINE 
LITHIUM 

NI-CAD 

mm 


OPERATING 
VOLTAGE 
1.2V 
2.7V 

2m 

1.2V 
1.ZV 


END-OF-LIFE 
VOLTAGE 
0.9V 
2.0V 
1.75V 
0.9V 
1.0V 


With  applications  employing  primary  cells  this  means 
that  batteries  are  replaced  less  often,  thus  reducing 
operating  cost  as  well  as  having  a  positive  effect  on  the 
environment  due  to  the  use  and  disposal  of  fewer 
batteries.  In  systems  with  secondary  cells  time  between 
recharging  Increased,  thus  enhancing  the  performance 
#:tl»':PMklil. 

■um'mLmm  appucations 

As  mentioned  previously,  the  need  for  increased  port- 
ability will  drive  the  employment  of  low  voltage  technol- 
ogy. Portable  and  handhekl  applications  requiring  low 
voltage  (sub  3V)  technok>gy  will  be  numerous  eind  will  in 
many  cases  be  high  volume.  These  include  a  variety  of 
personal  communications  devices  such  as  cellular  and 
cordless  phones,  computing  devices  like  palmtops  aixJ 
port£d>le  PCs,  and  a  number  of  data  acquisition  devices 
for  a  variety  of  ma#»l,  ttdosMd  and  commercial  appli- 
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MICROCHIP'S  LOW  VOLTAQt 
PRODUCT  POSITION 

Prior  to  the  announcement  of  a  family  of  1.8V  Serial 
EEPROMsin  November  of  1992,  Microchip  had  already 
established  itself  as  a  leader  in  low  voltage  semiconduc- 
tor products.  Microchip's  current  product  portfolio  con- 
sists of:  (1)  Serial  EEPROMs  that  operate,  both  READ 
and  WRITE,  down  to  the  following  voltage  levels:  1 .8V, 
2.0V,  2.5V  and  5V:  (2)  ROM  based  microcontrollers  that 
operate  down  to  2V;  and'(^  SV'Onfe  Urnft  PiogrBni- 
mableEPROMs.  " 

The  1 .8V  Serial  EEPROM  family  operates  down  to  1 .8 V 
without  the  relaxation  of  any  specification.  This  includes 
all  AC,  DC  retention  and  endurance  parameters.  Cur- 
rently the  1 .8V  family  consists  of  three  S-wire  devices,  in 
densities  ranging  from  1 K  to  4K  bits.  Packaging  options 
include  8  pin  SOiC  and  8  pin  PDIP  devices.  Typical 

Ml«MT1J 

•  aJ 

.  .  ^.O'H 


Operating  currents  for  these  devices,  at  1 .8V,  are  in  the 
70uA  range,  resulting  in  power  consumption  levels  of 
less  than  ISOuW.  This  compares  to  1  to  5  mW  for 
comparable  devicas  operating  at  5V.  InWdmarluiiire, 

the  1 .8v  family  of  Serial  eBfmsmmmmim'isan 

include  all  2-wire  devices. 
SUMMARY 

With  the  introduction  of  1.8V  Serial  EEPROMs,  Micro- 
chip has  rnade  avaitairte  silicon  technbtogy  that  opti- 
mizes exteting  tiattery  technology.  This  over  time  will 
raisult  In  ttie  development,  production,  martteting  and 
application  of  more  portable  and  higher  perfomianee 
htndhald  and  portable  computing,  telecoramunlcatioi^t 
ifttd  data  aeqMlsh  products.  -*' 

:■  .  Ill  ■    I'  ..:  ri  fUtaomiUifl'Abi^iy  "       -  • 
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Serial  EEPROM  Solutions  vs.  Parallel  Solutions 


In  searching  for  solutions  to  their  system  non-volatile 
memory  requirements,  equipment,  systems  and  prod- 
uct designers  are  faced  with  a  plethora  of  design  related 
issues  and  trade-offs.  The  non-volatile  memory  options 
available  to  them  offer  a  variety  of  different  device 
features  including  performance,  ease  of  design,  power 
consumption,  operating  voltage,  programmability,  den- 
sity, and  physical  size.  For  the  most  part  these  non- 
volatile memory  options  can  be  grouped  into  two  major 
categories:  serial  solutions  and  parallel  solutions.  This 
paper  discusses  the  attributes  of  each,  conducts  a 
comparative  analysis  and  in  the  process  identifies  the 
benefits  and  advantages  of  Serial  EEPROMs. 

SERIAL  EEPROMS 

The  main  feature  that  makes  a  device  a  "Serial"  and  sets 
it  apart  from  parallel  devices  is,  as  its  name  implies,  the 
ability  to  communicate  through  a  serial  interface.  This 
ability  has  numerous  benefits.  First,  serial  communica- 
tion is  accomplished  with  a  minimum  number  of  l/O's. 
Serial  EEPROMs  require  only  two  to  four  Unes  (depend- 
ing on  the  hardware  and  software  protocoQ  for  complete 
communication;  memory  addressing,  cMa  Input  arid 
output,  and  device  control.  Thus,  the  hardware  interface 
requirements  for  Serial  EEPROMs  are  kept  «t  a  utM" 
mum.  The  most  common  Serial  EEPfK}Ms  in  uabVoMlf 
are  devices  that  utilize  a  2- wire  protocol. 

Anotherbenefit  of  serial  communication  is  package  size. 
Ranging  from  densities  of  256  to  16K  bits,  most  Serial 
EEPROMs  today  are  available  in  space-saving  8  pin 
PDIP  and  1  SOmil  wkJe  SOlO  packaging.  This  obviously 
is  very  benef  k:ialforapplk:dtk>ns  where  product  size  and 
weight  is  a  key  design  factor.  The  final  benefit  is  k>w 
current  consumplnn.  Due  to  a  llmiled  number  of  I/O 
potts  and  therefore  on<h^mxffmltmiiifimmmlteti^pei(' 
ating  currents  for  Serial  ^PROIite  are  usualV  will 
below  3  milliamperss. 

Other  features  of  Serial  EEPROMs  include:  1)  Byte 
programmability — ^The  ability  to  erase  and  program  one 
byte  at  a  time  without  affecting  the  contents  of  the  other 
memory  locations  in  the  array;  2)  Clocl<  rates  of  up  to 
6MHz— 2-wire  devices  are  rated  at  1 0OKHz  and  400KHz 
per  the  standard  I^C  protocol,  while  3-wire  devices  can 
be  operated  at  6M  Hz  rates;  3)  Low  voltage  operation — 
Mk:rochip  has  introduced  a  family  of  devices  that  oper- 
ate, both  read  and  write,  down  to  1.8V.  This  family 
complements  other  2V  and  2.5V  km  vott^ge  Serial 
EEPROM  families  available.         '        *'  ,  •  -o 


PARALLEL  NON-VOLATILE 
MEMORIES 

There  are  a  number  of  memory  devices  that  fall  into  this 
category.  The  major  ones  include  Parallel  EEPROMs, 
Flash  memory  products,  EPROMs,  iM  BRAMs  wfth 
battery  back-up. 

The  main  common  feature  of  all  of  these  devices  is  that 
communication  with  the  devee  is  done  through  a  par- 
allel interface,  which  results  in  a  high  system  clock  rote. 
Each  type  of  device  has  separate  data,  address  and 
control  lines.  Thus  pin  counts  are  In  the  24  to  40  pin 
range,  this  also  resM|$  .ki  /d^tiy^jy  laige  and  costly 
packages  and  large  rebQii^,  even  wHh  the  most  ad- 
iwanced  surface  mount  packages  Mce  TSOP^  SRAMs 
ytDIn  on-beaid  bsMeiJas  iiiBqiiim  DtP. package  'heights 
that  OTii^g||i|ll|tliilHil.iipfaiiiitM  M«tiNMd  DIP 
ptiukdi^li&jQMKIP^j^llPilkSfMtt'MQtf  at  id  cost  disfldvan- 
tage. 

Parallel  EEPROM  and  battery  backed-up  SRAMs  are 
the  only  two  of  the  four  major  types  of  parallel  non- 
volatile memories  that  have  the  capability  to  erase  and 
program  one  byte  at  a  time.  EPROM  and  Flash  devices 
require  the  whole  array  or  at  least  large  sectors  to  be 

iWM.fMUS  PARALLEL  ! 

Serial  EEPROMs  have  five  major  advantages  over 
parallel  non-volatile  menxiries. 

t)  Lower  Current  Consumption  -  The  maximum  oper- 
ating current  (at  5  volts  operating  voltage)  of  a  1 6K 
serial  EEPROM  device  is  approximately  an  order  of 
magnitude  less  than  that  of  an  equivalent  density 
parallel  EEPROM.  Operating  currents  for  16K 
Serials  are  specified  at  3mA,  while  16K  parallel 
devices  are  specified  at  30mA  and  above.  This 
relationship  will  continue  as  64K  serial  devices  are 
introduced.  Since  power  consumption  is  directly 
proportional  to  current  consumption,  the  tower  the 
current  the  lower  the  power  consumption. 

2)  Lower  Voltage  -  Serial  EEPROMs  have  been  avail- 
able in  single  supply  low  voltage  options  for  some 
time.  As  mentioned  above,  Microchip  has  low 
voltage  Serial  EEPROMs  that  operate  down  to 
1.8V,  as  well  as  other  tow  voltage  Serials  that 
,„^lc8en  de«Hvto^^/)r  2.SVvote.  3VEPm>M|s 
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and  parallel  EEPROMs  and  single  voltage  5V  flash 
devices  are  just  being  introduced  to  the  maik^. 
(MosMlBsh  devices  on  the  market  today  require 
hr  ppogramming  in  addition  to  the  S  volts 
"'  -jsquired  fornotmal  operation).  Low  voltage  opera- 
tion also  has  a  positive  effect  on  power  consump- 
tion. A  reduction  in  the  operating  voltage  from  5 
volts  to  1 .8  volts  will  result  in  a  power  consumption 
reduction  of  almost  90%  and  almost  a  65%  reduc- 
tion in  power  if  the  operating  voltage  Is  reduced! rom 
3V  to  1.8V. 

3)  Programmability  -  Neither  currently  available  Flash 
devices  nor  EPROMs  have  the  ability  to  program 
one  byte  at  a  time.  Erasing  is  an  anray  or  sector 
function.  Therefore,  whenever  one  byte  needstobe 
reprogrammed  the  entire  array  or  sector  must  be 
reprogrammed.  This  procedure  talces  a  relatively 
long  amount  of  time  to  complete,  time  which  may 
not  be  available,  as  is  the  case  when  storing  critical 
parameters  or  data  during  inadvertent  and  unex- 
pected system  power  loss.  This  procedure  also 
requires  software  overhead  to  manage  the  retrieval 
and  reprogramming  operation. 

4)  Physical  Size  -  Again,  when  comparing  a  16K Serial 
EEPROM  to  a  1 6K  parallel  device  the  serial  has  a 
significant  advantage.  Theareaofthe  150mil8pin 
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compares  to  an  area  of  more  tlian£50l^uare  mils 
for  a  24  pin  SOIC  and  almost  800k  squire  mils  for 

a  24  pin  SOOmll  DIP  package  footprint. 

5)  I/O  Requirements  -  Serials  only  require  2  to  4  input 
or  output  lines  for  complete  communications.  Most 
parallel  devices  require  at  least  22  lines,  depending 
on  the  memory  density.  This  results  in  increased 
microcontroller/microprocessor  overiiead  and  ad- 
ditional real  estate  to  aceemmedate  the  numerous 
hardware  lines.  -  i 

The  advantages  that  parallel  devices  currently  have 
over  serial  EEPROMs  is  memory  density  and  AC  perfor- 
mance. However,  in  most  microcontroller  based  appli- 
cations tor  which  Serial  EEPROMs  are  intended,  high 
density  and  AC  are  not  the  most  critKal  design  issues  or 
most  needed  product  features. 

The  key  benefits  of  Serial  EEPROM  solutkms  as  a  result 
of  the  advantages  outlhied  above,  are  reduced  system 
costs,  enhanced  feature  sets,  and  Improved  system 
performance.  System  size  and  weight  is  reduced  and 
power  sourcing  requlremd!l^''«r^iKept  at  a  minimum. 
The  following  graph  compares  some  of  the  main  at- 
tributes of  a  ieK  Serial  SW^liMNP.Wfl -ISK 
Parallel  device. 
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USES  AND  APPLICATIONS  OF 
SERIAL  EEPROMS 

Uses  of  Serial  EEPROMs 

The  days  of  simply  being  a  DIP  switch  replacement  for 
Serial  EEPROMs  is  over.  Here  is  a  list  of  the  functions 
that  Serial  EEPROMs  perform  in  a  variety  of  computer, 
Industrial,  telecommurtication,  autonwHimiVKleeRttMMr 
applications: 

1)  Memory  storage  of  charmed  setectors  or  analog 

controls  (volume,  tone,  etc.) 

2)  Power  down  storage  and  retrieval  of  events  such  as 
fault  detection  or  error  diagnostics 

3)  Electronic  real  time  event  or  maintenance  log  such 
as  page  count  ing 

4)  Configuration  storage 

5)  Last  numt>er  redial  and  speed  dial  storage 

6)  User  In-circuit  lool<-up  tables 

Serial  EEPROHA  Applications 

Serial  EEPROMs  have  found  homes  in  hundreds  of 
embedded  control  applications  in  all  major  application 
mari<ets.  The  following  list  demonstrates  the  number 
and  variety  of  applications  for  serial  EEPROMs. 


Marlcet  Jippitcations 

CONSUMER  TV  tURffs,  VCRs,  CP  players,  cam- 
eraaiadlos.andieRioteoontiolS' 

GOMPU119VOA  Printers,  copiers,  PCs,  palmtop  and 
portable  computers,  disk  drives  and 
organizers 

INDUSTRIAL  Bar  code  readers,  point-of-sale  ter- 
minals, smart  cards,  lock  boxes, 
garage  dooropeners,  test  measure- 
ment equipment  and  medical  equip- 
ment 

TELECOMM  Cellular,  cordless  and  full  feature 
phones,  faxes,  modems,  pagers,  and 
satellite  receivers 

AmiiOMOiTIVE  Air  bags,  anti-lock  brakes,  odom- 
eters, radios  and  keyless  entry 


Using  Serial  EEPROMs  for  critical  data  and  configura- 
tion  storage  has  only  recently  become  a  reality.  The 
current  offerings  of  2-  and  3-wire  serial  devices  offers  the 
systems  designer  interesting  alternatives  to  tfie  stan- 
dard parallel  EEPROM  devices.  The  Serial  EEPROM 
basically  a  standard  EEPROM  anay  without  the  normal 
parallel  data  and  address  I/O.  Tfiese  functions  are 
handled  via  serial  I/O  ports  coupled  with  Internal  self- 
timed  state  machines.  Not  only  will  the  serial  device 
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save  power,  board  space,  and  cost,  but  they  also  offer 
the  advantage  of  fewer  I/O  and  consequently  power  in 
the  embedded  microcontroller  because  less  I/O  are 
needed  to  control  the  same  functions .  A  typical  embed- 
ded application  is  shown  in  Figure  A,  depicting  a  control- 
ler and  several  functions  used  in  a  personal  communica- 
tions device,  such  as  a  mobile  or  portable  phone.  The 
EEPROM  stores  speed  dial  and  last  number  redial 
numbers,  credit  card  numbers,  ID  numbers,  and  con- 
figUiation  parameters. 

Figure  B  shows  these  same  f  uricUons  using  a  controller 
with  fewer  I/O  and  a  Serial  EEPROM.  There  is  no  loss  of 
functionality  but  a  significant  savings  in  current,  board 
space,  I/O  pads,  and  cost.  The  serial  solution  employs 
Sto  16  less  I/O  on  the  rrticrocontroller,  freeing  up  much 
needed  f unctionatity,  and  possibly  allowing  for  a  much 
smsller  iMee  nsefcaae  at#ti>witsized.@ireuH  bosMs. 


SUMMARY 

Serial  EEPROMs  are  ideal  cost  effective  solutions  to  all 
non-volatile  memory  embedded  control  applications 
that  require:  1 )  A  small  footprint  space  saving  format; 
2)  The  ability  and  ease  of  programming  one  byte  at  a 
time;  3)  Low  current  consumption  and  low  operating 
voltage;  4)  Low  microcontroller  oveitie»d  md$«i|^rt; 
and,  5)  The  best  price  performance  non-voiatite  memory 
solution  available. 

Their  size,  ease  of  programmability,  low  power  con- 
sumption, and  low  cost  make  Serial  EEPROMs  ex- 
tremely suitable  for  all  the  fast  growing  handheld  and 
portable  battery  powered  computer,  perspned  cptnmufj^ 
cations,  medical  and  industrial  marlcets. 
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Questions  and  Answers  Concerning  Serial  EEPROMs 


Interfacing  a  serial  EEPROM  to  a  controller  can  be  a 
confusing  task,  especially  for  iftsltlMfr^l^.  Because 
communication  with  a  parallel  memorjro^ce  15  more 
«iiS^^rwar4  the  i^M^vHages  «j  serial  devices  are 
sometimes  overloolcecl  because  of  the  time  required  to 
tarn  a  different  protocol.  In  order  to  minimize  this  time, 
^Mcrochip  provides  many  application  notes  on  how  to 
Interface  a  controller  to  our  serial  memory  products. 
Since  every  application  is  different,  questions  on  differ- 
ent aspects  of  serial  memories  still  arise.  This  applica- 
tion note  provides  answers  to  some  of  these  commonly 
aslced  questions  on  using  serial  EEPROMs.  This  series 
^questions  and  answers  covers  a  broad  range  of  topics 
concerning  both  2-wire  and  3-wite  serial  EEPROMS, 
and  covers  material  and/or  circumstances  Stat  may ngt 
be  provided  in  the  data  book. 

QUESTIONS  ON  2-WIRE  DEVICES 
(24XXXX  OR  85XXXX) 

Q:  What  happens  if  a  STOP  bit  is  Inadvertently  sent  to 

the  device  in  the  middle  of  a  page  write  command? 

A:  It  depends  on  which  device  you  are  using.  The 
older  24Cxx  devices  will  write  any  fully  loaded  bytes 
In  the  page  to  the  device.  For  example  if  the  stop  bit 
occurs  before  all  bitsare  loaded  intfie  5th  byte,  then 
the  first  4  bytes  will  be  written  and  the  5th  byte  will 
not  On  lha24kC»(Bor24AAxx  devices,  if  ttie  stop 
bit  occurs  b^ore  aH  8  bits  in  a  byte  cue  loaded,  then 
the  entire  command  will  abort  and  no  bytes  will  be 
written. 

Q:  What  happens  If  a  START  bit  is  inadvertently  SCMI 
to  the  device  in  the  middle  of  command? 

A:  A  start  bit  will  always  reset  the  part.  It  should  be 
noted  that  if  the  device  has  control  of  the  SI3A  line 
for  an  acknowledge  bit  or  a  read  command,  it  may 
not  be  possible  to  send  a  start  bit. 

Q:  I'm  using  intermpts  in  my  controller  code,  and  it  is 
possible  that  I  may  jump  out  of  my  serial  EEPROM 
communication  routine  to  handle  an  interrupt.  Is 

-'  there  any  problem  with  leaving  the  device  sitting  in 
the  middle  of  a  command  as  king  as  the  clock 
remains  stable? 

A:  ttisperfectlyvaiUtoleaveaoommandinthemklctte 
IndonhlMy  as  long  asttw  dock  Hna  remains  stabto. 


Q:  I'm  using  an  interrupt  routine  in  my  controller  code 
that  may  leave  the  serial  EEPROM  In  the  mkfdie  of 
a  read  command.  When  I  return  from  the  Interrupt, 
there  sKf^lftifWtiistelSm  part  to  oiake  sure  It  is 
in  a  known  state  beforsfwtllrtillrig  Itcohimands 

A:  If  the  part  was  in  the  process  of  outputting  data,  you 
can  always  get  It  back  to  standby  mode  by  allowing 
the  SDA  line  to  float  high  and  give  it  9  clocks.  This 
assures  that  tfie  device  will  not  receive  the  acknowl- 
edge bit  at  the  end  of  the  current  byte  and  will  alxjrt 
the  command  and  go  to  standby. 

Q:  I'm  using  a  24LCxxB  In  my  sqjplicatnn.  What  hap- 
pens if  the  WP  line  goes  from  low  (unprotected)  to 

high  (protected)  In  the  middle  of  a  write  command? 

A:  The  state  of  the  WP  pin  is  OR'ed  with  the  write 
control  circuitry  inside  the  device.  The  state  of  the 
pin  Is  not  latched  at  any  point  of  the  command  to 
see  if  the  write  should  be  done  or  not.  Therefore,  if 
the  WP  pin  went  high  before  the  stop  bit  was  sent  to 
initiate  the  command,  then  the  array  would  be 
protected.  If  the  WP  pin  went  high  a/ferthe  stop  bit 
was  sent,  then  the  outcome  is  unpredictable,  be- 
cause the  result  woukl  vary  according  to  how  far  hto 
command  the  WP  pin  went  high. 

Q:  I'm  attempting  to  use  a  serial  EEPROM  in  an 
appllcatton  for  the  first  time,  and  am  having  prob- 
lems getting  It  to  work.  I  have  followed  all  the  timing 
diagrams  in  the  dalabook  but  when  I  attempt^  read 
data  from  the  devk;e  I  only  read  zeros. 

A: '  When  a  read  command  is  inHiated  and  all  the  data 
Is  zeros,  the  problem  is  most  likely  one  of  two  th  Ings : 

1)   A  pull-up  resistor  on  the  SDA  line  is  required 
for  the  device  to  operate  correctly.  Common 
'  values  are  1 0K  -  20K  ohms.  If  this  pull-up  is 

notprovlded^|^W||||!|d^^»canonlyou^ut 
zeros. 

§1  The  controller  Is  not  releasing  the  bus  to  the 
device  and  is  holding  it  low.  Check  the  control- 
ler code  and  make  sure  that  the  SDA  line  has 
been  set  for  Input  during  the  read  command. 


Questions  and  Answers  Concerning  Seriai  EEPROI\/ls 


Q:  I  had  been  using  a  24C04A  in  my  application  and 
have  switched  to  the  24LC04B  so  I  can  run  at  a 
lower  voltage.  Now  the  circuit  is  no  longer  working 
correctly.  The  read  seems  to  work  fine  but  the  write 
seems  to  not  work  at  all  or  only  intermittently. 

A:  The  problem  is  probably  with  the  difference  in  write 
cycle  times  between  the  two  devk:es.  The  write 
cycle  time  for  Vie  24C04A  Is  about  0.5ms  per  byte, 
while  the  cycle  time  for  the  24LC04B  is  around 
2-4ms  per  byte.  Therefore,  when  you  send  con- 
secutive write  commands  using  the  new  device,  it  is 
ignoring  all  commands  that  occur  while  it  is  in  tfie 
middle  of  a  write  cycle. 

Q:  I'm  using  a  24LC16B  device  in  my  application.  Is 
there  any  way  I  can  determine  when  the  write  cycle 
is  complete  instead  of  waiting  the  maximum  1 0ms? 

■A:  Yes,  you  can  detmnkie  when  ttie  write  cycle  is 
contptela  on  any  of  our  2-wire  devices  by  util^ng  a 

r  simple'iteBhnique  called  'data  polling"  or  'acknowl- 
edge polling."  Data  polling  is  done  after  the  stop  bit 
has  been  sent  to  the  device  to  initiate  a  write  cycle. 
You  simply  send  the  devtee  a  start  bit  followed  by  a 
proper  control  byte  with  the  R/W  bit  set  tow.  You 
then  check  the  status  of  the  acknowledge  bit.  If  the 
acknowledge  bit  is  high,  then  the  device  is  still  busy 
writing.  You  can  continue  to  send  the  start  bit  and 
control  byte  until  the  devk:e  acknowledges.  When 
the  acknowledge  bit  reads  tow,  then  the  device  has 
finished  the  write  cycle.  You  can  now  send  the 
address  and  data  bytes  if  you  are  going  to  do  a  write 
command,  or  just  send  the  address  if  you  are  going 
to  do  a  read  command.  Of  course  you  may  also 
send  a  start  bit  and  begin  the  next  command  from 
scratch. 

Q:  rm  confused  about  when  the  acknowledge  bit  from 

the  device  actually  occurs;  can  you  clarify  this? 

A:  The  device  will  attempt  to  take  overthe  SDA  line  for 
the  acknowledge  bit  on  the  falling  edge  of  the  clock 
for  the  last  bit  in  the  byte.  It  will  then  release  the  SDA 
line  on  the  falling  edge  o1  the  clock  given  for  the 
acknowledge  bit.  For  example,  when  the  control 
byte  is  sent  to  the  device,  it  will  take  the  SDA  line  low 
on  the  falling  edge  of  the  clock  for  the  RA/V  bit.  It  will 
then  release  the  SDA  line  on  the  next  falling  edge  of 
the  clock  (the  acknowledge  bit).  The  same  se- 
quence occurs  for  sending  the  etevict^tii^e  of  (Ma 
or  address. 

.     b    .  srI;  j., n"'  u;      :o.  Lit  .  '  iiJ 


Q:  I  am  using  a  24LC01 B  in  my  application  which  has 
an  8  byte  page  buffer.  What  happens  if  I  load  more 
than  8  bytes  into  the  device  before  giving  it  the  stop 
bit? 

A:  For  all  24LCxxB  products,  the  24C04A  and  the 
85C92,  the  page  buffer  will  wrap  around  to  tlie 
beginning  of  the  buffer  and  begin  to  overwrite  the 
data  that  has  prevtously  been  toaded  For  the 
24CX)1A/02A  and  85C72/82,  the  write  command 
will  abort  if  more  bytes  than  the  page  buffer  will  hoki 
are  loaded. 

Q:  Can  I  send  a  stop  bit  and  a  start  bit  with  the  same 
clock  pulse? 

A:  Yes,  this  is  valid  as  tong  as  setup  and  hoto  times  for 
both  the  start  and  stop  bits  are  obeyed. 

Q:  What  happens  if  I  give  the  device  a  start  bit  and  then 
a  stop  bit  in  the  same  clock  pulse? 

A:  The  24Cxx  devtoes  will  ignore  the  stop  bit,  the 
24LCxxB  products  will  accept  the  stop  bit  and  go  to 
standby  mode. 

'Q:  Does  the  address  pointer  get  incremented  after  a 
current  address  read  command? 

A:  A  currentaddress  read  command  can  be  halted  by 
S(9ndingastopbitor.bysendingaJ|l^|Ud(noWled£|e 
bit  aflerthe  data  has  been  Scaiifb^todovtod,  On  the 
24CXX  devices,  ending  the  read  command  with  a 
stop  bit  will  increment  the  address  pointer  to  the 
next  address.  Ending  the  command  with  a  hij^ack 
bit  will  not  increment  the  address. 

For  the  24LCxxB  products,  ending  the  command 
with  either  the  stop  bit  or  the  high  ack  Bit  will 
increment  the  address  pointer. 

Q:  I  am  using  the  24LC1 6B  and  want  to  write  to  the  part 
using  the  page  write  mode.  Can  I  start  a  page  write 
at  any  tocatton  in  the  devtoe? 

A:  You  can  start  a  page  write  at  any  kx»rtj6n 'm  the 
devfce,  but  you.  iteed  to  be  snware  thst  the  part  is 
arranges!  in  16-byte  pages  and  you  cannot  cross  a 
page  boundary.  If  you  attempt  a  page  write  that 
goes  beyond  the  end  of  the  current  page,  data 
,k>aded  will  'roll  around'  to  the  beginning  of  the 
cu^iwtt  page  instead  of  going  to  the  next  one.  For 
example;  the  first  page  in  the  device  starts  at 

,  address  0x00  and  ends  at  OxOF.  If  you  start  a  page 
write  at  address  OxOE,  the  first  byte  loaded  will  be 
written  at  address  OxOE,  the  second  at  OxOF  and  the 
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QUESTIONS  AND  i 
3-WIRE  DEVICES  (^IQQQi 

Q:  What  twuld  happen  H  during  a  write  convnand  I 
inadvertently  sent  either  too  many  or  too  few  clocks 

to  the  device  before  dropping  the  CS  iine? 

A:  If  you  send  too  many  clocl<s  to  the  device  and  then 
drop  the  CS  line  to  initiate  the  write  cycle,  the  extra 
clocks  will  be  ignored  but  the  command  will  ex- 
ecute. If  you  do  not  send  enough  clocks  and  then 
drop  the  CS  line,  then  the  command  will  abort  and 
no  write  will  take  place. 

Q:  I  am  using  a  93LC56  devtee  In  my  appflcatkm  artd 
amhavingproblenrisgettingittoworicconiectly.  The 
read  sequence  seems  to  wotk  fine  but  I  unable  to 
write  any  data  to  the  part. 

A:  A  problem  such  as  this  is  usually  caused  by  either 
not  giving  the  part  the  required  number  of  bitsforthe 
command  before  dropping  the  CS  line,  or  not  drop 
ping  the  CS  line  at  all.  The  write  command  will  not 
commence  until  the  CS  line  is  brought  k)w. 

Q:  I  am  currently  using  a  93C46  device  and  am  kiokfeig 
to  go  to  the  93LC46  device  so  I  can  run  at  a  lower 
voltage.  What  are  the  maki  differences  betwaen 
these  devfces? 

A:  There  are  several  operational  dilTerencesbalwaan 
these  devices  tfiat  you  shoukl  be  aware  of: 

1)  The  93LC46  operates  in  both  x8  arKi  xi6 
modes;  the  94C46  is  x16  only. 

2)  The  93LC46  supports  the  sequeilHal«SBdflini> 
tion,  the  93C46  does  not. 

3)  The  write  cycle  on  the  94LC46  begins  on  the 
talGng  edge  of  the  CS  iine;  the  write  cyde  for 
the  93C46  begins  on  the  rising  edge  of  the  last 
dock. 


Gh  Is  the  93LC46  drop-in  compatible  with  the  93C460I' 
would  I  be  better  off  using  the  93LC46B? 

A:  The  93LC46  and  93LC46B  are  the  same  devwe 
with  one  exceptnn;  the  0R<3  pin  on  the  93LC46B 
is  'ntemally  tied  so  it  will  only  operate  in  the  x16 
mode.  This  altows  the  user  to  leave  pin  7  f  k>atRig, 
just  like  you  would  on  the  g3C46.  For  this  reason, 
the  93LC46B  is  a  ctoser  match  than  the  93LC46. 
Please  note  tfie  other  operatnnal  differences  de- 
scribed in  the  prevbus  questk>n. 

Q:  I  am  confused  as  to  whether  I  have  to  toggle  the  CS 

A:  Yes,  the  CS  line  rmist  go  k>w  for  at  least  250  ns 
between  each  command.  If  you  are  doing  a  write 
command  and  you  bring  CS  tow  to  activate  the  data 
polling  mode,  you  must  toggle  CS  tow  agah  after 
the  ready  signal  haa  baen  given  the  devtoa 
before  the  nod  slaR  ttt  eai  be  sent 
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Microchip  

Development  System  Selection  Chart 


PIC16/17  Microcontroller 


ASSP 


Memory 


PRODUCT 


5 

_  o 

IS  01 


Emulator  Systems 


PICMASTER'"-16B 

X 

9-17 

PICMASTER-16C 

X 

9-17 

PICMASTER-16D 

X 

X 

X 

X 

X 

X 

t 

t 

9-17 

PICMASTER-16E 

X 

9-17 

PICMASTER-16F 

X 

9-17 

PICMASTER-17 

X 

9-17 

Development  Kits 

fuZJ^TECH'-MP 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

9-39 

PICSTART™-16B1 

X 

X 

X 

X 

X 

X 

X 

X 

9-25 

PICSTART-ieC 

X 

X 

9-27 

PICSEEKIFW^IA 

X 

9-7 

PICSEESTAR"nM«lA 

X 

96 

PICSEEKIT-65A 

X 

9-9 

PICSEESTART-S5A 

X 

9-10 

PRO  MATE™ 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

X 

9-21 

Serial  EEPROM  Designer's  Kit 

X 

943 

TrueGauge™ 

X 

9-11 

Emulator  Probe  Kits 


PICPR0BE-16B 

X 

PICPR0BE-16C 

X 

P1CPR0BE-16D 

X 

X 

X 

X 

X 

X 

t 

t 

PICPR0BE-16E 

X 

PiCPR0BE-16F 

X 

PICPR0BE-17A 

X 

Demonstration  Boards 

PICDEM-l 

X 

X 

X 

X 

X 

X 

X 

X 

X 

9-29 

PICDEM-2 

X 

X 

9^31 

t  The  probe  may  be  used  In  ttw  deveiefiHwnt  ef  Ml  me^^-mmmWtWs  PVSSSE  device. 

PICMAS-TER.  PtcsTART.  PICKE.  PHO  M«ii  eM  TiueepiBgi«i»  taim^^  me- 
ftizzyTECH  is  a  registered  trademark  Of  INFORM  SeAMare  Cdf/i. 


8S1 


Development  System  Selection  Chart 


NOTES: 


I 


.J  LJ  .-L    !  ... !  ^  .L/    ■ .  i  .  ■   ,1  i,  I.J 

.'■'in       'A-y-,/  ,  c,.  ■  rat  Wnmw  X.':.<.  !•'■'!  ,.r. ■     1  -,<»  n  , 


Microchip 


J  , 


MICROCHIP  BBS 


Microchip  Bulletin  Board  Service 


Get  current  infomiation  and  help  on  Microchip's  Bulletin 
Board  Sennce  (BBS)!  Microchip  wants  to  provide  you 
with  the  t)est  responsive  sen/ice  possble.  To  accom- 
plish this,  the  systems  team  monitors  the  BBS,  posting 
the  latest  component  data  and  software  tool  updates, 
providing  technical  help  and  embedded  systems  in- 
sists, and  discussing  how  Microchip  products  provide 
project  solutions.  Extend  your  technical  groups  staff 
wKh  microcontroller  and  memory  experts  through 
Microchip's  BBS  communication  channel. 

CONNECTING  TO  MICROCHIP 

Connect  worldwide  to  the  Microchip  BBS  using  the 
CompuServe" communications  network.  In  most  cases, 
a  bcal  call  is  your  only  expense.  The  Microchip  BBS 
connection  does  not  use  CompuServe  membership  ser- 
vices, therefore  you  do  not  need  CompuServe  mem- 
liership  to  join  Microchip's  BBS. 

The  procedure  to  connect  will  vary  slightly  from  country 
to  country.  Please  check  with  your  local  CompuServe 
agent  for  details  if  you  have  a  problem.  CompuServe 
services  allows  multiple  users  at  t>aud  rates  up  to  9600. 
To  connect: 

1.  Set  your  modem  to  S-txt,  No  parity,  and  One  stop 
(8N1).  This  is  not  the  nonncM  CompuServe  setting 
which  is  7E1. 

2.  Dial  your  local  CompuServe  phone  number 

3.  Depress  <RETURN>  and  a  gart)age  string  will  ap- 
pear because  CompuSeive  is  expecting  a  7E1 
setting. 

4.  Type  +,  depress  <RETURN>  and  Host  Name :  will 
appear. 

5.  Type  MCHIPBBS,  depress  <RETURN>  and  you 
connect  to  the  Microchip  BBS. 

In  the  United  States,  to  find  CompuServe's  phone  num- 
ber closest  to  you,  set  your  modem  to  7E1  and  dial  (800) 
848-4480  for  300-2400  baud  or  (800)  331-7166 for  9600 
baud  connection.  After  the  system  responds  With  Host 
Name:,  type 

NETWORK,  depress  <RETURN>  and  follow 

CompuServe's  directk>ns. 

For  voice  information  (orcalling  from  overseas),  you  may 
call  (614)  457-1500  for  your  local  CompuServe  number. 

Connect  without  charge  to  the  bulletin  board.  However, 
you  are  responsible  for  your  phone  charges.  Access  is 
available  to  all,  but  users  aie  required  to  registerthe  first 
time  they 'log  in."  No  registration  feesarerequiredetthis 

time. 


USING  THE  BULLETIN  BOARD 

The  Microchip  Bulletin  Board  is  a  multi-faceted  tool. 

Topic  information  includes: 

•  Special  Interest  Groups 

•  Files 

•  Mail 

•  Bug  lists 

•  Technk^  assistance 

•  Consultant  Directory 

Special  Interest  Groups 

Special  Interest  Groups,  or  SIGs,  offer  you  the  opportu- 
nity to  discuss  technical  issues  and  topics  with  other 
users.  Take  advantage  of  the  Microchip  usercommunit/s 
broad  background  to  glean  information  not  available  by 
any  other  mettK)d. 

SIGs  exists  for  most  Microchip  systems,  including: 

•  PIC16/17-SW  •  ENDURANCE 

•  PICMASTER™  .  MEMORY  PRODUCTS 

•  PRO  MATE™  •  BUGS 

•  UTILITIES  .  APP  NOTE 

These  groups  are  moderated  by  Microchip  staff. 
Files 

The  Microchip  Systems  BBS  is  used  regularly  to  distrib- 
ute bug  reports,  hlstoiy  files,  and  interim  patches  for 
Miimx^hip  software  products. 

Users  can  contribute  files  for  distribution  on  the  BBS. 
These  flies  will  be  monitored,  scanned,  and  approved  or 
disapproved  by  the  SIG  moderator.  No  executable  flies 
are  accepted  from  the  user  community  in  general. 


The  BBS  can  be  used  to  distribute  man  to  other  users  of 

the  service. 

This  is  an  excellent  way  to  get  questions  answered  by 
the  Microchip  staff,  as  well  as  to  keep  in  touch  with  fellow 
Midochip  product  users  worldwide. 

The  BBS  is  an  evolving  product  intended  to  seive  your 
needs.  We  welcome  your  ideas  and  input.  Consider 
mailing  a  message  to  your  SIG  moderator,  or  to  the 
SYSOP,  if  you  hewe  ideas  or  questions  about  particular 
Microchip  products,  or  BBS  operatioa 


CompuServe  is  a  registered  trademark  of  CompuServe  Inc. 
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MlCHOCHIP  

Systems  Information  Hotline 


INTRODUCTION 

The  Microchip  Systems  Infoimation  Hotline  provides 
callers  with  listing  of  the  latest  versions  of  all  Microchip 
Development  System  Software  products  plus  informa- 
tion on  how  to  receive  any  currently  available  upgrade 
kits. 

Microchip  endeavors  to  ship  the  latest  software  avail- 
able at  the  time  of  product  shipment,  however,  we  are 
continually  updating  and  enhancing  these  products. 
This  information  line  provides  a  quick-check  method  of 
insuring  that  you  have  the  very  latest  software  available. 
The  line  is  updated  just  as  soon  as  a  new  software 
change/update  is  made.  If  you  find  that  the  software 
version  that  you  have  has  been  revised,  the  hotline 
provkles  infomnation  on  how  to  downtoad  the  latest 
versions  from  Microchip's  BBS. 


In  the  event  that  Microchip  has  revised  a  non-software 
systems  product,  the  information  line  will  provide  details 
about  the  change  plus  provide  details  on  how  you  can 
receive  the  upgrade  Mt. 

CONNECTING  TO  THE  SYSTEMS 
INFORMATION  HOTLINE 

Connecting  to  the  Systems  Information  Hotline  is  easy. 
If  you  are  calling  from  most  of  North  America,  call  1  -800- 
755-2345.  For  the  rest  of  the  world,  call  1-602-786- 
7K)2. 
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PICSEE  Product  Development  Tools 


INTRODUCTION 

The  PICSEE  Development  Systems  provide  the  product 
development  engineer  with  cost  effective  and  timely 
design  tool  solutions  for  the  MTA8XXXX  family  of  8-bit 
CMOS  microcontrollers  with  serial  EEPROM.  They  are 
designed  specifically  for  the  MTA8XXXX  family.  These 
tools  work  in  conjunction  with  existing  hardware  and 
software  design  tools  for  the  PIC16CXX  microcontroller 
family.  This  allows  the  development  engineer  to  effi- 
ciently Implement  systems  utllizlng^ese  multichip  mod- 
ules with  sMt^t^  W«^tC|%j^M||Sl^V^llttrit#est' 
ment. 

PICSEEKiT™.81  A  —  P/N  AC812001 


Supports  MTA81 010 

Programming  Adapters  far  POiP  add  SOtC 

packages 

Daughter  card  for  PICPROBE-1 6A 

PC™  bus  Serial  Communication  Application 

Software 


"1 


This  Icit  supports  the  MTA81010  multichip  module.  It 
contains  programming  adapters,  a  PICMASTER™  emu- 
lettor  daughterboard  and  MTA81 01 0  product  samples  in 
28-lead  PDIP.  Also  included  is  an  MS-DOS*,  PC- 
compatible  3.5-inch  software  diskette  that  contains  ex- 
ample source  code  for  Implementing  the  I^C  serial  bus 
protocol  to  communKate  with  a  Serial  EEPROM.  Docu- 
mentatk)n  is  provkJed  for  all  of  the  Included  hardware 
and  software. 

PfOflramminq  Support 

Two  programming  adapters  are  provided  to  allow  the 
MTASIOIO's  Internal  program  EPROM  as  well  as  Its 
data  EEPROM  to  be  progiammed  on  existing  program- 
mers. Any  programmer  that  supports  Mterochip's 
PIC16C54  can  program  tfie  MTASIOIO's  intemal 
EPROM.  Also,  any  programmerthat  supports  Microchip's 
24LC01  BSerial  EEPROM  can  program  the  MTASIOIO's 
Intemal  Serial  EEPROM.  There  is  one  adapter  for 
MTASIOIO's  in  DIP  packages  and  another  for  SOIC 
packages.  Both  DIP  and  SOIC  programming  adapters 
MBrface  to  programmers  via  a  300  mil  DIP  header. 


FIGURE  1  -  PICSEEKIT-81A  INTRODUCTION  DESIGN  KIT 


PCIs  a  trademark  of  Philips. 

MS-DOS  is  a  registered  trademark  of  Microsoft  Corp. 
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PICSEE  Tools 


EmulaMon  Support 

The  emulator  daughter  board  allows  the  developer  to 
use  Microchip's  PICMASTER  in-circuit  emulatorto  emu- 
late the  MTA8 1 0 1 0  Micrecontrolier  with  Serial  EEP  RO  M . 
This  daughter  board  replaces  Microchip's  PIC16C5X 
Emulator  Probe  Header  (P/N  AC1 62009)  emulatorprobe 
to  support  the  MTA81010.  The  daughterboard  provides 
the  required  translation  from  a  PIC16C54  pin  out  to  the 
MTA81010  pin  out.  It  also  contains  a  discrete  24LC01 B 
Serial  EEPROM  to  provide  the  same  functions  as  the 
MTA81010's  intemai  EEPROM.  This  provides  a  cost- 
effective  emulation  solution  to  customers  wfK>  may  wish 
to  purchase  a  PICMASTER  in-circuit  emulator  or  those 
that  already  have  a  PiCMASTER. 

Software  Support 

Example  source  code  for  PC  Bus  communication  with  a 
serial  EEPROM  is  included  in  the  kit.  This  pre-tested 
code  can  be  used  directly  or  modified  by  the  developer 
to  meet  their  specific  needs.  This  example  code  i& 
provided  royalty  free  and  license  free. 

I,  ■ '  3  t,.  '4i3i '  1      ■        i"'  .  "C  .  •■.     '-'l  :'•  h  '  .'"'      '  i 


PICSEESTART-81 A  —  P/N  DV813001 

•  Complete  Low-CoSt  Development  Solution  for 
MTA81010 

•  Combines  PICSEEKH  ACfll^CttatoRK^IO"-  : 
16B1  DV1 63003      "      '  " 

•  MPALC Assembler        i'  ■ 

•  MPSIM  Simulator 

•  Low-Cost  Programmer 

•  Programming  Adapter  Sockets 

•  I'C  Bus  Applications  Software 

Ttiis  kit  combines  the  PICSEEKIT  (P/N  AC812001 )  with 
a  PICSTART™-16B1  (P/N  DV163003)  to  fomn  a  com- 
plete low- cost  development  system  for  the  MTA81010 
muttichip  module.  It  is  designedto  support  the  MTA81 010 
during  the  software  development  and  Initial  prototype 
phases  of  new  product  development.  It  contains  tools 
for  software  development  and  debugging,  as  well  as 
programmer  for  programming  the  MTA81010's  intemai 
EP  ROM  program  merrwty.  For  a  more  detailed  descrip- 
tion, please  referto  the  PICSEEKIT  P/N  AC812001  and 
PICSTART  P/N  DV1 63003  product  desctiptk>ns. 


FIGURE  2  -  P1CSEESTART™-81A  DEVELOPMENT  KIT 


Description  of  Contents 

1  •  PICSEE  PDIP  and  SOIC  to  PIC16C54 

or  24LC01 B  Programming  Adapter 

Sockets 

2  •  Header  Interface  for  PICMASTER-16D 

and  PICPR0BE-16D 

3  •  Serial  EEPROM  Example  Software  Disk 

4  •  IVITA81 01 0/PIC16CXX  Product  Samples 

5  •  PIC16CXX  Device  Programmer  Board 

6  •  PIC16CXX  Assembler,  Simulstor  and 

Host  Software 

7  •  8-  and  18-Pin  Programming  Adapter 

Plug 

8  •  Power  Supply 

9  •  RS-232  Cable 

10  •  Complete  Systems  Documentation 


f  ■■/!  1.1.    iX"  'VKJP  ■ 
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Pr©iiminary 


fl  19M  MjpiQchip.Techriology  Inc. 
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•  Supports  MTA85XXX 

•  Programming  Adapter  for  SSOP  package 

•  PICMASTER  Adapter  Socket 

•  PC™  bus  Serial  Communication  Application 
Software 


This  kit  supports  the  MTA85XXX  multlchip  module.  It 
containsa  programming  adapter,  a  PICMASTER  adapter 
socket,  and  product  samples.  Also  included  is  an 
MS-DOS,  PC-compatible  3  .5-inch  software  diskette  that 
contains  example  source  code  for  implementing  the  I^C 
serial  bus  protocol  to  communicate  with  a  Serial 
EEPROM.  Documentation  is  provkjed  for  all  of  the 
included  hardware  and  software. 


A  programming  adapter  socket  is  provided  to  allow  the 
MTA85XXX's  intemal  program  EPROM  as  well  as  its 
data  EEPROM  to  be  programmed  on  existing  program- 
mers. Any  programmer  that  supports  Microchip's 
PIC16C54  can  program  the  MTA85XXX's  intemal 
EPROM.  Also,  any  programmerthat  supports  Microchip's 
24LC01B  and  24LC02B  Serial  EEPROM  can  program 
the  MTASSXXX's  intemal  Serial  EEPROM.  There  is  one 
adapter  for  the  SSOP  package  for  MTABSXXX. 


4bQa  ) 


Preliimioinary 
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Emulation  Support       .<    .  f  ,  i  '  > 

PK^ASTBR  ittt-elrcur  «miilator  to  emulate  the 
MTAffiXXX  MieroeorMtor  with  Serial  EEPROM.  The 
adapter  socket  proi^tes  the  reqtiired  translation  from  a 
PtC1€C54A/^  (»n  out  to  the  MTA85XXX  pin  out.  It 
also  osntairts  a  dteoele  24LC02B  Serial  EEPfVSM  to 
pioviBkMie^atiniO  functiens  as  tiie  MTASSXXX's  internal 
EEPR^.  Thte  provides  a  cost-  effecttve  emulation 
solution  to  customers 'who  imy  wf^  to  pUi*Bha^  a 
PICMASTER  in-clrcuK  emulator  or  those  that  already 
have  a  PICMASTER. 

Software  Support 

Example  source  code  for  I^C  Bus  communication  with  a 
serial  EEPROM  Is  Included  In  the  kit.  This  pre-tested 
code  can  be  used  directly  or  modified  by  the  developer 
to  meet  their  specific  needs.  This  example  mtgt  ia 
provided  royalty  free  and  license  free. 


PIC8EiST3IRr^  ^  P/N  DV8S3001 

•  Complete  Low-Cost  [}evek>pment  Solution  for 
MTABSXm  ' 

•  Combinas  PICSEEKm«SA:AC8^00tliM 
PICSTiMW-teB1^E)V1«30(®'    ■       -  r.. 

•  MPALC  Assembler  '  ' 

•  MPSIM  Simulator 

■  L0W'<>o8t  Programmer 

•  I  Programming  Adapter  Sockati; 
•■fQiBtisAppttDationsSftfMMWs   .  , 

■  ■  •  • .  i,  • .  "  ■;■ 

TMskReembinesttie  PICSEEKrr(P/N  AC852001)wlth 
a PlCST^i\RT^t6fft  (PMO¥163003)tOfbmiacompi^ 
k>#-  cost  devalopmmit  system  for  the  MTA0SX9O( 
multichip  module.  It  is  designed  to  support  flie 
MTA85XXX  during  the  software  devek>pment  and  viitial 
prototype  phases  of  new  product  development.  It  con- 
tains tools  for  sofbmrs  devekipment  and  debugging,  as 
well  as  programmer  for  programming  the  MTA85X)OCs 
internal  EPROM  program  memory.  For  a  more  detailed 
descriptkm,  please  refer  to  the  PICSEEKIT-85A  P/N 
AC8S2001  and  PIGSTART-16B1  P/N  DV163003  prod- 
uct descriptkms. 


FIGURE  4  -  PICSEESTART-85A  DEVELOPMENT  KIT 


1  •  20-lead  SSOP  Programming  Adapter 

Socket 

2  •  PICMASTER  Adapter  Socket 

3  •  Serial  EEPROM  Communications 

Sofware  Disk 

4  •  Product  Sample 

5  •  PIC16CXX  Device  Programmer  Board 

6  •  PIC16/17Assembler,  Simulator,  and 

Host  Software 

7  •  8- and  18-pin  Programming  Adapter 

Plugs 

8  •  Power  Supply 

9  •  RS-232  Cable 

10  •  Complete  Systems  Documentation 


SALES  AND  SUPPORT-  

1 

To  order  or  to  obtain  infomratkan,  e.g.,  on  pricing  or  dellveiy,  pieasa  usettia  Vsledpart  numbers,  and  refertothe  listed 

sales  offKes. 

PART  NUMBER 

DESCRIPTION 

AC812001 

PICSEEKIT-81A  FOR  MTA81010 

DV813001 

PICSEESTART-81A  FOR  MTA81010 

AC814001 

PDIP  PROGRAMMING  SOCKET  ONLY 

AC8140Q2 

SOIC  PROGRAMMING  SOCKET  ONLY 

AC852001 

PICSEEKIT-85A  FOR  MTA85XXX 

AC8S4001 

20-LEAD  SSOP  PROGRAMMING  ADAPTER  SOCI^ 

AND  ADAPTER  PLUGS  ONLY 

DV853001 

PICSEESTART-8SA  FOR  MTA85XXX 

Microchip 


TRUEGAUGE™ 


TrueGauge™  Intelligent  Battery  Management  Development  Tool 


INTRODUCTION 

The  MTA1 1 200  TrueGauge  Intelligent  Battery  Manage- 
ment IC  is  supported  by  a  user  friendly  tool  for  system 
development.  The  DV1 1 4001  operates  under  Microsoft 
Windows'.  This  development  tool  enables  for  manage- 
ment of  all  phases  of  product  development,  including 
inception,  debugging  and  maintenance.  System  design 
verification  can  be  accomplished  before  a  hardware 
prototype  needs  to  be  built,  thus  reducing  time  and  cost. 
The  user  interface  provides  a  graphically-oriented  de- 
velopment environment.  The  data  logging  feature  saves 
measured  data  into  a  file  that  can  be  imported  to  Excel®. 

This  comprehensive  design  package  allows  the  user  to 
input  parameters  of  a  system  design,  and  the  TrueGauge 
system  analysis  show  visually  how  the  design  will  oper- 
ate. Adjustments  can  be  made  to  the  design  as  needed. 
The  critical  process  verifies  a  system  design  before  a 
hardware  prototype  is  built.  A  calibration  program  Is 
included.  Please  refer  to  Application  Note  AN570, 
"Calibrating  the  MTA1 1 200",  for  details. 

FK3URE  1  -  TRUEGAUGE  DEVELOPMENT 
TOOL  KIT 


SUMMARY  OF  FEATURES 

The  TrueGauge  development  tool  is  a  tool  for  system 
development  under  Windows.  Thedevelopm^ttol  kit 
contains  the  following: 

•  NiMH  battery  with  TrueGauge  module 

•  Stand-alone  TrueGauge  module 

•  Charger/Discharger  Interface  Board 

•  Universal  Power  Supply  with  power  cord 

•  PC  Interface  Cable  with  DB9-DB25  converter 

•  Design/Verification  software  on  a  3.5"  diskette 

•  MTA1 1 200  and  24LC01 B  product  samples 

•  MTA1 1 200  Datasheet 

•  TrueGauge  Development  Tool  User's  Guide 

Battery  status  Information  is  plotted  on  the  computer 
allowing  for  ttie  real-time  monitor  of  battery  management 
parameters  including  (see  Figure  2): 

•  battery  capacity 

•  voltage 

•  temperature 

•  charge/discharge  current 

•  number  of  charge  cycles 

•  battery  errors 

FIGURE  2  -  CAPACITYA/OLTAGE  OVER  TIME 


TrueGauge  is  a  trademark  of  Microchip  Technology  Inc. 

Microsoft  Windows  and  Excel  are  registered  trademarte  of  Microsoft  Corporation. 


TrueGauge 


TM 


Parameters  can  be  changed  easily  using  configuration 
displays  (see  Figures  3  and  4)  and  downloaded  to  the 
TrueGauge  module  using  the  download  command. 

Parameters  that  can  be  changed  are: 

•  Fast  charge  termination 

-  Negative  Delta  Voltage 

-  Delta  Temp  /  Delta  Time 

-  Peak  voltage 

•  Temperature  limits  for  maintenance  charge  and  fast 


Battery  wamfng  levels 
Communications  to  host 
LED  configuration 

Battery  conditioning 
User-defined  storage 

Compensation  factors  for  self-discharge  capacity 
and  charge  efficiency  (see  Figures  8,  9  and  10) 

End  of  Discharge  (EODV) 

Charge  tumnm  threshold  : 


RQURE  3  -  CONFIGURATION  CONTROL  PANEL 


as 


Fa^  C^uuge  Tenninci^oii  


OeHaTemp  Delta  Time  I 


[     8.5Q  degrees  C  /  min 

l"^!  » 


Nominal  Battery  Capacity' 
I     1800  milliunp-houTs 


I      Number  of  Cells:  6  | 


'Measured  Battery  Capacity 
18QQ  milliainp-hDurs  ] 


Battery  Warning  Levels  {%  ot  Full  Charge) 
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331 
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'Charge  Termination  Temperatures  (deg  C) 
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IMin  Fast 
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am 


iMinMnint  H.«j|J 
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|~Charge  Turn  On  Threshold  (?C  of  Charge  CapAdl^~ 
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End  ot  Discharge  Voltage 
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WueGauge™ 


FIGURE  4  -  ADVANCiD  ammomsmm  msPtJiY 


Advanced  Configuration 


REPINTRVL  &  REPMODE:  Broadcast  Interval  " 


Interval 


SHI 


1M\ 


ObCDI  ex  Levels 
®  Discrete  10%  Levels 


Broadcast  Data  Select' 
O  Single  Byte 
®SilileenBylB 


'Counts 


frOERRS:  Charge  Tim"e~|  { 
[LOTERRS:  Low  Temp-  ]  [♦i]  J 


[HITERRS:  High  Temp. 
^IVERRS:HigliVoH. 

jCCCR:  Charge  Cycle 
[TCC:  Charge  Cycle 


111 

HI 


bo: 


an 


USER:  User  Storage" 
i  UserVahie#1 


31 


use, valued      |  M^mm  J 


User  Value  «3 
"DsirVaSieTr 


tmmmm 


n 

0 
0 
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System  design  verification  can  be  accomplished  before 
'are  implementation  by  plotting  real-time  battery 


r  and  performance  (see  Figures  5,  6  and  7). 

The  development  tool  delivers  the  most  comprehensive 
information,  including  capacity,  voltage,  temperature, 
current  and  battery  status,  the  number  of  charge  cycles 


the  battery  has  undergone,  and  existence  of  tempera- 
ture extremes. 

TmeGa 

cadmium,"! 
packs. 


ortsmultipletiattery  technologies:  nickel 
^%iMa>  Ipitlile  and  lead  add  battery 
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TrueGauge 


FIGURE  6  -  TEMPERATURE  VS.  TIME 


MTA11200  Performance 
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FIGURE  7  -  CURRENT  VS  TIME 
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FIGURE  8  -  CHARGE  EFHCiavCY^MPENSAIION 


Charge  /  Discharge  Compensat 


'Charge  Efficiency  .vs.  Temperature  Compensation 

99.6% 
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Eff. 
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input  charge. 
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FIGURE  9  -  CHARGE  EFFICIENCY  COMPENSATION  (CONT) 
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Charge  Efficiency  .vs.  State  of  Charge  Compensation' 
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CESC(15]=65,  Retained  charge=  25.39  Z  of 
input  charge. 
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FIGURE  10  -  SELF-  DISCHARGE  VS.  TEMPERATURE  COMPENSATION 


Discharge  Compensation  Constants  .vs.  Tempeiatuie" 
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Schematics  are  provided  from  the  TrueGauge  module 
and  charge  /  discharge  board  so  that  a  system  can  be 
tailored  easily  to  your  requirements.  A  data  logging 
feature  saves  measured  data  into  a  file  that  can  be 


imported  to  Microsoft  Excel  for  use  in  off-line  analysis 
(see  Figure  11).  Please  refer  to  the  MTA11200  Data 
Sheet  for  further  details  on  the  parameters  and  ttie  data 
log  file. 


FIGURE  11  -  EXAMPLE  OF  DATA  LOG,  FILE 


Time 
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Temperature  (G) 

Current  (mA) 
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SALES  AND  SUPPORT 

To  order  or  to  obtaSfttelirmation,  e.g.,  on  pricing  or  delivery,  please  use  the  listed  part  numbers,  and  refer  to  the  listed 
sales  offices. 

PART  NUMBER  DESCRIPTION 

DV114001  TRUEGAUGE  DEVELOPMENT  TOOL 

ACll3001  EXTRA  TRUEGAUGE  MODULES  AND  DESIGN 

VERIFICATION  SOFTWARE 


^,;lSt94JMi6ro«hipTiiii!l)iiolp^  lne> 


Microchip    PICMASTER  "  SYSTEM 

PICMASTER  Universal  In-Circuit  Emulator  System 


SYSTEM  FEATURES 
Gierierail: 

•  CompleteHi-PerfonnanpePC-based  Microcontroller 
Development  System  for  the  PIC1 6/1 7  families. 

•  For  use  on  PC^ompatlble  286,  386,  and  486  ma- 
ctilnes  under  Microsoft*  Windows'"  3.X  environment. 

•  Assembler  Software,  Emulator  System,  and  ERROM 
Programmer  unit,  sample  kit,  and  demonstration  hard- 
ware aind  software  provide  a  cbmpMe  microoontroller 
product  development  environment. 

Emulator  System: 

•  Hi-Performance  In-Clrcult  Emulation  of  Microchip  Mi- 
crocontrollers. 

•  Real-time  Instruction  emulation. 

•  Single  and  Multiple  instruction  step  execution. 

•  Program  Memory  emulatnn  and  memory  nnapping 
capability  up  to  64K  words.  Instruction  execution  can 

be  mapped  Into  either  emulati(m>  tn«nory-or  tiSH-^  ~  r 
prototype  memory. 

PIQMMTEH  is  a  Iradsmark  a(  MicfDchip  Tedfwl^ 
VWniiiatw  is  a  trademark  of  Microsoft  Corp. 

Microsoft  is  a  registered  trademark  of  Microsoft  Corp. 


Real-time  trace  memory  capture  of  40  bits  of  Informa- 
tion for  each  Instruction  cycle  in  an  8Kx40  trace  buffer. 
Trace  region  can  range  from  0  to  64K  in  any  address 
combinations. 

Real-time  trace  data  can  t>e  captured  and  displayed 
without  halting  emulation. 

Unlimited  number  of  hardware  breakpoints  can  be  set 

anywhere  in  the  program  memory. 
Extemal  Break  with  "AND'T'OR"  capability  with  inter- 
nal breakpoints. 

Multiprocessor  emulation  capability.  Up  to  eight 
PICMASTER  emulators  can  be  synchronized  on  a 
single  PC,  for  multi-processor  development. 
Extended  48-bit  cycle  counter. 
Trigger  Output  available  on  any  range  of  addresses. 
Full  Symbolic  Debug  Capability.  Symbolk:  display  and 
alter  of  all  register  files,  special  purpose  reglsteis, 
stack  registers,  and  bank  registers. 

Selectable  Internal  Emulator  Clock  or  User  Target 
(Prototype)  System  Clock. 

User  selectable  internal  or  extemal  Power  Supply 
(provided). 


PICMASTER  Development  System 


EPROM  Programmer  System: 

•  PRO  MATE^"  Device  Piogremmer  unit  for  all  current 

PIC16/17  products. 

•  Operates  as  a  Stand-alone  Unit  or  In  Conjunction  with 
a  PC-compatible  host  system. 

•  Performs  READ,  PROGRAM,  and  VERIFY  f  unctions 
In  Stand-alone  mode. 

•  PC  Host  Software  provides  file  display  and  editing,  file 
transfer  to  and  from  programmer  unit,  device  serial- 
ization, and  program  voltage  calibration. 

Macro  Assembler: 

•  Provides  translation  of  Assembler  source  code  to 
object  code  for  the  PIC16/17  family  of  microcon- 
trollers. 

•  Macro-assembly  and  conditional  assembly  capability. 

•  Produces  Object  files,  Listing  files,  Symbol  files,  and 
special  files  required  for  symbolic  debug  with  the 
PICMASTER  Emulator  System. 

•  Binary  /  Hex  output  formats:  INHX8S,  INHX8M, 
INHX16.  and  PICMASTER. 

Demo  Board: 

The  PICDEM-I  iSemostration  Board  provides  a  user  with 
a  simple  hardv^ro  tool  through  which  software  can  be 
exercised  and  debugged.  A  step-by-step  tutorial  en- 
ables first-time  users  of  PICMASTER  to  become  familiar 
with  all  the  features  of  the  emulator.  A  generous 
prototype  area  (200  holes)  allows  the  user  to  build 
additional  hardware  for  their  project. 


SYSTEM  DESCRIPTION 

The  PICMASTER  Universal  In-Circuit  Emulator  System 
is  intended  to  provide  the  product  development  engineer 
with  a  complete  microcontroller  desi^i  tool  set  for  alt 
microcontrollers  in  the  PIC16/17  family.  The 
PICMASTER  system  cun-ently  supports  the  PIC1 6C54, 
PIC16C55,  PIC16C56,  PIC16C57  and  PIC16C58A  at 
clocltfrequenciesof  20  MHz;  the  PIC16C64,  PIC16C71 , 
PIC16C74,  PIC16C84to  10  MHz;  and  the  P1C17C42  at 
16  MHz. 

Interchangeable  target  probes  allow  the  system  to  be 
easily  reconfigured  for  emulation  of  different  proces- 
sors. The  universal  architecture  of  the  PICIVIASTER 
allows  expansion  to  support  all  new  microcontroller 
architectures  with  data  and  program  memory  paths  to  16 
bits. 

The  Emulator  System  is  designed  to  operate  on  low-cost 
PC-compatible  machines  ranging  from  286-AT*  class 
ISA-bus  systems  through  the  new  486  EISA-bus  ma- 
chines. The  development  software  runs  in  the  Microsoft 
Windows  3.X  environment,  allowing  the  operator  ac- 
cess to  a  wide  range  of  supporting  software  and  acces- 
sories. 

Provided  with  the  PICMASTER  System  is  a  high  perfor- 
mance, real-thne  tn-Circuit  Emulator,  a  microcontroller 
programmer  unit,  a  macro  assembler  program,  and  a 
simulator  program.  Sample  programs  are  provided  to 
help  quickly  familiarize  the  user  with  the  development 
system  and  the  PIC16/17  microcontroller  families. 

Coupled  with  the  user's  choice  of  text  editor,  the  system 
is  ready  for  development  of  products  containing  any  of 
Microchip's  microcontroller  products. 

A  "Quicl<  Start"  Product  Sample  Pak  containing  user 
programmable  parts  is  included  for  additional  conve- 
nience (only  devices  supported  1^  the  specified  F^b^ 
header). 

Microchip  provides  additional  customer  support  to  de- 
velopers through  an  electronk:  Bulletin  Board  System 
(BBS).  Customers  have  access  to  the  latest  updates  in 
software  as  well  as  applnation  spurce'oode  examples. 
Consult  your  k>cal  sales  representative  for  infonnatkxi 
on  accessing  the  BBS  systeiTL 


Interchanseable 
Emulator  Probe 


Common  Interface  Card 
PC  Compatible  Computer 
(AT/ISA  Bus)  (for  Industry  Standard  Architecture) 


PRO  MATE  is  a  trademark  of  Microchip  Technology  Inc. 
AT  is  a  registered  trademarl<  of  iBM  Corp. 
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PICMASTER  Development  System 


Host  System  Requironaits:  "  ' 

The  PICMASTER  has  been  designed  as  a  real-time 
emulation  system  with  advanced  features  generally 
found  on  more  expensive  development  tools.  The  AT 
platform  and  Windows  3.X  environment  was  chosen  to 
best  make  these  features  available  to  you  the  end  user. 
To  properly  take  advantages  of  these  features, 
PICMASTER  requires  Installation  on  asyst^fq  h^dni^x 
the  following  minimum  configuration:  - 

•  PaAT'<»rnpaljbleinaGhine:28&.^i^3|li»09f. , 
i48&  with  ISA  ior  EISA  Bus,  .  t  - 

•  £GA,  VGA,  85l4iA,tteicules  graphic  caidXEGAor'.' 
hIglWr  reoommended). 

•  MS-DOS*  /  PC-DOS  version  3.1  or  greater. 

•  Microsoft*  Windows  version  S.OorgreateroperatIng 
In  either  standard  or  386  enhamced  mode). 

•  1  Mbyte  RAM  (2  Mbytes  recommended). 

•  One  3.5"  floppy  disk  drive. 

•  Approximately  10  Mbytes  of  hard  disk  (1  Mbyte 
required  for  PICMASTER,  remainder  for  Windows 
3.x  system). 

•  One  8-bit  PC/AT  (ISA)  I/O  expansk>n  slot  (half  size) 

•  Microsoft  mouse  or  C6in{|>atiblle  ^ighljr'  titxm-  ■ 
mended).       .-,    ■>("•  '.1=?  :i  aJbA. 

Emulator  System  Cbiiiponents:  ^ 

The  PICMASTER  Emulator  Universal  System  consists 
primarity  of  four  major  components: 

•  Host-Interface  Card:  The  PC  l-lost  Interface  Card 
connects  the  emulator  system  to  a  PC  compatible 
system.  This  high-speed  parallel  interface  requires 
a  single  half-size  standard  AT  /  ISA  slot  in  the  host 
system.  A  37-conductor  cable  connects  the  inter- 
face card  to  the  external  Emulator  Control  Pod. 

•  Emulator  Control  Pod:  The  Emulator  Control  Pod 
contains  all  emulation  and  control  logic  common  to 
allmicrocontroller devices.  Emulation  memory,  trace 
memory,  event  and  cycle  timers,  and  trace/breakpoint 
logic  are  contained  here.  The  Pod  conta«ls-eiMl— 
interfaces  to  an  interchangeable  target-specific  SmU- 
lator  probe  via  a  14*  precisnn  ribbon  cable. 

•  Target-specific  Emulator  Probe:  A  probe  specific 
to.microcontonHer  fstni^  to.be  emulated,  is  inkalied 
on  the  ribbon  cable  coming  from  the  control  pod. 
This  probe  configures  the  universal  system  for  emu- 
lation of  a  specific  mksrocontrolkir.'  Currently,  the 
PIC16C5X  family,  PIC16CXX  family,  and  the 
PIC17C42  microcontrollers  are  supported.  Future 
mk:rocontroller  probes  will  be  available  as  they  are 


released. 
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PC  Host  Emulation  Control  Software:  Host  software 
necessary  to  control  and  provide  a  working  user  inter- 
face is  the  last  major  component  of  the  system.  The 
emulation  software  runs  in  the  Windows  3.X  environ- 
ment, and  provides  the  user  with  full  display,  alter,  and 
control  of  the  system  under  emulation.  The  Control 
Software  is  also  universal  to  all  mk:rocontR>l|er  fami- 
lies. 

The  Windows  3.X  System  Is  a  multitasking  operating 
system  whk^  will  allows  the  developer  to  take  full 
advantage  of  the  many  powerful  features  and  functions 
of  the  PICMASTER  system. 
PICMASTER  emulatkm  can  operate  in  one  window., 
while  a  text  editor  is  running  in  a  second  wIndoW. 
Dynstmk:  Data  Exchange  (DDE),  a  feature  of  Windows 
3.X,  will  be  available  in  this  and  future  versnns  of  the 
software.  DDE  allows  data  to  be  dynamically  trans- 
ferred between  two  or  more  Windows  programs.  With 
this  feature,  data  collected  with  PICMASTER  can  be 
automatically  transferred  to  a  spreac^^)eal.Qr.(&t%- 
base  program  for  further  analysis. 

Under  Windows  3.X,  up  to  eight  PICMASTER  emula- 
tors can  run  simultaneously  on  the  same  PC  making 
development  of  multi-microcontroller  systems  possible 
(e.g.,  a  system  containing  a  PIC16CXX  processor  and 

•PieiKacxi 


PROMATE  Device  Programmer: 

The  PRO  MATE  Programmer  system  included  in  the 
PICMASTER  Development  System  provides  the  product 
developer  with  the  ability  to  program  (transfer)  the 
devetoper's  software  into  Pld6/17  miciocdntrollers. 

The  programmer  unit  comes  complete  with  accessories 
for  use  with  a  PC  host  computer.  Supplied  are  interface 
cables  and  connectors  to  a  startdard  PC  serial  port  ,  a 
power  supply  unit,  and  host  operating  software. 

The  PRO  MATE  Programmer  will  woik  in  either  stand- 
atone  mode,  or  in  PC  host  connected  mode.  Connected 
to  a  PC  host,  many  more  features  are  available  to  the 
user. 


MS-DOS  is  a  registered  trademark  of  Microsoft  Corp. 
®  1994  Microchip  Technology  Inc. 
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PICMASTER  Development  System 


STAND-ALONE  MODE  Editing 


Stand-alone  mode  Is  useful  h  situations  where  a  PC 
may  not  be  available  or  even  r«)uired,  such  as  in  the 
field  or  in  a  lab  production  environment.  In  stand-alone 
nmde  the  following  programming  functions  are  avail- 
able: 

VERIFY 

VERIFY  preforms  two  functions.  For  a  programmed 
part,  the  device  in  the  programming  socket  will  be 
compared  to  the  program  data  stored  in  Intemal  memory. 
If  the  data  and  fuse  settings  are  conect,  VERIFIED  will 
be  displayed.  VERI will  also  confirm  that  erased  parts 
are  blank.  A  devk»  in  the  socket  will  display  ERASED  if 
all  programmable  k)catk)ns  are  btenfe 

PROGRAM 

In  stand-alone  mode,  devices  inserted  Into  the  program- 
mer socket  will  be  programmed  with  data  currently 
stored  in  memory.  Pressing  the  PROGRAM  key  will 
cause  the  unit  to  program  and  verify  both  the  program 
memory  and  the  devk:e  fuses.  If  all  program  success- 
fully, PGM  OKAY  will  be  displayed. 

READ 

A  pre-programmed  device  placed  in  the  programmer 
socket  can  be  read  into  the  programmer  unit  by  pressing 
the  READ  key.  Program  and  fuse  data  will  be  read  and 
stored  Into  intemal  menrafy.  VlariousopScfns  «dSt  wflh 
the  READ  function.  '   '  . 

PC  HOST  CONNECT  MODE 

V){|)enthe  PRO  MATE  is  connected  to  a  host  PCsystem, 
many  more  options  and  conveniences  are  available  to 
the  user.  Host  mode  allows  full  interactive  control  over 
the  PRO  MATE  unit.  Afull  screen,  user-friendly  software 
program  is  provided  to  fully  assist  the  user. 

As  in  stand-alone  nwde,  parts  may  be  Read,  Pro- 
grammed, Blank  checked,  and  Verified.  Also,  all  fuses 
and  ID  locatkms  may  be  specified.  In  addition,  other 
features  available  in  host-mode  are: 

r_  -  ■  'c-^-:-     .   A.-.  •'-  ;  ■  ' 


A  large  screen  buffer  editing  facility  allows  the  user  to 
change  and  program  kjcation  in  hexadecimal.  Com- 
plete program  and  fuse  data  can  be  loaded  and  saved  to 
DOS  disk  files.  Flies  generated  by  the  Assembler  pro- 
gram are  directly  badable  into  programmer  memory. 

Vdd  and  Vpp  Adjust 

The  programming  environment  voltage  settings  of  Vdd 
max,  VoDmin,  and  Vpp  can  beset  and  altered  only  on  PC 
host  mode.  The  voltage  settings  allow  the  user  to  pro- 
gram the  part  In  the  environment  that  the  part  will  be 
used.  The  part  will  be  programmed  at  Vdd  max  and 
verified  at  Voo  min.  Vpp  is  the  programming  voltaga. 

PICMASTER  FROBESpecfflcatidns 

Table  1  shows  the  current  probe  specifications  for  the 
PICMASTER  In-Circuit  Emulator.  The  devices  are 
supported  regardless  of  program  memory  type  (ROM, 
EPROM  or  EEPROM),  process  technology  or  voltage 
range.  That  is,  selecting  the  PROBE  that  supports  the 
PIC16C54  (-16A)  also  supports  the  PIC16CR54, 
PIC16C54Aandthe  PIC16LC54A  devices.  The  probe 
would  also  support  other  variations  as  they  become 
available  (such  as  PIC16CR54A). 


TABLE  1:  PICMASTER  PROBE 
SPEaFieATISNS 


PICMASTER 
PROBE 

Devk»* 
Supported 

PROBE 
Maximum  Operating 
Frvquency  Voltage 

PROBE  -  16B 

PIC16C71 

10  MHZ 

4.5V  -  5.5V 

PROBE -16C 

PIC16C84 

10  MHZ 

4.5V -5.5V 

PROBE -16D 

PIC16C54, 
PIC16C55, 
PIC16C56, 
PIC16C57, 
andPIC16C58A 

20  MHz 

4.5V  -  5.5V 

PROBE -16E 

PIC16C64 

10  MHZ 

4.5V  -  5.5V 

PROBE -16F 

PIC16C74 

10  MHZ 

4.5V  -  5.5V 

PROBE  -  17A 

PIC17C42 

16  MHZ 

4.5V  -  5.5V 

SALES  AND  SUPPORT 

To  order  or  to  obtain  informatkm,  e.g.,  on  pricing  or  delivery,  please  use  the  listed  part  numl>ers,  and  refer  to  the 

factory  or  the  listed  sales  offk;es. 

PART  NUMBER 

DESCRIPTIO 

EMI  67011 

Complete  PICMASTER-16B  System  for  PIC16C71 

EM167012 

Complete  PICMASTER-16B  System  for  PIC16C71  without  Pwgianmer 

EM167013 

Complete  PICMASTER-16C  System  for  PIC16C84 

EMI  6701 4 

Complete  PICMASTER-16C  System  for  PIC16C84  without  Programmer 

EM167015 

Complete  PICMASTER-16D  System  for  PIC16C5X 

EM167016 

Complete  PICMASTER-16D  System  for  PIC16C5X  without  Piogrammer 

EM167017 

Complete  PICMASTER-16E  System  for  PIC16C64 

EM167018 

Complete  PICMASTER-16E  System  for  PIC16C64  without  Programmer 

EM167019 

Complete  PICMASTER-16F  System  for  PIC16C74/C73 

EMI  67020 

Complete  PICMASTER-16F  System  for  PIC16C74/C73  without  Programmer 

EM177001 

Complete  PICMASTER-17  System  for  PIC17C42 

EM177004 

Complete  PICMASTER-17  System  forPIC17C42witfiout  Programmer                                   ^  ^ 
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PRO  MATE™ 


CMOS  Microcontroller  Programmer  Unit 


SYSTEM  FEATURES 
EPROM  Programmer  System: 

•  PRO  MATE  Programmer  unit  for  the  PIC16CXX, 
PIC17CXX  Microcontroller  family. 

• .  Operates  as  a  Stand-alone  Unit  or  in  Conjunctloi)^  . 
.  with  a  PC  Compatble  host  system.  > ;  Oi  1 

•  flEACffi,  PRO@miLMa  and  VERIFIES  in  SSoiiife^Ttt) 
/akNwimcto. '  >"-'  .sfrim->^ 

•  PC  Host  Software  praivldes  file  display  ahd'Wfl^ 
and  transfer  to  and  from  Programnrwr  unit  "■ 

•  Communication  Via  RS'^S2 


SYSTEM  DESCRIPTION 

PRO  MATE  Programmer: 

Tfie  PRO  MATE  Programmer  system  provides  the 
product  developer  with  the  abili^  to  program  user 
software  into  PIC16CXX,  PIC17CXX  CMOS  mictocon- 

trollers. 

PRO  MATE  is  also  supplied  wrtti  a  discrete  event 
software  simulator  (MPSIM)for  PIC1 6C5X/ PIC16CXX 
and  a  Universal  PIC16/17  Macro  assembler. 

ttiie  programmer  unit  comes  complete  with  accessories 
to  be  used  with  the  PC  host  computer.  Supplied  are 
interface  cables  and  connectors  to  a  standard  PC  serial 
port,  a  universal  input  power  supply  unit,  and  Most 
operatfeig  software. 

The  PRO  MATE  Programmer  wiU  wortt  in  eltlier  siand- 
alonemode,  or  in  PC  host  oonnected  moda  Connected 
t»a  PC  hosit '  wiar^  nie^  faaHirasamtaiMilable  to  the 
user. 


PRO  MATE  is  a  trademark  of  Microchip  Technology  Inc. 


CMOS  Microcontroller  Programmer  Unit 


STAND-ALONE  MODE 

Stand-alone  mode  is  useful  in  situations  where  a  PC 
may  not  be  available  or  even  required,  such  as  in  the 
1i^orin.aJab  production  environment.  In  stand-alone 
mcide  the  foobwlng  programming  functions  are  avail- 
able: 

VERIFY 

VERIFY  performs  two  functions.  For  a  programmed 
part,  the  device  in  the  programming  socl<et  will  be 
compared  to  the  program  data  stored  in  intemal  memory. 
If  the  data  and  fuse  settings  are  conect,  VERIFIED  will 
be  displayed.  VERIFY  will  also  confirm  that  erased  parts 
are  blanl<.  A  device  in  the  socl<et  will  display  ERASED  if 
all  programmable  \^^g@^m»  bink,  / ' 

PROGRAM 

In  stand-alone  mode,  devices  inserted  into  the  program- 
mer socket  will  be  programmed  with  data  currently 
stored  in  memory.  Pressing  the  PROGRAM  key  wiH 
cause  the  unit  to  program  and  verify  both  the  program 
menwry  and  the  device  fuses.  If  all  program  success- 
fully. PGM  OKAY  Will  be  displayed. 

REilD 

A  pre-programmed  device  placed  in  the  programmef 
socket  can  be  read  into  the  programmer  unit  by  presskig 
the  READ  key.  Program  and  fuse  data  will  be  read  and 
stored  into  MMWlmemoiy.  Vanous  options  extet  wttb 
the  READ  function. 


PC  HOST  CONNECT  MODE 

The  PRO  MATE  provides  a  very  user  friendly  user 
interface  whk:h  allows  complete  control  over  the  pro- 
gramming sesskxi. 

The  PRO  MATE  host  software  is  a  DOS  windowed 
environment  with  full  mouse  support  to  alk>w  the  user  to 
point  and  clk^  when  entering  commands. 

Ttie  Host  Software  communicates  with  the  PRO  MATE 
via  the  serial  port  of  the  PC.  Any  of  the  four  (COM  1  -4) 
ports  may  be  used.  The  communication  is  done  at 
19200  baud  to  Insure  fast  throughput.  Communication 
will  be  established  with  the  P  RO  MATE  Device  Program- 
mer prior  to  any  transfers  taking  place. 

Serializatkxi  is  done  by  generating  a  serialization  file, 
and  then  using  that  file  to  serialize  locatkins  in  the 
PIC16/17  microcontroller.  Once  a  serialization  file  is 
generated,  it  may  be  used  over  different  programming 
sessions.  Serial  numbers  are  automatically  mart<ed  as 
used  wtien  a  PiQ16/1 7  jsppitanvnad  successfully  .with 
that  sertal  n^inb«Hf. 

Complete  control  overthe  pnogrammingenwironmant  is 
also  provkJed.  Control  overthe  programming  and  verify 
volta^  of  Vdd  insures  that  the  MKrooontroller  will  per- 
fonn  in  ttie  desired  environment.  Programming  (Vpp) 
vollage  is  also  ad]ustable  to  insure  completa  compaUbit- 
ity  w8h  future  programmkig  algorithms. 
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Macro  AssembteR 

•  Provides  translation  of  Assembler  source  code  to 
object  code  for  all  PIC16/17  microcontroller 
product  family. 

•  Macro-Assembly  capability. 

•  Provides  Object  files,  Listing  files,  Symbol  files,  and 
special  files  required  for  symbolic  debug  with  the 
PIC16/17  Emulator  System. 

•  Output  (onnatKlNHXSSaMmraGiM. 


•  Instruction-level  Simulator  of  the  PIC16/17 
microcontroller  product  family. 

•  For  PC-compatll>l»  «y«Mnw  running  (he  MS-DOS* 

operating  system. 

•  Full  screen  simulation  user  interface. 

•  VOsttnuhB  input  capabffify. 


SALES  AND  SUPPORT 

To  order  or  to  obtain  infotmation,  e.g.,  on  pricing  or  delivery,  please  use  the  listed  part  numbers,  and  refer  to  the 

listed  s^es  crffices. 

SOCiCET  PART  NUHBER 

DESCRIPTION 

AO164001 

PI016C54  thru  C58A 18-  &  28-Lead  PDIP  Socket  Module 

AC1 64002 

PIC16C54  thni  C58A 18-  &  28-Lead  SOIC  Socket  Module 

AC1 64003 

PIC16CS4/56i^A  20-Lead  SSOP  Socket  Adapterf 

AC164010 

PIC16C71/84  18-Lead  PDIP/SOIC  Socket  Module 

AC164011 

PIC16C55^  28-Lead  SSOP  Socket  Adapterf 

AC164012 

PI016C64/C74  40-Lead  PDIP  Socket  Module 

AC164013 

PIC16C64/C74  44-Lead  PLCC  Socket  Module 

AC1640U 

PI016C64/C74  44-Lead  PQFP  Socket  Adapiait' 

AC1 74001 

PIC17C42  40-Lead  PDIP  Socket  Module 

AC1 74002 

PIC17C42  44-Uad  PLCC  Socket  Modtde 

AC174003 

PIC17C42  44-te«Rl  QFP  Socket  Adapter 

PROGRAMMER  PART  NUIH^ 

DESCRIPTION 

DV007001 

Programmer  Kit  as  described  above 

Socket  modules  are  sold  separately. 

t  "nils  item  is  a  socket  adapter.  When  using  this  adapter,  a  PDIP  socket  module  Is  also  required. 

eM®S>Mtcr0Q^m^(iUi^#r^afiii^^Clill{| 

-'-::..ni'--    I.  smmmmmoFK         ---ja-.-i  i --.h-.-.m-^--, 


NOTES: 
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PICSTART™-16B1 


]^^16CXX  Low-Cost  Microcontroller  Development  System 


SYSTEM  FEATURES  .,  ,     .  „^^t, 

tmcim  irmnvn^ 

EPROM  Programmer  System: 

•  EPROM  Development  Programmer  unit  for  the 
PIC16C5X  and  selected  PIC16CXX  Microcontroller 
family  members.  Supports  PIC16C54,  PIC16C55, 
PIC16C56,  PIC16C58A,  PIC16C57,  PIC16C71, 
P1C16C84. 

•  Operates  with  a  PC^omp^ible  host  syste(nj,|i 

•  READS,  Pftoai^S,  amIMMfilit SPiiiWv^ 
Memory. 

•  PC  Host  Software  provides  file  display  and  editing, 
and  transfer  to  and  from  Programmer  unit. 

«  "Universal  pow/er  supply 

•  nS232  interlace  cable 

Maej€  AsieifAbler: 

•  Provides  translation  of  Assembler  source  code  to  ^ 
object  code  for  all  PIC16CXX  microcontroller 
product  family. 


•  Macro-Assembly  capability. 

•  Provides  Object  files.  Listing  files.  Symbol  files,  and 
special  files  required  for  symbolic  debug  with  the 
PI016CXX  Emulator  Syj^em.  n.  i 

•  Output  formg*^;  liSHJ)^y#nd  INHXBM.   ,,t.,  ,  is 

Simulator:  ' 

•  Instruction-level  Simulator  of  the  PIC16CXX 
microcontroller  product  family. 

•  For  PC-compatible  systems  running  the  MS-DOS* 
operating  system. 

•  Full  screen  simulation  user  interface. 

•  Symbolic  debugging  capability. 

•  I/O  stimulus  input  capability.  "  '.^ 

"GhJic^  Start"  Sainple  Kit: 

•  Provides  the  User  /  Developer  with  a  sample  kit  of 
PIC16CXX  parts  for  Initial  prototype  use. 


PICSTART  is  a  trademark  of  Microchip  Technology  Ine. 
MS-[X>S  is  a  registered  trademar1<  of  Microsoft  Corp. 
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PIC16CXX  PICSTART  System 


SYSTEM  DESCRIPTION 

The  PICSTART-16B1  Development  System  provides 
the  product  development  engineer  with  an  alternative 
low-cost  introductory  microcontroller  design  tool  set  for 
the  PIC16C)p(  family^where  Jull  real-time  emulation  i& 
ndt  tisquirad.  The  attuipmsM  In  the  PICSTART-16B1 
systam^ipMalas  oii  Aiy  PC  compatible  machine  run- . 
ning  the  MS-DOS/PC-DOS  operating  system. 
Provlcled  in  the  System  is  ah  M®4X}&b^ed  Sdftware 
Simulalor  program  (MPSIA^,  d  mfctoowittollerEPROM 
programmer,  and  a  macro  assembler  program  (M  P  ASM) . 

Sample  software  programs  to  be  run  on  the  simulator 
are  provided  to  help  the  user  to  quickly  become  familiar 
with  the  development  system  and  the  PIC1 6CXX  micro- 
controller line. 

The  user  need  only  provide  his  or  her  own  pref  en-ed  text 
editor  and  the  system  is  ready  for  devetopment  of  end 
products  using  the  PIC16C54,  PIC16C55,  PIC16C56, 
PIC16C57,  PIC16C58A,  PIC16C71  or  PIC16C84 
microcontrollers. 

A  *Quick  Starf  PIC1 6CXX  Product  Seunple  Pak  contain- 
ing user  programmable  parts  is  also  included. 

Microchip  provides  additional  customer  support  to  de- 
velopers through  an  electronic  Bulletin  Board  System 
(BBS).  Customers  have  access  to  the  latest  updates  in 
software  as  well  as  application  source  code  examples. 
Consult  your  local  sales  representative  for  information 
on  accessing  the  BBS. 

PICSTART-16B1  Development  Programmer: 

The  Microchip  device  programmer  system  included  in 
the  PICSTART-16B1  Development  System  provides 
the  product  developer  with  the  ability  to  program  user 
software  into  PIC16CXX  EPROM  microcontrollers.  It  is 
designed  to  be  a  development  programmer  and  not 
recommended  for  use  In  a  production  environment. 

TTie  prDgnammer  unit  connects  to  a  standard  PC  serial 
port. 

AfuH  screen,  user-friendly  software  program  is  provided 
for  fun  interactive  control  over  the  programmer.  Parts 
msv  be  Read,  Programmed,  Bianl<  checlced  and  Veri- 
fied. Also,  all  fuses  and  ID  locations  may  be  specified. 

A  large  screen  buffer  editing  facility  allows  the  user  to 
cfiange  and  program  location  in  hexadecimal.  Com- 
plete program  data  can  be  loaded  and  saved  to  DOS 
disk  files.  Files  generated  by  the  MPASM  Assembler 
program  are  directly  kiadabie  into  programmer  memory. 


MPSIM  Simulator 

The  MPSIM  Simulator  program  provides  the  developer 
with  an  instruction  and  limited  I/O  simulator  software 
program  for  debugging  PMSfiOXXassemUercode;  ' 

The  aimiilator  is  nfieant  for  use  with  sfriailerprDjecte  not 
requiring  precise  more  extensive  devetopment  equip- 
'-mailt  '€HniB»the  PISMGXX  architecture  is  essentially  a 
single  tasking  merocontroller  without  intenupts,  many 
applications  can  be  developed  by  using  a  simulator 
program  akxie. 

The  MPSIM  Simulator  tias  the  following  features  to 
assist  in  the  debugging  of  software/fimnware  for  the 

user. 

Program  Load/Save 

Commands  exist  to  k>ad  assembled  object  file  programs 
into  simuiatton  rnafinory.^Sbn^^arsely,  programs  tnay  be 
savetf from  prdgmm  aitiQiatkm  tnemory  back  to  (Ite  PC 

disk. 

Display  &  Alter 

Provisions  are  made  to  display  and  alter  Program 
Memory,  Register  Files,  and  status  register  bits.  Also 
simulator  information  such  as  cycle  times,  elapsed  tim% 
and  step  count  can  be  displayed. 

Utility  Functions 

Various  utility  functions  exist  which  assist  the  user  in 
operating  the  simulator.  Memory  and  registers  can  be 
cleared  by  command.  Memory  can  be  searched  to  find 
occurances  of  instructions,  register  use,  and  ASCII  data. 

Disassembler 

Program  memory  can  l>e  disassembled  showing  t>oth 
hexadecimal  data  and  instructkin  mnemonns  f  or  speci- 
fied address  ranges. 

Symbolic  Debugging 

The  simulator  provides  for  symbolic  referencing  to  akJ 
and  simplify  debugging.  The  symbol  table  may  tw 
displayed .  New  symbols  def  ined  and  unminted  symbols 
deleted. 

Execution  and  Trace 

During  program  execution,  address  ranges,  registers, 
register  contents,  and  others  can  be  traced. 

Breakpoints 

The  user  may  specify  up  to  512  breakpoints  at  any  one 

time. 


SALES  AND  SUPPORT 

To  order  or  to  obtain  Information,  e.g.,  on  the  pricing  or  delivery,  please  use  the  listed  part  number,  and  refer  to  the 
listed  sales  offices. 

PART  NUMBER  DESCRIPTION 

tm&m  PICSTART-16B1  DEVELOPMENT  SYSTEM 
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PICSTART™-16C 


PIC16CXX  Low-Cost  Microcontroller  Development  System 


SYSTEM  FEATURES 

EPROM  Programmer  System: 

•  EPROM  Programmer  unit  for  the  PIC16CXX 
Microcontroller  family.  Supports  tfie  PIC16C64  aiKl 
ttie  PIC16C74. 

•  Operates  witti  a  PC-compatible  host  system. 

•  READS,  PROGRAMS,  and  VERIFIES  EPROM 
Memory. 

•  PC  Host  Software  provides  file  display  and  editing, 
and  transfer  to  and  from  Programmer  unit. 

•  Universal  power  supply  . 

•  RS232  interface  cable 

Macro  Assembler: 

•  Provides  translation  of  Assembler  source  code  to 
object  code  for  all  PIC16CXX  microcontroller 
product  family. 

•  Macro-Assembly  capatHlity. 


•  Provides  Object  files,  Listing  files,  Symbol  files,  and 
specieU  files  required  for  symbolic  debug  with  ttie 
PIC16CXX  Emulator  System. 

•  Outpirifomnls^lNHXSS  and  INHX8M.  - 

Simulator: 

•  Instruction-level  Simulator  of  the  PIC16CXX 
microcontroller  product  family. 

•  For  PC-compatible  systems  running  the  MS-DOS* 
operating  system. 

•  Full  screen  simulation  user  interface. 

•  Symbolic  debugging  capability. 

•  I/O  stimulus  input  capability. 

"Quick  Start "  Sample  Kit:  , 

•  ProMdos'llM  User'/ Daweloper  with  a  sample  kH  of 
the  suppeMMMCieraOC  partslorMOal  prato^ 

'iise.'        ■'■  '  ' 


PICSTART  is  a  trademark  of  Microchip  Technology  Inc. 
MS-DOS  is  a  registered  trademark  of  Microsoft  Corp. 
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PIC16CXX  PICSTART  System 


SYSTEM  DESCRIPTION 

The  PlCSTART-1 6C  Development  System  provides  the 
product  development  engineer  with  an  alternative  low- 
cost  introductory  microcontroller  design  tool  set  for  the 
PIC16CXX  family  where  full  real-time  emulation  is  not 
required.  The  equipment  in  the  PICSTART-16C  system 
operates  on  any  PC  compatible  machine  running  the 
MS-DOS/PC-DOS  operating  system. 

Provided  in  the  System  is  an  MS-DOS-based  Software 
Simulator  program  (MPSIM),  a  microcontroller  EPROM 
programmer,  arxl  amacro  assemblerprogram  (MPASM). 

Sample  softwsti^  ptiagraftis  to  be  run  on  fhe  simulator 
are  provided  to  heip  the  user  to  quicl<ly  become  familiar 
with  the  development  system  and  the  PIC1 6CXX  micro- 
controller line. 

The  user  need  only  provide  his  or  her  own  preferred  text 
editor  and  the  system  is  ready  for  development  of  end 
products  using  the  PIC16C64  or  the  PIC16C74. 

A  "Quidc  Start"  PIC1 6CXX  Product  Sample  Pak contain- 
ing userprogrammeible  parts  Is  also  included. 

Microchip  provides  additional  customer  support  to  de- 
velopeis  through  an  electronic  Bulletin  Board  System 
(BBS).  Customers  have  access  toUislotMt  update  in 
sothwm  as  well  as  appOcatlpr)  8ouro9  XiefEl»axampt^ 
Consult  your  local  sales  representative  for  MomiB^ 
on  accessing  the  BBS. 

PICSTART-16C  Development  Programmer: 

The  Microchip  device  programmer  system  included  in 
the  PICSTART-16C  Development  System  provides  the 
product  developer  with  the  ability  to  program  user  soft- 
ware into  PiCieOOC  EPROM  microcontrollers.  It  Is 
designed  to  be  a  development  programmer  and  not 
recommended  for  use  in  a  production  environment. 

The  programmer  unit  connects  to  a  standard  PC  serial 
port. 

Afull  screen,  user-friendly  software  program  is  provided 
for  full  interactive  control  over  the  programmer.  Parts 
may  be  Read,  Programmed,  Blank  checked,  and  Veri- 
fied. Also,  all  fuses  and  ID  Idcattons  maf  be  ^)ecified. 

A  large  screen  buffer  editing  facility  altows  the  user  to 
change  and  program  kx»tk>n  in  hexadecimal.  Com- 
plete program  data  can  be  k>aded  and  saved  to  DOS 
di^  files.  Files  generated  by  the  MPASM  Assembler 
program  are  directly  k>adable  intoprapMmermernoiy. 


MPSIM  Simulator: 

The  MPSIM  Simulsdor  program  provides  the  developer 
with  an  instructnn  and  limited  I/O  simulator  software 

program  for  debugging  PIC16CXX  assembler  code. 

The  simulator  is  meant  for  use  with  smaller  projects  not 
requiring  precise  more  extensive  development  equip- 
ment. Since  the  PIC16CXX  architecture  Is  essentially  a 
single  tasking  microcontroller  without  inten'upts,  many 
applications  can  be  developed  by  using  a  simulator 
program  alone. 

The  MPSIM  Simulator  has  the  foltowing  features  to 
assist  in  the  debugging  of  softweire/firmware  for  the 
user. 

Program  Load/Save 

Commands  exist  to  load  assembled  object  file  programs 
into  simulation  memory.  Conversely,  programs  may  be 
saved  from  program  simulatkm  memory  back  to  the  PC 
disk. 

Display  &  Altar 

Provisnns  are  made  to  display  and  alter  Program 
Memory,  Register  Files,  and  status  register  bits.  Also 
simulator  informatkm  such  as  cycle  times,  elapsed  time, 
and  step  count  can  be  displayed. 

UtiHty  Functions 

Various  utility  functions  exist  which  assist  the  user  in 
operating  the  simulator.  Memory  and  registers  can  be 
cleared  by  command.  Memory  can  be  searched  to  firxi 
occurancesof  instructnns,  register  use,  and  ASCII  data. 

Disassembler 

Program  memory  can  be  disassembled  showing  tx>th 
hexadecimal  data  and  instructkm  mnemonics  for  speci- 
fied address  ranges. 

Symiwiic  Debugging 

The  simulator  provides  for  symbolic  referencing  to  aid 
and  simplify  debugging.  The  symbol  table  may  be 
displayed.  New  symbols  defined  and  unwanted  symbols 
deleted. 

Execution  and  Trace 

During  program  execution,  address  ranges,  registers, 
register  contents,  and  others  can  be  traced. 

Breakpoints 

The  user  may  specify  up  to  51 2  breakpoints  at  any  one 
time. 


SALES  AND  SUPPORT 

To  order  or  to  obtain  inf  omnatlon,  e.g.,  on  the  prk:ing  or  delivery,  please  use  the  listed  part  numbers,  and  refer  to  tfie 
listed  sales  offices. 

PART  NUMBER  DESCRIPTION 

DV163002  PICSTART-16C  DEVELOPMENT  SYSTEM 


MS-DOS  is  a  registered  trademark  of  Microsoft  Corp. 
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Microchip 


PICDEM-1 


Low-Cost  PIC16/17  Demonstration  Board 


PRODUCT  INFORMATION 

The  PICDEM-1  is  a  simple  board  which  demonstrates 
the  capabilities  of  several  Microchip  microcontrollers. 
The  microcontrollers  supported  are:  PIC16C5X 
(PIC16C54  to  PIC16C58),  PIC16C71,  PIC16C84  and 
PIC17C42.  All  necessary  hardware  is  Included  to  run 
basic  demo  programs,  which  are  supplied  on  a  3.5"  disk. 
The  users  can  program  the  samples  (one  each  of 
PIC17C42,PIC16C71  and  PIC16C55)  provided  with  the 
PICDEM-1,  on  a  PRO  MATE^"  or  PICSTART™  pro- 
grammer and  easily  debug/test  the  sample  code,  or  the 
user  can  connect  the  PICDEM-1  with  the  PICMASTER 
emulator  and  download  the  sample  code  to  the  emulator 
and  debug/test  the  code.  Additionally,  a  generous  200- 
hole  prototype  area  is  available  for  the  user  to  build 
some  additional  hardware  and  connect  it  to  the 
microcontioller  sockflt(s). 


FEATUAIS: 

Hardware: 

•  40-pin,  28-pin  and  18-pin  Precision  sockets  for  all 
supported  microconlrottars. 

•  On  board  -t-SV  regulator  and  filter  rectifier  for  direct 
input  from  9V  AC/DC  wall  adapter. 

•  RS232  socl<et  and  associated  hardware  for  direct 
connection  to  RS232  interface. 

•  -  SK  potto  simulate  analog  input  for  PIC16C71 . 

•  Three  push  butloii- for  ^(t^itial  i^iiimilus  and 

RESET. 

•  Eight  bright  LEDs  connect  to  PortB,  helpin  displaying 
8-bit  binary  values  on  PortB. 

•  Socket  for 'canned"  ciystal  Oscillator. 

•  Unpopulated  holes  provided  for  Xtal  connection 

•  Jumper  to  disconnect  on  board  RC  Oscillator. 

•  200-hole  prototype  area  for  user's  hardware. 


PRO  MATE  and  PICSTART  are  trademarks  of  Microchip  Technology  Inc. 


0 1994  Microchip  Technology  Inc. 
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Software: 

•  Progiafn  for  PIC16C71  to  demonstrate  on-chip  A/D 
features. 

•  Program  for  F^ei«^  tO"  dwnaiMMSt srMlp - 
EEPROM. 

•  Program  for  PIC17C42  to  demonstrate  on-cfiip 
USAFIT. 

•  Program  for  PIC16C5X  to  demonstrate  key  input 
capability. 

•  A(l  demo  programs  supplied  on  3.5'  disl(, 

•  Additional  programs  available  on  Microchip's  BBS. 


DOCUMENTATION 

•  A  comprehensive  User's  Guide  with  easy  to  follow 
step-by-step  Getting  Started  and  a  Tutorial. 

•  Scfiemaik»forflieer>t1f»^^eireuC  '  ■•**-  -? 
SAMPLES 

Several  UV  erasable  devices  supplied  are  included. 
The  device  types  may  change  from  time  to  time.  The 
supplied  devices  are  typically: 

•  PIC17C42 

•  PIC16C71 

•  PIC16C55 


SALES  AND  SUPPORT 

To  order  or  to  obtain  intanirtlori,«.g.(acrtl48prlcing  or  delivery,  please  use  the  listed  part  numbers,  and  refer  to  the 
listed  sales  offices.         ,         ,  .  , 

PART  NUMfeft        ^       '    '  DESCRIPTION 


DM163001 


LOW-COST  DEMONSTRATION  BOARD  FOR 
PIC16C5X,  PIC16C71,  PtC16C84  AND  PIC17C42 
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Microchip 


PICDEM-2 


Low-Cost  PIC16CXX  Demonstration  Board 


PRODUCT  INFORMATION 

The  PICDEM-2  is  a  simple  board  which  dernor\stiates 
the  capal)Hities  of  seveial  Micfinel)^  wfeiiiatiWaifctes, 
including  PIC16C63/64  and  P»Ct6e7aKr»T91WMi» 
sary  hardware  is  included  to  nin  basic  denNpf 
which  are  supplied  on  a  3.5'  disk.  A 
sample  is  included,  and  the  user  may  erase  it  and 
program  it  with  the  other  sample  programs  using  the 
PRO  MATE^"  or  PICSTART™  programmer  and  easily 
debug  and  test  the  sample  code.  The  PICDEM-2  is  also 
useable  with  the  PICMASTER™  emulator,  and  all  of  the 
sample  programs  can  be  run  and  modified  using  the 
PICMASTER.  Additionally,  A  generous  prototype  area, 
is  available  for  user  hardware.  ' 

t 

[features: 
Hardware: 

•  40-  and  28-pin  DIP  sockets 

•  On  board  -t-SV  regulator  for  direct  input  from  9V  AC/ 
DC  wall  adapter. 


.aaet'nr.o'!- 


•  RS232C  socket  and  associated  haidvrare  for  cfiract 
connection  to  RS232C  interface. 

•  5K  pot  for  analog  inputs  for  the  PIC16C73/74 

•  Three  pusft  tiMm  Iwys  for  mtemal  stimulus  and 

RESET. 

•  Eight  bright  LEDs  connected  to  Poit_B  for  displayins 
8-bit  binary  values. 

•  8Dd«Mfiw''laHinM"  crystal  osctllMor. 

•  Unpopulated  holes  provided  for  crystal  connection  [ 

•  128  X  8  serial  EEPROM. 

•  Keyboard  header. 

•  Unpopulated  holes  for  ACCESS.bus  connector. 

•  Jaete  for  oonnectktn  of  9V  battery. 

•  Jumper  to  disconnect  on-tx)ard  RC  oscillator. 

•  Prototype  area  for  user  hardware. 


PRO  MATE,  PICSTART  and  PICMASTER  are  trademarks  of  Microchip  Technology  Inc. 
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PICDEM-2 


Software: 

•  Proapiit  f9f  ;PI&t^(S74  tip  demonst^^ 

•  Program  for  PIC16C64  to  demonstrate  PC  serial 
EEPROM  usage. 

•  AddiHonaipiogtmisavaBalrtoenl^^ 


DOCUMENTATION: 

•  A  comprehensive  User's  QukJe  with       to  toiiPlw. 
step-by-step  Getting  Started  and  TutoAfil. 

•  Full  schematics. 

SAliPLES: 

Several  UV  erasable  devices  supplied  are  irfcluded. 
The  device  types  may  change  from  time  to  time,  lihe 
supplied  devices  are  typical^: 

■  -    •  ■  .      .  i  ■ 


PieilSG74 


SALES  AND  SUPPOm* 

To  order  or  to  obtain  information,  e.g.,  on  the  pricing  or  delivery,  please  use,thf  listed  part  numbers,  and  refer  to  the 
listed  sales  offices. 

PART  NUMBEB  ^  DESCRIPTION 

DM1 63002  LOW-COST  DEMONSTRATION  BOARD  FOR 

PIC16C64,PIC16C73ANDPIC17C74      .  - 
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MicRocHiR  MPASM  UNIVERSAL  ASSEMBLER 


This  product  brief  describes  the  technical  aspects  of  the 
PIC16/17  Assembler  developed  by  Byte  Craft  Limited 
and  distributed  by  Microchip  Technolo^.  The  MPASM 
Cross  Assembler  is  a  PC  hosted  symbolic  assembler.  It 
supports  all  microcontroller  sattais,  ini^Hilng  ttie 
PIC16CSX,  PiC16CXX  and  PiCITCSOtfHlMltos. 

MPASM  offers  fully  featured  Macro  capabilities,  condi- 
tional assembly,  and  several  source  and  listing  f  omiats. 
tt  generates  various  object  code  fomnats  to  support 
Microchip's  development  tools  as  well  as  third  party 

programmers. 

MPASM  allows  full  symbolic  debugging  from  the  Micro- 
chip Universal  Emulator  System  (PICM^TER). 

MPASM  REQUIREMEhrrS 

MPASM  will  njn  on  any  IBM  PC/XT®,  AT*  or  compatible 
computer  running  DOS  4.1  or  later.  The  distribution 
media  is  3  1/2",  low  density  (720K)  floppies.  It  is 
distributed  at  the  root  level,  and  may  be  executed 
directly  from  the  floppy. 

No  special  display  or  ancillary  devices  are  required. 

MPASM  ASSEMBLER  FEATURES 

MPASM  supports  the  12-bit  PIC16C5X,  the  14-bit 
PIC16CXX.  and  the  16-bit  PIC17CXX  som. 

All  instructions  are  single-vwcdaM«M^iii>^|i«i^  ttieep 
fbrbranches,  which  execute  intwoeydis.  titaSl  inslrue- 
tions  operate  on  one  or  more  operands. 

MPASM  have  the  following  features  to  assist  in  develop- 
ing software  for  specific  user  applications: 

•  Provides  translation  of  Assembler  source  code  to 
object  code  for  aH  Microchip  microoontroHeis. 

•  Macro  Assembly  Capability 

•  Provides  Object,  Listing,  Symbol  and  special  files 
required  for  debugging  With  one  of  the  Microchip 

Emulator  systems. 

•  Supports  Hex  (default).  Decimal  and  OeW  seuHS» 
and  listing  fomnats. 

•  Output  fonnats:  INHX8S,  INHX8M.  INHX32  and 
relocatable  objects. 


MPASM  Pm^IWi  LANGUAGE 

MPA^  pNilS  a  Ml  tmiiired  directive  language 
MpfSslMSd'Byftsiir  baste  flfcwww  of  directives: 

•  Data  Directives  are  those  that  esntrol  the  allocation 
of  memory  and  provide  a  way  to  refer  to  data  items 
symbolically,  by  meaningful  names. 

•  Listing  Directives  control  the  MPASM  listing  dis- 
play. They  allow  the  specification  of  titles  aind  sub- 
titles, page  ejects  and  other  listing  control. 

•  Control  Directives  perniit  sections  of  conditionally 

assembled  code. 

•  Macro  Directives  control  the  execution  and  data 
alBMfM  iMMAn  iMin^  iMi^  definitions. 

mBmmmmmmH  set 

MPASM  supports  the  entire  instruction  set  of  the 
PIC16C5X,PIC16CXXandPIC17CXXmicrocontrollers, 
as  reprasmted  in  the  following  four  classes  of  bistaie- 
tions: 

•  Data  Move  eipMSMms 

•  Arithmetic  and  Logical  Operations 

•  Bit  Manipulation  Operations 

Ihie  Microchip  microcontroller  set  is  used  to  operate  on 
data  located  in  any  of  the  file  registers,  Including  the  I/O 

registers.  There  are: 

•  Data  Transfer  Operations 

•  Logical  Operations 

•  Rotate  Operations 

MPASM  provides  bit  level  file  register  operations  to 
manipulate  and  test  individual  bits  in  any  addressable 
register,  literal  and  control  operations  pennitting  opera- 
tions on  litwgfeit>ahi<iiieiii»te«^^  in  program 
memory. 

The  MioDchip  microcontroller  instruction  sets  allow 
fnd  and  write  of  special  functton  rsgisteis  such  as  the 
-£C  and  stsrtus  registers. 


IBM  PC/XT  and  AT  are  registered  trademarks  of  IBM  Corp.  _  ^  
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MPASM  Universal  Assembler 


MPLINK 

MPLINK  supports  the  linking  of  multiple  relocatable 
Objects  created  by  MPASM  into  a  single  absolute  hex 
file,  suitable  for  simulating,  emulating,  and  program- 
ming. MPLINK  supports  the  hex  outputs  supported  by 
MPASMaiiti  absolute  llsans.Me. 


MPLIB 

IVIPLIB  provides  the  ability  to  group  several  retocatable 
objects  into  a  logical  collection,  in  one  file.  Libraries 
created  by  MPLIB  can  be  referenced  by  MPASM.  Only 
those  objects  required  by  the  linl<ing  phase  are  included 
'n  the  resulting  hex  output. 


41.  :■ 


SALES  AND  SUPPORT 

To  order  or  to  obtain  infotmation,  e.g.,  on  the  pricing  or  deliveiy,  please  use  the  listed  part  numbers,  and  refer  to  the 
listed  sales  offices. 

PART  NUMBER  DESCRIPTION 

swiesonz  mpsim/mpasm  simulator  and  assembler 

SOFTWARE  AND  DOCUMENTATION 
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Microchip 


MPSIM  SIMULATOR 


PIC16C5X  ani  HOliODC  Mkroconto^mmilator 


MPSIM  is  a  discrete  event  simulator  software  applica- 
tion designed  to  imitate  operation  of  the  PIC16CSXand 
PICieCXXmicrocontrolters,  ltaicNV8jhi)j»>rtctcMlig 
software  that  will  use  any  tifttsse  McR>e6nMem. 

At  any  instruction  tx)undary,  you  may  examine  and/or 
modify  any  data  area  within  the  processor,  or  provide 
external  stimulus  to  any  of  the  pins.  MPSIM  gives  you 
a  solid,  low  cost,  source-level  debug  tool  to  help  you 
ttiRMjgtt  the  early  d^gnverifieaUon  Stages  of  you  project 

MPSiM  REQUIREMENTS 

MPSIM  requires  an  IBM  PC/XT*.  AT*  or  compatSile 
computer  running  DOS  version  3.31  or  later.  Tfie  PC 
needsaS  1/2"floppydisk  drive  and  at  least 256K  of  main 
memoiy,  MPSIM.EXE  occupies  roughly  150K.  Recom- 
mended is  a  lianJ  disk  drive  witfi  5  Mb  of  available 
storage. 

MPSIM  SIMULATOR 

The  MPSIM  Simulator  program  provides  the  developer 
with  an  Instruction  and  limited  I/O  simtMar  software 
program  for  debugging  Microcfiip  miereoomMer  as- 
sembler code. 

The  simulator  is  meant  for  use  with  smaller  projects  not 
requiring  precise,  more  extensive  devetopment  equip- 
ment. Since  the  PiC16C5X  architecture  is  essentially  a 
single  ta^ng  microcontroller  without  intern;^!!^  mm^ 
applications  can  be  developed  by  using  a  Mutator 
program  alone. 

The  PIC1 6CXX  family  supports  various  peripherals  and 
interrupt  strategies.  These  interrupts  can  be  simulated 
but  certain  peripheral  functions  (such  as  A/D  conver- 
SNins)arenoL 


The  mmiimf  *m  via  foUowmg  features  to 

assist  Ifr  Ifie  ^BbioQ^InQ  of  sisftware  /  firmware  for  the 

user: 

Program  Load  /  Save 

Commands  exist  to  load  assembled  object  file  programs 
into  simulation  memory.  Conversely,  programs  may  be 
saved  from  program  simulation  memory  badk  to  ttie  PC 

disk. 

Display  and  Alter 

Provisions  are  made  to  display  and  alter  Program 
Memory,  Register  Files  and  status  register  bits.  Also, 
simulator  infomiation  such  as  cycle  times,  elapsed  time, 
and  step  QaiiM«Wi  be  diaptayad. 

Disassembler 

Program  memory  can  be  disassembled  showing  both 
hexadecimal  data  and  Instruction  mnemonics  for  speci- 
fied address  ranges. 

Utility  Functions 

Various  utility  functions  exist  which  assist  the  user  in 
opersding  the  simulator.  Memory  and  registers  can  t>e 
cleared  by  command.  Memory  can  be  searched  to  find 
ooeuirancas  of  instnjctions,  re^ster  use  and  ASCII 


the  simulator  provides  tot  ^pboHc  referencing  to  aid 
and  simplify  debugging,  %»  symbol  table  may  be 
cBspli^ed.  New  symbots  (Mned  and  umiianted  um- 
bels del^. 

WuaeaSm  MidTmw 

[3uring  program  execution,  a  number  of  Items  can  be 
traced.  Address  ranges,  registers  and  register  contents 
and  others. 

Breakpoints 

The  user  may  specify  up  to  51 2  breakpoints  at  any  one 
JIme. 

Assembler  Support 

MPSIM  supports  both  the  Mnrochip  MPALC  and  the 
M^lMilMeisal  Assembler.  >"^>-Mi:.  T 


IBM  PC/XT  and  AT  are  registered  trademarks  of  IBM  Corp. 
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MPSIM  Simulator 


NOTES: 
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SALES  AND  SUPPORT 

To  order  or  to  obtain  Monnation,  B^a.,  on  th«^0^j  or  delivery,  please  u»  the  listed  part  nuinbers,  and  refer  to  the 
listed  sales  offices.  '. 

PARTNOIirtfEft  ^ 


SW166002 


BESCRIPTIOW 

MPSIM/MPASM  SIMULATOR  AND  ASSEMBLER 
SOFTWARE  AND  DOCUMENTATION 
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MP-C  Code  Development  System 


MP-C  CODE  DEVELOPMENT  SYSTEM 
FOR  PIC16A17 

This  product  brief  describes  the  technical  aspects  of  the 
MP-C  Code  Development  System  for  PIC16/17  micro- 
controllers developed  by  ^t»@egft  Unlad. 

The  MP-C  Code  Development  System  is  a  complete  "Cf 
compiler  and  integrated  development  environment  for 
Microchip's  PIC16/17  family  of  mlcroooninBaim.  tits 
compiler  provides  powerful  integration  ciSpaMHfles  and 

ease  of  use  not  found  with  other  compilers. 

For  easier  source  level  debugging,  the  compiler  pro- 
vides symbol  infomfiation  that  is  compatible  with  ttie 
PICMASTER  Universal  Emulator  memory  display  (emu- 
lator software  versions  1.13  and  later). 

MP-C  is  fast  and  efficient.  You  can  quickly  produce 
stand-alone  single-chip  microcontroller  applications. 
These,  taken  with  its  other  advantages  make  the  Byte 
Craft  MP-C  Code  Devekipment  System  the  first  choice 
in  intelligent  compiler  technology. 

MP-C  Requirements 

The  compiler  will  mn  on  any  IBM  PC»,  PC/XT*, 
PC/AT*  or  compatible  computer,  running  DOS  4.1  or 
later.  The  distribution  media  is  3i",  tow  density  (7201c) 

floppies.  It  may  be  executed  directly  from  the  ftep^.W 
copied  to  your  hard  drive  to  execute  mot*  eemmMS^. 

MF-G  Code  Davriopmant  System  FaatmHp 

MP-C  supports  the  12-bH  PIC16C5X.  th«  i4m 
PIC16CXX,  and  ^6*lt  PIC17CXX  cores.  It  is  a  tm^ 
based  compiler  with  expert  ^sterns  tailored  for  each  of 
these  platforms  for  optimal  efficiency. 

The  compiler  generates  executable  code  directly  from 
the  compile  process.  There  is  no  need  for  an  extra  step 
to  assemble  code  generated  by  Mm  oompier. 


MP-C  has  the  following  features  to  assist  in  developing 
PIC16/17  software  for  specific  user  applicattons: 

•  Provides  Object,  Listing,  Symbol  and  special  files 
required  for  debugging  litti  0ih«r  Miaochip  Devel- 
opment systems. 

•  Supports  interrupt  routines 

•  Chede  source  agaMHi!^  hardware  deflnifions 

•  Generate  ^fident,  tight  object  code 

•  Includes  a  linker  and  built-in  macro  assembler 

•  C  enhancements  sp«iii$%1he  PfCI  6/1 7  families' 
instructton  sets 

•  Output  formate:  INHX8S,  INHX8M,  and  INHX32. 

M^C  MlcsroproeewarapielHe  Extanatorw 

The  MP-C  Code  Development  System  includes  com- 
mon 'C  enhancements  such  as  ROM  arrays,  binary 
constants  and  case  statements  together  with  funcflons 
specific  to  the  PIC1 6/1 7  architecture. 

•  Binary  Constants  of  the  form  Ob0101 1  which  are 
logical  extensions  to  the  conventnnal  0x1a3b  style 
of  hexadecimal  consMHS.  You  may  cdso  use  OSas 
leading  characters. 

•  Case  Statements  are  supported  well  by  the 
nci  6/17  instruction  set  and  the  compiler  provides  a 
superset  of  the  standard  'C  case  stsdement.  For 
MSp^t  c«ss45r,  mi»        and  complex  case 

•  l>racessor  Specific  Functions  that  are  specific  to 
the  PIC16/17  family.  For  example  NOPQ  and 
SLEEPO  m^uem  tM  squivalent  PiC16/17  instrao- 

tion. 

•  "At"  or  ®  Extension  allows  you  to  fix  a  variable  to 
a  specific  address  in  memory,  for  example:  int  N  @ 

mm. 


SALES  AND  SUPPORT 

The  MP-C  Code  Devetopment  System  is  supplied  and  supported  directly  by  Byte  Craft  Umited  of  Waterioo,  Ontario. 

If  you  have  any  questions  please  coiMl(a^Al£IMl  tl^^  p1«)n8^1,  or  fax  your 

questions  to  (51 9)746-6751 . 

IBM  PC,  PC/XT  and  PC/AT  are  registered  trademarks  of  IBM  Corporation. 
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MP-C 


NOTES: 
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tozvTECH®-MP 


fuzzyTECH-MF  for  PIC16/17 


fuzzyTECH-MP  FOR  MICROCHIP 
PIC16/17 

This  product  brief  describes  the  technical  aspects  of  the 
fuzzyJECH-MP  Fuzzy  Logic  Development  System  for 
PIC16/17  microcontrollers  developed  by  INFORM^" 
Software  Corporation  specifically  for  Microchip  Tech- 
nology. 

The  ft/zzyTECH-MP  Development  System  comes  in  two 
versions.  The  first,  the  Explorer,  contains  everything 
you  needforacomprehensiveworklngknowledge  about 
fuzzy-logic  system  design.  It  is  easy-to-use,  all  graphic 
editors  and  tools  guide  you  step-by-step  through  the 
development  phases  of  fuzzy  systems.  The  Explorer 
supports  two  input  variables  and  one  output  variable. 

The  full-featured  fuzzyJBCH-MP  edition  offers  all  of  the 
capabttKies  of  the  Exploi8t,^u«;  it  has  ttie  edditipf^ 
ftexbility  of  eight  input  variabiiss  and  four  output  vari- 
ables for  designing  more  complex  systems.  The  fuH 
features  are  enabled  with  a  parallel  l«y  lock. 


Included  in  both  versions  is  A/zzyLAB^",  a  fully  func- 
tional demonstration  board,  to  give  customers  hand-on 
experience  with  fuzzy  logic  systems  implementation, 
f  uzzyLAB  is  a  simple  heating  thermosteit  consisting  of  a 
PWM-controlled  resistor  configured  to  lieat  a  thermistor 
to  a  preset  temperature.  Using  the  two  fuzzy  algorithms 
provided,  a  designer  can  set  a  target  temperature  and 
observe  the  themiostat  response  to  the  set  point. 

Both  systems  generate  assembly  code  compatible  with 
the  MPASM,  Microchip's  Universal  Assembler,  that  can 
be  Integrated  into  your  application.  Examining  this  code 
provides  you  with  fui#ierinSightsbit<fthef^S»n(isofNizzy 

logic  systems.  ■ 

fuzzyTECH-MP  System  Requirements 

/uzzyTECH-MP  will  run  on  any  IBM  PC  (386  or  higher) 
or  compatible  computer,  running  DOS  4.1  or  later,  and 
Microsoft*Windows™3.0orlater.  Because ftizzyTECH- 
MP  makes  extensive  use  of  graphics,  a  cokir  graphic 
monitor  (VGA)  is  required,  and  higher  resolutions  of  800 
X  600  or  1024  x  768  are  recommended. 


^f^.MiGi9(ih.lpTi$tiqp|i!fy  iQp. 


ff/zzyTECH-MP 


What  is  Fuzzy  Logic? 

Fuzzy  logic  is  a  factmotogy  that  anhancae  inodMmsed 
system  designs  using  both  intuiiion  and  engimaring 
heUrtsHcs^  Fuzzy  Ibge  uses  elenients  of  everyday 
language  to  represent  desired  system  behavior,  thus 
cifcumventing  the  need  for  rigorous  mathetnati(»l  ifnd^ 
eUng. 

It  is  an  efficient  way  of  designing,  optimizing  and  main- 
taining highly  complex  systems  transparently. 

Fiiygy  Lftffic  Applications 

Fuziy  logic  finds  its  home  in  unique  apniicationsi 

•  When  no  adequate  mathematical  model  lor  a  given 

problem  Is  readily  apparertt. 

•  When  non-linearities,  time  constraints  or  multiple 

parameters  exist. 

•  When  engineering  know-how  about  the  given  prob- 
,la(]n  is^paUab^  pr  c^  be^cqMK^^ring  the  design 
process. 


The  ftiyyyTFCH-MP  ImpLemantrtion 

ftizzyTECH-MP  provides  Ihe  following  standard  fea- 
tures: 

•  Windows  Compatible  with  M  fi^#l6lit  isef  irttsr- 
face 

•  8-lnput  variables  (2  for  flieE)q>lorar  version) 

•  4-Output  variables  (1  for  the  Explorer  version) 

•  8-Bit  resolution  on  input  and  outptit  vaMIe^ 

•  f  6-Bltcomputatlon  resolution  forfhe  PICf  6CXXand 

PIC17CXX  microcontrollers 

•  No  theoretical  limit  on  rules,  antecedents  and  linguis- 
tic conjunctions  (chipfimilBHons  will  place  a  piactieal 

limit  on  these) 

•  MAX-MIN  and  MAX-DOT  inference  methods 

•  CoM  and  MoM  defuzzificatlon  methods 

•  MPASM  Compatible 

•  PICMASTER  Compatible 

ft/a/TECH-MP 

ftizzyTECH-MPis  available  directlyfrom  Microchip  Tech- 
nology and  Its  authorized  distributors.  Contact  your 
local  sales  office  for  more  Information . 

</        •      -a  I  ■•  'p.-  •  sc.. 


SALES  AND  SUPPORT 

To  order  orto  obtain  Information,  e.g.,  on  the  pricing  or  delivery,  please  use  the  listed  part  numbers,  and  referto  the 
ll^d  sales  offices. 

PARTNUMPER  DESCRIPTION 


DV005001 
DV005002 


FUZZY  TECH-MP  EXPLORER 
FUZZY  TECH-MP  EDITION 


fuzzyTECH  is  a  registered  trademark  of  INFORM  Software  Corp. 

luzz^f^B  is  a  trademark  of  Microchip  Technology  Inc. 
INFORM  is  a  trademark  of  INFORM  Software  Corporatkm. 

IBM-PC  is  a  registered  trademark  of  IBM  Corporation. 
Windows  Is  a  trademark  of  Microsoft  Corporation. 
Microsoft  is  a  registered  trademark  of  Microsoft  Corporation. 
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Microchip     TOTAL  ENDURANCE 

Microchip  Serial  EEPROM  Endurance  Model 


FEATURES 

•  IBM"  PC  compatibility 

•  Windows'"  3.1  or  DOS  3.1  cotnpatibiilty 

•  Automatic  or  manual  recalcuiatign 

•  Real-time  update  of  data 

•  FuH-screen  or  windowed  graphkail  View 

•  Hypertext  on-screen  help 

•  Key  or  slide-bar  entry  of  parameters 

•  On-screen  editing  of  parameters 

•  Single-click  copy  of  plot  to  clipboard 
«  Numeric  mport  to  delhnttad  text  Ale 
»  On'^bk  Endurance  Tutorial 


SYSTEM  REQUIREMENTS 


•  E}OS3.1  orfi^er' 

•VftidoWsa  V  . 
..•.A         1  »I»V*«»»  tine  BiX' 

•  IMBmemoiy 

•  '386  or  '486  processor  recommended 

•  Math  coprocessor  recommended 

DEVICE  SUPPORT 

•  Microchip  2-wlre24aeGffiil:OCXB/85CXX 

•  Microchip  3-wirs93CXX/93LCXX  Series 

•  Microchip  4-wire  59C1 1 


1   ji".  .  . 


IBM  pels  a  registered  trademark  of  IBM  Coip. 

Windows  is  a  trademark  of  Microsoft  Corp. 
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TOTAL  ENDURAh""^^^ 


DESCRIPTION 

Microchip's  revolutionary  Total  Endurarvse  disk  pro- 
vide9<electronic  ^stems  designers  with  unprecedented 
visibility  into  Serial  EEPROM-based  applications.  This 
advanced  software  model  (with  a  very  friendly  user 
interface)  eliminates  time  and  guesswork  from  Serial 
EEPROM-t>ased  designs  by  accurately  predicting  the 
devKe's  performance  and  reliability  within  a  user-de- 
fined application  environment.  Design  trade-otf  analy- 
sis which  fomierly  consumed  days  or  weeks  can  now  tie 
performed  in  minutes. ..with  a  level  of  accuracy  that 
delivers  a  truly  robust  design. 

Users  may  input  the  folk>wing  application  parameters: 

•  Serial  EEPROM  device  type 

•  Bytes  to  be  written  per  cycle 

•  Cycling  nwde  -  byte  or  page 

•  Data  pattern  type  -  random  or  worst-case 

•  Temperature  in  °C 

•  Erase/Write  cycles  per  day 

•  Appllcatk>n  lifetime  or  target  PPM  level 

The  model  will  respond  with  FIT  rate,  PPM  level, 
applicatkHi  life  and  a  plot  of  the  PPM  level  vs.  number 
of  cycles.  The  model  Is  available  in  both  DOS  and 
Windows  versiens. 

BACKGROUND 

Microchip's  research  into  the  Erase/Write  endurance  of 
Serial  EEPROMs  has  resulted  In  the  concluskin  that 
endurance  depends  upon  three  primary  effects:  the 
physk»l  properties  of  the  EEPROM  cell,  the  internal 
error-correctnn  technokigy  employed,  and  the  applna- 
tlon  environment.  EEPROM  endurance  specified  as  a 
"typlcar  value  in  device  data  sheets  must  therefore  be 
evaluated  on  a  case-by-case  basis,  taking  into  account 
the  manner  in  which  the  device  will  be  used  in  the 
application.  The  Microchip  Total  Endurance  software 
applies  the  user-defined  application  parameters  to  a 
complex  mathematical  model  in  order  to  emulate  the 
EEPROM's  performance  and  reliability  in  the  system. 


USING  THE  MODEL 

.The  user  has  simply  to  choose  a  Mk:rochip  Sfri|$l 
'  EEPROM  devtee  from  the  e(^^e-list  menu  and  be#A 
entering  the  application  parameters.  The  entire  process 
can  take  literally  seconds  to  complete,  and  the  model  will 
output  the  PPM  level  and  FIT  rate  of  the  devKe  vs.  the 
number  of  Erase/Write  cycles.  If  the  user  has  specified 
an  applteation  lifetime,  the  model  will  output  PPM  and 
FIT  rates  at  that  point  in  time.  Alternately,  the  user  may 
Input  a  desired  PPM  level  and  the  model  will  calculate 
the  applteation  lifetime  which  will  result  in  that  survival 
rate.  The  user  may  then  trade-off  any  of  the  parameters 
(device  type,  voltage,  application  life,  temperature,  #  of 
bytes  per  cycle,  #  of  cycles  per  day  etc.)  to  arrive  at  an 
optimal  solutkm  for  the  Mended  >appricatk>n. 

Whenever  a  parameter  Is  changed,  cateulation  of  the 
ppm/applteatk>n  life  is  automatK.  An  'update"  box  will 
appear  InskJe  the  graph  to  (idicate  that  new  data  has 
been  entered  and  the  graph  should  be  redrawn.  A  single 
citek  in  the  "draw"  box  will  redraw  the  ptot  of  ppm  vs. 
cycles;  a  click  in  the  "Resize"  box  will  take  the  plot  to  full- 
screen display  for  a  ck)ser  view.  The  plot  data  can  be 
saved  to,a  file  or  the  pk>t  itself  can  lie  copied  to  the 
clipboard  to  be  pasted  into  another  applk:atk>n. 

ACCURACY  OF  THE  MODEL 

The  accuracy  of  the  Microchip  Total  Endurance  model 
has  been  verified  against  test  data  to  within  ten  percent 
of  the  actual  values.  However,  Microchip  makes  no 
warranty  as  to  its  accu  racy  or  appllcabil  ity  of  the  informa- 
tion to  any  given  applicatkin.  It  is  Intended  to  be  used  as 
a  guide  to  aid  designers  of  Serial  EEPROM-based 
systWBs fajwifonning  trade-off  analysis  and  developing 
robui^  and  idfiMB  deigns.  ' 


.•  Iir'ier  •,    .  .•   •    d  . 
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DESIGNER'S  KIT 


Microchip  Serial  EEPROM  Designer's  Kit 


FEATURES 

•  Includes  everything  necessary  to  begin  developing 
Serial  EEPROM-based  applications 

•  Microchip  Total  Endurance™  software  model 

•  Microchip  SEEI^^«ndu£rtnn  andprogtaitirning 
board 

•  Microchip  SEEVAL™  software  '  •  ■*) 

•  Microchip  Serial  EEPROM  handbook  ■ 

•  Microchip  Serial  EEPROM^n^  paelc 

•  RS232  serial  cable 

•  Potvarsupply 


SYSTEM  REQUIREMENTS 

•  DOS  3.1  or  higher 

•  Windows™  3.1 

•  VGA  monitor 

•  '386  or  '486  processor  recommendsd 

•  Math  coprocessor  recommended 

DEVICE  SUPPORT 

•  Microchip  2^wlre24CXX/24LCXXB/8SCXX 

•  Micrechip  Smart  SonaT  24XX65 

•  Miciochip3-wire93CXX/93LCXXseriM 

•  lifiBiQichip<MiiriraS9C11 


Total  Endurance,  SEEVAL,  and  Smart  Serial  aMfeHimatfcs  of  MiciOGl<|»l|c^l|lk^  tisb 
IBM  PC  is  a  registered  trademark  of  IBM  Corp. 

Windows  is  a  trademark  of  Microsoft  Corp. 
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DESCRIPTION 


can  wij^qplhe  B^a^  pied&Mty.  ii^ 
tnarta^'andlha  fd>ility  to  create  a  rock-solid  design  Ittat 
only  a  wetl-lhought-out  devebpment  system  can  pro- 
vide. Microcliip's  new  Serial  EEPROM  Designer's  KK 
includes  everything  necessary  to  quicldy  develop  a 
robust  and  reliable  Serial  EEPROM-based  design  and 
greatly  reduce  the  time  required  for  system  integration 
antlWiWare/software  debug. 

The  TOTAL  ENDURANCE  SOFTWARE  MODEL  en- 
ables designers  to  quickly  choose  the  best  Serial 
EEPROM  for  the  specific  application  and  perfomi  trade- 
off analysis  with  voltage,  temperature,  write  cycle  and 
other  system  parameters  in  orderto  achieve  the  desired 
EraseAVrite  endurance  (specific  ppm  rate)  or  product 
lifetime.  Total  Endurance  is  the  new  standard  of  excel- 
lence In  understanding  and  predicting  the  Erase/Write 
endurance  of  Serial  EEPROMs.  An  online  endurance 
tutorial  Is  included,  along  with  hypertext  help  files. 

Microchip's  SEEVAL  SERIAL  EEPROM  EVALUA- 
TION AND  PROGRAMMING  SYSTEM  will  accept 
any  Microchip  Serial  EEPROM  in  DIP  package  and 
enable  the  designer  or  system  Integrator  to  read,  write, 
or  erase  any  byte  or  the  entire  an-ay.  SEEVAL  also 
provides  the  following  advanced  features  to  aid  In  sys- 
tem Integration  and  debug: 

-  Program  special  user  ftinctions  like  Smart  Serial 
configurations 

-  Hexadecimal  display  of  array  contents 

-  Pre-set  or  user-defined  repeating  patterns 

-  User-configurable  functions  like  continuous  read/ 
write,  programmable  delay,  etc. 

-  Upload/downtoad  files  between  the  Serial  EEPROM 
and  disk 

Another  industry  first,  the  MICROCHIP  SERIAL 
EEPROM  HANDBOOK  provides  a  plethora  of  infomia- 
tlon  crucial  to  the  designers  of  Serial  EEPROM-based 
systems.  Along  with  data  sheets  on  Microchip  Serial 
EEPROMs,  this  resource  provides  application  notes 
regarding  EraseA/Vrite  endurance,  interfacing  with  dif- 
ferent protocols  and  many,  many  others.  A  cross- 
reference  and  selector  guide  are  also  Included,  plus 
artk:le  reprints  and  quaiifk^tnn  reports  on  Mterochip 
Serial  EEPROMs. 


USING  SEEVAL  AND 
TOTAL  ENDURANCE 

Both  software  packages  can  be  loaded  from  Windows 
by  choosing  FILE  RUN  and  entering  SETUP.EXE  from 
the  Program  Manager.  The  applications  will  install  them- 
selves; then  a  double  mouse-click  will  start  either  appli- 
cation. The  first  step  in  either  program  Is  to  select  a 
device  from  the  device  list. 

In  Total  Endurance,  the  user  has  simply  to  choose  a 
Microchip  Serial  EEPROM  device  from  the  device-nst 
menu  and  begin  entering  the  application  parameters. 
The  entire  process  can  take  literally  seconds  to  com- 
plete, and  the  model  will  output  the  PPM  level  and  FIT 
rate  of  the  devne  vs.  the  number  of  EraseA/Vrlte  cycles. 
If  the  user  has  specified  an  application  lifetime,  the 
model  will  output  PPM  and  FIT  rates  at  that  point  In  time. 
Alternately,  the  user  may  input  a  desired  PPM  level  and 
the  nrxxJel  will  calculate  the  applKatkxi  lifetime  which  will 
result  In  that  survival  rate.  The  user  may  then  trade-off 
any  of  the  parameters  (device  type,  voltage,  application 
life,  temperature,  #  of  bytes  percycle,  #of  cycles  per  day 
etc.)  to  an-ive  at  an  optimal  solution  for  the  intended 
applicatkin. 

Whenever  a  parameter  is  changed,  catoulation  of  the 
ppm/applKation  life  is  automatic.  An  "update"  box  will 
appear  InskJe  the  graph  to  'mdteate  that  new  data  has 
been  entered  and  the  graph  should  be  redrawn.  A  single 
click  in  the  "draw"  box  will  redraw  the  plot  of  ppm  vs. 
cycles;  a  click  in  the  "Resize"  box  will  take  the  plot  to  full- 
screen display  for  a  closer  view.  The  plot  data  can  be 
saved  to  a  file  or  the  pk)t  itself  can  be  copied  to  the 
cflpboard  to  be  paded  into  another  applicatnn. 

In  SEEVAL,  file  user  may  choose  to  load  a  f  ito  from  disk 
to  program  the  Serial  EEPROM,  or  read  from  the 
EEPROM  and  save  it  to  dtek.  The  screen  displays  the 
contents  of  a  software  buffer.  The  buffer  ma^  be  manipu- 
lated before  programming  data  to  the  Serial  EEPROM, 
or  data  can  be  written  to  the  Serial  EEPROM  directly  on- 
line. An  area  of  memory  can  be  highlighted  (selected) 
and  programmed  with  a  predefined  pattern  or  user- 
specified  pattern.  Alternately,  the  entire  device  can  be 
programmed  with  any  repeating  pattern. 

Both  SEEVAL  and  Total  Endurance  allow  the  user  to 
save  any  configuratran  as  default.  This  configuratkxi 
(devKa  and  applicatton  settings)  will  then  automatically 
load  at  boot  time. 

■:je*Q  fcrtn-Ta  t.,  .. 
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